Fórum Dúvida urgente! Importação de Script para banco de dados Firebird #431036

SET TERM ^ ;

create or alter procedure PRODUTO_IU (
    ID type of column PRODUTO.ID,
    ID_UNIDADE_PRODUTO type of column PRODUTO.ID_UNIDADE_PRODUTO,
    GTIN type of column PRODUTO.GTIN,
    CODIGO_INTERNO type of column PRODUTO.CODIGO_INTERNO,
    NOME type of column PRODUTO.NOME,
    DESCRICAO type of column PRODUTO.DESCRICAO,
    DESCRICAO_PDV type of column PRODUTO.DESCRICAO_PDV,
    VALOR_VENDA type of column PRODUTO.VALOR_VENDA,
    QTD_ESTOQUE type of column PRODUTO.QTD_ESTOQUE,
    QTD_ESTOQUE_ANTERIOR type of column PRODUTO.QTD_ESTOQUE_ANTERIOR,
    ESTOQUE_MIN type of column PRODUTO.ESTOQUE_MIN,
    ESTOQUE_MAX type of column PRODUTO.ESTOQUE_MAX,
    IAT type of column PRODUTO.IAT,
    IPPT type of column PRODUTO.IPPT,
    NCM type of column PRODUTO.NCM,
    TIPO_ITEM_SPED type of column PRODUTO.TIPO_ITEM_SPED,
    DATA_ESTOQUE type of column PRODUTO.DATA_ESTOQUE,
    CST type of column PRODUTO.CST,
    CSOSN type of column PRODUTO.CSOSN,
    ECF_ICMS_ST type of column PRODUTO.ECF_ICMS_ST,
    CODIGO_BALANCA type of column PRODUTO.CODIGO_BALANCA,
    PAF_P_ST type of column PRODUTO.PAF_P_ST,
    PROMOCAO type of column PRODUTO.PROMOCAO)
as
begin
  if (exists(select id from produto where (id = :id))) then
    update produto
    set id_unidade_produto = :id_unidade_produto,
        gtin = :gtin,
        codigo_interno = :codigo_interno,
        nome = :nome,
        descricao = :descricao,
        descricao_pdv = :descricao_pdv,
        valor_venda = :valor_venda,
        qtd_estoque = :qtd_estoque,
        qtd_estoque_anterior = :qtd_estoque_anterior,
        estoque_min = :estoque_min,
        estoque_max = :estoque_max,
        iat = :iat,
        ippt = :ippt,
        ncm = :ncm,
        tipo_item_sped = :tipo_item_sped,
        data_estoque = :data_estoque,
        cst = :cst,
        csosn = :csosn,
        ecf_icms_st = :ecf_icms_st,
        codigo_balanca = :codigo_balanca,
        paf_p_st = :paf_p_st,
        promocao=:promocao
    where (id = :id);
  else
    insert into produto (
        id,
        id_unidade_produto,
        gtin,
        codigo_interno,
        nome,
        descricao,
        descricao_pdv,
        valor_venda,
        qtd_estoque,
        qtd_estoque_anterior,
        estoque_min,
        estoque_max,
        iat,
        ippt,
        ncm,
        tipo_item_sped,
        data_estoque,
        cst,
        csosn,
        ecf_icms_st,
        codigo_balanca,
        paf_p_st,promocao)
    values (
        :id,
        :id_unidade_produto,
        :gtin,
        :codigo_interno,
        :nome,
        :descricao,
        :descricao_pdv,
        :valor_venda,
        :qtd_estoque,
        :qtd_estoque_anterior,
        :estoque_min,
        :estoque_max,
        :iat,
        :ippt,
        :ncm,
        :tipo_item_sped,
        :data_estoque,
        :cst,
        :csosn,
        :ecf_icms_st,
        :codigo_balanca,
        :paf_p_st,
        :promocao);
end^

SET TERM ; ^

GRANT SELECT,INSERT,UPDATE ON PRODUTO TO PROCEDURE PRODUTO_IU;

GRANT EXECUTE ON PROCEDURE PRODUTO_IU TO SYSDBA;