SET SQL DIALECT 3;
SET TERM ^ ;

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0032','PRODUTOS','CADASTROS','FLG_TAMANHO','PERMITE REPETIR TAMANHO NA GRADE','SIM','SIM;NAO','N')

^

update configuracao set valor = 'SIM'
where (campo = 'FLG_TAMANHO') and (cod_tela = 'SG_0032')
and exists (select codigo from empresa where ((nivel <> 15) and (nivel <> 23) and (nivel <> 24) and (nivel <> 25) and (nivel <> 27)
and (nivel <> 30) and (nivel <> 33) and (nivel <> 34) and (nivel <> 39) and (nivel <> 43) and (nivel <> 46) and (nivel <> 54)
and (nivel <> 58) and (nivel <> 68) and (nivel <> 67) and (nivel <> 106) and (nivel <> 112) and (nivel <> 114) and (nivel <> 118)))

^

ALTER TABLE PARAMETROS
    ADD IMPRESSORA_PADRAO VARCHAR(200)

^

ALTER TABLE END_CLI
ADD CONSTRAINT FK_END_CLI1
FOREIGN KEY (COD_CLI)
REFERENCES CLIENTE(CODIGO)
ON DELETE CASCADE 

^

ALTER TABLE PROD_LOTE
   ADD VLR_PMC numeric(15,2),
   ADD COD_ANVISA varchar(40)

^

CREATE OR ALTER procedure P_PROD_LOTE (
    OPERACAO integer,
    CODIGO integer,
    COD_PROD integer,
    COD_EMPRESA integer,
    NUM_LOTE varchar(40),
    DT_CADASTRO date,
    DT_VALIDADE date,
    ESTOQUE numeric(15,3),
    VLR_PMC numeric(15,2),
    COD_ANVISA varchar(40))
as
begin 
if (operacao = 1) then 
insert into PROD_LOTE (CODIGO,COD_PROD,COD_EMPRESA,NUM_LOTE,DT_CADASTRO,DT_VALIDADE,ESTOQUE,VLR_PMC,COD_ANVISA)
values (:CODIGO,:COD_PROD,:COD_EMPRESA,:NUM_LOTE,:DT_CADASTRO,:DT_VALIDADE,:ESTOQUE,:VLR_PMC,:COD_ANVISA);
if (operacao = 2) then 
update PROD_LOTE set 
COD_PROD = :COD_PROD, 
COD_EMPRESA = :COD_EMPRESA, 
NUM_LOTE = :NUM_LOTE, 
DT_CADASTRO = :DT_CADASTRO, 
DT_VALIDADE = :DT_VALIDADE, 
ESTOQUE = :ESTOQUE,
VLR_PMC = :VLR_PMC,
COD_ANVISA = : COD_ANVISA
where (CODIGO = :CODIGO); 
if (operacao = 3) then 
delete from PROD_LOTE 
where (CODIGO = :CODIGO);
suspend; 
end

============================================================
     ATUALIZABANCO VAI AT  AQUI - 27 DE ABRIL DE 2022 - (1.0.0.26)
============================================================


ALTER TABLE PRODUTO
    ADD PORC_FCP NUMERIC(15,2)

^

CREATE OR ALTER procedure P_PRODUTO (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    COD_GRUPO integer,
    COD_FORNECEDOR integer,
    MARCA varchar(200),
    UNIDADE_ESTOQUE varchar(10),
    UNIDADE_CONVERSAO varchar(10),
    QTD_EMBALAGEM numeric(15,4),
    PORC_LUCRO_V numeric(15,2),
    PORC_LUCRO_P numeric(15,2),
    PORC_ICMS_ISS numeric(15,2),
    PORC_COMISSAO integer,
    COD_CST varchar(10),
    ESTOQUE_INICIAL numeric(15,3),
    ESTOQUE_MINIMO numeric(15,3),
    ESTOQUE_ATUAL numeric(15,3),
    ESTOQUE_FISCAL numeric(15,3),
    COD_TRIB integer,
    COD_TRIB_ENT integer,
    SIT_TRIB varchar(2),
    DT_CADASTRO date,
    FLG_ATIVADO char(1),
    FLG_ESTOQUE char(1),
    FLG_TIPO char(1),
    LOCALIZACAO varchar(60),
    OBSERVACAO varchar(100),
    OBSERVACAO2 varchar(100),
    DT_ALTERACAO date,
    TEMPO_REAL time,
    NCM varchar(20),
    COD_CSOSN integer,
    CONV_PRECO numeric(15,3),
    CST_PIS varchar(3),
    CST_COFINS varchar(3),
    COD_SUBGRUPO integer,
    COD_SUBSUBGRUPO integer,
    ESTOQUE1 numeric(15,3),
    ESTOQUE2 numeric(15,3),
    ESTOQUE3 numeric(15,3),
    ESTOQUE4 numeric(15,3),
    ESTOQUE5 numeric(15,3),
    PORC_PIS numeric(15,2),
    PORC_COFINS numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    DT_VALIDADE date,
    PORC_IPI numeric(15,2),
    PORC_MVA numeric(15,2),
    PESO_BRUTO numeric(15,3),
    PESO_LIQUIDO numeric(15,3),
    FOTO varchar(200),
    ANEXO varchar(100),
    COD_ANP varchar(10),
    LOCALIZACAO2 varchar(60),
    ETIQUETA integer,
    COD_CEST varchar(7),
    COD_EMPRESA integer,
    PORC_DESC numeric(15,2),
    FLG_DESC char(1),
    ESTOQUE_MAXIMO numeric(15,3),
    ESTOQUE_DEMANDA_MEDIA numeric(15,3),
    ESTOQUE_TEMPO_RESUPRI numeric(15,3),
    ESTOQUE_INTERVALO_RESUPRI numeric(15,3),
    COD_DESP integer,
    COD_MARCA integer,
    FLG_SITE char(1),
    FLG_BALANCA char(1),
    SITE_COMPRIMENTO numeric(15,2),
    SITE_LARGURA numeric(15,2),
    SITE_ALTURA numeric(15,2),
    SITE_DESCRICAO varchar(9999),
    SITE_SYNC char(1),
    SITE_COD integer,
    PORC_REDBASE numeric(15,2),
    PONTOS numeric(15,4),
    LOCALIZACAO21 varchar(60),
    LOCALIZACAO22 varchar(60),
    LOCALIZACAO31 varchar(60),
    LOCALIZACAO32 varchar(60),
    LOCALIZACAO41 varchar(60),
    LOCALIZACAO42 varchar(60),
    LOCALIZACAO51 varchar(60),
    LOCALIZACAO52 varchar(60),
    PORC_FCP numeric(15,2))
as
begin
if (OPERACAO = 1) then 
insert into PRODUTO (CODIGO,NOME,COD_GRUPO,COD_FORNECEDOR,MARCA,UNIDADE_ESTOQUE,UNIDADE_CONVERSAO,QTD_EMBALAGEM,PORC_LUCRO_V,PORC_LUCRO_P,PORC_ICMS_ISS,PORC_COMISSAO,
COD_CST,ESTOQUE_INICIAL,ESTOQUE_MINIMO,ESTOQUE_ATUAL,ESTOQUE_FISCAL,COD_TRIB,COD_TRIB_ENT,SIT_TRIB,DT_CADASTRO,FLG_ATIVADO,FLG_ESTOQUE,FLG_TIPO,LOCALIZACAO,OBSERVACAO,
OBSERVACAO2,DT_ALTERACAO,TEMPO_REAL,NCM,COD_CSOSN,CONV_PRECO,CST_PIS,CST_COFINS,COD_SUBGRUPO,COD_SUBSUBGRUPO,ESTOQUE1,ESTOQUE2,ESTOQUE3,ESTOQUE4,ESTOQUE5,PORC_PIS,PORC_COFINS,
OBS_ADICIONAL,DT_VALIDADE,PORC_IPI,PORC_MVA,PESO_BRUTO,PESO_LIQUIDO,FOTO,ANEXO,COD_ANP,LOCALIZACAO2,ETIQUETA,COD_CEST,COD_EMPRESA,PORC_DESC,FLG_DESC,ESTOQUE_MAXIMO,ESTOQUE_DEMANDA_MEDIA,
ESTOQUE_TEMPO_RESUPRI,ESTOQUE_INTERVALO_RESUPRI,COD_DESP,COD_MARCA,FLG_SITE,FLG_BALANCA,SITE_COMPRIMENTO,SITE_LARGURA,SITE_ALTURA,SITE_DESCRICAO,SITE_SYNC,SITE_COD,PORC_REDBASE,PONTOS,
LOCALIZACAO21,LOCALIZACAO22,LOCALIZACAO31,LOCALIZACAO32,LOCALIZACAO41,LOCALIZACAO42,LOCALIZACAO51,LOCALIZACAO52, PORC_FCP)
values (:CODIGO,:NOME,:COD_GRUPO,:COD_FORNECEDOR,:MARCA,:UNIDADE_ESTOQUE,:UNIDADE_CONVERSAO,:QTD_EMBALAGEM,:PORC_LUCRO_V,:PORC_LUCRO_P,:PORC_ICMS_ISS,:PORC_COMISSAO,:COD_CST,:ESTOQUE_INICIAL,:ESTOQUE_MINIMO,
:ESTOQUE_ATUAL,:ESTOQUE_FISCAL,:COD_TRIB,:COD_TRIB_ENT,:SIT_TRIB,:DT_CADASTRO,:FLG_ATIVADO,:FLG_ESTOQUE,:FLG_TIPO,:LOCALIZACAO,:OBSERVACAO,:OBSERVACAO2,:DT_ALTERACAO,:TEMPO_REAL,:NCM,:COD_CSOSN,
:CONV_PRECO,:CST_PIS,:CST_COFINS,:COD_SUBGRUPO,:COD_SUBSUBGRUPO,:ESTOQUE1,:ESTOQUE2,:ESTOQUE3,:ESTOQUE4,:ESTOQUE5,:PORC_PIS,:PORC_COFINS,:OBS_ADICIONAL,:DT_VALIDADE,:PORC_IPI,:PORC_MVA,:PESO_BRUTO,
:PESO_LIQUIDO,:FOTO,:ANEXO,:COD_ANP,:LOCALIZACAO2,:ETIQUETA,:COD_CEST,
:COD_EMPRESA,:PORC_DESC,:FLG_DESC,:ESTOQUE_MAXIMO,:ESTOQUE_DEMANDA_MEDIA,:ESTOQUE_TEMPO_RESUPRI,:ESTOQUE_INTERVALO_RESUPRI,:COD_DESP,:COD_MARCA,:FLG_SITE,:FLG_BALANCA,
:SITE_COMPRIMENTO,:SITE_LARGURA,:SITE_ALTURA,:SITE_DESCRICAO,:SITE_SYNC,:SITE_COD,:PORC_REDBASE,:PONTOS,:LOCALIZACAO21,:LOCALIZACAO22,:LOCALIZACAO31,:LOCALIZACAO32,:LOCALIZACAO41,
:LOCALIZACAO42,:LOCALIZACAO51,:LOCALIZACAO52,:PORC_FCP);
if (OPERACAO = 2) then 
update PRODUTO set 
NOME = :NOME,
COD_GRUPO = :COD_GRUPO,
COD_FORNECEDOR = :COD_FORNECEDOR,
MARCA = :MARCA,
UNIDADE_ESTOQUE = :UNIDADE_ESTOQUE,
UNIDADE_CONVERSAO = :UNIDADE_CONVERSAO,
QTD_EMBALAGEM = :QTD_EMBALAGEM,
PORC_LUCRO_V = :PORC_LUCRO_V,
PORC_LUCRO_P = :PORC_LUCRO_P,
PORC_ICMS_ISS = :PORC_ICMS_ISS,
PORC_COMISSAO = :PORC_COMISSAO,
COD_CST = :COD_CST,
ESTOQUE_INICIAL = :ESTOQUE_INICIAL,
ESTOQUE_MINIMO = :ESTOQUE_MINIMO,
ESTOQUE_ATUAL = :ESTOQUE_ATUAL,
ESTOQUE_FISCAL = :ESTOQUE_FISCAL,
COD_TRIB = :COD_TRIB,
COD_TRIB_ENT = :COD_TRIB_ENT,
SIT_TRIB = :SIT_TRIB,
DT_CADASTRO = :DT_CADASTRO,
FLG_ATIVADO = :FLG_ATIVADO,
FLG_ESTOQUE = :FLG_ESTOQUE,
FLG_TIPO = :FLG_TIPO,
LOCALIZACAO = :LOCALIZACAO,
OBSERVACAO = :OBSERVACAO,
OBSERVACAO2 = :OBSERVACAO2,
DT_ALTERACAO = :DT_ALTERACAO,
TEMPO_REAL = :TEMPO_REAL,
NCM = :NCM,
COD_CSOSN = :COD_CSOSN,
CONV_PRECO = :CONV_PRECO,
CST_PIS = :CST_PIS,
CST_COFINS = :CST_COFINS,
COD_SUBGRUPO = :COD_SUBGRUPO,
COD_SUBSUBGRUPO = :COD_SUBSUBGRUPO,
ESTOQUE1 = :ESTOQUE1,
ESTOQUE2 = :ESTOQUE2,
ESTOQUE3 = :ESTOQUE3,
ESTOQUE4 = :ESTOQUE4,
ESTOQUE5 = :ESTOQUE5,
PORC_PIS = :PORC_PIS,
PORC_COFINS = :PORC_COFINS,
OBS_ADICIONAL = :OBS_ADICIONAL,
DT_VALIDADE = :DT_VALIDADE,
PORC_IPI = :PORC_IPI,
PORC_MVA = :PORC_MVA,
PESO_BRUTO = :PESO_BRUTO,
PESO_LIQUIDO = :PESO_LIQUIDO,
FOTO = :FOTO,
ANEXO = :ANEXO,
COD_ANP = :COD_ANP,
LOCALIZACAO2 = :LOCALIZACAO2,
ETIQUETA = :ETIQUETA,
COD_CEST = :COD_CEST,
COD_EMPRESA = :COD_EMPRESA,
PORC_DESC = :PORC_DESC,
FLG_DESC = :FLG_DESC,
ESTOQUE_MAXIMO = :ESTOQUE_MAXIMO,
ESTOQUE_DEMANDA_MEDIA = :ESTOQUE_DEMANDA_MEDIA,
ESTOQUE_TEMPO_RESUPRI = :ESTOQUE_TEMPO_RESUPRI,
ESTOQUE_INTERVALO_RESUPRI = :ESTOQUE_INTERVALO_RESUPRI,
COD_DESP = :COD_DESP,
COD_MARCA = :COD_MARCA,
FLG_SITE = :FLG_SITE,
FLG_BALANCA = :FLG_BALANCA,
SITE_COMPRIMENTO = :SITE_COMPRIMENTO,
SITE_LARGURA = :SITE_LARGURA,
SITE_ALTURA = :SITE_ALTURA,
SITE_DESCRICAO = :SITE_DESCRICAO,
SITE_SYNC = :SITE_SYNC,
SITE_COD = :SITE_COD,
PORC_REDBASE = :PORC_REDBASE,
PONTOS = :PONTOS ,
LOCALIZACAO21 = :LOCALIZACAO21,
LOCALIZACAO22 = :LOCALIZACAO22,
LOCALIZACAO31 = :LOCALIZACAO31,
LOCALIZACAO32 = :LOCALIZACAO32,
LOCALIZACAO41 = :LOCALIZACAO41,
LOCALIZACAO42 = :LOCALIZACAO42,
LOCALIZACAO51 = :LOCALIZACAO51,
LOCALIZACAO52 = :LOCALIZACAO52,
PORC_FCP = :PORC_FCP
where (CODIGO = :CODIGO);
if (OPERACAO = 3) then
delete from PRODUTO
where (CODIGO = :CODIGO);
suspend;
end

^

CREATE TABLE MARKETPLACE (
    CODIGO INTEGER NOT NULL,
    NOME VARCHAR(40),
    CNPJ VARCHAR(20),
    NOME_PAG VARCHAR(40),
    CNPJ_PAG VARCHAR(20))

^

ALTER TABLE MARKETPLACE
ADD CONSTRAINT PK_MARKETPLACE
PRIMARY KEY (CODIGO)

^

create or alter procedure P_MARKETPLACE (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(40),
    CNPJ varchar(20),
    NOME_PAG varchar(40),
    CNPJ_PAG varchar(20))
as
begin 
if (operacao = 1) then 
insert into MARKETPLACE (CODIGO,NOME,CNPJ,NOME_PAG,CNPJ_PAG)
values (:CODIGO,:NOME,:CNPJ,:NOME_PAG,:CNPJ_PAG);
if (operacao = 2) then
update MARKETPLACE set
NOME = :NOME,
CNPJ = :CNPJ,
NOME_PAG = :NOME_PAG,
CNPJ_PAG = :CNPJ_PAG
where (CODIGO = :CODIGO);
if (operacao = 3) then
delete from MARKETPLACE
where (CODIGO = :CODIGO);
suspend; 
end

^

CREATE trigger trg_marketplace for marketplace
active before insert position 0
AS 
declare variable cod integer; 
begin   
select max(CODIGO) from MARKETPLACE into :cod;
if (cod is null) then cod = 0; 
new.codigo = cod + 1;
end

^

ALTER TABLE MOVTO
    ADD CODMARKET INTEGER

^	
	
CREATE OR ALTER procedure P_MOVTO (
    OPERACAO integer,
    CODIGO integer,
    FLG_CODMOV integer,
    DATA date,
    NOTA_FISCAL integer,
    SERIE integer,
    CUPOM_FISCAL integer,
    NRO_ECF integer,
    DATA_SAIDA date,
    COD_CLI integer,
    COD_FOR integer,
    COD_FUNC integer,
    COD_TRIB integer,
    COD_END_CLI integer,
    VLR_DESC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_FRETE numeric(15,2),
    PORC_FRETE numeric(15,3),
    VLR_TOTAL numeric(15,2),
    TOTAL_NF numeric(15,2),
    TIPO_RECEB integer,
    OBSERV1 varchar(200),
    OBSERV2 varchar(100),
    OBSERV3 varchar(100),
    TRANS_NOME varchar(60),
    TRANS_END varchar(60),
    TRANS_CIDADE varchar(60),
    TRANS_CIDADEUF varchar(2),
    TRANS_PLACA varchar(10),
    TRANS_PLACAUF varchar(2),
    TRANS_FRETE integer,
    TRANS_CNPJ_CPF varchar(20),
    TRANS_IE_RG varchar(20),
    CODREC_DEVOLUCAO integer,
    COD_CAIXA integer,
    FLG_CANCEL char(1),
    MOTIVO_CANCEL varchar(60),
    NF_DATA date,
    NF_DATA_SAIDA date,
    NF_HORA time,
    NF_CPF varchar(20),
    PLACA varchar(10),
    DATA_ENTREGA date,
    FLG_ABERTO char(1),
    VLR_DINH numeric(15,2),
    VLR_CHVISTA numeric(15,2),
    VLR_CHPRE numeric(15,2),
    VLR_CARTAO numeric(15,2),
    NFE_NRO integer,
    NFE_STATUS varchar(60),
    NFE_CAMINHO varchar(60),
    NFE_CHAVE varchar(60),
    NFE_OBSERV varchar(60),
    VLR_DEBITO numeric(15,2),
    VLR_PRAZO numeric(15,2),
    VLR_OUTROS numeric(15,2),
    COD_EMPRESA integer,
    NOME_VEICULO varchar(200),
    VOL_QUANT varchar(20),
    VOL_ESPECIE varchar(20),
    VOL_MARCA varchar(20),
    VOL_NRO varchar(20),
    VOL_BRUTO varchar(20),
    VOL_LIQUIDO varchar(20),
    NFE_REF1 varchar(60),
    NFE_REF2 varchar(60),
    NFE_REF3 varchar(60),
    COD_MAO_OBRA integer,
    SAT_NRO integer,
    SAT_STATUS varchar(20),
    SAT_CAMINHO varchar(60),
    SAT_CHAVE varchar(60),
    DT_COMISSAO date,
    NF_NOME varchar(60),
    COD_CONVENIO integer,
    COD_MESA integer,
    COD_PARCELA integer,
    FLG_PRECO char(1),
    LOCAL_DESEMB varchar(200),
    UF_DESEMB varchar(2),
    NRO_DI varchar(20),
    DT_DI date,
    COD_EXPORT integer,
    COD_FABRIC integer,
    TP_TRANS integer,
    NFE_REF4 varchar(60),
    VLR_IMPORT numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    FLG_PROCEDE char(1),
    ROMANEIO_NRO integer,
    ROMANEIO_DATA date,
    TOKEN varchar(256),
    CODMARKET integer)
as
begin 
if (operacao = 1) then  
insert into MOVTO (CODIGO,FLG_CODMOV,DATA,NOTA_FISCAL,SERIE,CUPOM_FISCAL,NRO_ECF,DATA_SAIDA,COD_CLI,COD_FOR,COD_FUNC,COD_TRIB,COD_END_CLI,VLR_DESC,VLR_ACRES,VLR_FRETE,PORC_FRETE, 
VLR_TOTAL,TOTAL_NF,TIPO_RECEB,OBSERV1,OBSERV2,OBSERV3,TRANS_NOME,TRANS_END,TRANS_CIDADE,TRANS_CIDADEUF,TRANS_PLACA,TRANS_PLACAUF,TRANS_FRETE,TRANS_CNPJ_CPF,TRANS_IE_RG,CODREC_DEVOLUCAO,
COD_CAIXA,FLG_CANCEL,MOTIVO_CANCEL,NF_DATA,NF_DATA_SAIDA,NF_HORA,NF_CPF,PLACA,DATA_ENTREGA,FLG_ABERTO,VLR_DINH,VLR_CHVISTA,VLR_CHPRE,VLR_CARTAO,NFE_NRO,NFE_STATUS,NFE_CAMINHO, 
NFE_CHAVE,NFE_OBSERV,VLR_DEBITO,VLR_PRAZO,VLR_OUTROS,COD_EMPRESA,NOME_VEICULO,VOL_QUANT,VOL_ESPECIE,VOL_MARCA,VOL_NRO,VOL_BRUTO,VOL_LIQUIDO,NFE_REF1,NFE_REF2,NFE_REF3,COD_MAO_OBRA,SAT_NRO,SAT_STATUS,SAT_CAMINHO,SAT_CHAVE, 
DT_COMISSAO,NF_NOME,COD_CONVENIO,COD_MESA,COD_PARCELA,FLG_PRECO,LOCAL_DESEMB,UF_DESEMB,NRO_DI,DT_DI,COD_EXPORT,COD_FABRIC,TP_TRANS,NFE_REF4,VLR_IMPORT,OBS_ADICIONAL,FLG_PROCEDE,ROMANEIO_NRO,ROMANEIO_DATA,TOKEN, CODMARKET)
values (:CODIGO,:FLG_CODMOV,:DATA,:NOTA_FISCAL,:SERIE,:CUPOM_FISCAL,:NRO_ECF,:DATA_SAIDA,:COD_CLI,:COD_FOR,:COD_FUNC,:COD_TRIB,:COD_END_CLI,:VLR_DESC,:VLR_ACRES,:VLR_FRETE, 
:PORC_FRETE,:VLR_TOTAL,:TOTAL_NF,:TIPO_RECEB,:OBSERV1,:OBSERV2,:OBSERV3,:TRANS_NOME,:TRANS_END,:TRANS_CIDADE,:TRANS_CIDADEUF,:TRANS_PLACA,:TRANS_PLACAUF,:TRANS_FRETE, 
:TRANS_CNPJ_CPF,:TRANS_IE_RG,:CODREC_DEVOLUCAO,:COD_CAIXA,:FLG_CANCEL,:MOTIVO_CANCEL,:NF_DATA,:NF_DATA_SAIDA,:NF_HORA,:NF_CPF,:PLACA,:DATA_ENTREGA,:FLG_ABERTO, 
:VLR_DINH,:VLR_CHVISTA,:VLR_CHPRE,:VLR_CARTAO,:NFE_NRO,:NFE_STATUS,:NFE_CAMINHO,:NFE_CHAVE,:NFE_OBSERV,:VLR_DEBITO,:VLR_PRAZO,:VLR_OUTROS,:COD_EMPRESA,:NOME_VEICULO, 
:VOL_QUANT,:VOL_ESPECIE,:VOL_MARCA,:VOL_NRO,:VOL_BRUTO,:VOL_LIQUIDO,:NFE_REF1,:NFE_REF2,:NFE_REF3,:COD_MAO_OBRA,:SAT_NRO,:SAT_STATUS,:SAT_CAMINHO,:SAT_CHAVE,:DT_COMISSAO,:NF_NOME,:COD_CONVENIO,:COD_MESA,:COD_PARCELA,:FLG_PRECO,  
:LOCAL_DESEMB,:UF_DESEMB,:NRO_DI,:DT_DI,:COD_EXPORT,:COD_FABRIC,:TP_TRANS,:NFE_REF4,:VLR_IMPORT,:OBS_ADICIONAL,:FLG_PROCEDE,:ROMANEIO_NRO,:ROMANEIO_DATA,:TOKEN,:CODMARKET);
if (operacao = 2) then  
update MOVTO set  
FLG_CODMOV = :FLG_CODMOV,  
DATA = :DATA, 
NOTA_FISCAL = :NOTA_FISCAL, 
SERIE = :SERIE,   
CUPOM_FISCAL = :CUPOM_FISCAL, 
NRO_ECF = :NRO_ECF, 
DATA_SAIDA = :DATA_SAIDA, 
COD_CLI = :COD_CLI,
COD_FOR = :COD_FOR, 
COD_FUNC = :COD_FUNC,  
COD_TRIB = :COD_TRIB, 
COD_END_CLI = :COD_END_CLI, 
VLR_DESC = :VLR_DESC,  
VLR_ACRES = :VLR_ACRES, 
VLR_FRETE = :VLR_FRETE, 
PORC_FRETE = :PORC_FRETE, 
VLR_TOTAL = :VLR_TOTAL, 
TOTAL_NF = :TOTAL_NF, 
TIPO_RECEB = :TIPO_RECEB, 
OBSERV1 = :OBSERV1, 
OBSERV2 = :OBSERV2,
OBSERV3 = :OBSERV3, 
TRANS_NOME = :TRANS_NOME, 
TRANS_END = :TRANS_END, 
TRANS_CIDADE = :TRANS_CIDADE, 
TRANS_CIDADEUF = :TRANS_CIDADEUF, 
TRANS_PLACA = :TRANS_PLACA,
TRANS_PLACAUF = :TRANS_PLACAUF,  
TRANS_FRETE = :TRANS_FRETE, 
TRANS_CNPJ_CPF = :TRANS_CNPJ_CPF, 
TRANS_IE_RG = :TRANS_IE_RG,
CODREC_DEVOLUCAO = :CODREC_DEVOLUCAO,
COD_CAIXA = :COD_CAIXA, 
FLG_CANCEL = :FLG_CANCEL,
MOTIVO_CANCEL = :MOTIVO_CANCEL,
NF_DATA = :NF_DATA, 
NF_DATA_SAIDA = :NF_DATA_SAIDA,
NF_HORA = :NF_HORA, 
NF_CPF = :NF_CPF,  
PLACA = :PLACA,
DATA_ENTREGA = :DATA_ENTREGA, 
FLG_ABERTO = :FLG_ABERTO, 
VLR_DINH = :VLR_DINH,
VLR_CHVISTA = :VLR_CHVISTA, 
VLR_CHPRE = :VLR_CHPRE,  
VLR_CARTAO = :VLR_CARTAO, 
NFE_NRO = :NFE_NRO, 
NFE_STATUS = :NFE_STATUS, 
NFE_CAMINHO = :NFE_CAMINHO,
NFE_CHAVE = :NFE_CHAVE,
NFE_OBSERV = :NFE_OBSERV,
VLR_DEBITO = :VLR_DEBITO, 
VLR_PRAZO = :VLR_PRAZO,
VLR_OUTROS = :VLR_OUTROS, 
COD_EMPRESA = :COD_EMPRESA,
NOME_VEICULO = :NOME_VEICULO,
VOL_QUANT = :VOL_QUANT, 
VOL_ESPECIE = :VOL_ESPECIE, 
VOL_MARCA = :VOL_MARCA, 
VOL_NRO = :VOL_NRO, 
VOL_BRUTO = :VOL_BRUTO, 
VOL_LIQUIDO = :VOL_LIQUIDO,
NFE_REF1 = :NFE_REF1,
NFE_REF2 = :NFE_REF2,
NFE_REF3 = :NFE_REF3, 
COD_MAO_OBRA = :COD_MAO_OBRA, 
SAT_NRO = :SAT_NRO,
SAT_STATUS = :SAT_STATUS,
SAT_CAMINHO = :SAT_CAMINHO,
SAT_CHAVE = :SAT_CHAVE, 
DT_COMISSAO = :DT_COMISSAO, 
NF_NOME = :NF_NOME, 
COD_CONVENIO = :COD_CONVENIO, 
COD_MESA = :COD_MESA,
COD_PARCELA = :COD_PARCELA, 
FLG_PRECO = :FLG_PRECO, 
LOCAL_DESEMB  = :LOCAL_DESEMB,
UF_DESEMB = :UF_DESEMB,
NRO_DI = :NRO_DI, 
DT_DI = :DT_DI, 
COD_EXPORT = :COD_EXPORT, 
COD_FABRIC = :COD_FABRIC,
TP_TRANS = :TP_TRANS, 
NFE_REF4 = :NFE_REF4,
VLR_IMPORT = :VLR_IMPORT, 
OBS_ADICIONAL = :OBS_ADICIONAL,
FLG_PROCEDE = :FLG_PROCEDE,
ROMANEIO_NRO = :ROMANEIO_NRO, 
ROMANEIO_DATA = :ROMANEIO_DATA,
TOKEN = :TOKEN,
CODMARKET = :CODMARKET
where (CODIGO = :CODIGO); 
if (operacao = 3) then  
delete from MOVTO 
where (CODIGO = :CODIGO); 
suspend; 
end
^
============================================================
     ATUALIZABANCO VAI AT  AQUI - 29 DE ABRIL DE 2022 - (1.0.0.27)
============================================================

ALTER TABLE PAGAR
    ADD CRED_DEB CHAR(1) CHARACTER SET NONE NOT NULL
^

update pagar set cred_deb = 'D' where saldo > 0

^

create or alter procedure P_PAGAR (
    OPERACAO integer,
    CODIGO integer,
    PARCELA integer,
    CODMOV integer,
    COD_FOR integer,
    DT_COMPRA date,
    DT_VENCTO date,
    VLR_PARC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_DESC numeric(15,2),
    SALDO numeric(15,2),
    HISTORICO varchar(100),
    DOCUMENTO integer,
    SERIE varchar(3),
    COD_BANCO integer,
    COD_CAIXA integer,
    COD_DESP integer,
    COD_EMPRESA integer,
    CRED_DEB char(1))
as
begin
  IF (OPERACAO = 1) THEN
    INSERT INTO PAGAR (CODIGO,PARCELA,CODMOV,COD_FOR,DT_COMPRA,DT_VENCTO,VLR_PARC,VLR_ACRES,VLR_DESC,SALDO,HISTORICO,DOCUMENTO,SERIE,COD_BANCO,COD_CAIXA,COD_DESP,COD_EMPRESA,CRED_DEB)
    VALUES (:CODIGO,:PARCELA,:CODMOV,:COD_FOR,:DT_COMPRA,:DT_VENCTO,:VLR_PARC,:VLR_ACRES,:VLR_DESC,:SALDO,:HISTORICO,:DOCUMENTO,:SERIE,:COD_BANCO,:COD_CAIXA,:COD_DESP,:COD_EMPRESA,:CRED_DEB);

  IF (OPERACAO = 2) THEN
    UPDATE PAGAR SET
    PARCELA = :PARCELA,
    CODMOV = :CODMOV,
    COD_FOR = :COD_FOR,
    DT_COMPRA = :DT_COMPRA,
    DT_VENCTO = :DT_VENCTO,
    VLR_PARC = :VLR_PARC,
    VLR_ACRES = :VLR_ACRES,
    VLR_DESC = :VLR_DESC,
    SALDO = :SALDO,
    HISTORICO = :HISTORICO,
    DOCUMENTO = :DOCUMENTO,
    SERIE = :SERIE,
    COD_BANCO = :COD_BANCO,
    COD_CAIXA = :COD_CAIXA,
    COD_DESP = :COD_DESP,
    COD_EMPRESA = :COD_EMPRESA,
    CRED_DEB =: CRED_DEB
    WHERE (CODIGO = :CODIGO);

  IF (OPERACAO = 3) THEN
    DELETE FROM PAGAR
    WHERE (CODIGO = :CODIGO);

  suspend;
end

^

ALTER TABLE PAG_PAGAR
    ADD CRED_DEB CHAR(1) CHARACTER SET NONE NOT NULL
^

update pag_pagar set cred_deb = 'C'

^


create or alter procedure P_PAGPAGAR (
    OPERACAO integer,
    CODPAG integer,
    ORDEM integer,
    VLR_ACRES numeric(15,2),
    VLR_DESC numeric(15,2),
    VLR_PAGTO numeric(15,2),
    DT_PAGTO date,
    COD_FUNC integer,
    COD_CAIXA_PAGTO integer,
    HISTORICO varchar(100),
    VLR_DINH numeric(15,2),
    VLR_CHVISTA numeric(15,2),
    VLR_CHPRE numeric(15,2),
    VLR_CARTAO numeric(15,2),
    COD_EMPRESA integer,
    TIPO_RECEB integer,
    VLR_PIX numeric(15,2),
    CRED_DEB char(1))
as
begin  
IF (OPERACAO = 1) THEN  
INSERT INTO PAG_PAGAR (CODPAG,ORDEM,VLR_ACRES,VLR_DESC,VLR_PAGTO,DT_PAGTO,COD_FUNC,COD_CAIXA_PAGTO,HISTORICO,VLR_DINH,VLR_CHVISTA,VLR_CHPRE,VLR_CARTAO,COD_EMPRESA,TIPO_RECEB,VLR_PIX,CRED_DEB)  
VALUES (:CODPAG,:ORDEM,:VLR_ACRES,:VLR_DESC,:VLR_PAGTO,:DT_PAGTO,:COD_FUNC,:COD_CAIXA_PAGTO,:HISTORICO,:VLR_DINH,:VLR_CHVISTA,:VLR_CHPRE,:VLR_CARTAO,:COD_EMPRESA,:TIPO_RECEB,:VLR_PIX,:CRED_DEB); 
IF (OPERACAO = 2) THEN 
UPDATE PAG_PAGAR SET 
ORDEM = :ORDEM,  
VLR_ACRES = :VLR_ACRES, 
VLR_DESC = :VLR_DESC,  
VLR_PAGTO = :VLR_PAGTO, 
DT_PAGTO = :DT_PAGTO,  
COD_FUNC = :COD_FUNC, 
COD_CAIXA_PAGTO = :COD_CAIXA_PAGTO, 
HISTORICO = :HISTORICO, 
VLR_DINH = :VLR_DINH, 
VLR_CHVISTA = :VLR_CHVISTA, 
VLR_CHPRE = :VLR_CHPRE,
VLR_CARTAO = :VLR_CARTAO, 
COD_EMPRESA = :COD_EMPRESA, 
TIPO_RECEB = :TIPO_RECEB,
VLR_PIX = :VLR_PIX,
CRED_DEB = :CRED_DEB  
WHERE (CODPAG = :CODPAG) 
AND (ORDEM = :ORDEM); 
IF (OPERACAO = 3) THEN 
DELETE FROM PAG_PAGAR 
WHERE (CODPAG = :CODPAG)
AND (ORDEM = :ORDEM);
suspend; 
end
^

============================================================
     ATUALIZABANCO VAI AT  AQUI - 27 DE JUNHO DE 2022 - (1.0.0.28)
============================================================


ALTER TABLE FINANC_MOVTO
    ADD COD_EMPRESA INTEGER

^

ALTER TABLE FINANC_MOVTO
ADD CONSTRAINT FK_FINANC_MOVTO_7
FOREIGN KEY (COD_EMPRESA)
REFERENCES EMPRESA(CODIGO)

^

CREATE OR ALTER procedure P_FINANC_MOVTO (
    OPERACAO integer,
    COD_CONTA integer,
    CODIGO integer,
    DATA date,
    FLG_E_S char(1),
    VALOR numeric(15,2),
    COD_CCUSTO integer,
    NRO_CHEQUE integer,
    HISTORICO varchar(60),
    COD_CONTA_MOVTO integer,
    COD_MOVTO integer,
    DATA_VENCTO date,
    DATA_PAGTO date,
    COD_CHEQUE integer,
    COD_CARTAO integer,
    COD_REC integer,
    COD_PAG integer,
    COD_ORDEM integer,
    COD_CAIXA integer,
    COD_MOV integer,
    COD_EMPRESA integer)
as
begin 
IF (OPERACAO = 1) THEN 
INSERT INTO FINANC_MOVTO 
VALUES(:COD_CONTA,:CODIGO,:DATA,:FLG_E_S,:VALOR,:COD_CCUSTO,:NRO_CHEQUE,:HISTORICO,:COD_CONTA_MOVTO,:COD_MOVTO,:DATA_VENCTO,:DATA_PAGTO,:COD_CHEQUE,:COD_CARTAO,:COD_REC,:COD_PAG,:COD_ORDEM,:COD_CAIXA,:COD_MOV,:COD_EMPRESA);
IF (OPERACAO = 2) THEN 
UPDATE FINANC_MOVTO SET
DATA = :DATA,
FLG_E_S = :FLG_E_S,
VALOR = :VALOR,
COD_CCUSTO = :COD_CCUSTO,
NRO_CHEQUE = :NRO_CHEQUE,
HISTORICO = :HISTORICO,
COD_CONTA_MOVTO = :COD_CONTA_MOVTO,
COD_MOVTO = :COD_MOVTO,
DATA_VENCTO = :DATA_VENCTO,
DATA_PAGTO = :DATA_PAGTO,
COD_CHEQUE = :COD_CHEQUE,
COD_CARTAO = :COD_CARTAO,
COD_REC = :COD_REC, 
COD_PAG = :COD_PAG,
COD_ORDEM = :COD_ORDEM,
COD_CAIXA = :COD_CAIXA,
COD_MOV = :COD_MOV,
COD_EMPRESA = :COD_EMPRESA
WHERE (COD_CONTA = :COD_CONTA)
AND (CODIGO = :CODIGO);
IF (OPERACAO = 3) THEN 
DELETE FROM FINANC_MOVTO
WHERE (COD_CONTA = :COD_CONTA)
AND (CODIGO = :CODIGO);
suspend;
end

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','FINALIZACAO DE VENDA','SAIDAS','OUTRO_CLI','PERMITE INFORMAR CONTAS A RECEBER PARA DIVERSOS CLIENTES','NAO','SIM;NAO','N')

^

update RDB$FIELDS set
RDB$FIELD_LENGTH = 200,
RDB$CHARACTER_LENGTH = 200
where RDB$FIELD_NAME = 'RDB$6443'

^

update RDB$FIELDS set
RDB$FIELD_LENGTH = 200,
RDB$CHARACTER_LENGTH = 200
where RDB$FIELD_NAME = 'RDB$6416'

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','VENDAS','SAIDAS','ETIQUETA','LAYOUT PARA ETIQUETA DE BALANCA','NULL','NULL;2[CCCCCC]VVVVVX;200[CCCC]VVVVVX;2[CCCCC]0VVVVVX;2[CCCC]00VVVVVX;2[CCCCCC]PPPPPX;200[CCCC]PPPPPX;2[CCCCC]0PPPPPX;2[CCCC]00PPPPPX','N')

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0000','CONSOLIDACAO','SAIDAS','FLG_TELA','TELA DE CONSOLIDACAO A SER USADA','SG_0045','SG_0045;SG_0059','S')

^

update configuracao set valor = 'SG_0059'
where (campo = 'FLG_TELA') and (cod_tela = 'SG_0000')
and exists (select codigo from empresa where ((nivel = 10) or (nivel = 13) or (nivel = 26) or (nivel = 32) 
or (nivel = 63) or (nivel = 74) or (nivel = 90) or (nivel = 91) or (nivel = 134) or (nivel = 142) or (nivel = 156)))

^

ALTER TABLE PAG_REC ALTER COLUMN DT_CADASTRO
SET DEFAULT current_timestamp

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0098','ENVIO DE XML','UTILITARIOS','DOACAO','PERMITIR DOACAO DE SAT','SIM','SIM;NAO','N')

^

CREATE DESCENDING INDEX MOVTO_IDX5 ON MOVTO (DATA)

^

CREATE INDEX MOVTO_IDX1 ON MOVTO (DATA)

^

CREATE INDEX MOVTO_IDX6 ON MOVTO (NOTA_FISCAL)

^

CREATE DESCENDING INDEX MOVTO_IDX7 ON MOVTO (NOTA_FISCAL)

^

CREATE INDEX MOVTO_IDX8 ON MOVTO (SAT_NRO)

^

CREATE DESCENDING INDEX MOVTO_IDX9 ON MOVTO (SAT_NRO)

^

CREATE INDEX CLIENTE_IDX1 ON CLIENTE (NOME)

^

CREATE INDEX CLIENTE_IDX1 ON CLIENTE (NOME)

^

CREATE INDEX CLIENTE_IDX2 ON CLIENTE (FANTASIA)

^

CREATE INDEX FORNECEDOR_IDX1 ON FORNECEDOR (NOME)

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0011','BAIXA','CONTAS A RECEBER','EXTRATO','UTILIZAR NOVO EXTRATO DE PAGAMENTO','NAO','SIM;NAO','N')

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','IMPRESSAO VENDA','SAIDAS','EXTRATO','UTILIZAR NOVO EXTRATO DE VENDA','NAO','SIM;NAO','N')

^

update configuracao set valor = 'SIM'
where (campo = 'EXTRATO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where ((nivel = 11) or (nivel = 25) or (nivel = 28) or (nivel = 29) or (nivel = 30) 
or (nivel = 36) or (nivel = 45) or (nivel = 47)  or (nivel = 106) or (nivel = 113) or (nivel = 146) or (nivel = 154) or (nivel = 157) 
or (cnpj = '15.141.668/0001-26') or (cnpj = '30.115.259/0001-49')))
^
============================================================
     ATUALIZABANCO VAI AT  AQUI - 26 DE JULHO DE 2022 - (1.0.0.29)
============================================================

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0000','CONFIGURACOES','PRINCIPAL','WIN_PTBR','USAR PESQUISA COM COLLATE','SIM','SIM;NAO','S')

^

CREATE OR ALTER trigger trg_financ_movto for financ_movto
active after insert position 0
AS
declare variable cod_transf_e integer;
begin
select a.cod_ccusto from despesa a 
where (a.flg_tipo = 'E') and (a.flg_ativado = 'S') and (a.flg_transf = 'S') 
into :cod_transf_e; 
if (new.flg_e_s = 'S') then  
update financ_saldo s set 
s.vl_saida_lanc    = s.vl_saida_lanc    + new.valor, 
s.saldo_atual_lanc = s.saldo_atual_lanc - new.valor 
where (s.cod_conta = new.cod_conta); 
if ((new.flg_e_s = 'S') and (new.data_pagto is not null)) then 
update financ_saldo s set 
s.vl_saida_conc    = s.vl_saida_conc    + new.valor, 
s.saldo_atual_conc = s.saldo_atual_conc - new.valor 
where (s.cod_conta = new.cod_conta);  
if (new.flg_e_s = 'E') then 
update financ_saldo s set 
s.vl_entrada_lanc  = s.vl_entrada_lanc  + new.valor,
s.saldo_atual_lanc = s.saldo_atual_lanc + new.valor 
where (s.cod_conta = new.cod_conta);
if ((new.flg_e_s = 'E') and (new.data_pagto is not null)) then 
update financ_saldo s set  
s.vl_entrada_conc  = s.vl_entrada_conc  + new.valor, 
s.saldo_atual_conc = s.saldo_atual_conc + new.valor  
where (s.cod_conta = new.cod_conta); 
if ((new.flg_e_s = 'S') and (new.cod_conta_movto is not null)) then 
insert into financ_movto  
values(new.COD_CONTA_movto,0,new.DATA,'E',new.VALOR,new.COD_CCUSTO,new.NRO_CHEQUE,new.HISTORICO,new.COD_CONTA,new.CODIGO,new.DATA_VENCTO,new.DATA_PAGTO,new.COD_CHEQUE,new.COD_CARTAO,new.COD_REC,new.COD_PAG,new.COD_ORDEM,new.COD_CAIXA,new.COD_MOV,new.COD_EMPRESA);
end

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','RELATORIO DE VENDA','SAIDAS','FLG_DRE','TIPO DE FILTRO A SER USADO','PAGAR','PAGAR;FINANCEIRO','N')

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('PRODUTO','PRODUTOS','CADASTROS','PESQ_UM','PESQUISA APENAS UM PRODUTO POR VEZ','NAO','SIM;NAO','S')

^

update configuracao set valor = 'SIM'
where (campo = 'PESQ_UM') and (cod_tela = 'PRODUTO')
and exists (select codigo from empresa where ((nivel = 2) or (nivel = 10) or (nivel = 23) or (nivel = 34) or (nivel = 39) or (nivel = 51) 
or (nivel = 53) or (nivel = 58) or (nivel = 68) or (nivel = 81) or (nivel = 90) or (nivel = 91) or (nivel = 92) or (nivel = 93)  
or (nivel = 98) or (nivel = 99) or (nivel = 101) or (nivel = 102) or (nivel = 106) or (nivel = 108) or (nivel = 111) or (nivel = 112)
or (nivel = 118) or (nivel = 119) or (nivel = 136) or (nivel = 156)))

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('PRODUTO','PRODUTOS','CADASTROS','DENSIDADE','DENSIDADE DA ETIQUETA','7','1;2;3;4;5;6;7;8;9;10;11;12;13;14;15','N')

^

CREATE TABLE HORAS_TRABALHO (
    CODIGO INTEGER NOT NULL,
    COD_CLI INTEGER NOT NULL,
    HR_INICIO TIME NOT NULL,
    HR_FIM TIME NOT NULL,
    HR_ALMOCO TIME NOT NULL,
    PRECO_HORA NUMERIC(15,2) NOT NULL,
    VLR_TOTAL NUMERIC(15,2) NOT NULL,
    HORAS_TOTAL TIME NOT NULL,
    OBSERVACAO VARCHAR(60),
    DATA DATE NOT NULL,
    DATA_CADASTRO DATE DEFAULT current_timestamp NOT NULL)

^

ALTER TABLE HORAS_TRABALHO
ADD CONSTRAINT PK_HORAS_TRABALHO
PRIMARY KEY (CODIGO)

^

ALTER TABLE HORAS_TRABALHO
ADD CONSTRAINT FK_HORAS_TRABALHO_1
FOREIGN KEY (COD_CLI)
REFERENCES CLIENTE(CODIGO)
ON DELETE CASCADE

^

create or alter procedure P_HORAS_TRABALHO(
    OPERACAO INTEGER,
    CODIGO INTEGER,
    COD_CLI INTEGER,
    HR_INICIO TIME,
    HR_FIM TIME,
    HR_ALMOCO TIME,
    PRECO_HORA NUMERIC(15,2),
    VLR_TOTAL NUMERIC(15,2),
    HORAS_TOTAL TIME,
    OBSERVACAO VARCHAR(60),
    DATA DATE,
    DATA_CADASTRO DATE)
as
begin
  if (operacao = 1) then
     insert into HORAS_TRABALHO (CODIGO,COD_CLI,HR_INICIO,HR_FIM,HR_ALMOCO,PRECO_HORA,VLR_TOTAL,HORAS_TOTAL,OBSERVACAO,DATA,DATA_CADASTRO)
     values (:CODIGO,:COD_CLI,:HR_INICIO,:HR_FIM,:HR_ALMOCO,:PRECO_HORA,:VLR_TOTAL,:HORAS_TOTAL,:OBSERVACAO,:DATA,:DATA_CADASTRO);

  if (operacao = 2) then
     update HORAS_TRABALHO set
     COD_CLI = :COD_CLI,
     HR_INICIO = :HR_INICIO,
     HR_FIM = :HR_FIM,
     HR_ALMOCO = :HR_ALMOCO,
     PRECO_HORA = :PRECO_HORA,
     VLR_TOTAL = :VLR_TOTAL,
     HORAS_TOTAL = :HORAS_TOTAL,
     OBSERVACAO = :OBSERVACAO,
     DATA = :DATA,
     DATA_CADASTRO = :DATA_CADASTRO
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from HORAS_TRABALHO
     where (CODIGO = :CODIGO);

  suspend;
end

^

CREATE OR ALTER TRIGGER TRG_HORAS_TRABALHO FOR HORAS_TRABALHO
ACTIVE BEFORE INSERT POSITION 0
AS
DECLARE VARIABLE COD INTEGER;
begin
   SELECT MAX(CODIGO) FROM HORAS_TRABALHO
   INTO :COD;

  IF (COD IS NULL) THEN COD = 0;

  NEW.CODIGO = COD + 1;
end

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','VENDAS','SAIDAS','FLG_ABERTO','BLOQUEAR VENDA ABERTA EM OUTRO TERMINAL','SIM','SIM;NAO','N')

^

update configuracao set valor = 'NAO'
where (campo = 'FLG_ABERTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where ((nivel = 4) or (nivel = 34) or (nivel = 59) or (nivel = 114)))

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','IMPRESSAO VENDA','SAIDAS','FLG_LINHA','QUANTIDADE DE LINHAS DO ITEM','1','1;2','N')

^

ALTER TABLE PARAMETROS
    ADD FLG_UPDATE CHAR(1)

^

update parametros set flg_update = 'N'
^
=================================================================
 ATUALIZABANCO VAI AT  AQUI - 13 DE OUTUBRO DE 2022 - (1.0.0.30)
=================================================================

CREATE TABLE MOVIT_TOKEN (
    CODIGO INTEGER NOT NULL,
    CODMOV INTEGER NOT NULL,
    ITEM INTEGER NOT NULL,
    TOKEN VARCHAR(200) NOT NULL,
    DATA_CADASTRO TIMESTAMP DEFAULT current_timestamp NOT NULL)

^

ALTER TABLE MOVIT_TOKEN
ADD CONSTRAINT PK_MOVIT_TOKEN
PRIMARY KEY (CODIGO)

^

ALTER TABLE MOVIT_TOKEN
ADD CONSTRAINT UNQ1_MOVIT_TOKEN
UNIQUE (TOKEN)

^

CREATE trigger trg_movit_token for movit_token
active before insert position 0
AS
declare variable cod integer;
begin
 select max(CODIGO) from MOVIT_TOKEN into :cod;
if (cod is null) then cod = 0;
new.codigo = cod + 1;
end

^

ALTER TABLE PARAMETROS
    ADD CAMINHO_EXE VARCHAR(100)

^
CREATE TABLE MOVIT_EXP (
    CODIGO          INTEGER NOT NULL,
    CODMOV          INTEGER NOT NULL,
    ITEM            INTEGER NOT NULL,
    NRO_EXP         INTEGER NOT NULL,
    DATA            DATE NOT NULL,
    QUANT_BALCAO    NUMERIC(15,2),
    QUANT_ENTREGA   NUMERIC(15,2),
    QUANT_RETIRADA  NUMERIC(15,2),
    ROMANEIO_NRO    INTEGER,
    ROMANEIO_DATA   DATE,
    OBSERVACAO      VARCHAR(60)
)

^

ALTER TABLE MOVIT_EXP
ADD CONSTRAINT PK_MOVIT_EXP
PRIMARY KEY (CODIGO)
^
ALTER TABLE MOVIT_EXP ADD CONSTRAINT FK_MOVIT_EXP_1 FOREIGN KEY (CODMOV) REFERENCES MOVIT(CODMOV) ON DELETE CASCADE;
^
ALTER TABLE MOVIT_EXP
ADD CONSTRAINT FK_MOVIT_EXP_2
FOREIGN KEY (ITEM)
REFERENCES MOVIT(ITEM)
ON DELETE CASCADE

^

CREATE OR ALTER TRIGGER TRG_MOVIT_EXP FOR MOVIT_EXP
ACTIVE BEFORE INSERT POSITION 0
AS
DECLARE VARIABLE COD INTEGER;
begin
   SELECT MAX(CODIGO) FROM MOVIT_EXP
   INTO :COD;

  IF (COD IS NULL) THEN COD = 0;

  NEW.CODIGO = COD + 1;
end

^

create or alter procedure P_MOVIT_EXP (
    OPERACAO integer,
    CODIGO integer,
    CODMOV integer,
    ITEM integer,
    NRO_EXP integer,
    DATA date,
    QUANT_BALCAO numeric(15,2),
    QUANT_ENTREGA numeric(15,2),
    QUANT_RETIRADA numeric(15,2),
    ROMANEIO_NRO integer,
    ROMANEIO_DATA date,
    OBSERVACAO varchar(60))
as
begin
  if (operacao = 1) then
    insert into movit_exp (codigo,codmov,item,nro_exp,data,quant_balcao,quant_entrega,quant_retirada,romaneio_nro,romaneio_data,observacao)
    values (:codigo,:codmov,:item,:nro_exp,:data,:quant_balcao,:quant_entrega,:quant_retirada,:romaneio_nro,:romaneio_data,:observacao);

  if (operacao = 2) then
    update movit_exp set
    codmov = :codmov,
    item = :item,
    nro_exp = :nro_exp,
    data = :data,
    quant_balcao = :quant_balcao,
    quant_entrega = :quant_entrega,
    quant_retirada = :quant_retirada,
    romaneio_nro = :romaneio_nro,
    romaneio_data = :romaneio_data,
    observacao = :observacao
    where (codigo = :codigo);

  if (operacao = 3) then
    delete from movit_exp
    where (codigo = :codigo);

  suspend;
end

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0011','BAIXA','CONTAS A RECEBER','FLG_PERDIDO','EXIBIR PARCELAS PERDIDAS NA BAIXA','NAO','SIM;NAO','N')

^

update configuracao set valor = 'SIM'
where (campo = 'FLG_PERDIDO') and (cod_tela = 'SG_0011')
and exists (select codigo from empresa where ((nivel = 8) or (nivel = 34) or (nivel = 127) or (cnpj = '24.526.940/0001-87')))


^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0118','DASHBOARD','GERENCIAL','FLG_SERIE','SERIE A SER EXIBIDA NOS GRAFICO','AMBAS','AMBAS;0;52','N')

^

update configuracao set valor = '52'
where (campo = 'FLG_SERIE') and (cod_tela = 'SG_0118')
and exists (select codigo from empresa where ((cnpj = '24.526.940/0001-87')))

^

create or alter procedure P_PAGAR (
    OPERACAO integer,
    CODIGO integer,
    PARCELA integer,
    CODMOV integer,
    COD_FOR integer,
    DT_COMPRA date,
    DT_VENCTO date,
    VLR_PARC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_DESC numeric(15,2),
    SALDO numeric(15,2),
    HISTORICO varchar(100),
    DOCUMENTO varchar(20),
    SERIE varchar(3),
    COD_BANCO integer,
    COD_CAIXA integer,
    COD_DESP integer,
    COD_EMPRESA integer,
    CRED_DEB char(1))
as
begin
  IF (OPERACAO = 1) THEN
    INSERT INTO PAGAR (CODIGO,PARCELA,CODMOV,COD_FOR,DT_COMPRA,DT_VENCTO,VLR_PARC,VLR_ACRES,VLR_DESC,SALDO,HISTORICO,DOCUMENTO,SERIE,COD_BANCO,COD_CAIXA,COD_DESP,COD_EMPRESA,CRED_DEB)
    VALUES (:CODIGO,:PARCELA,:CODMOV,:COD_FOR,:DT_COMPRA,:DT_VENCTO,:VLR_PARC,:VLR_ACRES,:VLR_DESC,:SALDO,:HISTORICO,:DOCUMENTO,:SERIE,:COD_BANCO,:COD_CAIXA,:COD_DESP,:COD_EMPRESA,:CRED_DEB);

  IF (OPERACAO = 2) THEN
    UPDATE PAGAR SET
    PARCELA = :PARCELA,
    CODMOV = :CODMOV,
    COD_FOR = :COD_FOR,
    DT_COMPRA = :DT_COMPRA,
    DT_VENCTO = :DT_VENCTO,
    VLR_PARC = :VLR_PARC,
    VLR_ACRES = :VLR_ACRES,
    VLR_DESC = :VLR_DESC,
    SALDO = :SALDO,
    HISTORICO = :HISTORICO,
    DOCUMENTO = :DOCUMENTO,
    SERIE = :SERIE,
    COD_BANCO = :COD_BANCO,
    COD_CAIXA = :COD_CAIXA,
    COD_DESP = :COD_DESP,
    COD_EMPRESA = :COD_EMPRESA,
    CRED_DEB =: CRED_DEB
    WHERE (CODIGO = :CODIGO);

  IF (OPERACAO = 3) THEN
    DELETE FROM PAGAR
    WHERE (CODIGO = :CODIGO);

  suspend;
end

^

update RDB$FIELDS set
RDB$FIELD_TYPE = 37,
RDB$FIELD_LENGTH = 20,
RDB$CHARACTER_LENGTH = 20,
RDB$CHARACTER_SET_ID = 0,
RDB$COLLATION_ID = 0
where RDB$FIELD_NAME = 'RDB$900'

==================================================================
 ATUALIZABANCO VAI AT  AQUI - 16 DE NOVEMBRO DE 2022 - (1.0.0.32)
==================================================================

update configuracao set valor = 'SIM'
where (campo = 'EXTRATO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where ((nivel = 9) or (nivel = 52) or (nivel = 55) 
or (nivel = 91) or (nivel = 135) or (nivel = 115) or (nivel = 153) or (nivel = 154) 
or (cnpj = '27.613.297/0001-17') or (cnpj = '46.918.568/0001-97') or (cnpj = '55.862.031/0001-43')))

^

ALTER TABLE FUNCIONARIO
ADD COD_EMPRESA INTEGER

^

ALTER TABLE FUNCIONARIO
ADD CONSTRAINT FK_FUNCIONARIO_1
FOREIGN KEY (COD_EMPRESA)
REFERENCES EMPRESA(CODIGO)

^

create or alter procedure P_FUNCIONARIO (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    APELIDO varchar(20),
    CPF varchar(20),
    RG varchar(20),
    DT_NASC date,
    ENDERECO varchar(60),
    BAIRRO varchar(60),
    COD_CID varchar(60),
    CEP varchar(10),
    FONE varchar(20),
    CELULAR varchar(20),
    E_MAIL varchar(60),
    CARGO varchar(60),
    FLG_ACESSO char(1),
    SENHA varchar(15),
    OBSERVACAO varchar(100),
    DT_ADMISSAO date,
    DT_DEMISSAO date,
    NIVEL integer,
    PORC_COMISSAO numeric(15,2),
    PORC_COMISSAO_P numeric(15,2),
    VLR_META numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    COD_EMPRESA integer)
as
begin
  if (operacao = 1) then
    insert into funcionario (codigo,nome,apelido,cpf,rg,dt_nasc,endereco,bairro,cod_cid,cep,fone,celular,e_mail,cargo,flg_acesso,senha,observacao,dt_admissao,dt_demissao,nivel,porc_comissao,porc_comissao_p,vlr_meta,obs_adicional,cod_empresa)
    values (:codigo,:nome,:apelido,:cpf,:rg,:dt_nasc,:endereco,:bairro,:cod_cid,:cep,:fone,:celular,:e_mail,:cargo,:flg_acesso,:senha,:observacao,:dt_admissao,:dt_demissao,:nivel,:porc_comissao,:porc_comissao_p,:vlr_meta,:obs_adicional,:cod_empresa);

  if (operacao = 2) then
    update funcionario set
    nome = :nome,
    apelido = :apelido,
    cpf = :cpf,
    rg = :rg,
    dt_nasc = :dt_nasc,
    endereco = :endereco,
    bairro = :bairro,
    cod_cid = :cod_cid,
    cep = :cep,
    fone = :fone,
    celular = :celular,
    e_mail = :e_mail,
    cargo = :cargo,
    flg_acesso = :flg_acesso,
    senha = :senha,
    observacao = :observacao,
    dt_admissao = :dt_admissao,
    dt_demissao = :dt_demissao,
    nivel = :nivel,
    porc_comissao = :porc_comissao,
    porc_comissao_p = :porc_comissao_p,
    vlr_meta = :vlr_meta,
    obs_adicional = :obs_adicional,
    cod_empresa = :cod_empresa
    where (codigo = :codigo);

  if (operacao = 3) then
    delete from funcionario
    where (codigo = :codigo);

  suspend;
end

^

update RDB$FIELDS set
RDB$FIELD_LENGTH = 100,
RDB$CHARACTER_LENGTH = 100
where RDB$FIELD_NAME = 'RDB$6415'

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0098','ENVIO DE XML','UTILITARIOS','EMAIL','E-MAIL PARA ENVIAR XML DE DOACAO','','','N')

^

update configuracao a set a.valor = 'contato@notadobem.com.br'
where (a.campo = 'EMAIL') and (a.cod_tela = 'SG_0098')
and exists (select b.cod_tela from configuracao b where (b.campo = 'DOACAO') and (b.cod_tela = 'SG_0098') and (b.valor = 'SIM'))

^
==================================================================
 ATUALIZABANCO VAI ATÉ AQUI - 16 DE DEZEMBRO DE 2022 - (1.0.0.33)
==================================================================
^

ALTER TABLE MIT_PRODUCAO
    ADD NOME_FOR VARCHAR(60)

^

CREATE OR ALTER procedure P_MIT_PRODUCAO (
    OPERACAO integer,
    CODMOV integer,
    ITEM integer,
    COD_MAT integer,
    QUANT_AUSAR numeric(15,3),
    QUANT_USADA numeric(15,3),
    PR_CUSTO numeric(15,2),
    NOME_FOR varchar(60))
as
begin
  if (operacao = 1) then
     insert into MIT_PRODUCAO (CODMOV,ITEM,COD_MAT,QUANT_AUSAR,QUANT_USADA,PR_CUSTO,NOME_FOR)
     values (:CODMOV,:ITEM,:COD_MAT,:QUANT_AUSAR,:QUANT_USADA,:PR_CUSTO,:NOME_FOR);

  if (operacao = 2) then
     update MIT_PRODUCAO set
     COD_MAT = :COD_MAT,
     QUANT_AUSAR = :QUANT_AUSAR,
     QUANT_USADA = :QUANT_USADA,
     PR_CUSTO = :PR_CUSTO,
     NOME_FOR = :NOME_FOR
     where (CODMOV = :CODMOV)
     and (ITEM = :ITEM);

  if (operacao = 3) then
     delete from MIT_PRODUCAO
     where (CODMOV = :CODMOV)
     and (ITEM = :ITEM);

  suspend;
end

^

update mit_producao a set a.nome_for = 
(select c.nome from produto b, fornecedor c
where b.cod_fornecedor = c.codigo
and a.cod_mat = b.codigo)

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0115','ORDEM PRODUCAO','ESTOQUE','FLG_LOTE','PERMITE CRIACAO DE LOTE','NAO','SIM;NAO','N')

^

ALTER TABLE MIT_PRODUCAO
    ADD COD_LOTE INTEGER

^

ALTER TABLE MIT_PRODUCAO
ADD CONSTRAINT FK_MIT_PRODUCAO_2
FOREIGN KEY (COD_LOTE)
REFERENCES PROD_LOTE(CODIGO)
ON DELETE CASCADE

^

CREATE OR ALTER procedure P_MIT_PRODUCAO (
    OPERACAO integer,
    CODMOV integer,
    ITEM integer,
    COD_MAT integer,
    QUANT_AUSAR numeric(15,3),
    QUANT_USADA numeric(15,3),
    PR_CUSTO numeric(15,2),
    NOME_FOR varchar(60),
    COD_LOTE integer)
as
begin
  if (operacao = 1) then
     insert into MIT_PRODUCAO (CODMOV,ITEM,COD_MAT,QUANT_AUSAR,QUANT_USADA,PR_CUSTO,NOME_FOR,COD_LOTE)
     values (:CODMOV,:ITEM,:COD_MAT,:QUANT_AUSAR,:QUANT_USADA,:PR_CUSTO,:NOME_FOR,:COD_LOTE);

  if (operacao = 2) then
     update MIT_PRODUCAO set
     COD_MAT = :COD_MAT,
     QUANT_AUSAR = :QUANT_AUSAR,
     QUANT_USADA = :QUANT_USADA,
     PR_CUSTO = :PR_CUSTO,
     NOME_FOR = :NOME_FOR,
     COD_LOTE = :COD_LOTE
     where (CODMOV = :CODMOV)
     and (ITEM = :ITEM);

  if (operacao = 3) then
     delete from MIT_PRODUCAO
     where (CODMOV = :CODMOV)
     and (ITEM = :ITEM);

  suspend;
end

^

ALTER TABLE CLIENTE
    ADD FLG_COMISSAO CHAR(1) DEFAULT 'S' NOT NULL,
    ADD PORC_DESC NUMERIC(15,2) DEFAULT 0 NOT NULL

^

CREATE OR ALTER procedure P_CLIENTE (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    FANTASIA varchar(60),
    COD_END integer,
    FONE varchar(20),
    FAX varchar(20),
    CELULAR varchar(20),
    CX_POSTAL varchar(10),
    E_MAIL varchar(60),
    CONTATO varchar(20),
    TIPO_PESSOA char(1),
    CNPJ_CPF varchar(20),
    IE_RG varchar(20),
    DT_CADASTRO date,
    DT_INATIVO date,
    DT_NASC date,
    DT_BLOQUEIO date,
    FLG_BLOQUEIO varchar(20),
    OBS_BLOQUEIO varchar(200),
    OBSERVACAO1 varchar(100),
    OBSERVACAO2 varchar(100),
    RESP_NOME varchar(60),
    RESP_BAIRRO varchar(60),
    RESP_ENDERECO varchar(60),
    RESP_CODCID integer,
    RESP_CEP varchar(10),
    RESP_FONE varchar(20),
    RESP_RG varchar(20),
    RESP_CPF varchar(20),
    RESP_DTNASC date,
    RESP_OBSERV varchar(100),
    PROFISSAO varchar(60),
    LIMITE numeric(15,2),
    OBS_COBRANCA varchar(200),
    FLG_RECEBER char(1),
    COD_EMPRESA integer,
    FLG_LIGAR char(1),
    COD_FUNC integer,
    FOTO varchar(200),
    FLG_FECHAMENTO integer,
    DIAS_PAGTO integer,
    FLG_CLASSIFICA char(1),
    TIPO_FECHAMENTO char(1),
    FLG_JUROS char(1),
    E_MAIL_NFE varchar(60),
    DATA_COBRANCA date,
    DATA_VISITA date,
    COD_CONVENIO integer,
    SENHA varchar(20),
    COD_REGIAO integer,
    FLG_PRAZO varchar(1),
    FLG_NFP char(1),
    SITE_SYNC char(1),
    SITE_COD integer,
    OBS_ADICIONAL varchar(9999),
    FLG_COMISSAO char(1),
    PORC_DESC numeric(15,2))
as
begin 
if (operacao = 1) then 
insert into CLIENTE (CODIGO,NOME,FANTASIA,COD_END,FONE,FAX,CELULAR,CX_POSTAL,E_MAIL,CONTATO,TIPO_PESSOA,CNPJ_CPF,IE_RG,DT_CADASTRO, 
DT_INATIVO,DT_NASC,DT_BLOQUEIO,FLG_BLOQUEIO,OBS_BLOQUEIO,OBSERVACAO1,OBSERVACAO2,RESP_NOME,RESP_BAIRRO,RESP_ENDERECO,RESP_CODCID,RESP_CEP,RESP_FONE,RESP_RG,RESP_CPF, 
RESP_DTNASC,RESP_OBSERV,PROFISSAO,LIMITE,OBS_COBRANCA,FLG_RECEBER,COD_EMPRESA,FLG_LIGAR,COD_FUNC,FOTO,FLG_FECHAMENTO,DIAS_PAGTO,FLG_CLASSIFICA,TIPO_FECHAMENTO,FLG_JUROS,E_MAIL_NFE, 
DATA_COBRANCA,DATA_VISITA,COD_CONVENIO,SENHA,COD_REGIAO,FLG_PRAZO,FLG_NFP,SITE_SYNC,SITE_COD,OBS_ADICIONAL,FLG_COMISSAO,PORC_DESC)
values (:CODIGO,:NOME,:FANTASIA,:COD_END,:FONE,:FAX,:CELULAR,:CX_POSTAL,:E_MAIL,:CONTATO,:TIPO_PESSOA,:CNPJ_CPF,:IE_RG,:DT_CADASTRO,:DT_INATIVO,:DT_NASC,:DT_BLOQUEIO, 
:FLG_BLOQUEIO,:OBS_BLOQUEIO,:OBSERVACAO1,:OBSERVACAO2,:RESP_NOME,:RESP_BAIRRO,:RESP_ENDERECO,:RESP_CODCID,:RESP_CEP,:RESP_FONE,:RESP_RG,:RESP_CPF,:RESP_DTNASC, 
:RESP_OBSERV,:PROFISSAO,:LIMITE,:OBS_COBRANCA,:FLG_RECEBER,:COD_EMPRESA,:FLG_LIGAR,:COD_FUNC,:FOTO,:FLG_FECHAMENTO,:DIAS_PAGTO,:FLG_CLASSIFICA,:TIPO_FECHAMENTO,:FLG_JUROS,:E_MAIL_NFE, 
:DATA_COBRANCA,:DATA_VISITA,:COD_CONVENIO,:SENHA,:COD_REGIAO,:FLG_PRAZO,:FLG_NFP,:SITE_SYNC,:SITE_COD,:OBS_ADICIONAL,:FLG_COMISSAO,:PORC_DESC);
if (operacao = 2) then  
update CLIENTE set 
NOME = :NOME,
FANTASIA = :FANTASIA, 
COD_END = :COD_END,
FONE = :FONE, 
FAX = :FAX, 
CELULAR = :CELULAR,
CX_POSTAL = :CX_POSTAL,  
E_MAIL = :E_MAIL,
CONTATO = :CONTATO, 
TIPO_PESSOA = :TIPO_PESSOA,
CNPJ_CPF = :CNPJ_CPF, 
IE_RG = :IE_RG, 
DT_CADASTRO = :DT_CADASTRO,
DT_INATIVO = :DT_INATIVO, 
DT_NASC = :DT_NASC,  
DT_BLOQUEIO = :DT_BLOQUEIO, 
FLG_BLOQUEIO = :FLG_BLOQUEIO, 
OBS_BLOQUEIO = :OBS_BLOQUEIO, 
OBSERVACAO1 = :OBSERVACAO1,  
OBSERVACAO2 = :OBSERVACAO2, 
RESP_NOME = :RESP_NOME, 
RESP_BAIRRO = :RESP_BAIRRO, 
RESP_ENDERECO = :RESP_ENDERECO, 
RESP_CODCID = :RESP_CODCID, 
RESP_CEP = :RESP_CEP, 
RESP_FONE = :RESP_FONE,
RESP_RG = :RESP_RG,   
RESP_CPF = :RESP_CPF,  
RESP_DTNASC = :RESP_DTNASC, 
RESP_OBSERV = :RESP_OBSERV, 
PROFISSAO = :PROFISSAO, 
LIMITE = :LIMITE, 
OBS_COBRANCA = :OBS_COBRANCA,  
FLG_RECEBER = :FLG_RECEBER, 
COD_EMPRESA = :COD_EMPRESA, 
FLG_LIGAR = :FLG_LIGAR, 
COD_FUNC = :COD_FUNC, 
FOTO = :FOTO, 
FLG_FECHAMENTO =:FLG_FECHAMENTO, 
DIAS_PAGTO = :DIAS_PAGTO, 
FLG_CLASSIFICA = :FLG_CLASSIFICA, 
TIPO_FECHAMENTO = :TIPO_FECHAMENTO, 
FLG_JUROS = :FLG_JUROS, 
E_MAIL_NFE = :E_MAIL_NFE, 
DATA_COBRANCA = :DATA_COBRANCA,
DATA_VISITA = :DATA_VISITA, 
COD_CONVENIO = :COD_CONVENIO,
SENHA = :SENHA,  
COD_REGIAO = :COD_REGIAO,
FLG_PRAZO = :FLG_PRAZO,
FLG_NFP = :FLG_NFP,
SITE_SYNC = :SITE_SYNC, 
SITE_COD  = :SITE_COD, 
OBS_ADICIONAL = :OBS_ADICIONAL,
FLG_COMISSAO = :FLG_COMISSAO,
PORC_DESC = :PORC_DESC
where (CODIGO = :CODIGO);
if (operacao = 3) then 
delete from CLIENTE 
where (CODIGO = :CODIGO); 
suspend;
end

^

ALTER TABLE CARTAO
    ADD FLG_ES CHAR(1) NOT NULL,
    ADD DIA_FECHA INTEGER NOT NULL,
    ADD DIA_VENCE INTEGER NOT NULL

^

UPDATE CARTAO
SET FLG_ES = 'E',
    DIA_FECHA = 0,
    DIA_VENCE = 0

^

CREATE OR ALTER procedure P_CARTAO (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    TAXA numeric(15,2),
    PRAZO integer,
    ANTECIPA numeric(15,2),
    FLG_ATIVADO char(1),
    FLG_ES char(1),
    DIA_FECHA integer,
    DIA_VENCE integer)
as
begin
if (operacao = 1) then
   insert into CARTAO (CODIGO,NOME,TAXA,PRAZO,ANTECIPA,FLG_ATIVADO,FLG_ES,DIA_FECHA,DIA_VENCE)
  values (:CODIGO,:NOME,:TAXA,:PRAZO,:ANTECIPA,:FLG_ATIVADO,:FLG_ES,:DIA_FECHA,:DIA_VENCE);
  if (operacao = 2) then
update CARTAO set
NOME = :NOME,
TAXA = :TAXA,
PRAZO = :PRAZO,
ANTECIPA = :ANTECIPA,
FLG_ATIVADO = :FLG_ATIVADO,
FLG_ES = :FLG_ES,
DIA_FECHA = :DIA_FECHA,
DIA_VENCE = :DIA_VENCE
where (CODIGO = :CODIGO);
if (operacao = 3) then
delete from CARTAO
where (CODIGO = :CODIGO);
suspend;
end

^

ALTER TABLE MOV_CARTAO
    ADD CODPAG INTEGER,
    ADD ORDPAG INTEGER

^

CREATE OR ALTER procedure P_MOVCARTAO (
    OPERACAO integer,
    CODIGO integer,
    COD_CARTAO integer,
    CODMOV integer,
    CODREC integer,
    ORDREC integer,
    PARCELA varchar(10),
    DT_EMISSAO date,
    DT_VENCTO date,
    DT_PAGTO date,
    VLR_PARC numeric(15,2),
    VLR_DESC numeric(15,2),
    VLR_LIQUIDO numeric(15,2),
    OBSERVACAO varchar(60),
    AGRUPA char(1),
    VLR_ANTECIPA numeric(15,2),
    CODPAG integer,
    ORDPAG integer)
as
begin
  if (operacao = 1) then
     insert into MOV_CARTAO (CODIGO,COD_CARTAO,CODMOV,CODREC,ORDREC,PARCELA,DT_EMISSAO,DT_VENCTO,DT_PAGTO,VLR_PARC,VLR_DESC,VLR_LIQUIDO,OBSERVACAO,AGRUPA,VLR_ANTECIPA,CODPAG,ORDPAG)
     values (:CODIGO,:COD_CARTAO,:CODMOV,:CODREC,:ORDREC,:PARCELA,:DT_EMISSAO,:DT_VENCTO,:DT_PAGTO,:VLR_PARC,:VLR_DESC,:VLR_LIQUIDO,:OBSERVACAO,:AGRUPA,:VLR_ANTECIPA,:CODPAG,:ORDPAG);

  if (operacao = 2) then
     update MOV_CARTAO set
     COD_CARTAO = :COD_CARTAO,
     CODMOV = :CODMOV,
     CODREC = :CODREC,
     ORDREC = :ORDREC,
     PARCELA = :PARCELA,
     DT_EMISSAO = :DT_EMISSAO,
     DT_VENCTO = :DT_VENCTO,
     DT_PAGTO = :DT_PAGTO,
     VLR_PARC = :VLR_PARC,
     VLR_DESC = :VLR_DESC,
     VLR_LIQUIDO = :VLR_LIQUIDO,
     OBSERVACAO = :OBSERVACAO,
     AGRUPA = :AGRUPA,
     VLR_ANTECIPA = :VLR_ANTECIPA,
     CODPAG = :CODPAG,
     ORDPAG = :ORDPAG
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from MOV_CARTAO
     where (CODIGO = :CODIGO);

  suspend;
end

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','VENDAS','SAIDAS','COMPOSICAO','CARREGAR ITENS DA COMPOSICAO','NAO','SIM;NAO','N')

^

update configuracao set valor = 'SIM'
where (campo = 'COMPOSICAO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where (cnpj = '43.462.214/0001-92') or (cnpj = '55.862.031/0001-43'))

^

CREATE SEQUENCE GEN_LOG

^

execute block as
  declare variable x integer;
begin
  SELECT max(codigo) from log into x;
  execute statement 'set generator GEN_LOG to ' || x;
end

^

DROP TRIGGER TRG_LOG

^

CREATE DESCENDING INDEX MOVTO_IDX6
ON MOVTO (CODIGO)

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','VENDAS','SAIDAS','PREVIEW','MOSTRAR PREVIEW','SIM','SIM;NAO','N')

^

update configuracao set valido = 'SG_0015;SG_0024;SG_0035;SG_0057;SG_0088;SG_0114;SG_0134'
where cod_tela = 'VENDA' and campo = 'FLG_TELA'

^

ALTER TABLE MOVIT_EXP 
ADD STATUS VARCHAR(20)

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','IMPRESSAO VENDA','SAIDAS','FLG_CAMPO','CAMPO A EXIBIR NA IMPRESSAO','CODIGO','CODIGO;COD_BARRA','S')

^

update configuracao set valor = 'COD_BARRA'
where (campo = 'FLG_CAMPO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where (nivel = 112) or (nivel = 114) or (nivel = 154))

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','IMPRESSAO VENDA','SAIDAS','EXIBE_SALDO','EXIBIR SALDO EM ABERTO NA IMPRESSAO','NAO','SIM;NAO','S')

^

update configuracao set valor = 'SIM'
where (campo = 'EXIBE_SALDO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where (nivel = 45) or (cnpj = '40.143.403/0001-04'))

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('COMPRA','LANCAMENTOS','ENTRADAS','MEIA_NOTA','HABILITAR NOTA PARCIAL','SIM','SIM;NAO','S')

^

update configuracao set valor = 'NAO'
where (campo = 'MEIA_NOTA') and (cod_tela = 'COMPRA')
and exists (select codigo from empresa where (nivel = 20) or (nivel = 139) or (nivel = 154))

^

CREATE OR ALTER procedure P_MOVTO (
    OPERACAO integer,
    CODIGO integer,
    FLG_CODMOV integer,
    DATA date,
    NOTA_FISCAL integer,
    SERIE integer,
    CUPOM_FISCAL integer,
    NRO_ECF integer,
    DATA_SAIDA date,
    COD_CLI integer,
    COD_FOR integer,
    COD_FUNC integer,
    COD_TRIB integer,
    COD_END_CLI integer,
    VLR_DESC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_FRETE numeric(15,2),
    PORC_FRETE numeric(15,3),
    VLR_TOTAL numeric(15,2),
    TOTAL_NF numeric(15,2),
    TIPO_RECEB integer,
    OBSERV1 varchar(400),
    OBSERV2 varchar(100),
    OBSERV3 varchar(100),
    TRANS_NOME varchar(60),
    TRANS_END varchar(60),
    TRANS_CIDADE varchar(60),
    TRANS_CIDADEUF varchar(2),
    TRANS_PLACA varchar(10),
    TRANS_PLACAUF varchar(2),
    TRANS_FRETE integer,
    TRANS_CNPJ_CPF varchar(20),
    TRANS_IE_RG varchar(20),
    CODREC_DEVOLUCAO integer,
    COD_CAIXA integer,
    FLG_CANCEL char(1),
    MOTIVO_CANCEL varchar(60),
    NF_DATA date,
    NF_DATA_SAIDA date,
    NF_HORA time,
    NF_CPF varchar(20),
    PLACA varchar(10),
    DATA_ENTREGA date,
    FLG_ABERTO char(1),
    VLR_DINH numeric(15,2),
    VLR_CHVISTA numeric(15,2),
    VLR_CHPRE numeric(15,2),
    VLR_CARTAO numeric(15,2),
    NFE_NRO integer,
    NFE_STATUS varchar(60),
    NFE_CAMINHO varchar(60),
    NFE_CHAVE varchar(60),
    NFE_OBSERV varchar(60),
    VLR_DEBITO numeric(15,2),
    VLR_PRAZO numeric(15,2),
    VLR_OUTROS numeric(15,2),
    COD_EMPRESA integer,
    NOME_VEICULO varchar(400),
    VOL_QUANT varchar(20),
    VOL_ESPECIE varchar(20),
    VOL_MARCA varchar(20),
    VOL_NRO varchar(20),
    VOL_BRUTO varchar(20),
    VOL_LIQUIDO varchar(20),
    NFE_REF1 varchar(60),
    NFE_REF2 varchar(60),
    NFE_REF3 varchar(60),
    COD_MAO_OBRA integer,
    SAT_NRO integer,
    SAT_STATUS varchar(20),
    SAT_CAMINHO varchar(60),
    SAT_CHAVE varchar(60),
    DT_COMISSAO date,
    NF_NOME varchar(60),
    COD_CONVENIO integer,
    COD_MESA integer,
    COD_PARCELA integer,
    FLG_PRECO char(1),
    LOCAL_DESEMB varchar(200),
    UF_DESEMB varchar(2),
    NRO_DI varchar(20),
    DT_DI date,
    COD_EXPORT integer,
    COD_FABRIC integer,
    TP_TRANS integer,
    NFE_REF4 varchar(60),
    VLR_IMPORT numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    FLG_PROCEDE char(1),
    ROMANEIO_NRO integer,
    ROMANEIO_DATA date,
    TOKEN varchar(256),
    CODMARKET integer)
as
begin
if (operacao = 1) then
insert into MOVTO (CODIGO,FLG_CODMOV,DATA,NOTA_FISCAL,SERIE,CUPOM_FISCAL,NRO_ECF,DATA_SAIDA,COD_CLI,COD_FOR,COD_FUNC,COD_TRIB,COD_END_CLI,VLR_DESC,VLR_ACRES,VLR_FRETE,PORC_FRETE,
VLR_TOTAL,TOTAL_NF,TIPO_RECEB,OBSERV1,OBSERV2,OBSERV3,TRANS_NOME,TRANS_END,TRANS_CIDADE,TRANS_CIDADEUF,TRANS_PLACA,TRANS_PLACAUF,TRANS_FRETE,TRANS_CNPJ_CPF,TRANS_IE_RG,CODREC_DEVOLUCAO,
COD_CAIXA,FLG_CANCEL,MOTIVO_CANCEL,NF_DATA,NF_DATA_SAIDA,NF_HORA,NF_CPF,PLACA,DATA_ENTREGA,FLG_ABERTO,VLR_DINH,VLR_CHVISTA,VLR_CHPRE,VLR_CARTAO,NFE_NRO,NFE_STATUS,NFE_CAMINHO,
NFE_CHAVE,NFE_OBSERV,VLR_DEBITO,VLR_PRAZO,VLR_OUTROS,COD_EMPRESA,NOME_VEICULO,VOL_QUANT,VOL_ESPECIE,VOL_MARCA,VOL_NRO,VOL_BRUTO,VOL_LIQUIDO,NFE_REF1,NFE_REF2,NFE_REF3,COD_MAO_OBRA,SAT_NRO,SAT_STATUS,SAT_CAMINHO,SAT_CHAVE,
DT_COMISSAO,NF_NOME,COD_CONVENIO,COD_MESA,COD_PARCELA,FLG_PRECO,LOCAL_DESEMB,UF_DESEMB,NRO_DI,DT_DI,COD_EXPORT,COD_FABRIC,TP_TRANS,NFE_REF4,VLR_IMPORT,OBS_ADICIONAL,FLG_PROCEDE,ROMANEIO_NRO,ROMANEIO_DATA,TOKEN, CODMARKET)
values (:CODIGO,:FLG_CODMOV,:DATA,:NOTA_FISCAL,:SERIE,:CUPOM_FISCAL,:NRO_ECF,:DATA_SAIDA,:COD_CLI,:COD_FOR,:COD_FUNC,:COD_TRIB,:COD_END_CLI,:VLR_DESC,:VLR_ACRES,:VLR_FRETE,
:PORC_FRETE,:VLR_TOTAL,:TOTAL_NF,:TIPO_RECEB,:OBSERV1,:OBSERV2,:OBSERV3,:TRANS_NOME,:TRANS_END,:TRANS_CIDADE,:TRANS_CIDADEUF,:TRANS_PLACA,:TRANS_PLACAUF,:TRANS_FRETE,
:TRANS_CNPJ_CPF,:TRANS_IE_RG,:CODREC_DEVOLUCAO,:COD_CAIXA,:FLG_CANCEL,:MOTIVO_CANCEL,:NF_DATA,:NF_DATA_SAIDA,:NF_HORA,:NF_CPF,:PLACA,:DATA_ENTREGA,:FLG_ABERTO,
:VLR_DINH,:VLR_CHVISTA,:VLR_CHPRE,:VLR_CARTAO,:NFE_NRO,:NFE_STATUS,:NFE_CAMINHO,:NFE_CHAVE,:NFE_OBSERV,:VLR_DEBITO,:VLR_PRAZO,:VLR_OUTROS,:COD_EMPRESA,:NOME_VEICULO,
:VOL_QUANT,:VOL_ESPECIE,:VOL_MARCA,:VOL_NRO,:VOL_BRUTO,:VOL_LIQUIDO,:NFE_REF1,:NFE_REF2,:NFE_REF3,:COD_MAO_OBRA,:SAT_NRO,:SAT_STATUS,:SAT_CAMINHO,:SAT_CHAVE,:DT_COMISSAO,:NF_NOME,:COD_CONVENIO,:COD_MESA,:COD_PARCELA,:FLG_PRECO, 
:LOCAL_DESEMB,:UF_DESEMB,:NRO_DI,:DT_DI,:COD_EXPORT,:COD_FABRIC,:TP_TRANS,:NFE_REF4,:VLR_IMPORT,:OBS_ADICIONAL,:FLG_PROCEDE,:ROMANEIO_NRO,:ROMANEIO_DATA,:TOKEN,:CODMARKET);
if (operacao = 2) then 
update MOVTO set 
FLG_CODMOV = :FLG_CODMOV,
DATA = :DATA, 
NOTA_FISCAL = :NOTA_FISCAL,
SERIE = :SERIE,
CUPOM_FISCAL = :CUPOM_FISCAL, 
NRO_ECF = :NRO_ECF, 
DATA_SAIDA = :DATA_SAIDA,
COD_CLI = :COD_CLI, 
COD_FOR = :COD_FOR,
COD_FUNC = :COD_FUNC,
COD_TRIB = :COD_TRIB,
COD_END_CLI = :COD_END_CLI,
VLR_DESC = :VLR_DESC,
VLR_ACRES = :VLR_ACRES,
VLR_FRETE = :VLR_FRETE,
PORC_FRETE = :PORC_FRETE,
VLR_TOTAL = :VLR_TOTAL,
TOTAL_NF = :TOTAL_NF,
TIPO_RECEB = :TIPO_RECEB,
OBSERV1 = :OBSERV1,
OBSERV2 = :OBSERV2,
OBSERV3 = :OBSERV3,
TRANS_NOME = :TRANS_NOME,
TRANS_END = :TRANS_END,
TRANS_CIDADE = :TRANS_CIDADE,
TRANS_CIDADEUF = :TRANS_CIDADEUF,
TRANS_PLACA = :TRANS_PLACA,
TRANS_PLACAUF = :TRANS_PLACAUF,
TRANS_FRETE = :TRANS_FRETE,
TRANS_CNPJ_CPF = :TRANS_CNPJ_CPF,
TRANS_IE_RG = :TRANS_IE_RG,
CODREC_DEVOLUCAO = :CODREC_DEVOLUCAO,
COD_CAIXA = :COD_CAIXA,
FLG_CANCEL = :FLG_CANCEL,
MOTIVO_CANCEL = :MOTIVO_CANCEL,
NF_DATA = :NF_DATA,
NF_DATA_SAIDA = :NF_DATA_SAIDA,
NF_HORA = :NF_HORA,
NF_CPF = :NF_CPF,
PLACA = :PLACA,
DATA_ENTREGA = :DATA_ENTREGA,
FLG_ABERTO = :FLG_ABERTO,
VLR_DINH = :VLR_DINH,
VLR_CHVISTA = :VLR_CHVISTA,
VLR_CHPRE = :VLR_CHPRE,
VLR_CARTAO = :VLR_CARTAO,
NFE_NRO = :NFE_NRO,
NFE_STATUS = :NFE_STATUS,
NFE_CAMINHO = :NFE_CAMINHO,
NFE_CHAVE = :NFE_CHAVE,
NFE_OBSERV = :NFE_OBSERV,
VLR_DEBITO = :VLR_DEBITO,
VLR_PRAZO = :VLR_PRAZO,
VLR_OUTROS = :VLR_OUTROS,
COD_EMPRESA = :COD_EMPRESA,
NOME_VEICULO = :NOME_VEICULO,
VOL_QUANT = :VOL_QUANT,
VOL_ESPECIE = :VOL_ESPECIE,
VOL_MARCA = :VOL_MARCA,
VOL_NRO = :VOL_NRO,
VOL_BRUTO = :VOL_BRUTO,
VOL_LIQUIDO = :VOL_LIQUIDO,
NFE_REF1 = :NFE_REF1,
NFE_REF2 = :NFE_REF2,
NFE_REF3 = :NFE_REF3,
COD_MAO_OBRA = :COD_MAO_OBRA,
SAT_NRO = :SAT_NRO,
SAT_STATUS = :SAT_STATUS,
SAT_CAMINHO = :SAT_CAMINHO,
SAT_CHAVE = :SAT_CHAVE,
DT_COMISSAO = :DT_COMISSAO,
NF_NOME = :NF_NOME,
COD_CONVENIO = :COD_CONVENIO,
COD_MESA = :COD_MESA,
COD_PARCELA = :COD_PARCELA,
FLG_PRECO = :FLG_PRECO,
LOCAL_DESEMB  = :LOCAL_DESEMB,
UF_DESEMB = :UF_DESEMB, 
NRO_DI = :NRO_DI,
DT_DI = :DT_DI,
COD_EXPORT = :COD_EXPORT,
COD_FABRIC = :COD_FABRIC,
TP_TRANS = :TP_TRANS,
NFE_REF4 = :NFE_REF4,
VLR_IMPORT = :VLR_IMPORT,
OBS_ADICIONAL = :OBS_ADICIONAL,
FLG_PROCEDE = :FLG_PROCEDE,
ROMANEIO_NRO = :ROMANEIO_NRO,
ROMANEIO_DATA = :ROMANEIO_DATA,
TOKEN = :TOKEN,
CODMARKET = :CODMARKET
where (CODIGO = :CODIGO);
if (operacao = 3) then
delete from MOVTO
where (CODIGO = :CODIGO);
suspend;
end

^

    CREATE OR ALTER procedure P_MOVTO (
    OPERACAO integer,
    CODIGO integer,
    FLG_CODMOV integer,
    DATA date,
    NOTA_FISCAL integer,
    SERIE integer,
    CUPOM_FISCAL integer,
    NRO_ECF integer,
    DATA_SAIDA date,
    COD_CLI integer,
    COD_FOR integer,
    COD_FUNC integer,
    COD_TRIB integer,
    COD_END_CLI integer,
    VLR_DESC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_FRETE numeric(15,2),
    PORC_FRETE numeric(15,3),
    VLR_TOTAL numeric(15,2),
    TOTAL_NF numeric(15,2),
    TIPO_RECEB integer,
    OBSERV1 varchar(400),
    OBSERV2 varchar(100),
    OBSERV3 varchar(100),
    TRANS_NOME varchar(60),
    TRANS_END varchar(60),
    TRANS_CIDADE varchar(60),
    TRANS_CIDADEUF varchar(2),
    TRANS_PLACA varchar(10),
    TRANS_PLACAUF varchar(2),
    TRANS_FRETE integer,
    TRANS_CNPJ_CPF varchar(20),
    TRANS_IE_RG varchar(20),
    CODREC_DEVOLUCAO integer,
    COD_CAIXA integer,
    FLG_CANCEL char(1),
    MOTIVO_CANCEL varchar(60),
    NF_DATA date,
    NF_DATA_SAIDA date,
    NF_HORA time,
    NF_CPF varchar(20),
    PLACA varchar(10),
    DATA_ENTREGA date,
    FLG_ABERTO char(1),
    VLR_DINH numeric(15,2),
    VLR_CHVISTA numeric(15,2),
    VLR_CHPRE numeric(15,2),
    VLR_CARTAO numeric(15,2),
    NFE_NRO integer,
    NFE_STATUS varchar(60),
    NFE_CAMINHO varchar(60),
    NFE_CHAVE varchar(60),
    NFE_OBSERV varchar(60),
    VLR_DEBITO numeric(15,2),
    VLR_PRAZO numeric(15,2),
    VLR_OUTROS numeric(15,2),
    COD_EMPRESA integer,
    NOME_VEICULO varchar(400),
    VOL_QUANT varchar(20),
    VOL_ESPECIE varchar(20),
    VOL_MARCA varchar(20),
    VOL_NRO varchar(20),
    VOL_BRUTO varchar(20),
    VOL_LIQUIDO varchar(20),
    NFE_REF1 varchar(60),
    NFE_REF2 varchar(60),
    NFE_REF3 varchar(60),
    COD_MAO_OBRA integer,
    SAT_NRO integer,
    SAT_STATUS varchar(20),
    SAT_CAMINHO varchar(60),
    SAT_CHAVE varchar(60),
    DT_COMISSAO date,
    NF_NOME varchar(60),
    COD_CONVENIO integer,
    COD_MESA integer,
    COD_PARCELA integer,
    FLG_PRECO char(1),
    LOCAL_DESEMB varchar(200),
    UF_DESEMB varchar(2),
    NRO_DI varchar(20),
    DT_DI date,
    COD_EXPORT integer,
    COD_FABRIC integer,
    TP_TRANS integer,
    NFE_REF4 varchar(60),
    VLR_IMPORT numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    FLG_PROCEDE char(1),
    ROMANEIO_NRO integer,
    ROMANEIO_DATA date,
    TOKEN varchar(256),
    CODMARKET integer)
as
begin
if (operacao = 1) then
insert into MOVTO (CODIGO,FLG_CODMOV,DATA,NOTA_FISCAL,SERIE,CUPOM_FISCAL,NRO_ECF,DATA_SAIDA,COD_CLI,COD_FOR,COD_FUNC,COD_TRIB,COD_END_CLI,VLR_DESC,VLR_ACRES,VLR_FRETE,PORC_FRETE,
VLR_TOTAL,TOTAL_NF,TIPO_RECEB,OBSERV1,OBSERV2,OBSERV3,TRANS_NOME,TRANS_END,TRANS_CIDADE,TRANS_CIDADEUF,TRANS_PLACA,TRANS_PLACAUF,TRANS_FRETE,TRANS_CNPJ_CPF,TRANS_IE_RG,CODREC_DEVOLUCAO,
COD_CAIXA,FLG_CANCEL,MOTIVO_CANCEL,NF_DATA,NF_DATA_SAIDA,NF_HORA,NF_CPF,PLACA,DATA_ENTREGA,FLG_ABERTO,VLR_DINH,VLR_CHVISTA,VLR_CHPRE,VLR_CARTAO,NFE_NRO,NFE_STATUS,NFE_CAMINHO,
NFE_CHAVE,NFE_OBSERV,VLR_DEBITO,VLR_PRAZO,VLR_OUTROS,COD_EMPRESA,NOME_VEICULO,VOL_QUANT,VOL_ESPECIE,VOL_MARCA,VOL_NRO,VOL_BRUTO,VOL_LIQUIDO,NFE_REF1,NFE_REF2,NFE_REF3,COD_MAO_OBRA,SAT_NRO,SAT_STATUS,SAT_CAMINHO,SAT_CHAVE,
DT_COMISSAO,NF_NOME,COD_CONVENIO,COD_MESA,COD_PARCELA,FLG_PRECO,LOCAL_DESEMB,UF_DESEMB,NRO_DI,DT_DI,COD_EXPORT,COD_FABRIC,TP_TRANS,NFE_REF4,VLR_IMPORT,OBS_ADICIONAL,FLG_PROCEDE,ROMANEIO_NRO,ROMANEIO_DATA,TOKEN, CODMARKET)
values (:CODIGO,:FLG_CODMOV,:DATA,:NOTA_FISCAL,:SERIE,:CUPOM_FISCAL,:NRO_ECF,:DATA_SAIDA,:COD_CLI,:COD_FOR,:COD_FUNC,:COD_TRIB,:COD_END_CLI,:VLR_DESC,:VLR_ACRES,:VLR_FRETE,
:PORC_FRETE,:VLR_TOTAL,:TOTAL_NF,:TIPO_RECEB,:OBSERV1,:OBSERV2,:OBSERV3,:TRANS_NOME,:TRANS_END,:TRANS_CIDADE,:TRANS_CIDADEUF,:TRANS_PLACA,:TRANS_PLACAUF,:TRANS_FRETE,
:TRANS_CNPJ_CPF,:TRANS_IE_RG,:CODREC_DEVOLUCAO,:COD_CAIXA,:FLG_CANCEL,:MOTIVO_CANCEL,:NF_DATA,:NF_DATA_SAIDA,:NF_HORA,:NF_CPF,:PLACA,:DATA_ENTREGA,:FLG_ABERTO,
:VLR_DINH,:VLR_CHVISTA,:VLR_CHPRE,:VLR_CARTAO,:NFE_NRO,:NFE_STATUS,:NFE_CAMINHO,:NFE_CHAVE,:NFE_OBSERV,:VLR_DEBITO,:VLR_PRAZO,:VLR_OUTROS,:COD_EMPRESA,:NOME_VEICULO,
:VOL_QUANT,:VOL_ESPECIE,:VOL_MARCA,:VOL_NRO,:VOL_BRUTO,:VOL_LIQUIDO,:NFE_REF1,:NFE_REF2,:NFE_REF3,:COD_MAO_OBRA,:SAT_NRO,:SAT_STATUS,:SAT_CAMINHO,:SAT_CHAVE,:DT_COMISSAO,:NF_NOME,:COD_CONVENIO,:COD_MESA,:COD_PARCELA,:FLG_PRECO, 
:LOCAL_DESEMB,:UF_DESEMB,:NRO_DI,:DT_DI,:COD_EXPORT,:COD_FABRIC,:TP_TRANS,:NFE_REF4,:VLR_IMPORT,:OBS_ADICIONAL,:FLG_PROCEDE,:ROMANEIO_NRO,:ROMANEIO_DATA,:TOKEN,:CODMARKET);
if (operacao = 2) then 
update MOVTO set 
FLG_CODMOV = :FLG_CODMOV,
DATA = :DATA, 
NOTA_FISCAL = :NOTA_FISCAL,
SERIE = :SERIE,
CUPOM_FISCAL = :CUPOM_FISCAL, 
NRO_ECF = :NRO_ECF, 
DATA_SAIDA = :DATA_SAIDA,
COD_CLI = :COD_CLI, 
COD_FOR = :COD_FOR,
COD_FUNC = :COD_FUNC,
COD_TRIB = :COD_TRIB,
COD_END_CLI = :COD_END_CLI,
VLR_DESC = :VLR_DESC,
VLR_ACRES = :VLR_ACRES,
VLR_FRETE = :VLR_FRETE,
PORC_FRETE = :PORC_FRETE,
VLR_TOTAL = :VLR_TOTAL,
TOTAL_NF = :TOTAL_NF,
TIPO_RECEB = :TIPO_RECEB,
OBSERV1 = :OBSERV1,
OBSERV2 = :OBSERV2,
OBSERV3 = :OBSERV3,
TRANS_NOME = :TRANS_NOME,
TRANS_END = :TRANS_END,
TRANS_CIDADE = :TRANS_CIDADE,
TRANS_CIDADEUF = :TRANS_CIDADEUF,
TRANS_PLACA = :TRANS_PLACA,
TRANS_PLACAUF = :TRANS_PLACAUF,
TRANS_FRETE = :TRANS_FRETE,
TRANS_CNPJ_CPF = :TRANS_CNPJ_CPF,
TRANS_IE_RG = :TRANS_IE_RG,
CODREC_DEVOLUCAO = :CODREC_DEVOLUCAO,
COD_CAIXA = :COD_CAIXA,
FLG_CANCEL = :FLG_CANCEL,
MOTIVO_CANCEL = :MOTIVO_CANCEL,
NF_DATA = :NF_DATA,
NF_DATA_SAIDA = :NF_DATA_SAIDA,
NF_HORA = :NF_HORA,
NF_CPF = :NF_CPF,
PLACA = :PLACA,
DATA_ENTREGA = :DATA_ENTREGA,
FLG_ABERTO = :FLG_ABERTO,
VLR_DINH = :VLR_DINH,
VLR_CHVISTA = :VLR_CHVISTA,
VLR_CHPRE = :VLR_CHPRE,
VLR_CARTAO = :VLR_CARTAO,
NFE_NRO = :NFE_NRO,
NFE_STATUS = :NFE_STATUS,
NFE_CAMINHO = :NFE_CAMINHO,
NFE_CHAVE = :NFE_CHAVE,
NFE_OBSERV = :NFE_OBSERV,
VLR_DEBITO = :VLR_DEBITO,
VLR_PRAZO = :VLR_PRAZO,
VLR_OUTROS = :VLR_OUTROS,
COD_EMPRESA = :COD_EMPRESA,
NOME_VEICULO = :NOME_VEICULO,
VOL_QUANT = :VOL_QUANT,
VOL_ESPECIE = :VOL_ESPECIE,
VOL_MARCA = :VOL_MARCA,
VOL_NRO = :VOL_NRO,
VOL_BRUTO = :VOL_BRUTO,
VOL_LIQUIDO = :VOL_LIQUIDO,
NFE_REF1 = :NFE_REF1,
NFE_REF2 = :NFE_REF2,
NFE_REF3 = :NFE_REF3,
COD_MAO_OBRA = :COD_MAO_OBRA,
SAT_NRO = :SAT_NRO,
SAT_STATUS = :SAT_STATUS,
SAT_CAMINHO = :SAT_CAMINHO,
SAT_CHAVE = :SAT_CHAVE,
DT_COMISSAO = :DT_COMISSAO,
NF_NOME = :NF_NOME,
COD_CONVENIO = :COD_CONVENIO,
COD_MESA = :COD_MESA,
COD_PARCELA = :COD_PARCELA,
FLG_PRECO = :FLG_PRECO,
LOCAL_DESEMB  = :LOCAL_DESEMB,
UF_DESEMB = :UF_DESEMB, 
NRO_DI = :NRO_DI,
DT_DI = :DT_DI,
COD_EXPORT = :COD_EXPORT,
COD_FABRIC = :COD_FABRIC,
TP_TRANS = :TP_TRANS,
NFE_REF4 = :NFE_REF4,
VLR_IMPORT = :VLR_IMPORT,
OBS_ADICIONAL = :OBS_ADICIONAL,
FLG_PROCEDE = :FLG_PROCEDE,
ROMANEIO_NRO = :ROMANEIO_NRO,
ROMANEIO_DATA = :ROMANEIO_DATA,
TOKEN = :TOKEN,
CODMARKET = :CODMARKET
where (CODIGO = :CODIGO);
if (operacao = 3) then
delete from MOVTO
where (CODIGO = :CODIGO);
suspend;
end
^

ALTER TABLE CONTABILISTA
  ADD COD_EMPRESA integer

^

ALTER TABLE CONTABILISTA
  ADD CONSTRAINT fk_COD_EMPRESA FOREIGN KEY (COD_EMPRESA)
  REFERENCES EMPRESA (CODIGO)

^

ALTER TABLE CONTABILISTA
  ADD FLG_ATIVO char(1)

^

UPDATE CONTABILISTA SET FLG_ATIVO = 'S'

^

CREATE OR ALTER procedure P_CONTABILISTA (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    CPF varchar(20),
    CRC varchar(20),
    CNPJ varchar(20),
    ENDERECO varchar(60),
    NRO_END integer,
    BAIRRO varchar(60),
    COD_CIDADE integer,
    CEP varchar(10),
    TELEFONE varchar(20),
    CELULAR varchar(20),
    E_MAIL varchar(60),
    OBSERVACAO varchar(100),
    E_MAIL2 varchar(60),
    E_MAIL3 varchar(60),
    E_MAIL4 varchar(60),
    COD_EMPRESA integer,
    FLG_ATIVO char(1))
as
begin
  if (operacao = 1) then
     insert into CONTABILISTA (CODIGO,NOME,CPF,CRC,CNPJ,ENDERECO,NRO_END,BAIRRO,COD_CIDADE,CEP,TELEFONE,CELULAR,E_MAIL,OBSERVACAO,E_MAIL2,E_MAIL3,E_MAIL4,COD_EMPRESA,FLG_ATIVO)
     values (:CODIGO,:NOME,:CPF,:CRC,:CNPJ,:ENDERECO,:NRO_END,:BAIRRO,:COD_CIDADE,:CEP,:TELEFONE,:CELULAR,:E_MAIL,:OBSERVACAO,:E_MAIL2,:E_MAIL3,:E_MAIL4, :COD_EMPRESA, :FLG_ATIVO);

  if (operacao = 2) then
     update CONTABILISTA set
     NOME = :NOME,
     CPF = :CPF,
     CRC = :CRC,
     CNPJ = :CNPJ,
     ENDERECO = :ENDERECO,
     NRO_END = :NRO_END,
     BAIRRO = :BAIRRO,
     COD_CIDADE = :COD_CIDADE,
     CEP = :CEP,
     TELEFONE = :TELEFONE,
     CELULAR = :CELULAR,
     E_MAIL = :E_MAIL,
     OBSERVACAO = :OBSERVACAO,
     E_MAIL2 = :E_MAIL2,
     E_MAIL3 = :E_MAIL3,
     E_MAIL4 = :E_MAIL4,
     COD_EMPRESA = :COD_EMPRESA,
     FLG_ATIVO = :FLG_ATIVO
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from CONTABILISTA
     where (CODIGO = :CODIGO);

  suspend;
end

^

update contabilista set FLG_ATIVO = 'S'

^

update RDB$RELATION_FIELDS set
RDB$NULL_FLAG = NULL
where (RDB$FIELD_NAME = 'COD_EMPRESA') and
(RDB$RELATION_NAME = 'CONTABILISTA')

^

update RDB$RELATION_FIELDS set
RDB$NULL_FLAG = 1
where (RDB$FIELD_NAME = 'FLG_ATIVO') and
(RDB$RELATION_NAME = 'CONTABILISTA')

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','VENDAS','SAIDAS','DIAS_ABERTO','BLOQUEAR VENDA DE CLIENTE COM MAIS DE (X) DIAS EM ABERTO','999999','','N')

^

update configuracao set valor = '90'
where (campo = 'DIAS_ABERTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where (nivel = 8))

^

update configuracao set valor = '10'
where (campo = 'DIAS_ABERTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where (nivel = 136))

^

update configuracao set valor = '30'
where (campo = 'DIAS_ABERTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where (nivel = 129))


^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','RELATORIO DE VENDA','SAIDAS','DRE_CMV','CALCULAR CMV','NAO','SIM;NAO','N')

^

update configuracao set valor = 'SIM'
where (campo = 'DRE_CMV') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where ((nivel = 58) or (nivel = 89) or cnpj = ('06.000.808/0001-55') or cnpj = ('41.390.901/0001-14')))

^

CREATE TABLE MIT_CONSUMO (
    CODIGO      INTEGER NOT NULL,
    COD_PROD    INTEGER NOT NULL,
    COD_FOR     INTEGER NOT NULL,
    COD_FUNC    INTEGER NOT NULL,
    FLG_E_S     CHAR(1) NOT NULL,
    DATA        DATE NOT NULL,
    DOCUMENTO   INTEGER,
    QUANT       NUMERIC(15,3) NOT NULL,
    VLR_UNIT    NUMERIC(15,3) NOT NULL,
    VLR_TOTAL   NUMERIC(15,2) NOT NULL,
    OBSERVACAO  VARCHAR(100)
);

^

ALTER TABLE MIT_CONSUMO ADD CONSTRAINT PK_MIT_CONSUMO PRIMARY KEY (CODIGO);

^

ALTER TABLE MIT_CONSUMO ADD CONSTRAINT FK_MIT_CONSUMO_1 FOREIGN KEY (COD_PROD) REFERENCES PRODUTO (CODIGO);

^

ALTER TABLE MIT_CONSUMO ADD CONSTRAINT FK_MIT_CONSUMO_2 FOREIGN KEY (COD_FOR) REFERENCES FORNECEDOR (CODIGO);

^

ALTER TABLE MIT_CONSUMO ADD CONSTRAINT FK_MIT_CONSUMO_3 FOREIGN KEY (COD_FUNC) REFERENCES FUNCIONARIO (CODIGO);

^

CREATE OR ALTER TRIGGER TRG_MIT_CONSUMO FOR MIT_CONSUMO
ACTIVE BEFORE INSERT POSITION 0
AS
declare variable cod integer;
begin
  select max(CODIGO) from MIT_CONSUMO into :cod;
  if (cod is null) then cod = 0;
  new.codigo = cod + 1;
end

^

create or alter procedure P_MIT_CONSUMO (
    OPERACAO integer,
    CODIGO integer,
    COD_PROD integer,
    COD_FOR integer,
    COD_FUNC integer,
    FLG_E_S char(1),
    DATA date,
    DOCUMENTO integer,
    QUANT numeric(15,3),
    VLR_UNIT numeric(15,3),
    VLR_TOTAL numeric(15,2),
    OBSERVACAO varchar(100))
as
begin
  if (operacao = 1) then
     insert into MIT_CONSUMO (CODIGO,COD_PROD,COD_FOR,COD_FUNC,FLG_E_S,DATA,DOCUMENTO,QUANT,VLR_UNIT,VLR_TOTAL,OBSERVACAO)
     values (:CODIGO,:COD_PROD,:COD_FOR,:COD_FUNC,:FLG_E_S,:DATA,:DOCUMENTO,:QUANT,:VLR_UNIT,:VLR_TOTAL,:OBSERVACAO);

  if (operacao = 2) then
     update MIT_CONSUMO set
     COD_PROD = :COD_PROD,
     COD_FOR = :COD_FOR,
     COD_FUNC = :COD_FUNC,
     FLG_E_S = :FLG_E_S,
     DATA = :DATA,
     DOCUMENTO = :DOCUMENTO,
     QUANT = :QUANT,
     VLR_UNIT = :VLR_UNIT,
     VLR_TOTAL = :VLR_TOTAL,
     OBSERVACAO = :OBSERVACAO
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from MIT_CONSUMO
     where (CODIGO = :CODIGO);

  suspend;
end;

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0026','FECHAMENTO DE CAIXA','CAIXA','FLG_CEGAS','FUNCIONARIO QUE FECHA CAIXA AS CEGAS','9','1;2;3;4;5;6;7;8;9','N')

^

update RDB$FIELDS set
RDB$FIELD_TYPE = 37,
RDB$FIELD_LENGTH = 20,
RDB$CHARACTER_LENGTH = 20,
RDB$CHARACTER_SET_ID = 0,
RDB$COLLATION_ID = 0
where RDB$FIELD_NAME = 'RDB$2299'

^

create or alter procedure P_RECEBER (
    OPERACAO integer,
    CODIGO integer,
    PARCELA integer,
    CODMOV integer,
    COD_CLI integer,
    DT_VENDA date,
    DT_VENCTO date,
    VLR_PARC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_DESC numeric(15,2),
    SALDO numeric(15,2),
    CRED_DEB char(10),
    HISTORICO varchar(100),
    CUPOM_FISCAL integer,
    DOCUMENTO varchar(20),
    SERIE varchar(3),
    COD_CAIXA integer,
    CB_NOSSO_NRO varchar(20),
    CB_DOC_NRO integer,
    FLG_BOLETO_DESC char(1),
    FLG_PERDIDO char(1),
    OBS_COBRANCA varchar(400),
    COD_EMPRESA integer,
    DT_BOLETO date,
    FLG_REMESSA char(1),
    BCO_BOLETO_DESC integer,
    BCO_BOLETO integer,
    COD_REPARCELA integer)
as
begin  
if (operacao = 1) then 
INSERT INTO RECEBER (CODIGO,PARCELA,CODMOV,COD_CLI,DT_VENDA,DT_VENCTO,VLR_PARC,VLR_ACRES,VLR_DESC,SALDO,CRED_DEB,HISTORICO,CUPOM_FISCAL,DOCUMENTO,SERIE,COD_CAIXA,CB_NOSSO_NRO,CB_DOC_NRO,
FLG_BOLETO_DESC,FLG_PERDIDO,OBS_COBRANCA,COD_EMPRESA,DT_BOLETO,FLG_REMESSA,BCO_BOLETO_DESC,BCO_BOLETO,COD_REPARCELA)
VALUES (:CODIGO,:PARCELA,:CODMOV,:COD_CLI,:DT_VENDA,:DT_VENCTO,:VLR_PARC,:VLR_ACRES,:VLR_DESC,:SALDO,:CRED_DEB,:HISTORICO,:CUPOM_FISCAL,:DOCUMENTO,:SERIE,:COD_CAIXA,:CB_NOSSO_NRO, 
:CB_DOC_NRO,:FLG_BOLETO_DESC,:FLG_PERDIDO,:OBS_COBRANCA,:COD_EMPRESA,:DT_BOLETO,:FLG_REMESSA,:BCO_BOLETO_DESC,:BCO_BOLETO,:COD_REPARCELA); 
if (operacao = 2) then 
UPDATE RECEBER SET 
PARCELA = :PARCELA, 
CODMOV = :CODMOV, 
COD_CLI = :COD_CLI, 
DT_VENDA = :DT_VENDA, 
DT_VENCTO = :DT_VENCTO, 
VLR_PARC = :VLR_PARC, 
VLR_ACRES = :VLR_ACRES, 
VLR_DESC = :VLR_DESC, 
SALDO = :SALDO, 
CRED_DEB = :CRED_DEB, 
HISTORICO = :HISTORICO, 
CUPOM_FISCAL = :CUPOM_FISCAL, 
DOCUMENTO = :DOCUMENTO,
SERIE = :SERIE, 
COD_CAIXA = :COD_CAIXA, 
CB_NOSSO_NRO = :CB_NOSSO_NRO, 
CB_DOC_NRO = :CB_DOC_NRO, 
FLG_BOLETO_DESC = :FLG_BOLETO_DESC, 
FLG_PERDIDO = :FLG_PERDIDO, 
OBS_COBRANCA = :OBS_COBRANCA, 
COD_EMPRESA = :COD_EMPRESA, 
DT_BOLETO = :DT_BOLETO, 
FLG_REMESSA = : FLG_REMESSA, 
BCO_BOLETO_DESC = :BCO_BOLETO_DESC, 
BCO_BOLETO = :BCO_BOLETO, 
COD_REPARCELA = :COD_REPARCELA
WHERE (CODIGO = :CODIGO); 
if (operacao = 3) then 
delete from RECEBER 
where (CODIGO = :CODIGO); 
suspend; 
end

^

ALTER TABLE END_CLI
ADD NRO_END VARCHAR(30)

^

create or alter procedure P_END_CLI (
    OPERACAO integer,
    CODIGO integer,
    COD_CLI integer,
    ENDERECO varchar(60),
    BAIRRO varchar(60),
    CEP varchar(10),
    COD_CID integer,
    FLG_PADRAO char(1),
    OBSERVACAO varchar(100),
    NRO_END varchar(30))
as
begin
  if (operacao = 1) then
     insert into END_CLI (CODIGO, COD_CLI, ENDERECO, BAIRRO, CEP, COD_CID, FLG_PADRAO, OBSERVACAO, NRO_END)
     values (:CODIGO, :COD_CLI, :ENDERECO, :BAIRRO, :CEP, :COD_CID, :FLG_PADRAO, :OBSERVACAO, :NRO_END);

  if (operacao = 2) then
     update END_CLI set
     COD_CLI = :COD_CLI,
     ENDERECO = :ENDERECO,
     BAIRRO = :BAIRRO,
     CEP = :CEP,
     COD_CID = :COD_CID,
     FLG_PADRAO = :FLG_PADRAO,
     OBSERVACAO = :OBSERVACAO,
     NRO_END = :NRO_END
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from END_CLI
     where (CODIGO = :CODIGO);

  suspend;
end

^
NOVA VERS O ALTER TABLE '1.0.1.0'
^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','RELATORIO DE VENDA','SAIDAS','FLG_DRE_REC','FILTRO A SER USADO NAS RECEITAS','VENDA','VENDA;FINANCEIRO','N')

^

update configuracao set campo = 'FLG_DRE_DESP', descricao = 'FILTRO A SER USADO NAS DESPESAS' where campo = 'FLG_DRE'

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','VENDAS','SAIDAS','DESCONTO','PEDIR SENHA CASO DESCONTO FOR MAIOR QUE','999999','','N')

^

update configuracao set valor = '999999'
where (campo = 'DESCONTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where ((nivel = 13) or (nivel = 21) or (nivel = 50) or
(nivel = 76) or (nivel = 91) or (nivel = 139) or (nivel = 34) or (nivel = 2) or (nivel = 23)
or (nivel = 25) or (nivel = 30)
or (nivel = 141) or (nivel = 156) or (nivel = 5) or (nivel = 10) or (nivel = 1) or (nivel = 90) or
cnpj = ('09.539.654/0001-62') or cnpj = ('43.877.063/0001-33')))

^

update configuracao set valor = '2'
where (campo = 'DESCONTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where ((nivel = 89)))                 

^

update configuracao set valor = '07'
where (campo = 'DESCONTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where (cnpj =('08.665.560/0001-77'))) 

^

update configuracao set valor = '05'
where (campo = 'DESCONTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where (cnpj =('15.490.269/0001-70')))  

^

update configuracao set valor = '10'
where (campo = 'DESCONTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where ((nivel = 54) or (nivel = 4) or cnpj =('08.280.511/0001-16')))

^

update configuracao set valor = '15'
where (campo = 'DESCONTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where ((nivel = 25)))                  

^

update configuracao set valor = '12'
where (campo = 'DESCONTO') and (cod_tela = 'VENDA')
and exists (select codigo from empresa where (cnpj =('12.921.232/0001-61')))  

^

ALTER TABLE MOVTO
ADD VLR_PIX NUMERIC(15,2)

^

ALTER TABLE MOVTO
ADD NFE_DADOS BLOB SUB_TYPE 0 SEGMENT SIZE 4096

^

CREATE OR ALTER procedure P_MOVTO (
    OPERACAO integer,
    CODIGO integer,
    FLG_CODMOV integer,
    DATA date,
    NOTA_FISCAL integer,
    SERIE integer,
    CUPOM_FISCAL integer,
    NRO_ECF integer,
    DATA_SAIDA date,
    COD_CLI integer,
    COD_FOR integer,
    COD_FUNC integer,
    COD_TRIB integer,
    COD_END_CLI integer,
    VLR_DESC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_FRETE numeric(15,2),
    PORC_FRETE numeric(15,3),
    VLR_TOTAL numeric(15,2),
    TOTAL_NF numeric(15,2),
    TIPO_RECEB integer,
    OBSERV1 varchar(400),
    OBSERV2 varchar(100),
    OBSERV3 varchar(100),
    TRANS_NOME varchar(60),
    TRANS_END varchar(60),
    TRANS_CIDADE varchar(60),
    TRANS_CIDADEUF varchar(2),
    TRANS_PLACA varchar(10),
    TRANS_PLACAUF varchar(2),
    TRANS_FRETE integer,
    TRANS_CNPJ_CPF varchar(20),
    TRANS_IE_RG varchar(20),
    CODREC_DEVOLUCAO integer,
    COD_CAIXA integer,
    FLG_CANCEL char(1),
    MOTIVO_CANCEL varchar(60),
    NF_DATA date,
    NF_DATA_SAIDA date,
    NF_HORA time,
    NF_CPF varchar(20),
    PLACA varchar(10),
    DATA_ENTREGA date,
    FLG_ABERTO char(1),
    VLR_DINH numeric(15,2),
    VLR_CHVISTA numeric(15,2),
    VLR_CHPRE numeric(15,2),
    VLR_CARTAO numeric(15,2),
    NFE_NRO integer,
    NFE_STATUS varchar(60),
    NFE_CAMINHO varchar(60),
    NFE_CHAVE varchar(60),
    NFE_OBSERV varchar(60),
    VLR_DEBITO numeric(15,2),
    VLR_PRAZO numeric(15,2),
    VLR_OUTROS numeric(15,2),
    COD_EMPRESA integer,
    NOME_VEICULO varchar(400),
    VOL_QUANT varchar(20),
    VOL_ESPECIE varchar(20),
    VOL_MARCA varchar(20),
    VOL_NRO varchar(20),
    VOL_BRUTO varchar(20),
    VOL_LIQUIDO varchar(20),
    NFE_REF1 varchar(60),
    NFE_REF2 varchar(60),
    NFE_REF3 varchar(60),
    COD_MAO_OBRA integer,
    SAT_NRO integer,
    SAT_STATUS varchar(20),
    SAT_CAMINHO varchar(60),
    SAT_CHAVE varchar(60),
    DT_COMISSAO date,
    NF_NOME varchar(60),
    COD_CONVENIO integer,
    COD_MESA integer,
    COD_PARCELA integer,
    FLG_PRECO char(1),
    LOCAL_DESEMB varchar(200),
    UF_DESEMB varchar(2),
    NRO_DI varchar(20),
    DT_DI date,
    COD_EXPORT integer,
    COD_FABRIC integer,
    TP_TRANS integer,
    NFE_REF4 varchar(60),
    VLR_IMPORT numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    FLG_PROCEDE char(1),
    ROMANEIO_NRO integer,
    ROMANEIO_DATA date,
    TOKEN varchar(256),
    CODMARKET integer
    )
as
begin
if (operacao = 1) then
insert into MOVTO (CODIGO,FLG_CODMOV,DATA,NOTA_FISCAL,SERIE,CUPOM_FISCAL,NRO_ECF,DATA_SAIDA,COD_CLI,COD_FOR,COD_FUNC,COD_TRIB,COD_END_CLI,VLR_DESC,VLR_ACRES,VLR_FRETE,PORC_FRETE,
VLR_TOTAL,TOTAL_NF,TIPO_RECEB,OBSERV1,OBSERV2,OBSERV3,TRANS_NOME,TRANS_END,TRANS_CIDADE,TRANS_CIDADEUF,TRANS_PLACA,TRANS_PLACAUF,TRANS_FRETE,TRANS_CNPJ_CPF,TRANS_IE_RG,CODREC_DEVOLUCAO,
COD_CAIXA,FLG_CANCEL,MOTIVO_CANCEL,NF_DATA,NF_DATA_SAIDA,NF_HORA,NF_CPF,PLACA,DATA_ENTREGA,FLG_ABERTO,VLR_DINH,VLR_CHVISTA,VLR_CHPRE,VLR_CARTAO,NFE_NRO,NFE_STATUS,NFE_CAMINHO,
NFE_CHAVE,NFE_OBSERV,VLR_DEBITO,VLR_PRAZO,VLR_OUTROS,COD_EMPRESA,NOME_VEICULO,VOL_QUANT,VOL_ESPECIE,VOL_MARCA,VOL_NRO,VOL_BRUTO,VOL_LIQUIDO,NFE_REF1,NFE_REF2,NFE_REF3,COD_MAO_OBRA,SAT_NRO,SAT_STATUS,SAT_CAMINHO,SAT_CHAVE,
DT_COMISSAO,NF_NOME,COD_CONVENIO,COD_MESA,COD_PARCELA,FLG_PRECO,LOCAL_DESEMB,UF_DESEMB,NRO_DI,DT_DI,COD_EXPORT,COD_FABRIC,TP_TRANS,NFE_REF4,VLR_IMPORT,OBS_ADICIONAL,FLG_PROCEDE,ROMANEIO_NRO,ROMANEIO_DATA,TOKEN, CODMARKET)
values (:CODIGO,:FLG_CODMOV,:DATA,:NOTA_FISCAL,:SERIE,:CUPOM_FISCAL,:NRO_ECF,:DATA_SAIDA,:COD_CLI,:COD_FOR,:COD_FUNC,:COD_TRIB,:COD_END_CLI,:VLR_DESC,:VLR_ACRES,:VLR_FRETE,
:PORC_FRETE,:VLR_TOTAL,:TOTAL_NF,:TIPO_RECEB,:OBSERV1,:OBSERV2,:OBSERV3,:TRANS_NOME,:TRANS_END,:TRANS_CIDADE,:TRANS_CIDADEUF,:TRANS_PLACA,:TRANS_PLACAUF,:TRANS_FRETE,
:TRANS_CNPJ_CPF,:TRANS_IE_RG,:CODREC_DEVOLUCAO,:COD_CAIXA,:FLG_CANCEL,:MOTIVO_CANCEL,:NF_DATA,:NF_DATA_SAIDA,:NF_HORA,:NF_CPF,:PLACA,:DATA_ENTREGA,:FLG_ABERTO,
:VLR_DINH,:VLR_CHVISTA,:VLR_CHPRE,:VLR_CARTAO,:NFE_NRO,:NFE_STATUS,:NFE_CAMINHO,:NFE_CHAVE,:NFE_OBSERV,:VLR_DEBITO,:VLR_PRAZO,:VLR_OUTROS,:COD_EMPRESA,:NOME_VEICULO,
:VOL_QUANT,:VOL_ESPECIE,:VOL_MARCA,:VOL_NRO,:VOL_BRUTO,:VOL_LIQUIDO,:NFE_REF1,:NFE_REF2,:NFE_REF3,:COD_MAO_OBRA,:SAT_NRO,:SAT_STATUS,:SAT_CAMINHO,:SAT_CHAVE,:DT_COMISSAO,:NF_NOME,:COD_CONVENIO,:COD_MESA,:COD_PARCELA,:FLG_PRECO, 
:LOCAL_DESEMB,:UF_DESEMB,:NRO_DI,:DT_DI,:COD_EXPORT,:COD_FABRIC,:TP_TRANS,:NFE_REF4,:VLR_IMPORT,:OBS_ADICIONAL,:FLG_PROCEDE,:ROMANEIO_NRO,:ROMANEIO_DATA,:TOKEN,:CODMARKET);
if (operacao = 2) then 
update MOVTO set 
FLG_CODMOV = :FLG_CODMOV,
DATA = :DATA, 
NOTA_FISCAL = :NOTA_FISCAL,
SERIE = :SERIE,
CUPOM_FISCAL = :CUPOM_FISCAL, 
NRO_ECF = :NRO_ECF, 
DATA_SAIDA = :DATA_SAIDA,
COD_CLI = :COD_CLI, 
COD_FOR = :COD_FOR,
COD_FUNC = :COD_FUNC,
COD_TRIB = :COD_TRIB,
COD_END_CLI = :COD_END_CLI,
VLR_DESC = :VLR_DESC,
VLR_ACRES = :VLR_ACRES,
VLR_FRETE = :VLR_FRETE,
PORC_FRETE = :PORC_FRETE,
VLR_TOTAL = :VLR_TOTAL,
TOTAL_NF = :TOTAL_NF,
TIPO_RECEB = :TIPO_RECEB,
OBSERV1 = :OBSERV1,
OBSERV2 = :OBSERV2,
OBSERV3 = :OBSERV3,
TRANS_NOME = :TRANS_NOME,
TRANS_END = :TRANS_END,
TRANS_CIDADE = :TRANS_CIDADE,
TRANS_CIDADEUF = :TRANS_CIDADEUF,
TRANS_PLACA = :TRANS_PLACA,
TRANS_PLACAUF = :TRANS_PLACAUF,
TRANS_FRETE = :TRANS_FRETE,
TRANS_CNPJ_CPF = :TRANS_CNPJ_CPF,
TRANS_IE_RG = :TRANS_IE_RG,
CODREC_DEVOLUCAO = :CODREC_DEVOLUCAO,
COD_CAIXA = :COD_CAIXA,
FLG_CANCEL = :FLG_CANCEL,
MOTIVO_CANCEL = :MOTIVO_CANCEL,
NF_DATA = :NF_DATA,
NF_DATA_SAIDA = :NF_DATA_SAIDA,
NF_HORA = :NF_HORA,
NF_CPF = :NF_CPF,
PLACA = :PLACA,
DATA_ENTREGA = :DATA_ENTREGA,
FLG_ABERTO = :FLG_ABERTO,
VLR_DINH = :VLR_DINH,
VLR_CHVISTA = :VLR_CHVISTA,
VLR_CHPRE = :VLR_CHPRE,
VLR_CARTAO = :VLR_CARTAO,
NFE_NRO = :NFE_NRO,
NFE_STATUS = :NFE_STATUS,
NFE_CAMINHO = :NFE_CAMINHO,
NFE_CHAVE = :NFE_CHAVE,
NFE_OBSERV = :NFE_OBSERV,
VLR_DEBITO = :VLR_DEBITO,
VLR_PRAZO = :VLR_PRAZO,
VLR_OUTROS = :VLR_OUTROS,
COD_EMPRESA = :COD_EMPRESA,
NOME_VEICULO = :NOME_VEICULO,
VOL_QUANT = :VOL_QUANT,
VOL_ESPECIE = :VOL_ESPECIE,
VOL_MARCA = :VOL_MARCA,
VOL_NRO = :VOL_NRO,
VOL_BRUTO = :VOL_BRUTO,
VOL_LIQUIDO = :VOL_LIQUIDO,
NFE_REF1 = :NFE_REF1,
NFE_REF2 = :NFE_REF2,
NFE_REF3 = :NFE_REF3,
COD_MAO_OBRA = :COD_MAO_OBRA,
SAT_NRO = :SAT_NRO,
SAT_STATUS = :SAT_STATUS,
SAT_CAMINHO = :SAT_CAMINHO,
SAT_CHAVE = :SAT_CHAVE,
DT_COMISSAO = :DT_COMISSAO,
NF_NOME = :NF_NOME,
COD_CONVENIO = :COD_CONVENIO,
COD_MESA = :COD_MESA,
COD_PARCELA = :COD_PARCELA,
FLG_PRECO = :FLG_PRECO,
LOCAL_DESEMB  = :LOCAL_DESEMB,
UF_DESEMB = :UF_DESEMB, 
NRO_DI = :NRO_DI,
DT_DI = :DT_DI,
COD_EXPORT = :COD_EXPORT,
COD_FABRIC = :COD_FABRIC,
TP_TRANS = :TP_TRANS,
NFE_REF4 = :NFE_REF4,
VLR_IMPORT = :VLR_IMPORT,
OBS_ADICIONAL = :OBS_ADICIONAL,
FLG_PROCEDE = :FLG_PROCEDE,
ROMANEIO_NRO = :ROMANEIO_NRO,
ROMANEIO_DATA = :ROMANEIO_DATA,
TOKEN = :TOKEN,
CODMARKET = :CODMARKET
where (CODIGO = :CODIGO);
if (operacao = 3) then
delete from MOVTO
where (CODIGO = :CODIGO);
suspend;
end

^

ALTER TABLE MOVIT
ADD OBS_ADICIONAL BLOB SUB_TYPE 1 SEGMENT SIZE 4096

^

ALTER TABLE END_CLI
ADD CONSTRAINT FK_END_CLI_1
FOREIGN KEY (COD_CLI)
REFERENCES CLIENTE(CODIGO)
ON DELETE CASCADE

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0000','CONFIGURACOES','PRINCIPAL','VALIDADE','MOSTRAR PRODUTOS A (X) DIAS DO VENCIMENTO AO ABRIR O SISTEMA','0','','N')

^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('VENDA','VENDAS','SAIDAS','CONSULTA','CONSULTAR VENDAS SEPARADAS POR EMPRESA','SIM','SIM;NAO','N')

^

CREATE TABLE TELAS_ACESSO (
    "INDEX"        VARCHAR(10),
    MENU           VARCHAR(30),
    MENU_PAI       VARCHAR(30),
    COD_FUNC       VARCHAR(30),
    NV_FUNC        VARCHAR(30),
    INCLUIR        VARCHAR(30),
    ALTERAR        VARCHAR(30),
    EXCLUIR        VARCHAR(30),
    CONSULTAR      VARCHAR(30),
    IMPRIMIR       VARCHAR(30),
    MENU_NOME      VARCHAR(40),
    NIVEL_CLIENTE  VARCHAR(30),
    ORDEM          INTEGER
);

^

delete from favoritos

^

CREATE TABLE STATUS_OS (
    CODIGO       INTEGER NOT NULL,
    STATUS       VARCHAR(30),
    COR          INTEGER,
    FLG_GRAFICO  CHAR(1) DEFAULT 'S'
);

^

ALTER TABLE STATUS_OS ADD CONSTRAINT PK_STATUS_OS PRIMARY KEY (CODIGO);

^

create or alter procedure P_STATUS_OS (
    OPERACAO integer,
    CODIGO integer,
    STATUS varchar(30),
    COR integer,
    FLG_GRAFICO char(1))
as
begin
  if (operacao = 1) then
     insert into status_os (CODIGO,STATUS,COR, FLG_GRAFICO)
     values (:CODIGO,:STATUS,:COR, :FLG_GRAFICO);

  if (operacao = 2) then
     update status_os set
     STATUS = :STATUS,
     COR = :COR,
     FLG_GRAFICO = :FLG_GRAFICO
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from status_os
     where (CODIGO = :CODIGO);

  suspend;
end

^

CREATE OR ALTER TRIGGER TRG_STATUS_OS FOR STATUS_OS
ACTIVE BEFORE INSERT POSITION 0
AS
declare variable cod integer;
begin
  select max(CODIGO) from STATUS_OS into :cod;

  if (cod is null) then cod = 0;

  new.codigo = cod + 1;
end

^
ALTER TABLE MOVTO_OS
  ADD COD_STATUS     INTEGER

^
ALTER TABLE MOVTO_OS ADD CONSTRAINT FK_COD_STATUS FOREIGN KEY (COD_STATUS) REFERENCES STATUS_OS (CODIGO);

^

create or alter procedure P_MOVTO_OS (
    OPERACAO integer,
    CODIGO integer,
    CODMOV integer,
    NRO_OS integer,
    DATA_SAIDA date,
    MARCA varchar(60),
    MODELO varchar(60),
    ESNHEX varchar(60),
    FLG_BATERIA char(1),
    FLG_MESA char(1),
    FLG_CHIP char(1),
    FLG_CARTAO char(1),
    FLG_OPERADORA char(1),
    FLG_ESTADO char(1),
    GARANTIA integer,
    OBSERVACAO varchar(100),
    STATUS varchar(20),
    COD_PROD1 integer,
    COD_PROD2 integer,
    COD_PROD3 integer,
    FOTO1 varchar(200),
    FOTO2 varchar(200),
    FOTO3 varchar(200),
    FOTO4 varchar(200),
    FOTO5 varchar(200),
    COD_TECNICO integer,
    FOTO6 varchar(200),
    FOTO7 varchar(200),
    COD_STATUS integer)
as
begin
  if (operacao = 1) then
insert into MOVTO_OS (CODIGO,CODMOV,NRO_OS,DATA_SAIDA,MARCA,MODELO,ESNHEX,FLG_BATERIA,FLG_MESA,FLG_CHIP,FLG_CARTAO,FLG_OPERADORA,FLG_ESTADO,GARANTIA,OBSERVACAO,STATUS,COD_PROD1,
COD_PROD2,COD_PROD3,FOTO1,FOTO2,FOTO3,FOTO4,FOTO5,COD_TECNICO,FOTO6,FOTO7, COD_STATUS)
  values (:CODIGO,:CODMOV,:NRO_OS,:DATA_SAIDA,:MARCA,:MODELO,:ESNHEX,:FLG_BATERIA,:FLG_MESA,:FLG_CHIP,:FLG_CARTAO,:FLG_OPERADORA,:FLG_ESTADO,:GARANTIA,:OBSERVACAO,:STATUS,
:cod_prod1,:cod_prod2,:COD_PROD3,:FOTO1,:FOTO2,:FOTO3,:FOTO4,:FOTO5,:COD_TECNICO,:FOTO6,:FOTO7, :COD_STATUS);
 if (operacao = 2) then
 update MOVTO_OS set 
 CODMOV = :CODMOV, 
 NRO_OS = :NRO_OS,   
 DATA_SAIDA = :DATA_SAIDA,  
 MARCA = :MARCA, 
 MODELO = :MODELO,  
 ESNHEX = :ESNHEX, 
 FLG_BATERIA = :FLG_BATERIA, 
 FLG_MESA = :FLG_MESA, 
 FLG_CHIP = :FLG_CHIP,  
 FLG_CARTAO = :FLG_CARTAO, 
 FLG_OPERADORA = :FLG_OPERADORA, 
 FLG_ESTADO = :FLG_ESTADO, 
 GARANTIA = :GARANTIA, 
 OBSERVACAO = :OBSERVACAO, 
 STATUS = :STATUS, 
 COD_PROD1 = :cod_prod1, 
 COD_PROD2 = :cod_prod2, 
 COD_PROD3 = :cod_prod3, 
 FOTO1 = :FOTO1, 
 FOTO2 = :FOTO2, 
 FOTO3 = :FOTO3, 
 FOTO4 = :FOTO4, 
 FOTO5 = :FOTO5, 
 COD_TECNICO = :COD_TECNICO, 
 FOTO6 = :FOTO6, 
 FOTO7 = :FOTO7,
 COD_STATUS = :COD_STATUS
    WHERE (CODIGO = :CODIGO);
  if (operacao = 3) then
     delete from MOVTO_OS
     where (CODIGO = :CODIGO);
  suspend;
end

^
Insert INTO STATUS_OS (CODIGO, STATUS, COR)
Values(1,'Todos',536870912)
^
Insert INTO STATUS_OS (CODIGO, STATUS, COR)
Values(0,'Em aberto',536870912)
^
Insert INTO STATUS_OS (CODIGO, STATUS, COR)
Values(0,'Retirado',536870912)
^
Insert INTO STATUS_OS (CODIGO, STATUS, COR)
Values(0,'Orçamento',536870912)
^
Insert INTO STATUS_OS (CODIGO, STATUS, COR)
Values(0,'Pronto',536870912)

^
update MOVTO_OS set cod_status = 2 where status = 'Em aberto'
^
update MOVTO_OS set cod_status = 3 where status = 'Retirado'
^
update MOVTO_OS set cod_status = 4 where status = 'Orçamento'
^
update MOVTO_OS set cod_status = 5 where status = 'Pronto'
^

ALTER TABLE MOVTO
  ADD FLG_EXC CHAR(1)

^

create or alter procedure P_MOVTO (
    OPERACAO integer,
    CODIGO integer,
    FLG_CODMOV integer,
    DATA date,
    NOTA_FISCAL integer,
    SERIE integer,
    CUPOM_FISCAL integer,
    NRO_ECF integer,
    DATA_SAIDA date,
    COD_CLI integer,
    COD_FOR integer,
    COD_FUNC integer,
    COD_TRIB integer,
    COD_END_CLI integer,
    VLR_DESC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_FRETE numeric(15,2),
    PORC_FRETE numeric(15,3),
    VLR_TOTAL numeric(15,2),
    TOTAL_NF numeric(15,2),
    TIPO_RECEB integer,
    OBSERV1 varchar(400),
    OBSERV2 varchar(100),
    OBSERV3 varchar(100),
    TRANS_NOME varchar(60),
    TRANS_END varchar(60),
    TRANS_CIDADE varchar(60),
    TRANS_CIDADEUF varchar(2),
    TRANS_PLACA varchar(10),
    TRANS_PLACAUF varchar(2),
    TRANS_FRETE integer,
    TRANS_CNPJ_CPF varchar(20),
    TRANS_IE_RG varchar(20),
    CODREC_DEVOLUCAO integer,
    COD_CAIXA integer,
    FLG_CANCEL char(1),
    MOTIVO_CANCEL varchar(60),
    NF_DATA date,
    NF_DATA_SAIDA date,
    NF_HORA time,
    NF_CPF varchar(20),
    PLACA varchar(10),
    DATA_ENTREGA date,
    FLG_ABERTO char(1),
    VLR_DINH numeric(15,2),
    VLR_CHVISTA numeric(15,2),
    VLR_CHPRE numeric(15,2),
    VLR_CARTAO numeric(15,2),
    NFE_NRO integer,
    NFE_STATUS varchar(60),
    NFE_CAMINHO varchar(60),
    NFE_CHAVE varchar(60),
    NFE_OBSERV varchar(60),
    VLR_DEBITO numeric(15,2),
    VLR_PRAZO numeric(15,2),
    VLR_OUTROS numeric(15,2),
    COD_EMPRESA integer,
    NOME_VEICULO varchar(400),
    VOL_QUANT varchar(20),
    VOL_ESPECIE varchar(20),
    VOL_MARCA varchar(20),
    VOL_NRO varchar(20),
    VOL_BRUTO varchar(20),
    VOL_LIQUIDO varchar(20),
    NFE_REF1 varchar(60),
    NFE_REF2 varchar(60),
    NFE_REF3 varchar(60),
    COD_MAO_OBRA integer,
    SAT_NRO integer,
    SAT_STATUS varchar(20),
    SAT_CAMINHO varchar(60),
    SAT_CHAVE varchar(60),
    DT_COMISSAO date,
    NF_NOME varchar(60),
    COD_CONVENIO integer,
    COD_MESA integer,
    COD_PARCELA integer,
    FLG_PRECO char(1),
    LOCAL_DESEMB varchar(200),
    UF_DESEMB varchar(2),
    NRO_DI varchar(20),
    DT_DI date,
    COD_EXPORT integer,
    COD_FABRIC integer,
    TP_TRANS integer,
    NFE_REF4 varchar(60),
    VLR_IMPORT numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    FLG_PROCEDE char(1),
    ROMANEIO_NRO integer,
    ROMANEIO_DATA date,
    TOKEN varchar(256),
    CODMARKET integer,
    VLR_PIX numeric(15,2),
    NFE_DADOS blob sub_type 0 segment size 80,
    FLG_EXC char(1))
as
begin
if (operacao = 1) then
insert into MOVTO (CODIGO,FLG_CODMOV,DATA,NOTA_FISCAL,SERIE,CUPOM_FISCAL,NRO_ECF,DATA_SAIDA,COD_CLI,COD_FOR,COD_FUNC,COD_TRIB,COD_END_CLI,VLR_DESC,VLR_ACRES,VLR_FRETE,PORC_FRETE,
VLR_TOTAL,TOTAL_NF,TIPO_RECEB,OBSERV1,OBSERV2,OBSERV3,TRANS_NOME,TRANS_END,TRANS_CIDADE,TRANS_CIDADEUF,TRANS_PLACA,TRANS_PLACAUF,TRANS_FRETE,TRANS_CNPJ_CPF,TRANS_IE_RG,CODREC_DEVOLUCAO,
COD_CAIXA,FLG_CANCEL,MOTIVO_CANCEL,NF_DATA,NF_DATA_SAIDA,NF_HORA,NF_CPF,PLACA,DATA_ENTREGA,FLG_ABERTO,VLR_DINH,VLR_CHVISTA,VLR_CHPRE,VLR_CARTAO,NFE_NRO,NFE_STATUS,NFE_CAMINHO,
NFE_CHAVE,NFE_OBSERV,VLR_DEBITO,VLR_PRAZO,VLR_OUTROS,COD_EMPRESA,NOME_VEICULO,VOL_QUANT,VOL_ESPECIE,VOL_MARCA,VOL_NRO,VOL_BRUTO,VOL_LIQUIDO,NFE_REF1,NFE_REF2,NFE_REF3,COD_MAO_OBRA,SAT_NRO,SAT_STATUS,SAT_CAMINHO,SAT_CHAVE,
DT_COMISSAO,NF_NOME,COD_CONVENIO,COD_MESA,COD_PARCELA,FLG_PRECO,LOCAL_DESEMB,UF_DESEMB,NRO_DI,DT_DI,COD_EXPORT,COD_FABRIC,TP_TRANS,NFE_REF4,VLR_IMPORT,OBS_ADICIONAL,FLG_PROCEDE,ROMANEIO_NRO,ROMANEIO_DATA,TOKEN, CODMARKET, VLR_PIX, NFE_DADOS, FLG_EXC)
values (:CODIGO,:FLG_CODMOV,:DATA,:NOTA_FISCAL,:SERIE,:CUPOM_FISCAL,:NRO_ECF,:DATA_SAIDA,:COD_CLI,:COD_FOR,:COD_FUNC,:COD_TRIB,:COD_END_CLI,:VLR_DESC,:VLR_ACRES,:VLR_FRETE,
:PORC_FRETE,:VLR_TOTAL,:TOTAL_NF,:TIPO_RECEB,:OBSERV1,:OBSERV2,:OBSERV3,:TRANS_NOME,:TRANS_END,:TRANS_CIDADE,:TRANS_CIDADEUF,:TRANS_PLACA,:TRANS_PLACAUF,:TRANS_FRETE,
:TRANS_CNPJ_CPF,:TRANS_IE_RG,:CODREC_DEVOLUCAO,:COD_CAIXA,:FLG_CANCEL,:MOTIVO_CANCEL,:NF_DATA,:NF_DATA_SAIDA,:NF_HORA,:NF_CPF,:PLACA,:DATA_ENTREGA,:FLG_ABERTO,
:VLR_DINH,:VLR_CHVISTA,:VLR_CHPRE,:VLR_CARTAO,:NFE_NRO,:NFE_STATUS,:NFE_CAMINHO,:NFE_CHAVE,:NFE_OBSERV,:VLR_DEBITO,:VLR_PRAZO,:VLR_OUTROS,:COD_EMPRESA,:NOME_VEICULO,
:VOL_QUANT,:VOL_ESPECIE,:VOL_MARCA,:VOL_NRO,:VOL_BRUTO,:VOL_LIQUIDO,:NFE_REF1,:NFE_REF2,:NFE_REF3,:COD_MAO_OBRA,:SAT_NRO,:SAT_STATUS,:SAT_CAMINHO,:SAT_CHAVE,:DT_COMISSAO,:NF_NOME,:COD_CONVENIO,:COD_MESA,:COD_PARCELA,:FLG_PRECO,
:LOCAL_DESEMB,:UF_DESEMB,:NRO_DI,:DT_DI,:COD_EXPORT,:COD_FABRIC,:TP_TRANS,:NFE_REF4,:VLR_IMPORT,:OBS_ADICIONAL,:FLG_PROCEDE,:ROMANEIO_NRO,:ROMANEIO_DATA,:TOKEN,:CODMARKET,:VLR_PIX, :NFE_DADOS, :FLG_EXC);

if (operacao = 2) then
update MOVTO set
FLG_CODMOV = :FLG_CODMOV,
DATA = :DATA,
NOTA_FISCAL = :NOTA_FISCAL,
SERIE = :SERIE,
CUPOM_FISCAL = :CUPOM_FISCAL,
NRO_ECF = :NRO_ECF,
DATA_SAIDA = :DATA_SAIDA,
COD_CLI = :COD_CLI,
COD_FOR = :COD_FOR,
COD_FUNC = :COD_FUNC,
COD_TRIB = :COD_TRIB,
COD_END_CLI = :COD_END_CLI,
VLR_DESC = :VLR_DESC,
VLR_ACRES = :VLR_ACRES,
VLR_FRETE = :VLR_FRETE,
PORC_FRETE = :PORC_FRETE,
VLR_TOTAL = :VLR_TOTAL,
TOTAL_NF = :TOTAL_NF,
TIPO_RECEB = :TIPO_RECEB,
OBSERV1 = :OBSERV1,
OBSERV2 = :OBSERV2,
OBSERV3 = :OBSERV3,
TRANS_NOME = :TRANS_NOME,
TRANS_END = :TRANS_END,
TRANS_CIDADE = :TRANS_CIDADE,
TRANS_CIDADEUF = :TRANS_CIDADEUF,
TRANS_PLACA = :TRANS_PLACA,
TRANS_PLACAUF = :TRANS_PLACAUF,
TRANS_FRETE = :TRANS_FRETE,
TRANS_CNPJ_CPF = :TRANS_CNPJ_CPF,
TRANS_IE_RG = :TRANS_IE_RG,
CODREC_DEVOLUCAO = :CODREC_DEVOLUCAO,
COD_CAIXA = :COD_CAIXA,
FLG_CANCEL = :FLG_CANCEL,
MOTIVO_CANCEL = :MOTIVO_CANCEL,
NF_DATA = :NF_DATA,
NF_DATA_SAIDA = :NF_DATA_SAIDA,
NF_HORA = :NF_HORA,
NF_CPF = :NF_CPF,
PLACA = :PLACA,
DATA_ENTREGA = :DATA_ENTREGA,
FLG_ABERTO = :FLG_ABERTO,
VLR_DINH = :VLR_DINH,
VLR_CHVISTA = :VLR_CHVISTA,
VLR_CHPRE = :VLR_CHPRE,
VLR_CARTAO = :VLR_CARTAO,
NFE_NRO = :NFE_NRO,
NFE_STATUS = :NFE_STATUS,
NFE_CAMINHO = :NFE_CAMINHO,
NFE_CHAVE = :NFE_CHAVE,
NFE_OBSERV = :NFE_OBSERV,
VLR_DEBITO = :VLR_DEBITO,
VLR_PRAZO = :VLR_PRAZO,
VLR_OUTROS = :VLR_OUTROS,
COD_EMPRESA = :COD_EMPRESA,
NOME_VEICULO = :NOME_VEICULO,
VOL_QUANT = :VOL_QUANT,
VOL_ESPECIE = :VOL_ESPECIE,
VOL_MARCA = :VOL_MARCA,
VOL_NRO = :VOL_NRO,
VOL_BRUTO = :VOL_BRUTO,
VOL_LIQUIDO = :VOL_LIQUIDO,
NFE_REF1 = :NFE_REF1,
NFE_REF2 = :NFE_REF2,
NFE_REF3 = :NFE_REF3,
COD_MAO_OBRA = :COD_MAO_OBRA,
SAT_NRO = :SAT_NRO,
SAT_STATUS = :SAT_STATUS,
SAT_CAMINHO = :SAT_CAMINHO,
SAT_CHAVE = :SAT_CHAVE,
DT_COMISSAO = :DT_COMISSAO,
NF_NOME = :NF_NOME,
COD_CONVENIO = :COD_CONVENIO,
COD_MESA = :COD_MESA,
COD_PARCELA = :COD_PARCELA,
FLG_PRECO = :FLG_PRECO,
LOCAL_DESEMB  = :LOCAL_DESEMB,
UF_DESEMB = :UF_DESEMB,
NRO_DI = :NRO_DI,
DT_DI = :DT_DI,
COD_EXPORT = :COD_EXPORT,
COD_FABRIC = :COD_FABRIC,
TP_TRANS = :TP_TRANS,
NFE_REF4 = :NFE_REF4,
VLR_IMPORT = :VLR_IMPORT,
OBS_ADICIONAL = :OBS_ADICIONAL,
FLG_PROCEDE = :FLG_PROCEDE,
ROMANEIO_NRO = :ROMANEIO_NRO,
ROMANEIO_DATA = :ROMANEIO_DATA,
TOKEN = :TOKEN,
CODMARKET = :CODMARKET,
VLR_PIX = :VLR_PIX,
NFE_DADOS = :NFE_DADOS,
FLG_EXC = :FLG_EXC
where (CODIGO = :CODIGO);
if (operacao = 3) then
delete from MOVTO
where (CODIGO = :CODIGO);
suspend;
end

^

ALTER TABLE EMPRESA
ADD OBS_CFE VARCHAR(300)

^

ALTER TABLE CAIXA_OUTROS
ADD VLR_PIX NUMERIC(15,2)

^

create or alter procedure P_CAIXA_OUTROS (
    OPERACAO integer,
    CODIGO integer,
    FLG_E_S char(1),
    DATA date,
    DESCRICAO varchar(60),
    VALOR numeric(15,2),
    COD_CAIXA integer,
    COD_FUNC integer,
    COD_DESP integer,
    VLR_DINH numeric(15,2),
    VLR_CHVISTA numeric(15,2),
    VLR_CHPRE numeric(15,2),
    DT_COMISSAO date,
    VLR_CARTAO numeric(15,2),
    VLR_PIX numeric(15,2))
as
begin
if (operacao = 1) then
insert into caixa_outros (codigo,flg_e_s,data,descricao,valor,cod_caixa,cod_func,cod_desp,vlr_dinh,vlr_chvista,vlr_chpre,dt_comissao,vlr_cartao,vlr_pix)
values (:codigo,:flg_e_s,:data,:descricao,:valor,:cod_caixa,:cod_func,:cod_desp,:vlr_dinh,:vlr_chvista,:vlr_chpre,:dt_comissao,:vlr_cartao,:vlr_pix);
if (operacao = 2) then
update caixa_outros set
flg_e_s = :flg_e_s,
data = :data,
descricao = :descricao,
valor = :valor,
cod_caixa = :cod_caixa,
cod_func = :cod_func,
cod_desp = :cod_desp,
vlr_dinh = :vlr_dinh,
vlr_chvista = :vlr_chvista,
vlr_chpre = :vlr_chpre,
dt_comissao = :dt_comissao,
vlr_cartao = :vlr_cartao,
vlr_pix = :vlr_pix
where (codigo = :codigo);
if (operacao = 3) then
delete from caixa_outros
where (codigo = :codigo);
suspend;
end

^

update configuracao set valor = 'NAO'
where (campo = 'MEIA_NOTA') and (cod_tela = 'COMPRA')

^

update RDB$FIELDS set
RDB$FIELD_LENGTH = 60,
RDB$CHARACTER_LENGTH = 60
where RDB$FIELD_NAME = 'RDB$241'

^

CREATE OR ALTER procedure P_PROD_FOR (
    OPERACAO integer,
    CODIGO integer,
    COD_FOR integer,
    COD_PROD integer,
    COD_FORPROD varchar(60))
as
begin
  if (operacao = 1) then
     insert into PROD_FOR (CODIGO,COD_FOR,COD_PROD,COD_FORPROD)
     values (:CODIGO,:COD_FOR,:COD_PROD,:COD_FORPROD);

  if (operacao = 2) then
     update PROD_FOR set
     COD_FOR = :COD_FOR,
     COD_PROD = :COD_PROD,
     COD_FORPROD = :COD_FORPROD
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from PROD_FOR
     where (CODIGO = :CODIGO);

  suspend;
end

^

ALTER TABLE MOVIT_AUX 
   ADD NOME_PROD VARCHAR(100)

^

create or alter procedure P_MOVIT_AUX (
    OPERACAO integer,
    CODIGO integer,
    CODMOV integer,
    COD_PROD integer,
    QUANT numeric(15,3),
    VALOR numeric(15,2),
    NOME_PC varchar(60),
    ITEM integer,
    VLR_UNIT numeric(15,4),
    UNIDADE varchar(10),
    VLR_DESC numeric(15,4),
    NOME_PROD VARCHAR(100))
as
begin 
if (operacao = 1) then 
insert into MOVIT_AUX (CODIGO, CODMOV, COD_PROD, QUANT, VALOR,NOME_PC,ITEM,VLR_UNIT,UNIDADE,VLR_DESC,NOME_PROD)
values (:CODIGO, :CODMOV, :COD_PROD, :QUANT, :VALOR,:NOME_PC,:ITEM,:VLR_UNIT,:UNIDADE,:VLR_DESC,:NOME_PROD);
if (operacao = 2) then  
update MOVIT_AUX set 
CODMOV = :CODMOV,
COD_PROD = :COD_PROD, 
QUANT = :QUANT, 
VALOR = :VALOR,
NOME_PC = :NOME_PC, 
ITEM = :ITEM, 
VLR_UNIT = :VLR_UNIT, 
UNIDADE = :UNIDADE,
VLR_DESC = :VLR_DESC,
NOME_PROD = :NOME_PROD
where (CODIGO = :CODIGO); 
if (operacao = 3) then 
delete from MOVIT_AUX 
where (CODIGO = :CODIGO); 
suspend; 
end

^

update RDB$FIELDS set
RDB$FIELD_LENGTH = 100,
RDB$CHARACTER_LENGTH = 100
where RDB$FIELD_NAME = 'RDB$2491'

^

create or alter procedure P_FINANC_MOVTO (
    OPERACAO integer,
    COD_CONTA integer,
    CODIGO integer,
    DATA date,
    FLG_E_S char(1),
    VALOR numeric(15,2),
    COD_CCUSTO integer,
    NRO_CHEQUE integer,
    HISTORICO varchar(100),
    COD_CONTA_MOVTO integer,
    COD_MOVTO integer,
    DATA_VENCTO date,
    DATA_PAGTO date,
    COD_CHEQUE integer,
    COD_CARTAO integer,
    COD_REC integer,
    COD_PAG integer,
    COD_ORDEM integer,
    COD_CAIXA integer,
    COD_MOV integer,
    COD_EMPRESA integer)
as
begin 
IF (OPERACAO = 1) THEN 
INSERT INTO FINANC_MOVTO 
VALUES(:COD_CONTA,:CODIGO,:DATA,:FLG_E_S,:VALOR,:COD_CCUSTO,:NRO_CHEQUE,:HISTORICO,:COD_CONTA_MOVTO,:COD_MOVTO,:DATA_VENCTO,:DATA_PAGTO,:COD_CHEQUE,:COD_CARTAO,:COD_REC,:COD_PAG,:COD_ORDEM,:COD_CAIXA,:COD_MOV,:COD_EMPRESA);
IF (OPERACAO = 2) THEN 
UPDATE FINANC_MOVTO SET
DATA = :DATA,
FLG_E_S = :FLG_E_S,
VALOR = :VALOR,
COD_CCUSTO = :COD_CCUSTO,
NRO_CHEQUE = :NRO_CHEQUE,
HISTORICO = :HISTORICO,
COD_CONTA_MOVTO = :COD_CONTA_MOVTO,
COD_MOVTO = :COD_MOVTO,
DATA_VENCTO = :DATA_VENCTO,
DATA_PAGTO = :DATA_PAGTO,
COD_CHEQUE = :COD_CHEQUE,
COD_CARTAO = :COD_CARTAO,
COD_REC = :COD_REC, 
COD_PAG = :COD_PAG,
COD_ORDEM = :COD_ORDEM,
COD_CAIXA = :COD_CAIXA,
COD_MOV = :COD_MOV,
COD_EMPRESA = :COD_EMPRESA
WHERE (COD_CONTA = :COD_CONTA)
AND (CODIGO = :CODIGO);
IF (OPERACAO = 3) THEN 
DELETE FROM FINANC_MOVTO
WHERE (COD_CONTA = :COD_CONTA)
AND (CODIGO = :CODIGO);
suspend;
end

^


alter table CLIENTE
  ADD FLG_REGIME char(1);

^

update cliente set FLG_REGIME = 'S'

^

create or alter procedure P_CLIENTE (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    FANTASIA varchar(60),
    COD_END integer,
    FONE varchar(20),
    FAX varchar(20),
    CELULAR varchar(20),
    CX_POSTAL varchar(10),
    E_MAIL varchar(60),
    CONTATO varchar(20),
    TIPO_PESSOA char(1),
    CNPJ_CPF varchar(20),
    IE_RG varchar(20),
    DT_CADASTRO date,
    DT_INATIVO date,
    DT_NASC date,
    DT_BLOQUEIO date,
    FLG_BLOQUEIO varchar(20),
    OBS_BLOQUEIO varchar(200),
    OBSERVACAO1 varchar(100),
    OBSERVACAO2 varchar(100),
    RESP_NOME varchar(60),
    RESP_BAIRRO varchar(60),
    RESP_ENDERECO varchar(60),
    RESP_CODCID integer,
    RESP_CEP varchar(10),
    RESP_FONE varchar(20),
    RESP_RG varchar(20),
    RESP_CPF varchar(20),
    RESP_DTNASC date,
    RESP_OBSERV varchar(100),
    PROFISSAO varchar(60),
    LIMITE numeric(15,2),
    OBS_COBRANCA varchar(200),
    FLG_RECEBER char(1),
    COD_EMPRESA integer,
    FLG_LIGAR char(1),
    COD_FUNC integer,
    FOTO varchar(200),
    FLG_FECHAMENTO integer,
    DIAS_PAGTO integer,
    FLG_CLASSIFICA char(1),
    TIPO_FECHAMENTO char(1),
    FLG_JUROS char(1),
    E_MAIL_NFE varchar(60),
    DATA_COBRANCA date,
    DATA_VISITA date,
    COD_CONVENIO integer,
    SENHA varchar(20),
    COD_REGIAO integer,
    FLG_PRAZO varchar(1),
    FLG_NFP char(1),
    SITE_SYNC char(1),
    SITE_COD integer,
    OBS_ADICIONAL varchar(9999),
    FLG_COMISSAO char(1),
    PORC_DESC numeric(15,2),
    FLG_REGIME char(1))
as
begin 
if (operacao = 1) then 
insert into CLIENTE (CODIGO,NOME,FANTASIA,COD_END,FONE,FAX,CELULAR,CX_POSTAL,E_MAIL,CONTATO,TIPO_PESSOA,CNPJ_CPF,IE_RG,DT_CADASTRO, 
DT_INATIVO,DT_NASC,DT_BLOQUEIO,FLG_BLOQUEIO,OBS_BLOQUEIO,OBSERVACAO1,OBSERVACAO2,RESP_NOME,RESP_BAIRRO,RESP_ENDERECO,RESP_CODCID,RESP_CEP,RESP_FONE,RESP_RG,RESP_CPF, 
RESP_DTNASC,RESP_OBSERV,PROFISSAO,LIMITE,OBS_COBRANCA,FLG_RECEBER,COD_EMPRESA,FLG_LIGAR,COD_FUNC,FOTO,FLG_FECHAMENTO,DIAS_PAGTO,FLG_CLASSIFICA,TIPO_FECHAMENTO,FLG_JUROS,E_MAIL_NFE, 
DATA_COBRANCA,DATA_VISITA,COD_CONVENIO,SENHA,COD_REGIAO,FLG_PRAZO,FLG_NFP,SITE_SYNC,SITE_COD,OBS_ADICIONAL,FLG_COMISSAO,PORC_DESC, FLG_REGIME)
values (:CODIGO,:NOME,:FANTASIA,:COD_END,:FONE,:FAX,:CELULAR,:CX_POSTAL,:E_MAIL,:CONTATO,:TIPO_PESSOA,:CNPJ_CPF,:IE_RG,:DT_CADASTRO,:DT_INATIVO,:DT_NASC,:DT_BLOQUEIO, 
:FLG_BLOQUEIO,:OBS_BLOQUEIO,:OBSERVACAO1,:OBSERVACAO2,:RESP_NOME,:RESP_BAIRRO,:RESP_ENDERECO,:RESP_CODCID,:RESP_CEP,:RESP_FONE,:RESP_RG,:RESP_CPF,:RESP_DTNASC, 
:RESP_OBSERV,:PROFISSAO,:LIMITE,:OBS_COBRANCA,:FLG_RECEBER,:COD_EMPRESA,:FLG_LIGAR,:COD_FUNC,:FOTO,:FLG_FECHAMENTO,:DIAS_PAGTO,:FLG_CLASSIFICA,:TIPO_FECHAMENTO,:FLG_JUROS,:E_MAIL_NFE, 
:DATA_COBRANCA,:DATA_VISITA,:COD_CONVENIO,:SENHA,:COD_REGIAO,:FLG_PRAZO,:FLG_NFP,:SITE_SYNC,:SITE_COD,:OBS_ADICIONAL,:FLG_COMISSAO,:PORC_DESC, :FLG_REGIME);
if (operacao = 2) then  
update CLIENTE set 
NOME = :NOME,
FANTASIA = :FANTASIA, 
COD_END = :COD_END,
FONE = :FONE, 
FAX = :FAX, 
CELULAR = :CELULAR,
CX_POSTAL = :CX_POSTAL,  
E_MAIL = :E_MAIL,
CONTATO = :CONTATO, 
TIPO_PESSOA = :TIPO_PESSOA,
CNPJ_CPF = :CNPJ_CPF, 
IE_RG = :IE_RG, 
DT_CADASTRO = :DT_CADASTRO,
DT_INATIVO = :DT_INATIVO, 
DT_NASC = :DT_NASC,  
DT_BLOQUEIO = :DT_BLOQUEIO, 
FLG_BLOQUEIO = :FLG_BLOQUEIO, 
OBS_BLOQUEIO = :OBS_BLOQUEIO, 
OBSERVACAO1 = :OBSERVACAO1,  
OBSERVACAO2 = :OBSERVACAO2, 
RESP_NOME = :RESP_NOME, 
RESP_BAIRRO = :RESP_BAIRRO, 
RESP_ENDERECO = :RESP_ENDERECO, 
RESP_CODCID = :RESP_CODCID, 
RESP_CEP = :RESP_CEP, 
RESP_FONE = :RESP_FONE,
RESP_RG = :RESP_RG,   
RESP_CPF = :RESP_CPF,  
RESP_DTNASC = :RESP_DTNASC, 
RESP_OBSERV = :RESP_OBSERV, 
PROFISSAO = :PROFISSAO, 
LIMITE = :LIMITE, 
OBS_COBRANCA = :OBS_COBRANCA,  
FLG_RECEBER = :FLG_RECEBER, 
COD_EMPRESA = :COD_EMPRESA, 
FLG_LIGAR = :FLG_LIGAR, 
COD_FUNC = :COD_FUNC, 
FOTO = :FOTO, 
FLG_FECHAMENTO =:FLG_FECHAMENTO, 
DIAS_PAGTO = :DIAS_PAGTO, 
FLG_CLASSIFICA = :FLG_CLASSIFICA, 
TIPO_FECHAMENTO = :TIPO_FECHAMENTO, 
FLG_JUROS = :FLG_JUROS, 
E_MAIL_NFE = :E_MAIL_NFE, 
DATA_COBRANCA = :DATA_COBRANCA,
DATA_VISITA = :DATA_VISITA, 
COD_CONVENIO = :COD_CONVENIO,
SENHA = :SENHA,  
COD_REGIAO = :COD_REGIAO,
FLG_PRAZO = :FLG_PRAZO,
FLG_NFP = :FLG_NFP,
SITE_SYNC = :SITE_SYNC, 
SITE_COD  = :SITE_COD, 
OBS_ADICIONAL = :OBS_ADICIONAL,
FLG_COMISSAO = :FLG_COMISSAO,
PORC_DESC = :PORC_DESC,
FLG_REGIME = :FLG_REGIME
where (CODIGO = :CODIGO);
if (operacao = 3) then 
delete from CLIENTE 
where (CODIGO = :CODIGO); 
suspend;
end

^

alter table produto 
  ADD FLG_TRIBUTO char(1);

^

update produto set FLG_TRIBUTO = 'S';

^

create or alter procedure P_PRODUTO (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    COD_GRUPO integer,
    COD_FORNECEDOR integer,
    MARCA varchar(200),
    UNIDADE_ESTOQUE varchar(10),
    UNIDADE_CONVERSAO varchar(10),
    QTD_EMBALAGEM numeric(15,4),
    PORC_LUCRO_V numeric(15,2),
    PORC_LUCRO_P numeric(15,2),
    PORC_ICMS_ISS numeric(15,2),
    PORC_COMISSAO integer,
    COD_CST varchar(10),
    ESTOQUE_INICIAL numeric(15,3),
    ESTOQUE_MINIMO numeric(15,3),
    ESTOQUE_ATUAL numeric(15,3),
    ESTOQUE_FISCAL numeric(15,3),
    COD_TRIB integer,
    COD_TRIB_ENT integer,
    SIT_TRIB varchar(2),
    DT_CADASTRO date,
    FLG_ATIVADO char(1),
    FLG_ESTOQUE char(1),
    FLG_TIPO char(1),
    LOCALIZACAO varchar(60),
    OBSERVACAO varchar(100),
    OBSERVACAO2 varchar(100),
    DT_ALTERACAO date,
    TEMPO_REAL time,
    NCM varchar(20),
    COD_CSOSN integer,
    CONV_PRECO numeric(15,3),
    CST_PIS varchar(3),
    CST_COFINS varchar(3),
    COD_SUBGRUPO integer,
    COD_SUBSUBGRUPO integer,
    ESTOQUE1 numeric(15,3),
    ESTOQUE2 numeric(15,3),
    ESTOQUE3 numeric(15,3),
    ESTOQUE4 numeric(15,3),
    ESTOQUE5 numeric(15,3),
    PORC_PIS numeric(15,2),
    PORC_COFINS numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    DT_VALIDADE date,
    PORC_IPI numeric(15,2),
    PORC_MVA numeric(15,2),
    PESO_BRUTO numeric(15,3),
    PESO_LIQUIDO numeric(15,3),
    FOTO varchar(200),
    ANEXO varchar(100),
    COD_ANP varchar(10),
    LOCALIZACAO2 varchar(60),
    ETIQUETA integer,
    COD_CEST varchar(7),
    COD_EMPRESA integer,
    PORC_DESC numeric(15,2),
    FLG_DESC char(1),
    ESTOQUE_MAXIMO numeric(15,3),
    ESTOQUE_DEMANDA_MEDIA numeric(15,3),
    ESTOQUE_TEMPO_RESUPRI numeric(15,3),
    ESTOQUE_INTERVALO_RESUPRI numeric(15,3),
    COD_DESP integer,
    COD_MARCA integer,
    FLG_SITE char(1),
    FLG_BALANCA char(1),
    SITE_COMPRIMENTO numeric(15,2),
    SITE_LARGURA numeric(15,2),
    SITE_ALTURA numeric(15,2),
    SITE_DESCRICAO varchar(9999),
    SITE_SYNC char(1),
    SITE_COD integer,
    PORC_REDBASE numeric(15,2),
    PONTOS numeric(15,4),
    LOCALIZACAO21 varchar(60),
    LOCALIZACAO22 varchar(60),
    LOCALIZACAO31 varchar(60),
    LOCALIZACAO32 varchar(60),
    LOCALIZACAO41 varchar(60),
    LOCALIZACAO42 varchar(60),
    LOCALIZACAO51 varchar(60),
    LOCALIZACAO52 varchar(60),
    PORC_FCP numeric(15,2),
    FLG_TRIBUTO char(1))
as
begin
if (OPERACAO = 1) then
insert into PRODUTO (CODIGO,NOME,COD_GRUPO,COD_FORNECEDOR,MARCA,UNIDADE_ESTOQUE,UNIDADE_CONVERSAO,QTD_EMBALAGEM,PORC_LUCRO_V,PORC_LUCRO_P,PORC_ICMS_ISS,PORC_COMISSAO,
COD_CST,ESTOQUE_INICIAL,ESTOQUE_MINIMO,ESTOQUE_ATUAL,ESTOQUE_FISCAL,COD_TRIB,COD_TRIB_ENT,SIT_TRIB,DT_CADASTRO,FLG_ATIVADO,FLG_ESTOQUE,FLG_TIPO,LOCALIZACAO,OBSERVACAO,
OBSERVACAO2,DT_ALTERACAO,TEMPO_REAL,NCM,COD_CSOSN,CONV_PRECO,CST_PIS,CST_COFINS,COD_SUBGRUPO,COD_SUBSUBGRUPO,ESTOQUE1,ESTOQUE2,ESTOQUE3,ESTOQUE4,ESTOQUE5,PORC_PIS,PORC_COFINS,
OBS_ADICIONAL,DT_VALIDADE,PORC_IPI,PORC_MVA,PESO_BRUTO,PESO_LIQUIDO,FOTO,ANEXO,COD_ANP,LOCALIZACAO2,ETIQUETA,COD_CEST,COD_EMPRESA,PORC_DESC,FLG_DESC,ESTOQUE_MAXIMO,ESTOQUE_DEMANDA_MEDIA,
ESTOQUE_TEMPO_RESUPRI,ESTOQUE_INTERVALO_RESUPRI,COD_DESP,COD_MARCA,FLG_SITE,FLG_BALANCA,SITE_COMPRIMENTO,SITE_LARGURA,SITE_ALTURA,SITE_DESCRICAO,SITE_SYNC,SITE_COD,PORC_REDBASE,PONTOS,
LOCALIZACAO21,LOCALIZACAO22,LOCALIZACAO31,LOCALIZACAO32,LOCALIZACAO41,LOCALIZACAO42,LOCALIZACAO51,LOCALIZACAO52, PORC_FCP, FLG_TRIBUTO)
values (:CODIGO,:NOME,:COD_GRUPO,:COD_FORNECEDOR,:MARCA,:UNIDADE_ESTOQUE,:UNIDADE_CONVERSAO,:QTD_EMBALAGEM,:PORC_LUCRO_V,:PORC_LUCRO_P,:PORC_ICMS_ISS,:PORC_COMISSAO,:COD_CST,:ESTOQUE_INICIAL,:ESTOQUE_MINIMO,
:ESTOQUE_ATUAL,:ESTOQUE_FISCAL,:COD_TRIB,:COD_TRIB_ENT,:SIT_TRIB,:DT_CADASTRO,:FLG_ATIVADO,:FLG_ESTOQUE,:FLG_TIPO,:LOCALIZACAO,:OBSERVACAO,:OBSERVACAO2,:DT_ALTERACAO,:TEMPO_REAL,:NCM,:COD_CSOSN, 
:CONV_PRECO,:CST_PIS,:CST_COFINS,:COD_SUBGRUPO,:COD_SUBSUBGRUPO,:ESTOQUE1,:ESTOQUE2,:ESTOQUE3,:ESTOQUE4,:ESTOQUE5,:PORC_PIS,:PORC_COFINS,:OBS_ADICIONAL,:DT_VALIDADE,:PORC_IPI,:PORC_MVA,:PESO_BRUTO, 
:PESO_LIQUIDO,:FOTO,:ANEXO,:COD_ANP,:LOCALIZACAO2,:ETIQUETA,:COD_CEST,
:COD_EMPRESA,:PORC_DESC,:FLG_DESC,:ESTOQUE_MAXIMO,:ESTOQUE_DEMANDA_MEDIA,:ESTOQUE_TEMPO_RESUPRI,:ESTOQUE_INTERVALO_RESUPRI,:COD_DESP,:COD_MARCA,:FLG_SITE,:FLG_BALANCA,
:SITE_COMPRIMENTO,:SITE_LARGURA,:SITE_ALTURA,:SITE_DESCRICAO,:SITE_SYNC,:SITE_COD,:PORC_REDBASE,:PONTOS,:LOCALIZACAO21,:LOCALIZACAO22,:LOCALIZACAO31,:LOCALIZACAO32,:LOCALIZACAO41, 
:LOCALIZACAO42,:LOCALIZACAO51,:LOCALIZACAO52,:PORC_FCP, :FLG_TRIBUTO);
if (OPERACAO = 2) then
update PRODUTO set
NOME = :NOME,
COD_GRUPO = :COD_GRUPO,
COD_FORNECEDOR = :COD_FORNECEDOR,
MARCA = :MARCA,
UNIDADE_ESTOQUE = :UNIDADE_ESTOQUE,
UNIDADE_CONVERSAO = :UNIDADE_CONVERSAO,
QTD_EMBALAGEM = :QTD_EMBALAGEM,
PORC_LUCRO_V = :PORC_LUCRO_V,
PORC_LUCRO_P = :PORC_LUCRO_P,
PORC_ICMS_ISS = :PORC_ICMS_ISS,
PORC_COMISSAO = :PORC_COMISSAO,
COD_CST = :COD_CST,
ESTOQUE_INICIAL = :ESTOQUE_INICIAL,
ESTOQUE_MINIMO = :ESTOQUE_MINIMO, 
ESTOQUE_ATUAL = :ESTOQUE_ATUAL,
ESTOQUE_FISCAL = :ESTOQUE_FISCAL, 
COD_TRIB = :COD_TRIB,
COD_TRIB_ENT = :COD_TRIB_ENT,
SIT_TRIB = :SIT_TRIB,
DT_CADASTRO = :DT_CADASTRO,
FLG_ATIVADO = :FLG_ATIVADO,
FLG_ESTOQUE = :FLG_ESTOQUE,
FLG_TIPO = :FLG_TIPO,
LOCALIZACAO = :LOCALIZACAO,
OBSERVACAO = :OBSERVACAO,
OBSERVACAO2 = :OBSERVACAO2,
DT_ALTERACAO = :DT_ALTERACAO,
TEMPO_REAL = :TEMPO_REAL,
NCM = :NCM,
COD_CSOSN = :COD_CSOSN, 
CONV_PRECO = :CONV_PRECO,
CST_PIS = :CST_PIS,
CST_COFINS = :CST_COFINS,
COD_SUBGRUPO = :COD_SUBGRUPO,
COD_SUBSUBGRUPO = :COD_SUBSUBGRUPO,
ESTOQUE1 = :ESTOQUE1,
ESTOQUE2 = :ESTOQUE2,
ESTOQUE3 = :ESTOQUE3,
ESTOQUE4 = :ESTOQUE4,
ESTOQUE5 = :ESTOQUE5,
PORC_PIS = :PORC_PIS,
PORC_COFINS = :PORC_COFINS,
OBS_ADICIONAL = :OBS_ADICIONAL,
DT_VALIDADE = :DT_VALIDADE,
PORC_IPI = :PORC_IPI,
PORC_MVA = :PORC_MVA,
PESO_BRUTO = :PESO_BRUTO,
PESO_LIQUIDO = :PESO_LIQUIDO,
FOTO = :FOTO,
ANEXO = :ANEXO,
COD_ANP = :COD_ANP,
LOCALIZACAO2 = :LOCALIZACAO2,
ETIQUETA = :ETIQUETA,
COD_CEST = :COD_CEST,
COD_EMPRESA = :COD_EMPRESA,
PORC_DESC = :PORC_DESC,
FLG_DESC = :FLG_DESC,
ESTOQUE_MAXIMO = :ESTOQUE_MAXIMO,
ESTOQUE_DEMANDA_MEDIA = :ESTOQUE_DEMANDA_MEDIA,
ESTOQUE_TEMPO_RESUPRI = :ESTOQUE_TEMPO_RESUPRI,
ESTOQUE_INTERVALO_RESUPRI = :ESTOQUE_INTERVALO_RESUPRI,
COD_DESP = :COD_DESP,
COD_MARCA = :COD_MARCA,
FLG_SITE = :FLG_SITE,
FLG_BALANCA = :FLG_BALANCA,
SITE_COMPRIMENTO = :SITE_COMPRIMENTO,
SITE_LARGURA = :SITE_LARGURA,
SITE_ALTURA = :SITE_ALTURA,
SITE_DESCRICAO = :SITE_DESCRICAO,
SITE_SYNC = :SITE_SYNC,
SITE_COD = :SITE_COD,
PORC_REDBASE = :PORC_REDBASE,
PONTOS = :PONTOS,
LOCALIZACAO21 = :LOCALIZACAO21,
LOCALIZACAO22 = :LOCALIZACAO22,
LOCALIZACAO31 = :LOCALIZACAO31,
LOCALIZACAO32 = :LOCALIZACAO32,
LOCALIZACAO41 = :LOCALIZACAO41,
LOCALIZACAO42 = :LOCALIZACAO42,
LOCALIZACAO51 = :LOCALIZACAO51,
LOCALIZACAO52 = :LOCALIZACAO52,
PORC_FCP = :PORC_FCP,
FLG_TRIBUTO = :FLG_TRIBUTO
where (CODIGO = :CODIGO);
if (OPERACAO = 3) then
delete from PRODUTO 
where (CODIGO = :CODIGO);
suspend;
end

^

alter table TRIBUTO
  ADD DADOS_ADICIONAIS varchar(300),
  ADD FLG_CONSUMO char(1),  
  ADD FLG_ATIVADO char(1),
  ADD FLG_REGIME char(2);

^

create or alter procedure P_TRIBUTO (
    OPERACAO integer,
    CODIGO integer,
    CFOP_DENTRO varchar(7),
    CFOP_FORA varchar(7),
    FLG_ES char(1),
    NATUREZA varchar(60),
    FLG_TIPO integer,
    DADOS_ADICIONAIS varchar(300),
    FLG_CONSUMO char(1),
    FLG_ATIVADO char(1),
    FLG_REGIME char(2))
as
begin
  if (operacao = 1) then
     insert into TRIBUTO (CODIGO, CFOP_DENTRO, CFOP_FORA, FLG_ES, NATUREZA, FLG_TIPO, DADOS_ADICIONAIS, FLG_CONSUMO, FLG_ATIVADO, FLG_REGIME)
     values (:CODIGO, :CFOP_DENTRO, :CFOP_FORA, :FLG_ES, :NATUREZA, :FLG_TIPO, :DADOS_ADICIONAIS, :FLG_CONSUMO, :FLG_ATIVADO, :FLG_REGIME);

  if (operacao = 2) then
     update TRIBUTO set 
     CFOP_DENTRO = :CFOP_DENTRO,
     CFOP_FORA = :CFOP_FORA,
     FLG_ES = :FLG_ES,
     NATUREZA = :NATUREZA,
     FLG_TIPO = :FLG_TIPO,
     DADOS_ADICIONAIS = :DADOS_ADICIONAIS,
     FLG_CONSUMO = :FLG_CONSUMO,
     FLG_ATIVADO = :FLG_ATIVADO,
     FLG_REGIME = :FLG_REGIME
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from TRIBUTO
     where (CODIGO = :CODIGO);

  suspend;
end

^

update RDB$FIELDS set
RDB$FIELD_LENGTH = 2000,
RDB$CHARACTER_LENGTH = 2000
where RDB$FIELD_NAME = 'RDB$7526'

^

CREATE OR ALTER procedure P_TRIBUTO (
    OPERACAO integer,
    CODIGO integer,
    CFOP_DENTRO varchar(7),
    CFOP_FORA varchar(7),
    FLG_ES char(1),
    NATUREZA varchar(60),
    FLG_TIPO integer,
    DADOS_ADICIONAIS varchar(2000),
    FLG_CONSUMO char(1),
    FLG_ATIVADO char(1),
    FLG_REGIME char(2))
as
begin
  if (operacao = 1) then
     insert into TRIBUTO (CODIGO, CFOP_DENTRO, CFOP_FORA, FLG_ES, NATUREZA, FLG_TIPO, DADOS_ADICIONAIS, FLG_CONSUMO, FLG_ATIVADO, FLG_REGIME)
     values (:CODIGO, :CFOP_DENTRO, :CFOP_FORA, :FLG_ES, :NATUREZA, :FLG_TIPO, :DADOS_ADICIONAIS, :FLG_CONSUMO, :FLG_ATIVADO, :FLG_REGIME);

  if (operacao = 2) then
     update TRIBUTO set 
     CFOP_DENTRO = :CFOP_DENTRO,
     CFOP_FORA = :CFOP_FORA,
     FLG_ES = :FLG_ES,
     NATUREZA = :NATUREZA,
     FLG_TIPO = :FLG_TIPO,
     DADOS_ADICIONAIS = :DADOS_ADICIONAIS,
     FLG_CONSUMO = :FLG_CONSUMO,
     FLG_ATIVADO = :FLG_ATIVADO,
     FLG_REGIME = :FLG_REGIME
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from TRIBUTO
     where (CODIGO = :CODIGO);

  suspend;
end

^

create table TRIB_REGRAS (
    CODIGO integer primary key,
    COD_TRIB integer, 
    UF char(2),
    TIPO varchar(10),
    CFOP varchar(10),
    CST INTEGER,
    CSOSN INTEGER,
    ALIQUOTA numeric(15,2),
    BASE numeric(15,2),
    PORC_MVA numeric(15,2),
    PORC_REDBASE_ST numeric(15,2),
    ALIQUOTA_ST numeric(15,2),
    MODALIDADE varchar(30),
    PORC_REDBASE numeric(15,2),
    PORC_FCP numeric(15,2),
    FLG_FRETE_IPI char(1));

^

Alter Table trib_regras
    ADD constraint fk_COD_TRIB
    foreign key(COD_TRIB) references tributo (CODIGO);

^

Create or alter PROCEDURE P_TRIB_REGRAS(
    OPERACAO INTEGER,
    CODIGO INTEGER,
    COD_TRIB INTEGER,
    UF CHAR(2),
    TIPO VARCHAR(10),
    CFOP VARCHAR(10),
    CST Integer,
    CSOSN Integer,
    ALIQUOTA NUMERIC(15,2),
    BASE NUMERIC(15,2),
    PORC_MVA NUMERIC(15,2),
    PORC_REDBASE_ST NUMERIC(15,2),
    ALIQUOTA_ST NUMERIC(15,2),
    MODALIDADE VARCHAR(30),
    PORC_REDBASE NUMERIC(15,2),
    PORC_FCP NUMERIC(15,2),
    FLG_FRETE_IPI CHAR(1))
AS
begin 
if (operacao = 1) then 
insert into TRIB_REGRAS (CODIGO, COD_TRIB, UF, TIPO, CFOP, CST, CSOSN, ALIQUOTA, BASE, PORC_MVA, PORC_REDBASE_ST, ALIQUOTA_ST, MODALIDADE, PORC_REDBASE, PORC_FCP, FLG_FRETE_IPI)
values (:CODIGO, :COD_TRIB, :UF, :TIPO, :CFOP, :CST, :CSOSN, :ALIQUOTA, :BASE, :PORC_MVA, :PORC_REDBASE_ST, :ALIQUOTA_ST,:MODALIDADE, :PORC_REDBASE, :PORC_FCP, :FLG_FRETE_IPI);
if (operacao = 2) then  
update TRIB_REGRAS set
COD_TRIB = :COD_TRIB,
UF = :UF,
TIPO = :TIPO,
CFOP = :CFOP,
CST = :CST,
CSOSN = :CSOSN ,
ALIQUOTA = :ALIQUOTA,
BASE = :BASE,
PORC_MVA = :PORC_MVA,
PORC_REDBASE_ST = :PORC_REDBASE_ST,
ALIQUOTA_ST = :ALIQUOTA_ST,
MODALIDADE = :MODALIDADE,
PORC_REDBASE = :PORC_REDBASE,
PORC_FCP = :PORC_FCP,
FLG_FRETE_IPI = :FLG_FRETE_IPI
where (CODIGO = :CODIGO);
if (operacao = 3) then 
delete from TRIB_REGRAS
where (CODIGO = :CODIGO); 
suspend;
end

^

CREATE OR ALTER TRIGGER TRG_TRIB_REGRAS FOR TRIB_REGRAS
ACTIVE BEFORE INSERT POSITION 0
AS
declare variable cod integer;
begin
 select max(CODIGO) from TRIB_REGRAS into :cod;
if (cod is null) then cod = 0;
new.codigo = cod + 1;
end

^

ALTER TABLE TRIB_REGRAS
    ADD PISCOF_ST CHAR(1),
	ADD ORIG_CST VARCHAR(50)

^	
	
CREATE OR ALTER procedure P_TRIB_REGRAS (
    OPERACAO integer,
    CODIGO integer,
    COD_TRIB integer,
    UF char(2),
    TIPO varchar(10),
    CFOP varchar(10),
    CST varchar(20),
    CSOSN varchar(20),
    ALIQUOTA numeric(15,2),
    BASE numeric(15,2),
    PORC_MVA numeric(15,2),
    PORC_REDBASE_ST numeric(15,2),
    ALIQUOTA_ST numeric(15,2),
    MODALIDADE varchar(30),
    PORC_REDBASE numeric(15,2),
    PORC_FCP numeric(15,2),
    FLG_FRETE_IPI char(1),
    PISCOF_ST char(1),
	ORIG_CST VARCHAR(50))
as
begin 
if (operacao = 1) then 
insert into TRIB_REGRAS (CODIGO, COD_TRIB, UF, TIPO, CFOP, CST, CSOSN, ALIQUOTA, BASE, PORC_MVA, PORC_REDBASE_ST, ALIQUOTA_ST, MODALIDADE, PORC_REDBASE, PORC_FCP, FLG_FRETE_IPI, PISCOF_ST, ORIG_CST)
values (:CODIGO, :COD_TRIB, :UF, :TIPO, :CFOP, :CST, :CSOSN, :ALIQUOTA, :BASE, :PORC_MVA, :PORC_REDBASE_ST, :ALIQUOTA_ST,:MODALIDADE, :PORC_REDBASE, :PORC_FCP, :FLG_FRETE_IPI, :PISCOF_ST, :ORIG_CST);
if (operacao = 2) then  
update TRIB_REGRAS set
COD_TRIB = :COD_TRIB,
UF = :UF,
TIPO = :TIPO,
CFOP = :CFOP,
CST = :CST,
CSOSN = :CSOSN ,
ALIQUOTA = :ALIQUOTA,
BASE = :BASE,
PORC_MVA = :PORC_MVA,
PORC_REDBASE_ST = :PORC_REDBASE_ST,
ALIQUOTA_ST = :ALIQUOTA_ST,
MODALIDADE = :MODALIDADE,
PORC_REDBASE = :PORC_REDBASE,
PORC_FCP = :PORC_FCP,
FLG_FRETE_IPI = :FLG_FRETE_IPI,
PISCOF_ST = :PISCOF_ST,
ORIG_CST = :ORIG_CST
where (CODIGO = :CODIGO);
if (operacao = 3) then 
delete from TRIB_REGRAS
where (CODIGO = :CODIGO); 
suspend;
end		
	
^

alter table movit
    ADD COD_TRIB_REGRA integer;

^

ALTER TABLE MOVIT
ADD CONSTRAINT FK_COD_TRIB_REGRA
FOREIGN KEY (COD_TRIB_REGRA) REFERENCES TRIB_REGRAS (CODIGO);

^

create or alter procedure P_MOVIT (
    OPERACAO integer,
    CODMOV integer,
    ITEM integer,
    COD_PROD integer,
    QUANT numeric(15,3),
    QUANT_NF numeric(15,3),
    VLR_UNIT numeric(15,4),
    PRECO_NF numeric(15,4),
    VLR_TOTAL numeric(15,2),
    TOTAL_NF numeric(15,2),
    PORC_QUANT numeric(15,2),
    PORC_PRECO numeric(15,2),
    UNIDADE varchar(10),
    COD_TRIB integer,
    COD_CFOP varchar(7),
    OBSERV varchar(100),
    BASE_ICMS numeric(15,2),
    TAXA_ICMS numeric(15,2),
    VLR_ICMS numeric(15,2),
    BASE_SUBST numeric(15,2),
    TAXA_SUBST numeric(15,2),
    VLR_SUBST numeric(15,2),
    VLR_IPI numeric(15,2),
    TAXA_IPI numeric(15,2),
    VLR_ISS numeric(15,2),
    TAXA_ISS numeric(15,2),
    DIFER_ICMS numeric(15,2),
    COD_VENDEDOR integer,
    COD_INSTALADOR integer,
    COD_UNID integer,
    OBSERV2 varchar(60),
    OBSERV3 varchar(60),
    OBSERV4 varchar(60),
    OBSERV5 varchar(60),
    OBSERV6 varchar(60),
    OBSERV7 varchar(60),
    COD_FORPROD integer,
    DATA date,
    VLR_IMPORT numeric(15,2),
    BASE_IMPORT numeric(15,2),
    COD_LOTE integer,
    COD_TRIB_REGRA integer)
as
begin  
 if (operacao = 1) then  
 insert into MOVIT (CODMOV,ITEM,COD_PROD,QUANT,QUANT_NF,VLR_UNIT,PRECO_NF,VLR_TOTAL,TOTAL_NF,PORC_QUANT,PORC_PRECO,UNIDADE,COD_TRIB,COD_CFOP,OBSERV,  
BASE_ICMS,TAXA_ICMS,VLR_ICMS,BASE_SUBST,TAXA_SUBST,VLR_SUBST,VLR_IPI,TAXA_IPI,VLR_ISS,TAXA_ISS,DIFER_ICMS,COD_VENDEDOR,COD_INSTALADOR,COD_UNID,OBSERV2,    
OBSERV3,OBSERV4,OBSERV5,OBSERV6,OBSERV7,COD_FORPROD,DATA,VLR_IMPORT,BASE_IMPORT,COD_LOTE, COD_TRIB_REGRA)
 values (:CODMOV,:ITEM,:COD_PROD,:QUANT,:QUANT_NF,:VLR_UNIT,:PRECO_NF,:VLR_TOTAL,:TOTAL_NF,:PORC_QUANT,:PORC_PRECO,:UNIDADE,:COD_TRIB,:COD_CFOP,   
:OBSERV,:BASE_ICMS,:TAXA_ICMS,:VLR_ICMS,:BASE_SUBST,:TAXA_SUBST,:VLR_SUBST,:VLR_IPI,:TAXA_IPI,:VLR_ISS,:TAXA_ISS,:DIFER_ICMS,:COD_VENDEDOR,:COD_INSTALADOR,    
:COD_UNID,:OBSERV2,:OBSERV3,:OBSERV4,:OBSERV5,:OBSERV6,:OBSERV7,:COD_FORPROD,:DATA,:VLR_IMPORT,:BASE_IMPORT,:COD_LOTE,:COD_TRIB_REGRA);
 if (operacao = 2) then  
update MOVIT set 
COD_PROD = :COD_PROD,
QUANT = :QUANT,
QUANT_NF = :QUANT_NF,
VLR_UNIT = :VLR_UNIT,
PRECO_NF = :PRECO_NF,
VLR_TOTAL = :VLR_TOTAL,
TOTAL_NF = :TOTAL_NF,
PORC_QUANT = :PORC_QUANT,
PORC_PRECO = :PORC_PRECO,
UNIDADE = :UNIDADE,
COD_TRIB = :COD_TRIB,
COD_CFOP = :COD_CFOP,
OBSERV = :OBSERV,
BASE_ICMS = :BASE_ICMS,
TAXA_ICMS = :TAXA_ICMS,
VLR_ICMS = :VLR_ICMS,
BASE_SUBST = :BASE_SUBST,
TAXA_SUBST = :TAXA_SUBST,
VLR_SUBST = :VLR_SUBST,
VLR_IPI = :VLR_IPI,
TAXA_IPI = :TAXA_IPI,
VLR_ISS = :VLR_ISS,
TAXA_ISS = :TAXA_ISS,
DIFER_ICMS = :DIFER_ICMS,
COD_VENDEDOR = :COD_VENDEDOR,
COD_INSTALADOR = :COD_INSTALADOR,
COD_UNID = :COD_UNID,
OBSERV2 = :OBSERV2,
OBSERV3 = :OBSERV3,
OBSERV4 = :OBSERV4,
OBSERV5 = :OBSERV5,
OBSERV6 = :OBSERV6,
OBSERV7 = :OBSERV7,
COD_FORPROD = :COD_FORPROD,
DATA = :DATA,
VLR_IMPORT = :VLR_IMPORT,
BASE_IMPORT = :BASE_IMPORT, 
COD_LOTE = :COD_LOTE,
COD_TRIB_REGRA = :COD_TRIB_REGRA
where (CODMOV = :CODMOV)
and (ITEM = :ITEM);
if (operacao = 3) then 
delete from MOVIT      
where (CODMOV = :CODMOV)  
and (ITEM = :ITEM);  
   suspend;    
   end

^

ALTER TABLE MOVIT
    ADD CST_ICMS VARCHAR(20),
    ADD CSOSN VARCHAR(20),
    ADD TAXA_MVA NUMERIC(15,2),
    ADD CST_PIS VARCHAR(10),
    ADD CST_COFINS VARCHAR(10),
    ADD TAXA_PIS NUMERIC(15,2),
    ADD TAXA_COFINS NUMERIC(15,2),
    ADD CST_IPI VARCHAR(10),
    ADD VLR_PIS NUMERIC(15,2),
    ADD VLR_COFINS NUMERIC(15,2),
    ADD RED_BASE_ICMS NUMERIC(15,2),
    ADD RED_BASE_SUBST NUMERIC(15,2),
    ADD TAXA_FCP_ICMS NUMERIC(15,2),
    ADD TAXA_FCP_SUBST NUMERIC(15,2),
    ADD BASE_PIS NUMERIC(15,2),
    ADD BASE_COFINS NUMERIC(15,2),
	ADD MOD_SUBST VARCHAR(30),
	ADD ORIG_CST VARCHAR(50),
	ADD PISCOF_ST CHAR(1) 
	
^	
	
CREATE OR ALTER procedure P_MOVIT (
    OPERACAO integer,
    CODMOV integer,
    ITEM integer,
    COD_PROD integer,
    QUANT numeric(15,3),
    QUANT_NF numeric(15,3),
    VLR_UNIT numeric(15,4),
    PRECO_NF numeric(15,4),
    VLR_TOTAL numeric(15,2),
    TOTAL_NF numeric(15,2),
    PORC_QUANT numeric(15,2),
    PORC_PRECO numeric(15,2),
    UNIDADE varchar(10),
    COD_TRIB integer,
    COD_CFOP varchar(7),
    OBSERV varchar(100),
    BASE_ICMS numeric(15,2),
    TAXA_ICMS numeric(15,2),
    VLR_ICMS numeric(15,2),
    BASE_SUBST numeric(15,2),
    TAXA_SUBST numeric(15,2),
    VLR_SUBST numeric(15,2),
    VLR_IPI numeric(15,2),
    TAXA_IPI numeric(15,2),
    VLR_ISS numeric(15,2),
    TAXA_ISS numeric(15,2),
    DIFER_ICMS numeric(15,2),
    COD_VENDEDOR integer,
    COD_INSTALADOR integer,
    COD_UNID integer,
    OBSERV2 varchar(60),
    OBSERV3 varchar(60),
    OBSERV4 varchar(60),
    OBSERV5 varchar(60),
    OBSERV6 varchar(60),
    OBSERV7 varchar(60),
    COD_FORPROD integer,
    DATA date,
    VLR_IMPORT numeric(15,2),
    BASE_IMPORT numeric(15,2),
    COD_LOTE integer,
    COD_TRIB_REGRA integer,
    CST_ICMS varchar(20),
    CSOSN varchar(20),
    TAXA_MVA numeric(15,2),
    CST_PIS varchar(10),
    CST_COFINS varchar(10),
    TAXA_PIS numeric(15,2),
    TAXA_COFINS numeric(15,2),
    CST_IPI varchar(10),
    VLR_PIS numeric(15,2),
    VLR_COFINS numeric(15,2),
    RED_BASE_ICMS numeric(15,2),
    RED_BASE_SUBST numeric(15,2),
    TAXA_FCP_ICMS numeric(15,2),
    TAXA_FCP_SUBST numeric(15,2),
    BASE_PIS numeric(15,2),
    BASE_COFINS numeric(15,2),
    MOD_SUBST varchar(30),
    ORIG_CST varchar(50),
    PISCOF_ST CHAR(1))
as
begin  
 if (operacao = 1) then  
 insert into MOVIT (CODMOV,ITEM,COD_PROD,QUANT,QUANT_NF,VLR_UNIT,PRECO_NF,VLR_TOTAL,TOTAL_NF,PORC_QUANT,PORC_PRECO,UNIDADE,COD_TRIB,COD_CFOP,OBSERV,  
BASE_ICMS,TAXA_ICMS,VLR_ICMS,BASE_SUBST,TAXA_SUBST,VLR_SUBST,VLR_IPI,TAXA_IPI,VLR_ISS,TAXA_ISS,DIFER_ICMS,COD_VENDEDOR,COD_INSTALADOR,COD_UNID,OBSERV2,    
OBSERV3,OBSERV4,OBSERV5,OBSERV6,OBSERV7,COD_FORPROD,DATA,VLR_IMPORT,BASE_IMPORT,COD_LOTE, COD_TRIB_REGRA,CST_ICMS,CSOSN,TAXA_MVA,CST_PIS,CST_COFINS,TAXA_PIS,TAXA_COFINS,CST_IPI,VLR_PIS,VLR_COFINS,RED_BASE_ICMS,RED_BASE_SUBST,TAXA_FCP_ICMS,TAXA_FCP_SUBST,BASE_PIS,BASE_COFINS,MOD_SUBST,ORIG_CST, PISCOF_ST)
 values (:CODMOV,:ITEM,:COD_PROD,:QUANT,:QUANT_NF,:VLR_UNIT,:PRECO_NF,:VLR_TOTAL,:TOTAL_NF,:PORC_QUANT,:PORC_PRECO,:UNIDADE,:COD_TRIB,:COD_CFOP,   
:OBSERV,:BASE_ICMS,:TAXA_ICMS,:VLR_ICMS,:BASE_SUBST,:TAXA_SUBST,:VLR_SUBST,:VLR_IPI,:TAXA_IPI,:VLR_ISS,:TAXA_ISS,:DIFER_ICMS,:COD_VENDEDOR,:COD_INSTALADOR,    
:COD_UNID,:OBSERV2,:OBSERV3,:OBSERV4,:OBSERV5,:OBSERV6,:OBSERV7,:COD_FORPROD,:DATA,:VLR_IMPORT,:BASE_IMPORT,:COD_LOTE,:COD_TRIB_REGRA,:CST_ICMS,:CSOSN,:TAXA_MVA,:CST_PIS,:CST_COFINS,:TAXA_PIS,:TAXA_COFINS,:CST_IPI,:VLR_PIS,:VLR_COFINS,:RED_BASE_ICMS,:RED_BASE_SUBST,:TAXA_FCP_ICMS,:TAXA_FCP_SUBST,:BASE_PIS,:BASE_COFINS,:MOD_SUBST,:ORIG_CST, :PISCOF_ST);
 if (operacao = 2) then  
update MOVIT set 
COD_PROD = :COD_PROD,
QUANT = :QUANT,
QUANT_NF = :QUANT_NF,
VLR_UNIT = :VLR_UNIT,
PRECO_NF = :PRECO_NF,
VLR_TOTAL = :VLR_TOTAL,
TOTAL_NF = :TOTAL_NF,
PORC_QUANT = :PORC_QUANT,
PORC_PRECO = :PORC_PRECO,
UNIDADE = :UNIDADE,
COD_TRIB = :COD_TRIB,
COD_CFOP = :COD_CFOP,
OBSERV = :OBSERV,
BASE_ICMS = :BASE_ICMS,
TAXA_ICMS = :TAXA_ICMS,
VLR_ICMS = :VLR_ICMS,
BASE_SUBST = :BASE_SUBST,
TAXA_SUBST = :TAXA_SUBST,
VLR_SUBST = :VLR_SUBST,
VLR_IPI = :VLR_IPI,
TAXA_IPI = :TAXA_IPI,
VLR_ISS = :VLR_ISS,
TAXA_ISS = :TAXA_ISS,
DIFER_ICMS = :DIFER_ICMS,
COD_VENDEDOR = :COD_VENDEDOR,
COD_INSTALADOR = :COD_INSTALADOR,
COD_UNID = :COD_UNID,
OBSERV2 = :OBSERV2,
OBSERV3 = :OBSERV3,
OBSERV4 = :OBSERV4,
OBSERV5 = :OBSERV5,
OBSERV6 = :OBSERV6,
OBSERV7 = :OBSERV7,
COD_FORPROD = :COD_FORPROD,
DATA = :DATA,
VLR_IMPORT = :VLR_IMPORT,
BASE_IMPORT = :BASE_IMPORT, 
COD_LOTE = :COD_LOTE,
COD_TRIB_REGRA = :COD_TRIB_REGRA,
CST_ICMS = :CST_ICMS,
CSOSN = :CSOSN,
TAXA_MVA = :TAXA_MVA,
CST_PIS = :CST_PIS,
CST_COFINS = :CST_COFINS,
TAXA_PIS = :TAXA_PIS,
TAXA_COFINS = :TAXA_COFINS,
CST_IPI = :CST_IPI,
VLR_PIS = :VLR_PIS,
VLR_COFINS = :VLR_COFINS,
RED_BASE_ICMS = :RED_BASE_ICMS,
RED_BASE_SUBST = :RED_BASE_SUBST,
TAXA_FCP_ICMS = :TAXA_FCP_ICMS,
TAXA_FCP_SUBST = :TAXA_FCP_SUBST,
BASE_PIS = :BASE_PIS,
BASE_COFINS = :BASE_COFINS,
MOD_SUBST = :MOD_SUBST,
ORIG_CST = :ORIG_CST,
PISCOF_ST = :PISCOF_ST
where (CODMOV = :CODMOV)
and (ITEM = :ITEM);
if (operacao = 3) then 
delete from MOVIT      
where (CODMOV = :CODMOV)  
and (ITEM = :ITEM);  
   suspend;    
   end

^

CREATE OR ALTER procedure P_MOVTO (
    OPERACAO integer,
    CODIGO integer,
    FLG_CODMOV integer,
    DATA date,
    NOTA_FISCAL integer,
    SERIE integer,
    CUPOM_FISCAL integer,
    NRO_ECF integer,
    DATA_SAIDA date,
    COD_CLI integer,
    COD_FOR integer,
    COD_FUNC integer,
    COD_TRIB integer,
    COD_END_CLI integer,
    VLR_DESC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_FRETE numeric(15,2),
    PORC_FRETE numeric(15,3),
    VLR_TOTAL numeric(15,2),
    TOTAL_NF numeric(15,2),
    TIPO_RECEB integer,
    OBSERV1 varchar(400),
    OBSERV2 varchar(100),
    OBSERV3 varchar(100),
    TRANS_NOME varchar(60),
    TRANS_END varchar(60),
    TRANS_CIDADE varchar(60),
    TRANS_CIDADEUF varchar(2),
    TRANS_PLACA varchar(10),
    TRANS_PLACAUF varchar(2),
    TRANS_FRETE integer,
    TRANS_CNPJ_CPF varchar(20),
    TRANS_IE_RG varchar(20),
    CODREC_DEVOLUCAO integer,
    COD_CAIXA integer,
    FLG_CANCEL char(1),
    MOTIVO_CANCEL varchar(60),
    NF_DATA date,
    NF_DATA_SAIDA date,
    NF_HORA time,
    NF_CPF varchar(20),
    PLACA varchar(10),
    DATA_ENTREGA date,
    FLG_ABERTO char(1),
    VLR_DINH numeric(15,2),
    VLR_CHVISTA numeric(15,2),
    VLR_CHPRE numeric(15,2),
    VLR_CARTAO numeric(15,2),
    NFE_NRO integer,
    NFE_STATUS varchar(60),
    NFE_CAMINHO varchar(60),
    NFE_CHAVE varchar(60),
    NFE_OBSERV varchar(60),
    VLR_DEBITO numeric(15,2),
    VLR_PRAZO numeric(15,2),
    VLR_OUTROS numeric(15,2),
    COD_EMPRESA integer,
    NOME_VEICULO varchar(400),
    VOL_QUANT varchar(20),
    VOL_ESPECIE varchar(20),
    VOL_MARCA varchar(20),
    VOL_NRO varchar(20),
    VOL_BRUTO varchar(20),
    VOL_LIQUIDO varchar(20),
    NFE_REF1 varchar(60),
    NFE_REF2 varchar(60),
    NFE_REF3 varchar(60),
    COD_MAO_OBRA integer,
    SAT_NRO integer,
    SAT_STATUS varchar(20),
    SAT_CAMINHO varchar(60),
    SAT_CHAVE varchar(60),
    DT_COMISSAO date,
    NF_NOME varchar(60),
    COD_CONVENIO integer,
    COD_MESA integer,
    COD_PARCELA integer,
    FLG_PRECO char(1),
    LOCAL_DESEMB varchar(200),
    UF_DESEMB varchar(2),
    NRO_DI varchar(20),
    DT_DI date,
    COD_EXPORT integer,
    COD_FABRIC integer,
    TP_TRANS integer,
    NFE_REF4 varchar(60),
    VLR_IMPORT numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    FLG_PROCEDE char(1),
    ROMANEIO_NRO integer,
    ROMANEIO_DATA date,
    TOKEN varchar(256),
    CODMARKET integer,
    VLR_PIX numeric(15,2),
    NFE_DADOS blob sub_type 0 segment size 80,
    FLG_EXC char(1),
    NFE_SERIE integer)
as
begin
if (operacao = 1) then
insert into MOVTO (CODIGO,FLG_CODMOV,DATA,NOTA_FISCAL,SERIE,CUPOM_FISCAL,NRO_ECF,DATA_SAIDA,COD_CLI,COD_FOR,COD_FUNC,COD_TRIB,COD_END_CLI,VLR_DESC,VLR_ACRES,VLR_FRETE,PORC_FRETE,
VLR_TOTAL,TOTAL_NF,TIPO_RECEB,OBSERV1,OBSERV2,OBSERV3,TRANS_NOME,TRANS_END,TRANS_CIDADE,TRANS_CIDADEUF,TRANS_PLACA,TRANS_PLACAUF,TRANS_FRETE,TRANS_CNPJ_CPF,TRANS_IE_RG,CODREC_DEVOLUCAO,
COD_CAIXA,FLG_CANCEL,MOTIVO_CANCEL,NF_DATA,NF_DATA_SAIDA,NF_HORA,NF_CPF,PLACA,DATA_ENTREGA,FLG_ABERTO,VLR_DINH,VLR_CHVISTA,VLR_CHPRE,VLR_CARTAO,NFE_NRO,NFE_STATUS,NFE_CAMINHO,
NFE_CHAVE,NFE_OBSERV,VLR_DEBITO,VLR_PRAZO,VLR_OUTROS,COD_EMPRESA,NOME_VEICULO,VOL_QUANT,VOL_ESPECIE,VOL_MARCA,VOL_NRO,VOL_BRUTO,VOL_LIQUIDO,NFE_REF1,NFE_REF2,NFE_REF3,COD_MAO_OBRA,SAT_NRO,SAT_STATUS,SAT_CAMINHO,SAT_CHAVE,
DT_COMISSAO,NF_NOME,COD_CONVENIO,COD_MESA,COD_PARCELA,FLG_PRECO,LOCAL_DESEMB,UF_DESEMB,NRO_DI,DT_DI,COD_EXPORT,COD_FABRIC,TP_TRANS,NFE_REF4,VLR_IMPORT,OBS_ADICIONAL,FLG_PROCEDE,ROMANEIO_NRO,ROMANEIO_DATA,TOKEN, CODMARKET, VLR_PIX, NFE_DADOS, FLG_EXC, NFE_SERIE)
values (:CODIGO,:FLG_CODMOV,:DATA,:NOTA_FISCAL,:SERIE,:CUPOM_FISCAL,:NRO_ECF,:DATA_SAIDA,:COD_CLI,:COD_FOR,:COD_FUNC,:COD_TRIB,:COD_END_CLI,:VLR_DESC,:VLR_ACRES,:VLR_FRETE,
:PORC_FRETE,:VLR_TOTAL,:TOTAL_NF,:TIPO_RECEB,:OBSERV1,:OBSERV2,:OBSERV3,:TRANS_NOME,:TRANS_END,:TRANS_CIDADE,:TRANS_CIDADEUF,:TRANS_PLACA,:TRANS_PLACAUF,:TRANS_FRETE,
:TRANS_CNPJ_CPF,:TRANS_IE_RG,:CODREC_DEVOLUCAO,:COD_CAIXA,:FLG_CANCEL,:MOTIVO_CANCEL,:NF_DATA,:NF_DATA_SAIDA,:NF_HORA,:NF_CPF,:PLACA,:DATA_ENTREGA,:FLG_ABERTO,
:VLR_DINH,:VLR_CHVISTA,:VLR_CHPRE,:VLR_CARTAO,:NFE_NRO,:NFE_STATUS,:NFE_CAMINHO,:NFE_CHAVE,:NFE_OBSERV,:VLR_DEBITO,:VLR_PRAZO,:VLR_OUTROS,:COD_EMPRESA,:NOME_VEICULO,
:VOL_QUANT,:VOL_ESPECIE,:VOL_MARCA,:VOL_NRO,:VOL_BRUTO,:VOL_LIQUIDO,:NFE_REF1,:NFE_REF2,:NFE_REF3,:COD_MAO_OBRA,:SAT_NRO,:SAT_STATUS,:SAT_CAMINHO,:SAT_CHAVE,:DT_COMISSAO,:NF_NOME,:COD_CONVENIO,:COD_MESA,:COD_PARCELA,:FLG_PRECO,
:LOCAL_DESEMB,:UF_DESEMB,:NRO_DI,:DT_DI,:COD_EXPORT,:COD_FABRIC,:TP_TRANS,:NFE_REF4,:VLR_IMPORT,:OBS_ADICIONAL,:FLG_PROCEDE,:ROMANEIO_NRO,:ROMANEIO_DATA,:TOKEN,:CODMARKET,:VLR_PIX, :NFE_DADOS, :FLG_EXC, :NFE_SERIE);

if (operacao = 2) then
update MOVTO set
FLG_CODMOV = :FLG_CODMOV,
DATA = :DATA,
NOTA_FISCAL = :NOTA_FISCAL,
SERIE = :SERIE,
CUPOM_FISCAL = :CUPOM_FISCAL,
NRO_ECF = :NRO_ECF,
DATA_SAIDA = :DATA_SAIDA,
COD_CLI = :COD_CLI,
COD_FOR = :COD_FOR,
COD_FUNC = :COD_FUNC,
COD_TRIB = :COD_TRIB,
COD_END_CLI = :COD_END_CLI,
VLR_DESC = :VLR_DESC,
VLR_ACRES = :VLR_ACRES,
VLR_FRETE = :VLR_FRETE,
PORC_FRETE = :PORC_FRETE,
VLR_TOTAL = :VLR_TOTAL,
TOTAL_NF = :TOTAL_NF,
TIPO_RECEB = :TIPO_RECEB,
OBSERV1 = :OBSERV1,
OBSERV2 = :OBSERV2,
OBSERV3 = :OBSERV3,
TRANS_NOME = :TRANS_NOME,
TRANS_END = :TRANS_END,
TRANS_CIDADE = :TRANS_CIDADE,
TRANS_CIDADEUF = :TRANS_CIDADEUF,
TRANS_PLACA = :TRANS_PLACA,
TRANS_PLACAUF = :TRANS_PLACAUF,
TRANS_FRETE = :TRANS_FRETE,
TRANS_CNPJ_CPF = :TRANS_CNPJ_CPF,
TRANS_IE_RG = :TRANS_IE_RG,
CODREC_DEVOLUCAO = :CODREC_DEVOLUCAO,
COD_CAIXA = :COD_CAIXA,
FLG_CANCEL = :FLG_CANCEL,
MOTIVO_CANCEL = :MOTIVO_CANCEL,
NF_DATA = :NF_DATA,
NF_DATA_SAIDA = :NF_DATA_SAIDA,
NF_HORA = :NF_HORA,
NF_CPF = :NF_CPF,
PLACA = :PLACA,
DATA_ENTREGA = :DATA_ENTREGA,
FLG_ABERTO = :FLG_ABERTO,
VLR_DINH = :VLR_DINH,
VLR_CHVISTA = :VLR_CHVISTA,
VLR_CHPRE = :VLR_CHPRE,
VLR_CARTAO = :VLR_CARTAO,
NFE_NRO = :NFE_NRO,
NFE_STATUS = :NFE_STATUS,
NFE_CAMINHO = :NFE_CAMINHO,
NFE_CHAVE = :NFE_CHAVE,
NFE_OBSERV = :NFE_OBSERV,
VLR_DEBITO = :VLR_DEBITO,
VLR_PRAZO = :VLR_PRAZO,
VLR_OUTROS = :VLR_OUTROS,
COD_EMPRESA = :COD_EMPRESA,
NOME_VEICULO = :NOME_VEICULO,
VOL_QUANT = :VOL_QUANT,
VOL_ESPECIE = :VOL_ESPECIE,
VOL_MARCA = :VOL_MARCA,
VOL_NRO = :VOL_NRO,
VOL_BRUTO = :VOL_BRUTO,
VOL_LIQUIDO = :VOL_LIQUIDO,
NFE_REF1 = :NFE_REF1,
NFE_REF2 = :NFE_REF2,
NFE_REF3 = :NFE_REF3,
COD_MAO_OBRA = :COD_MAO_OBRA,
SAT_NRO = :SAT_NRO,
SAT_STATUS = :SAT_STATUS,
SAT_CAMINHO = :SAT_CAMINHO,
SAT_CHAVE = :SAT_CHAVE,
DT_COMISSAO = :DT_COMISSAO,
NF_NOME = :NF_NOME,
COD_CONVENIO = :COD_CONVENIO,
COD_MESA = :COD_MESA,
COD_PARCELA = :COD_PARCELA,
FLG_PRECO = :FLG_PRECO,
LOCAL_DESEMB  = :LOCAL_DESEMB,
UF_DESEMB = :UF_DESEMB,
NRO_DI = :NRO_DI,
DT_DI = :DT_DI,
COD_EXPORT = :COD_EXPORT,
COD_FABRIC = :COD_FABRIC,
TP_TRANS = :TP_TRANS,
NFE_REF4 = :NFE_REF4,
VLR_IMPORT = :VLR_IMPORT,
OBS_ADICIONAL = :OBS_ADICIONAL,
FLG_PROCEDE = :FLG_PROCEDE,
ROMANEIO_NRO = :ROMANEIO_NRO,
ROMANEIO_DATA = :ROMANEIO_DATA,
TOKEN = :TOKEN,
CODMARKET = :CODMARKET,
VLR_PIX = :VLR_PIX,
NFE_DADOS = :NFE_DADOS,
FLG_EXC = :FLG_EXC,
NFE_SERIE = :NFE_SERIE
where (CODIGO = :CODIGO);
if (operacao = 3) then
delete from MOVTO
where (CODIGO = :CODIGO);
suspend;
end
^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0004','FUNCIONARIOS','CADASTROS','GRAVA_FINANC','GRAVAR LIVRO CAIXA NO FINANCEIRO','NAO','SIM;NAO','N')
^
insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0068','CONTROLE DOS CARTOES','GERENCIAL','GRAVA_FINANC','GRAVAR BAIXA DE CARTAO NO FINANCEIRO','NAO','SIM;NAO','N')
^
insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0011','BAIXA RECEBER','CONTAS A RECEBER','GRAVA_FINANC','GRAVAR BAIXA DE CONTA NO FINANCEIRO','NAO','SIM;NAO','N')
^
insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0013','BAIXA PAGAR','CONTAS A PAGAR','GRAVA_FINANC','GRAVAR BAIXA DE CONTA NO FINANCEIRO','NAO','NAO;UNICO;INDIVIDUAL','N')
^
insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0031','OUTROS LANCAMENTOS','CAIXA','GRAVA_FINANC','GRAVAR OUTROS LANCAMENTOS NO FINANCEIRO','NAO','SIM;NAO','N')
^
insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0026','FECHAMENTO','CAIXA','GRAVA_FINANC','GRAVAR FECHAMENTO DE CAIXA NO FINANCEIRO','NAO','SIM;NAO','N')
^
insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0020B','CONTROLE DOS CHEQUES','GERENCIAL','GRAVA_FINANC','GRAVAR BAIXA DE CHEQUE NO FINANCEIRO','NAO','SIM;NAO','N')
^
insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0020C','CONTROLE DOS CHEQUES','GERENCIAL','GRAVA_FINANC','GRAVAR TROCA DE CHEQUE NO FINANCEIRO','NAO','SIM;NAO','N')
^
insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0012D','REMESSA/RETORNO','CONTAS A RECEBER','GRAVA_FINANC','GRAVAR RETORNO DE BOLETO NO FINANCEIRO','NAO','SIM;NAO','N')
^
insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0068B','CONTROLE DOS CARTOES','GERENCIAL','GRAVA_FINANC','GRAVAR CSV NO FINANCEIRO','NAO','SIM;NAO','N')
^
update configuracao set nome_tela = 'BAIXA RECEBER' where campo = 'FLG_PERDIDO'
^
update configuracao set valor = 'SIM'
where (campo = 'GRAVA_FINANC') and (cod_tela = 'SG_0011')
and exists (select codigo from empresa where (nivel = 5) or (nivel = 10) or (nivel = 14)
or (nivel = 89) or (nivel = 154) or (cnpj = '15.507.360/0001-51'))
^
update configuracao set valor = 'INDIVIDUAL'
where (campo = 'GRAVA_FINANC') and (cod_tela = 'SG_0013')
and exists (select codigo from empresa where (nivel = 4) or (nivel = 8) or (nivel = 10)
or (nivel = 14) or (nivel = 89) or (nivel = 154) or (cnpj = '55.862.031/0001-43'))
^
update configuracao set valor = 'UNICO'
where (campo = 'GRAVA_FINANC') and (cod_tela = 'SG_0013')
and exists (select codigo from empresa where (nivel = 3) or (nivel = 24) or (nivel = 44)
or (nivel = 49) or (nivel = 79) or (nivel = 92))
^
update configuracao set valor = 'SIM'
where (campo = 'GRAVA_FINANC') and (cod_tela = 'SG_0026')
and exists (select codigo from empresa where (nivel <> 8) and (nivel <> 14) 
and (nivel <> 151) and (cnpj <> '55.862.031/0001-43'))
^
CREATE TABLE PIX (
    CODIGO       INTEGER NOT NULL,
    NOME         VARCHAR(60) NOT NULL,
    AGENCIA      INTEGER NOT NULL,
    DIG_AGENCIA  INTEGER NOT NULL,
    CONTA        INTEGER NOT NULL,
    DIG_CONTA    INTEGER NOT NULL,
    COD_BANCO    INTEGER NOT NULL,
    FLG_ATIVO    CHAR(1) NOT NULL,
    OBS          VARCHAR(100)
);

^

ALTER TABLE PIX ADD CONSTRAINT PK_PIX PRIMARY KEY (CODIGO);

^

create or alter procedure P_PIX (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    AGENCIA integer,
    DIG_AGENCIA integer,
    CONTA integer,
    DIG_CONTA integer,
    COD_BANCO integer,
    FLG_ATIVO char(1),
    OBS varchar(100))
as 
begin
  if (operacao = 1) then
     insert into PIX (CODIGO,NOME,AGENCIA,DIG_AGENCIA,CONTA,DIG_CONTA,COD_BANCO,FLG_ATIVO,OBS)
     values (:CODIGO,:NOME,:AGENCIA,:DIG_AGENCIA,:CONTA,:DIG_CONTA,:COD_BANCO,:FLG_ATIVO,:OBS);

  if (operacao = 2) then
     update PIX set
     NOME = :NOME,
     AGENCIA = :AGENCIA,
     DIG_AGENCIA = :DIG_AGENCIA,
     CONTA = :CONTA,
     DIG_CONTA = :DIG_CONTA,
     COD_BANCO = :COD_BANCO,
     FLG_ATIVO = :FLG_ATIVO,
     OBS = :OBS
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from PIX
     where (CODIGO = :CODIGO);

  suspend;
end

^

CREATE OR ALTER TRIGGER TRG_PIX FOR PIX
ACTIVE BEFORE INSERT POSITION 0
AS
declare variable cod integer;
begin
  select max(codigo) from PIX into :cod;

  if (cod is null) then
    cod = 0;

  new.codigo = cod + 1;
end

^

CREATE TABLE MOV_PIX (
    CODIGO        INTEGER NOT NULL,
    COD_PIX       INTEGER NOT NULL,
    CODMOV        INTEGER,
    CODREC        INTEGER,
    ORDREC        INTEGER,
    PARCELA       VARCHAR(60) NOT NULL,
    DT_EMISSAO    DATE NOT NULL,
    DT_VENCTO     DATE NOT NULL,
    DT_PAGTO      DATE,
    VLR_PARC      NUMERIC(15,2) NOT NULL,
    VLR_DESC      NUMERIC(15,2),
    VLR_LIQUIDO   NUMERIC(15,2) NOT NULL,
    OBSERVACAO    VARCHAR(60),
    AGRUPA        CHAR(1),
    VLR_ANTECIPA  NUMERIC(15,2),
    CODPAG        INTEGER,
    ORDPAG        INTEGER
);

^

ALTER TABLE MOV_PIX ADD CONSTRAINT PK_MOV_PIX PRIMARY KEY (CODIGO);

^

ALTER TABLE MOV_PIX ADD CONSTRAINT FK_MOV_PIX1 FOREIGN KEY (COD_PIX) REFERENCES PIX (CODIGO);

^

CREATE OR ALTER TRIGGER TRG_MOVPIX FOR MOV_PIX
ACTIVE BEFORE INSERT POSITION 0
AS
declare variable cod integer;
begin
  select max(codigo) from MOV_PIX into :cod;

  if (cod is null) then
    cod = 0;

  new.codigo = cod + 1;
end

^

create or alter procedure P_MOVPIX (
    OPERACAO integer,
    CODIGO integer,
    COD_PIX integer,
    CODMOV integer,
    CODREC integer,
    ORDREC integer,
    PARCELA varchar(10),
    DT_EMISSAO date,
    DT_VENCTO date,
    DT_PAGTO date,
    VLR_PARC numeric(15,2),
    VLR_DESC numeric(15,2),
    VLR_LIQUIDO numeric(15,2),
    OBSERVACAO varchar(60),
    AGRUPA char(1),
    VLR_ANTECIPA numeric(15,2),
    CODPAG integer,
    ORDPAG integer)
as
begin
if (operacao = 1) then
insert into MOV_PIX (CODIGO,COD_PIX,CODMOV,CODREC,ORDREC,PARCELA,DT_EMISSAO,DT_VENCTO,DT_PAGTO,VLR_PARC,VLR_DESC,VLR_LIQUIDO,OBSERVACAO,AGRUPA,VLR_ANTECIPA,CODPAG,ORDPAG)
values (:CODIGO,:COD_PIX,:CODMOV,:CODREC,:ORDREC,:PARCELA,:DT_EMISSAO,:DT_VENCTO,:DT_PAGTO,:VLR_PARC,:VLR_DESC,:VLR_LIQUIDO,:OBSERVACAO,:AGRUPA,:VLR_ANTECIPA,:CODPAG,:ORDPAG);
if (operacao = 2) then
update MOV_PIX set
COD_PIX = :COD_PIX,
CODMOV = :CODMOV,
CODREC = :CODREC,
ORDREC = :ORDREC,
PARCELA = :PARCELA,
DT_EMISSAO = :DT_EMISSAO,
DT_VENCTO = :DT_VENCTO,
DT_PAGTO = :DT_PAGTO,
VLR_PARC = :VLR_PARC,
VLR_DESC = :VLR_DESC,
VLR_LIQUIDO = :VLR_LIQUIDO,
OBSERVACAO = :OBSERVACAO,
AGRUPA = :AGRUPA,
VLR_ANTECIPA = :VLR_ANTECIPA,
CODPAG = :CODPAG,
ORDPAG = :ORDPAG
where (CODIGO = :CODIGO);
if (operacao = 3) then
delete from MOV_PIX
where (CODIGO = :CODIGO);
suspend;
end

^

ALTER TABLE PARAMETROS
ADD CAMINHO_NFE VARCHAR(200),
ADD CAMINHO_CFE VARCHAR(200),
ADD CAMINHO_NFCE VARCHAR(200),
ADD CAMINHO_VENDA VARCHAR(200),
ADD CAMINHO_OS VARCHAR(200)

^

alter table RECEBER
ADD COD_SIT integer;

^

create or alter procedure P_RECEBER (
    OPERACAO integer,
    CODIGO integer,
    PARCELA integer,
    CODMOV integer,
    COD_CLI integer,
    DT_VENDA date,
    DT_VENCTO date,
    VLR_PARC numeric(15,2),
    VLR_ACRES numeric(15,2),
    VLR_DESC numeric(15,2),
    SALDO numeric(15,2),
    CRED_DEB char(10),
    HISTORICO varchar(100),
    CUPOM_FISCAL integer,
    DOCUMENTO varchar(20),
    SERIE varchar(3),
    COD_CAIXA integer,
    CB_NOSSO_NRO varchar(20),
    CB_DOC_NRO integer,
    FLG_BOLETO_DESC char(1),
    FLG_PERDIDO char(1),
    OBS_COBRANCA varchar(400),
    COD_EMPRESA integer,
    DT_BOLETO date,
    FLG_REMESSA char(1),
    BCO_BOLETO_DESC integer,
    BCO_BOLETO integer,
    COD_REPARCELA integer,
    COD_SIT integer)
as
begin  
if (operacao = 1) then 
INSERT INTO RECEBER (CODIGO,PARCELA,CODMOV,COD_CLI,DT_VENDA,DT_VENCTO,VLR_PARC,VLR_ACRES,VLR_DESC,SALDO,CRED_DEB,HISTORICO,CUPOM_FISCAL,DOCUMENTO,SERIE,COD_CAIXA,CB_NOSSO_NRO,CB_DOC_NRO,
FLG_BOLETO_DESC,FLG_PERDIDO,OBS_COBRANCA,COD_EMPRESA,DT_BOLETO,FLG_REMESSA,BCO_BOLETO_DESC,BCO_BOLETO,COD_REPARCELA, COD_SIT)
VALUES (:CODIGO,:PARCELA,:CODMOV,:COD_CLI,:DT_VENDA,:DT_VENCTO,:VLR_PARC,:VLR_ACRES,:VLR_DESC,:SALDO,:CRED_DEB,:HISTORICO,:CUPOM_FISCAL,:DOCUMENTO,:SERIE,:COD_CAIXA,:CB_NOSSO_NRO, 
:CB_DOC_NRO,:FLG_BOLETO_DESC,:FLG_PERDIDO,:OBS_COBRANCA,:COD_EMPRESA,:DT_BOLETO,:FLG_REMESSA,:BCO_BOLETO_DESC,:BCO_BOLETO,:COD_REPARCELA, :COD_SIT);
if (operacao = 2) then 
UPDATE RECEBER SET 
PARCELA = :PARCELA, 
CODMOV = :CODMOV, 
COD_CLI = :COD_CLI, 
DT_VENDA = :DT_VENDA, 
DT_VENCTO = :DT_VENCTO, 
VLR_PARC = :VLR_PARC, 
VLR_ACRES = :VLR_ACRES, 
VLR_DESC = :VLR_DESC, 
SALDO = :SALDO, 
CRED_DEB = :CRED_DEB, 
HISTORICO = :HISTORICO, 
CUPOM_FISCAL = :CUPOM_FISCAL, 
DOCUMENTO = :DOCUMENTO,
SERIE = :SERIE, 
COD_CAIXA = :COD_CAIXA, 
CB_NOSSO_NRO = :CB_NOSSO_NRO, 
CB_DOC_NRO = :CB_DOC_NRO, 
FLG_BOLETO_DESC = :FLG_BOLETO_DESC, 
FLG_PERDIDO = :FLG_PERDIDO, 
OBS_COBRANCA = :OBS_COBRANCA, 
COD_EMPRESA = :COD_EMPRESA, 
DT_BOLETO = :DT_BOLETO, 
FLG_REMESSA = : FLG_REMESSA, 
BCO_BOLETO_DESC = :BCO_BOLETO_DESC, 
BCO_BOLETO = :BCO_BOLETO, 
COD_REPARCELA = :COD_REPARCELA,
COD_SIT = :COD_SIT
WHERE (CODIGO = :CODIGO); 
if (operacao = 3) then 
delete from RECEBER 
where (CODIGO = :CODIGO); 
suspend; 
end
^

insert into configuracao (cod_tela,nome_tela,menu,campo,descricao,valor,valido,flg_restrito)
values ('SG_0032','PRODUTOS','CADASTROS','FLG_SUBGRUPO','EXIBIR SUBGRUPO','NAO','SIM;NAO','N')
^
update configuracao set valor = 'SIM'
where (campo = 'FLG_SUBGRUPO') and (cod_tela = 'SG_0032')
and exists (select codigo from empresa where (nivel = 15) or (nivel = 25) or (nivel = 30)
or (nivel = 34) or (nivel = 92) or (cnpj = '43.858.266/0001-82'))

^


CREATE TABLE NFSE(
CODIGOVERIFICA VARCHAR(19) NOT NULL,
DESCSERVICO VARCHAR(4000) NOT NULL,
SERVICOPRESTADO VARCHAR(1000) NOT NULL,
VALORNOTA NUMERIC(15,2) NOT NULL,
VALORDEDUCOES NUMERIC(15,2) NOT NULL,
VALORBASECALCULO NUMERIC(15,2) NOT NULL,
ALIQUOTA NUMERIC(15,2) NOT NULL,
VALORISS NUMERIC(15,2) NOT NULL,
VALORCREDITO NUMERIC(15,2) NOT NULL,
LOCALEXECUCAO VARCHAR(50) NOT NULL,
RETIDONAFONTE VARCHAR(5) NOT NULL,
CPFCNPJPRESTADOR VARCHAR(20) NOT NULL,
NOMERAZAOPRESTADOR VARCHAR(120) NOT NULL,
ENDERECOPRESTADOR VARCHAR(120) NOT NULL,
CIDADEPRESTADOR VARCHAR(100) NOT NULL,
IMPRESTADOR VARCHAR(30) NOT NULL,
ESTADOPRESTADOR VARCHAR(2) NOT NULL,
TIPOTRIBUTACAO VARCHAR(100) NOT NULL,
NATUREZAOPERACAO VARCHAR(100) NOT NULL,
EMAILPRESTADOR VARCHAR(60) NOT NULL,
CPFCNPJTOMADOR VARCHAR(20) NOT NULL,
NOMERAZAOTOMADOR VARCHAR(120) NOT NULL,
ENDERECOTOMADOR VARCHAR(120) NOT NULL,
CIDADETOMADOR VARCHAR(100) NOT NULL,
IMTOMADOR VARCHAR(30),
IERGTOMADOR VARCHAR(30),
ESTADOTOMADOR VARCHAR(2) NOT NULL,
IERGPRESTADOR VARCHAR(30),
CEPPRESTADOR VARCHAR(10) NOT NULL,
EMAILTOMADOR VARCHAR(60),
CEPTOMADOR VARCHAR(10) NOT NULL,
DATAHORAEMISSAO TIMESTAMP NOT NULL,
DATAHORAEMISSAORPS TIMESTAMP NOT NULL,
MOTIVOCANCELAMENTO VARCHAR(500),
NUMERORPS VARCHAR(19) NOT NULL,
NUMERONFSE VARCHAR(19) NOT NULL,
TIPOMOVIMENTO VARCHAR(10),
CODMOV INTEGER,
STATUS VARCHAR(20) NOT NULL);
^

CREATE GENERATOR GEN_NFSE_ID;
^
GRANT ALL ON NFSE TO SYSDBA WITH GRANT OPTION;
^

ALTER TABLE MOVTO_OS
ADD PRAZO_OS VARCHAR(60)
^
create or alter procedure P_MOVTO_OS (
    OPERACAO integer,
    CODIGO integer,
    CODMOV integer,
    NRO_OS integer,
    DATA_SAIDA date,
    MARCA varchar(60),
    MODELO varchar(60),
    ESNHEX varchar(60),
    FLG_BATERIA char(1),
    FLG_MESA char(1),
    FLG_CHIP char(1),
    FLG_CARTAO char(1),
    FLG_OPERADORA char(1),
    FLG_ESTADO char(1),
    GARANTIA integer,
    OBSERVACAO varchar(100),
    STATUS varchar(20),
    COD_PROD1 integer,
    COD_PROD2 integer,
    COD_PROD3 integer,
    FOTO1 varchar(200),
    FOTO2 varchar(200),
    FOTO3 varchar(200),
    FOTO4 varchar(200),
    FOTO5 varchar(200),
    COD_TECNICO integer,
    FOTO6 varchar(200),
    FOTO7 varchar(200),
    COD_STATUS integer,
    PRAZO_OS varchar(60))
as
begin
  if (operacao = 1) then
insert into MOVTO_OS (CODIGO,CODMOV,NRO_OS,DATA_SAIDA,MARCA,MODELO,ESNHEX,FLG_BATERIA,FLG_MESA,FLG_CHIP,FLG_CARTAO,FLG_OPERADORA,FLG_ESTADO,GARANTIA,OBSERVACAO,STATUS,COD_PROD1,
COD_PROD2,COD_PROD3,FOTO1,FOTO2,FOTO3,FOTO4,FOTO5,COD_TECNICO,FOTO6,FOTO7, COD_STATUS, PRAZO_OS)
  values (:CODIGO,:CODMOV,:NRO_OS,:DATA_SAIDA,:MARCA,:MODELO,:ESNHEX,:FLG_BATERIA,:FLG_MESA,:FLG_CHIP,:FLG_CARTAO,:FLG_OPERADORA,:FLG_ESTADO,:GARANTIA,:OBSERVACAO,:STATUS,
:cod_prod1,:cod_prod2,:COD_PROD3,:FOTO1,:FOTO2,:FOTO3,:FOTO4,:FOTO5,:COD_TECNICO,:FOTO6,:FOTO7, :COD_STATUS, :PRAZO_OS);
 if (operacao = 2) then
 update MOVTO_OS set 
 CODMOV = :CODMOV, 
 NRO_OS = :NRO_OS,   
 DATA_SAIDA = :DATA_SAIDA,  
 MARCA = :MARCA, 
 MODELO = :MODELO,  
 ESNHEX = :ESNHEX, 
 FLG_BATERIA = :FLG_BATERIA, 
 FLG_MESA = :FLG_MESA, 
 FLG_CHIP = :FLG_CHIP,  
 FLG_CARTAO = :FLG_CARTAO, 
 FLG_OPERADORA = :FLG_OPERADORA, 
 FLG_ESTADO = :FLG_ESTADO, 
 GARANTIA = :GARANTIA, 
 OBSERVACAO = :OBSERVACAO, 
 STATUS = :STATUS, 
 COD_PROD1 = :cod_prod1, 
 COD_PROD2 = :cod_prod2, 
 COD_PROD3 = :cod_prod3, 
 FOTO1 = :FOTO1, 
 FOTO2 = :FOTO2, 
 FOTO3 = :FOTO3, 
 FOTO4 = :FOTO4, 
 FOTO5 = :FOTO5, 
 COD_TECNICO = :COD_TECNICO, 
 FOTO6 = :FOTO6, 
 FOTO7 = :FOTO7,
 COD_STATUS = :COD_STATUS,
 PRAZO_OS = :PRAZO_OS
    WHERE (CODIGO = :CODIGO);
  if (operacao = 3) then
     delete from MOVTO_OS
     where (CODIGO = :CODIGO);
  suspend;
end
^

ALTER TABLE MOVTO_OS
ADD PRAZO_OS VARCHAR(60)
^
create or alter procedure P_MOVTO_OS (
    OPERACAO integer,
    CODIGO integer,
    CODMOV integer,
    NRO_OS integer,
    DATA_SAIDA date,
    MARCA varchar(60),
    MODELO varchar(60),
    ESNHEX varchar(60),
    FLG_BATERIA char(1),
    FLG_MESA char(1),
    FLG_CHIP char(1),
    FLG_CARTAO char(1),
    FLG_OPERADORA char(1),
    FLG_ESTADO char(1),
    GARANTIA integer,
    OBSERVACAO varchar(100),
    STATUS varchar(20),
    COD_PROD1 integer,
    COD_PROD2 integer,
    COD_PROD3 integer,
    FOTO1 varchar(200),
    FOTO2 varchar(200),
    FOTO3 varchar(200),
    FOTO4 varchar(200),
    FOTO5 varchar(200),
    COD_TECNICO integer,
    FOTO6 varchar(200),
    FOTO7 varchar(200),
    COD_STATUS integer,
    PRAZO_OS varchar(60))
as
begin
  if (operacao = 1) then
insert into MOVTO_OS (CODIGO,CODMOV,NRO_OS,DATA_SAIDA,MARCA,MODELO,ESNHEX,FLG_BATERIA,FLG_MESA,FLG_CHIP,FLG_CARTAO,FLG_OPERADORA,FLG_ESTADO,GARANTIA,OBSERVACAO,STATUS,COD_PROD1,
COD_PROD2,COD_PROD3,FOTO1,FOTO2,FOTO3,FOTO4,FOTO5,COD_TECNICO,FOTO6,FOTO7, COD_STATUS, PRAZO_OS)
  values (:CODIGO,:CODMOV,:NRO_OS,:DATA_SAIDA,:MARCA,:MODELO,:ESNHEX,:FLG_BATERIA,:FLG_MESA,:FLG_CHIP,:FLG_CARTAO,:FLG_OPERADORA,:FLG_ESTADO,:GARANTIA,:OBSERVACAO,:STATUS,
:cod_prod1,:cod_prod2,:COD_PROD3,:FOTO1,:FOTO2,:FOTO3,:FOTO4,:FOTO5,:COD_TECNICO,:FOTO6,:FOTO7, :COD_STATUS, :PRAZO_OS);
 if (operacao = 2) then
 update MOVTO_OS set 
 CODMOV = :CODMOV, 
 NRO_OS = :NRO_OS,   
 DATA_SAIDA = :DATA_SAIDA,  
 MARCA = :MARCA, 
 MODELO = :MODELO,  
 ESNHEX = :ESNHEX, 
 FLG_BATERIA = :FLG_BATERIA, 
 FLG_MESA = :FLG_MESA, 
 FLG_CHIP = :FLG_CHIP,  
 FLG_CARTAO = :FLG_CARTAO, 
 FLG_OPERADORA = :FLG_OPERADORA, 
 FLG_ESTADO = :FLG_ESTADO, 
 GARANTIA = :GARANTIA, 
 OBSERVACAO = :OBSERVACAO, 
 STATUS = :STATUS, 
 COD_PROD1 = :cod_prod1, 
 COD_PROD2 = :cod_prod2, 
 COD_PROD3 = :cod_prod3, 
 FOTO1 = :FOTO1, 
 FOTO2 = :FOTO2, 
 FOTO3 = :FOTO3, 
 FOTO4 = :FOTO4, 
 FOTO5 = :FOTO5, 
 COD_TECNICO = :COD_TECNICO, 
 FOTO6 = :FOTO6, 
 FOTO7 = :FOTO7,
 COD_STATUS = :COD_STATUS,
 PRAZO_OS = :PRAZO_OS
    WHERE (CODIGO = :CODIGO);
  if (operacao = 3) then
     delete from MOVTO_OS
     where (CODIGO = :CODIGO);
  suspend;
end

^

ALTER TABLE PRODUTO
ADD PORC_OFERTA NUMERIC(15,2)
^
ALTER TABLE PROD_UNID
ADD PORC_OFERTA NUMERIC(15,2)
^
create or alter procedure P_PRODUTO (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    COD_GRUPO integer,
    COD_FORNECEDOR integer,
    MARCA varchar(200),
    UNIDADE_ESTOQUE varchar(10),
    UNIDADE_CONVERSAO varchar(10),
    QTD_EMBALAGEM numeric(15,4),
    PORC_LUCRO_V numeric(15,2),
    PORC_LUCRO_P numeric(15,2),
    PORC_ICMS_ISS numeric(15,2),
    PORC_COMISSAO integer,
    COD_CST varchar(10),
    ESTOQUE_INICIAL numeric(15,3),
    ESTOQUE_MINIMO numeric(15,3),
    ESTOQUE_ATUAL numeric(15,3),
    ESTOQUE_FISCAL numeric(15,3),
    COD_TRIB integer,
    COD_TRIB_ENT integer,
    SIT_TRIB varchar(2),
    DT_CADASTRO date,
    FLG_ATIVADO char(1),
    FLG_ESTOQUE char(1),
    FLG_TIPO char(1),
    LOCALIZACAO varchar(60),
    OBSERVACAO varchar(100),
    OBSERVACAO2 varchar(100),
    DT_ALTERACAO date,
    TEMPO_REAL time,
    NCM varchar(20),
    COD_CSOSN integer,
    CONV_PRECO numeric(15,3),
    CST_PIS varchar(3),
    CST_COFINS varchar(3),
    COD_SUBGRUPO integer,
    COD_SUBSUBGRUPO integer,
    ESTOQUE1 numeric(15,3),
    ESTOQUE2 numeric(15,3),
    ESTOQUE3 numeric(15,3),
    ESTOQUE4 numeric(15,3),
    ESTOQUE5 numeric(15,3),
    PORC_PIS numeric(15,2),
    PORC_COFINS numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    DT_VALIDADE date,
    PORC_IPI numeric(15,2),
    PORC_MVA numeric(15,2),
    PESO_BRUTO numeric(15,3),
    PESO_LIQUIDO numeric(15,3),
    FOTO varchar(200),
    ANEXO varchar(100),
    COD_ANP varchar(10),
    LOCALIZACAO2 varchar(60),
    ETIQUETA integer,
    COD_CEST varchar(7),
    COD_EMPRESA integer,
    PORC_DESC numeric(15,2),
    FLG_DESC char(1),
    ESTOQUE_MAXIMO numeric(15,3),
    ESTOQUE_DEMANDA_MEDIA numeric(15,3),
    ESTOQUE_TEMPO_RESUPRI numeric(15,3),
    ESTOQUE_INTERVALO_RESUPRI numeric(15,3),
    COD_DESP integer,
    COD_MARCA integer,
    FLG_SITE char(1),
    FLG_BALANCA char(1),
    SITE_COMPRIMENTO numeric(15,2),
    SITE_LARGURA numeric(15,2),
    SITE_ALTURA numeric(15,2),
    SITE_DESCRICAO varchar(9999),
    SITE_SYNC char(1),
    SITE_COD integer,
    PORC_REDBASE numeric(15,2),
    PONTOS numeric(15,4),
    LOCALIZACAO21 varchar(60),
    LOCALIZACAO22 varchar(60),
    LOCALIZACAO31 varchar(60),
    LOCALIZACAO32 varchar(60),
    LOCALIZACAO41 varchar(60),
    LOCALIZACAO42 varchar(60),
    LOCALIZACAO51 varchar(60),
    LOCALIZACAO52 varchar(60),
    PORC_FCP numeric(15,2),
    FLG_TRIBUTO char(1),
    PORC_OFERTA numeric(15,2))
as
begin
if (OPERACAO = 1) then
insert into PRODUTO (CODIGO,NOME,COD_GRUPO,COD_FORNECEDOR,MARCA,UNIDADE_ESTOQUE,UNIDADE_CONVERSAO,QTD_EMBALAGEM,PORC_LUCRO_V,PORC_LUCRO_P,PORC_ICMS_ISS,PORC_COMISSAO,
COD_CST,ESTOQUE_INICIAL,ESTOQUE_MINIMO,ESTOQUE_ATUAL,ESTOQUE_FISCAL,COD_TRIB,COD_TRIB_ENT,SIT_TRIB,DT_CADASTRO,FLG_ATIVADO,FLG_ESTOQUE,FLG_TIPO,LOCALIZACAO,OBSERVACAO,
OBSERVACAO2,DT_ALTERACAO,TEMPO_REAL,NCM,COD_CSOSN,CONV_PRECO,CST_PIS,CST_COFINS,COD_SUBGRUPO,COD_SUBSUBGRUPO,ESTOQUE1,ESTOQUE2,ESTOQUE3,ESTOQUE4,ESTOQUE5,PORC_PIS,PORC_COFINS,
OBS_ADICIONAL,DT_VALIDADE,PORC_IPI,PORC_MVA,PESO_BRUTO,PESO_LIQUIDO,FOTO,ANEXO,COD_ANP,LOCALIZACAO2,ETIQUETA,COD_CEST,COD_EMPRESA,PORC_DESC,FLG_DESC,ESTOQUE_MAXIMO,ESTOQUE_DEMANDA_MEDIA,
ESTOQUE_TEMPO_RESUPRI,ESTOQUE_INTERVALO_RESUPRI,COD_DESP,COD_MARCA,FLG_SITE,FLG_BALANCA,SITE_COMPRIMENTO,SITE_LARGURA,SITE_ALTURA,SITE_DESCRICAO,SITE_SYNC,SITE_COD,PORC_REDBASE,PONTOS,
LOCALIZACAO21,LOCALIZACAO22,LOCALIZACAO31,LOCALIZACAO32,LOCALIZACAO41,LOCALIZACAO42,LOCALIZACAO51,LOCALIZACAO52, PORC_FCP, FLG_TRIBUTO,PORC_OFERTA)
values (:CODIGO,:NOME,:COD_GRUPO,:COD_FORNECEDOR,:MARCA,:UNIDADE_ESTOQUE,:UNIDADE_CONVERSAO,:QTD_EMBALAGEM,:PORC_LUCRO_V,:PORC_LUCRO_P,:PORC_ICMS_ISS,:PORC_COMISSAO,:COD_CST,:ESTOQUE_INICIAL,:ESTOQUE_MINIMO,
:ESTOQUE_ATUAL,:ESTOQUE_FISCAL,:COD_TRIB,:COD_TRIB_ENT,:SIT_TRIB,:DT_CADASTRO,:FLG_ATIVADO,:FLG_ESTOQUE,:FLG_TIPO,:LOCALIZACAO,:OBSERVACAO,:OBSERVACAO2,:DT_ALTERACAO,:TEMPO_REAL,:NCM,:COD_CSOSN, 
:CONV_PRECO,:CST_PIS,:CST_COFINS,:COD_SUBGRUPO,:COD_SUBSUBGRUPO,:ESTOQUE1,:ESTOQUE2,:ESTOQUE3,:ESTOQUE4,:ESTOQUE5,:PORC_PIS,:PORC_COFINS,:OBS_ADICIONAL,:DT_VALIDADE,:PORC_IPI,:PORC_MVA,:PESO_BRUTO, 
:PESO_LIQUIDO,:FOTO,:ANEXO,:COD_ANP,:LOCALIZACAO2,:ETIQUETA,:COD_CEST,
:COD_EMPRESA,:PORC_DESC,:FLG_DESC,:ESTOQUE_MAXIMO,:ESTOQUE_DEMANDA_MEDIA,:ESTOQUE_TEMPO_RESUPRI,:ESTOQUE_INTERVALO_RESUPRI,:COD_DESP,:COD_MARCA,:FLG_SITE,:FLG_BALANCA,
:SITE_COMPRIMENTO,:SITE_LARGURA,:SITE_ALTURA,:SITE_DESCRICAO,:SITE_SYNC,:SITE_COD,:PORC_REDBASE,:PONTOS,:LOCALIZACAO21,:LOCALIZACAO22,:LOCALIZACAO31,:LOCALIZACAO32,:LOCALIZACAO41, 
:LOCALIZACAO42,:LOCALIZACAO51,:LOCALIZACAO52,:PORC_FCP, :FLG_TRIBUTO, :PORC_OFERTA);
if (OPERACAO = 2) then
update PRODUTO set
NOME = :NOME,
COD_GRUPO = :COD_GRUPO,
COD_FORNECEDOR = :COD_FORNECEDOR,
MARCA = :MARCA,
UNIDADE_ESTOQUE = :UNIDADE_ESTOQUE,
UNIDADE_CONVERSAO = :UNIDADE_CONVERSAO,
QTD_EMBALAGEM = :QTD_EMBALAGEM,
PORC_LUCRO_V = :PORC_LUCRO_V,
PORC_LUCRO_P = :PORC_LUCRO_P,
PORC_ICMS_ISS = :PORC_ICMS_ISS,
PORC_COMISSAO = :PORC_COMISSAO,
COD_CST = :COD_CST,
ESTOQUE_INICIAL = :ESTOQUE_INICIAL,
ESTOQUE_MINIMO = :ESTOQUE_MINIMO, 
ESTOQUE_ATUAL = :ESTOQUE_ATUAL,
ESTOQUE_FISCAL = :ESTOQUE_FISCAL, 
COD_TRIB = :COD_TRIB,
COD_TRIB_ENT = :COD_TRIB_ENT,
SIT_TRIB = :SIT_TRIB,
DT_CADASTRO = :DT_CADASTRO,
FLG_ATIVADO = :FLG_ATIVADO,
FLG_ESTOQUE = :FLG_ESTOQUE,
FLG_TIPO = :FLG_TIPO,
LOCALIZACAO = :LOCALIZACAO,
OBSERVACAO = :OBSERVACAO,
OBSERVACAO2 = :OBSERVACAO2,
DT_ALTERACAO = :DT_ALTERACAO,
TEMPO_REAL = :TEMPO_REAL,
NCM = :NCM,
COD_CSOSN = :COD_CSOSN, 
CONV_PRECO = :CONV_PRECO,
CST_PIS = :CST_PIS,
CST_COFINS = :CST_COFINS,
COD_SUBGRUPO = :COD_SUBGRUPO,
COD_SUBSUBGRUPO = :COD_SUBSUBGRUPO,
ESTOQUE1 = :ESTOQUE1,
ESTOQUE2 = :ESTOQUE2,
ESTOQUE3 = :ESTOQUE3,
ESTOQUE4 = :ESTOQUE4,
ESTOQUE5 = :ESTOQUE5,
PORC_PIS = :PORC_PIS,
PORC_COFINS = :PORC_COFINS,
OBS_ADICIONAL = :OBS_ADICIONAL,
DT_VALIDADE = :DT_VALIDADE,
PORC_IPI = :PORC_IPI,
PORC_MVA = :PORC_MVA,
PESO_BRUTO = :PESO_BRUTO,
PESO_LIQUIDO = :PESO_LIQUIDO,
FOTO = :FOTO,
ANEXO = :ANEXO,
COD_ANP = :COD_ANP,
LOCALIZACAO2 = :LOCALIZACAO2,
ETIQUETA = :ETIQUETA,
COD_CEST = :COD_CEST,
COD_EMPRESA = :COD_EMPRESA,
PORC_DESC = :PORC_DESC,
FLG_DESC = :FLG_DESC,
ESTOQUE_MAXIMO = :ESTOQUE_MAXIMO,
ESTOQUE_DEMANDA_MEDIA = :ESTOQUE_DEMANDA_MEDIA,
ESTOQUE_TEMPO_RESUPRI = :ESTOQUE_TEMPO_RESUPRI,
ESTOQUE_INTERVALO_RESUPRI = :ESTOQUE_INTERVALO_RESUPRI,
COD_DESP = :COD_DESP,
COD_MARCA = :COD_MARCA,
FLG_SITE = :FLG_SITE,
FLG_BALANCA = :FLG_BALANCA,
SITE_COMPRIMENTO = :SITE_COMPRIMENTO,
SITE_LARGURA = :SITE_LARGURA,
SITE_ALTURA = :SITE_ALTURA,
SITE_DESCRICAO = :SITE_DESCRICAO,
SITE_SYNC = :SITE_SYNC,
SITE_COD = :SITE_COD,
PORC_REDBASE = :PORC_REDBASE,
PONTOS = :PONTOS,
LOCALIZACAO21 = :LOCALIZACAO21,
LOCALIZACAO22 = :LOCALIZACAO22,
LOCALIZACAO31 = :LOCALIZACAO31,
LOCALIZACAO32 = :LOCALIZACAO32,
LOCALIZACAO41 = :LOCALIZACAO41,
LOCALIZACAO42 = :LOCALIZACAO42,
LOCALIZACAO51 = :LOCALIZACAO51,
LOCALIZACAO52 = :LOCALIZACAO52,
PORC_FCP = :PORC_FCP,
FLG_TRIBUTO = :FLG_TRIBUTO,
PORC_OFERTA = :PORC_OFERTA
where (CODIGO = :CODIGO);
if (OPERACAO = 3) then
delete from PRODUTO 
where (CODIGO = :CODIGO);
suspend;
end
^

ALTER TABLE PROD_UNID
ADD SITE_COD INTEGER
^

create or alter procedure P_PROD_UNID (
    OPERACAO integer,
    CODIGO integer,
    COD_PROD integer,
    COD_UNID integer,
    COD_COR integer,
    ESTOQUE numeric(15,3),
    ESTOQUE_FISCAL numeric(15,3),
    PR_CUSTO numeric(15,2),
    PR_VISTA numeric(15,2),
    PR_PRAZO numeric(15,2),
    COD_BARRA varchar(60),
    DATA date,
    ESTOQUE1 numeric(15,3),
    ESTOQUE2 numeric(15,3),
    ESTOQUE3 numeric(15,3),
    ESTOQUE4 numeric(15,3),
    ESTOQUE5 numeric(15,3),
    REFERENCIA varchar(20),
    SITE_COD integer,
    PORC_OFERTA numeric(15,2))
as
begin
  if (operacao = 1) then
     insert into PROD_UNID (CODIGO, COD_PROD, COD_UNID, COD_COR, ESTOQUE, ESTOQUE_FISCAL, PR_CUSTO, PR_VISTA, PR_PRAZO, COD_BARRA, DATA, ESTOQUE1, ESTOQUE2, ESTOQUE3, ESTOQUE4, ESTOQUE5, REFERENCIA, SITE_COD, PORC_OFERTA)
     values (:CODIGO, :COD_PROD, :COD_UNID, :COD_COR, :ESTOQUE, :ESTOQUE_FISCAL, :PR_CUSTO, :PR_VISTA, :PR_PRAZO, :COD_BARRA, :DATA, :ESTOQUE1, :ESTOQUE2, :ESTOQUE3, :ESTOQUE4, :ESTOQUE5, :REFERENCIA, :SITE_COD, :PORC_OFERTA);

  if (operacao = 2) then
     update PROD_UNID set
     COD_PROD = :COD_PROD,
     COD_UNID = :COD_UNID,
     COD_COR = :COD_COR,
     ESTOQUE = :ESTOQUE,
     ESTOQUE_FISCAL = :ESTOQUE_FISCAL,
     PR_CUSTO = :PR_CUSTO,
     PR_VISTA = :PR_VISTA,
     PR_PRAZO = :PR_PRAZO,
     COD_BARRA = :COD_BARRA,
     DATA = :DATA,
     ESTOQUE1 = :ESTOQUE1,
     ESTOQUE2 = :ESTOQUE2,
     ESTOQUE3 = :ESTOQUE3,
     ESTOQUE4 = :ESTOQUE4,
     ESTOQUE5 = :ESTOQUE5,
     REFERENCIA = :REFERENCIA,
     SITE_COD = : SITE_COD,
     PORC_OFERTA = :PORC_OFERTA
     where (CODIGO = :CODIGO);

  if (operacao = 3) then
     delete from PROD_UNID
     where (CODIGO = :CODIGO);

  suspend;
end

^

alter table movit_aux
add COD_UNID integer,
add COD_LOTE integer

^


create or alter procedure P_MOVIT_AUX (
    OPERACAO integer,
    CODIGO integer,
    CODMOV integer,
    COD_PROD integer,
    QUANT numeric(15,3),
    VALOR numeric(15,2),
    NOME_PC varchar(60),
    ITEM integer,
    VLR_UNIT numeric(15,4),
    UNIDADE varchar(10),
    VLR_DESC numeric(15,4),
    NOME_PROD varchar(100),
    COD_UNID integer,
    COD_LOTE integer)
as
begin 
if (operacao = 1) then 
insert into MOVIT_AUX (CODIGO, CODMOV, COD_PROD, QUANT, VALOR,NOME_PC,ITEM,VLR_UNIT,UNIDADE,VLR_DESC,NOME_PROD,COD_UNID,COD_LOTE)
values (:CODIGO, :CODMOV, :COD_PROD, :QUANT, :VALOR,:NOME_PC,:ITEM,:VLR_UNIT,:UNIDADE,:VLR_DESC,:NOME_PROD,:COD_UNID,:COD_LOTE);
if (operacao = 2) then  
update MOVIT_AUX set 
CODMOV = :CODMOV,
COD_PROD = :COD_PROD, 
QUANT = :QUANT, 
VALOR = :VALOR,
NOME_PC = :NOME_PC, 
ITEM = :ITEM, 
VLR_UNIT = :VLR_UNIT, 
UNIDADE = :UNIDADE,
VLR_DESC = :VLR_DESC,
NOME_PROD = :NOME_PROD,
COD_UNID = :COD_UNID,
COD_LOTE = :COD_LOTE
where (CODIGO = :CODIGO); 
if (operacao = 3) then 
delete from MOVIT_AUX 
where (CODIGO = :CODIGO); 
suspend; 
end


^

ALTER TABLE PRODUTO
ADD EXIBE_FICHA CHAR(1)
DEFAULT 'N' 

^

update produto set exibe_ficha = 'N'

^

create or alter procedure P_PRODUTO (
    OPERACAO integer,
    CODIGO integer,
    NOME varchar(60),
    COD_GRUPO integer,
    COD_FORNECEDOR integer,
    MARCA varchar(200),
    UNIDADE_ESTOQUE varchar(10),
    UNIDADE_CONVERSAO varchar(10),
    QTD_EMBALAGEM numeric(15,4),
    PORC_LUCRO_V numeric(15,2),
    PORC_LUCRO_P numeric(15,2),
    PORC_ICMS_ISS numeric(15,2),
    PORC_COMISSAO integer,
    COD_CST varchar(10),
    ESTOQUE_INICIAL numeric(15,3),
    ESTOQUE_MINIMO numeric(15,3),
    ESTOQUE_ATUAL numeric(15,3),
    ESTOQUE_FISCAL numeric(15,3),
    COD_TRIB integer,
    COD_TRIB_ENT integer,
    SIT_TRIB varchar(2),
    DT_CADASTRO date,
    FLG_ATIVADO char(1),
    FLG_ESTOQUE char(1),
    FLG_TIPO char(1),
    LOCALIZACAO varchar(60),
    OBSERVACAO varchar(100),
    OBSERVACAO2 varchar(100),
    DT_ALTERACAO date,
    TEMPO_REAL time,
    NCM varchar(20),
    COD_CSOSN integer,
    CONV_PRECO numeric(15,3),
    CST_PIS varchar(3),
    CST_COFINS varchar(3),
    COD_SUBGRUPO integer,
    COD_SUBSUBGRUPO integer,
    ESTOQUE1 numeric(15,3),
    ESTOQUE2 numeric(15,3),
    ESTOQUE3 numeric(15,3),
    ESTOQUE4 numeric(15,3),
    ESTOQUE5 numeric(15,3),
    PORC_PIS numeric(15,2),
    PORC_COFINS numeric(15,2),
    OBS_ADICIONAL varchar(3000),
    DT_VALIDADE date,
    PORC_IPI numeric(15,2),
    PORC_MVA numeric(15,2),
    PESO_BRUTO numeric(15,3),
    PESO_LIQUIDO numeric(15,3),
    FOTO varchar(200),
    ANEXO varchar(100),
    COD_ANP varchar(10),
    LOCALIZACAO2 varchar(60),
    ETIQUETA integer,
    COD_CEST varchar(7),
    COD_EMPRESA integer,
    PORC_DESC numeric(15,2),
    FLG_DESC char(1),
    ESTOQUE_MAXIMO numeric(15,3),
    ESTOQUE_DEMANDA_MEDIA numeric(15,3),
    ESTOQUE_TEMPO_RESUPRI numeric(15,3),
    ESTOQUE_INTERVALO_RESUPRI numeric(15,3),
    COD_DESP integer,
    COD_MARCA integer,
    FLG_SITE char(1),
    FLG_BALANCA char(1),
    SITE_COMPRIMENTO numeric(15,2),
    SITE_LARGURA numeric(15,2),
    SITE_ALTURA numeric(15,2),
    SITE_DESCRICAO varchar(9999),
    SITE_SYNC char(1),
    SITE_COD integer,
    PORC_REDBASE numeric(15,2),
    PONTOS numeric(15,4),
    LOCALIZACAO21 varchar(60),
    LOCALIZACAO22 varchar(60),
    LOCALIZACAO31 varchar(60),
    LOCALIZACAO32 varchar(60),
    LOCALIZACAO41 varchar(60),
    LOCALIZACAO42 varchar(60),
    LOCALIZACAO51 varchar(60),
    LOCALIZACAO52 varchar(60),
    PORC_FCP numeric(15,2),
    FLG_TRIBUTO char(1),
    PORC_OFERTA numeric(15,2),
    EXIBE_FICHA char(1)
    )
as
begin
if (OPERACAO = 1) then
insert into PRODUTO (CODIGO,NOME,COD_GRUPO,COD_FORNECEDOR,MARCA,UNIDADE_ESTOQUE,UNIDADE_CONVERSAO,QTD_EMBALAGEM,PORC_LUCRO_V,PORC_LUCRO_P,PORC_ICMS_ISS,PORC_COMISSAO,
COD_CST,ESTOQUE_INICIAL,ESTOQUE_MINIMO,ESTOQUE_ATUAL,ESTOQUE_FISCAL,COD_TRIB,COD_TRIB_ENT,SIT_TRIB,DT_CADASTRO,FLG_ATIVADO,FLG_ESTOQUE,FLG_TIPO,LOCALIZACAO,OBSERVACAO,
OBSERVACAO2,DT_ALTERACAO,TEMPO_REAL,NCM,COD_CSOSN,CONV_PRECO,CST_PIS,CST_COFINS,COD_SUBGRUPO,COD_SUBSUBGRUPO,ESTOQUE1,ESTOQUE2,ESTOQUE3,ESTOQUE4,ESTOQUE5,PORC_PIS,PORC_COFINS,
OBS_ADICIONAL,DT_VALIDADE,PORC_IPI,PORC_MVA,PESO_BRUTO,PESO_LIQUIDO,FOTO,ANEXO,COD_ANP,LOCALIZACAO2,ETIQUETA,COD_CEST,COD_EMPRESA,PORC_DESC,FLG_DESC,ESTOQUE_MAXIMO,ESTOQUE_DEMANDA_MEDIA,
ESTOQUE_TEMPO_RESUPRI,ESTOQUE_INTERVALO_RESUPRI,COD_DESP,COD_MARCA,FLG_SITE,FLG_BALANCA,SITE_COMPRIMENTO,SITE_LARGURA,SITE_ALTURA,SITE_DESCRICAO,SITE_SYNC,SITE_COD,PORC_REDBASE,PONTOS,
LOCALIZACAO21,LOCALIZACAO22,LOCALIZACAO31,LOCALIZACAO32,LOCALIZACAO41,LOCALIZACAO42,LOCALIZACAO51,LOCALIZACAO52, PORC_FCP, FLG_TRIBUTO,PORC_OFERTA,EXIBE_FICHA)
values (:CODIGO,:NOME,:COD_GRUPO,:COD_FORNECEDOR,:MARCA,:UNIDADE_ESTOQUE,:UNIDADE_CONVERSAO,:QTD_EMBALAGEM,:PORC_LUCRO_V,:PORC_LUCRO_P,:PORC_ICMS_ISS,:PORC_COMISSAO,:COD_CST,:ESTOQUE_INICIAL,:ESTOQUE_MINIMO,
:ESTOQUE_ATUAL,:ESTOQUE_FISCAL,:COD_TRIB,:COD_TRIB_ENT,:SIT_TRIB,:DT_CADASTRO,:FLG_ATIVADO,:FLG_ESTOQUE,:FLG_TIPO,:LOCALIZACAO,:OBSERVACAO,:OBSERVACAO2,:DT_ALTERACAO,:TEMPO_REAL,:NCM,:COD_CSOSN, 
:CONV_PRECO,:CST_PIS,:CST_COFINS,:COD_SUBGRUPO,:COD_SUBSUBGRUPO,:ESTOQUE1,:ESTOQUE2,:ESTOQUE3,:ESTOQUE4,:ESTOQUE5,:PORC_PIS,:PORC_COFINS,:OBS_ADICIONAL,:DT_VALIDADE,:PORC_IPI,:PORC_MVA,:PESO_BRUTO, 
:PESO_LIQUIDO,:FOTO,:ANEXO,:COD_ANP,:LOCALIZACAO2,:ETIQUETA,:COD_CEST,
:COD_EMPRESA,:PORC_DESC,:FLG_DESC,:ESTOQUE_MAXIMO,:ESTOQUE_DEMANDA_MEDIA,:ESTOQUE_TEMPO_RESUPRI,:ESTOQUE_INTERVALO_RESUPRI,:COD_DESP,:COD_MARCA,:FLG_SITE,:FLG_BALANCA,
:SITE_COMPRIMENTO,:SITE_LARGURA,:SITE_ALTURA,:SITE_DESCRICAO,:SITE_SYNC,:SITE_COD,:PORC_REDBASE,:PONTOS,:LOCALIZACAO21,:LOCALIZACAO22,:LOCALIZACAO31,:LOCALIZACAO32,:LOCALIZACAO41, 
:LOCALIZACAO42,:LOCALIZACAO51,:LOCALIZACAO52,:PORC_FCP, :FLG_TRIBUTO, :PORC_OFERTA, :EXIBE_FICHA);
if (OPERACAO = 2) then
update PRODUTO set
NOME = :NOME,
COD_GRUPO = :COD_GRUPO,
COD_FORNECEDOR = :COD_FORNECEDOR,
MARCA = :MARCA,
UNIDADE_ESTOQUE = :UNIDADE_ESTOQUE,
UNIDADE_CONVERSAO = :UNIDADE_CONVERSAO,
QTD_EMBALAGEM = :QTD_EMBALAGEM,
PORC_LUCRO_V = :PORC_LUCRO_V,
PORC_LUCRO_P = :PORC_LUCRO_P,
PORC_ICMS_ISS = :PORC_ICMS_ISS,
PORC_COMISSAO = :PORC_COMISSAO,
COD_CST = :COD_CST,
ESTOQUE_INICIAL = :ESTOQUE_INICIAL,
ESTOQUE_MINIMO = :ESTOQUE_MINIMO, 
ESTOQUE_ATUAL = :ESTOQUE_ATUAL,
ESTOQUE_FISCAL = :ESTOQUE_FISCAL, 
COD_TRIB = :COD_TRIB,
COD_TRIB_ENT = :COD_TRIB_ENT,
SIT_TRIB = :SIT_TRIB,
DT_CADASTRO = :DT_CADASTRO,
FLG_ATIVADO = :FLG_ATIVADO,
FLG_ESTOQUE = :FLG_ESTOQUE,
FLG_TIPO = :FLG_TIPO,
LOCALIZACAO = :LOCALIZACAO,
OBSERVACAO = :OBSERVACAO,
OBSERVACAO2 = :OBSERVACAO2,
DT_ALTERACAO = :DT_ALTERACAO,
TEMPO_REAL = :TEMPO_REAL,
NCM = :NCM,
COD_CSOSN = :COD_CSOSN, 
CONV_PRECO = :CONV_PRECO,
CST_PIS = :CST_PIS,
CST_COFINS = :CST_COFINS,
COD_SUBGRUPO = :COD_SUBGRUPO,
COD_SUBSUBGRUPO = :COD_SUBSUBGRUPO,
ESTOQUE1 = :ESTOQUE1,
ESTOQUE2 = :ESTOQUE2,
ESTOQUE3 = :ESTOQUE3,
ESTOQUE4 = :ESTOQUE4,
ESTOQUE5 = :ESTOQUE5,
PORC_PIS = :PORC_PIS,
PORC_COFINS = :PORC_COFINS,
OBS_ADICIONAL = :OBS_ADICIONAL,
DT_VALIDADE = :DT_VALIDADE,
PORC_IPI = :PORC_IPI,
PORC_MVA = :PORC_MVA,
PESO_BRUTO = :PESO_BRUTO,
PESO_LIQUIDO = :PESO_LIQUIDO,
FOTO = :FOTO,
ANEXO = :ANEXO,
COD_ANP = :COD_ANP,
LOCALIZACAO2 = :LOCALIZACAO2,
ETIQUETA = :ETIQUETA,
COD_CEST = :COD_CEST,
COD_EMPRESA = :COD_EMPRESA,
PORC_DESC = :PORC_DESC,
FLG_DESC = :FLG_DESC,
ESTOQUE_MAXIMO = :ESTOQUE_MAXIMO,
ESTOQUE_DEMANDA_MEDIA = :ESTOQUE_DEMANDA_MEDIA,
ESTOQUE_TEMPO_RESUPRI = :ESTOQUE_TEMPO_RESUPRI,
ESTOQUE_INTERVALO_RESUPRI = :ESTOQUE_INTERVALO_RESUPRI,
COD_DESP = :COD_DESP,
COD_MARCA = :COD_MARCA,
FLG_SITE = :FLG_SITE,
FLG_BALANCA = :FLG_BALANCA,
SITE_COMPRIMENTO = :SITE_COMPRIMENTO,
SITE_LARGURA = :SITE_LARGURA,
SITE_ALTURA = :SITE_ALTURA,
SITE_DESCRICAO = :SITE_DESCRICAO,
SITE_SYNC = :SITE_SYNC,
SITE_COD = :SITE_COD,
PORC_REDBASE = :PORC_REDBASE,
PONTOS = :PONTOS,
LOCALIZACAO21 = :LOCALIZACAO21,
LOCALIZACAO22 = :LOCALIZACAO22,
LOCALIZACAO31 = :LOCALIZACAO31,
LOCALIZACAO32 = :LOCALIZACAO32,
LOCALIZACAO41 = :LOCALIZACAO41,
LOCALIZACAO42 = :LOCALIZACAO42,
LOCALIZACAO51 = :LOCALIZACAO51,
LOCALIZACAO52 = :LOCALIZACAO52,
PORC_FCP = :PORC_FCP,
FLG_TRIBUTO = :FLG_TRIBUTO,
PORC_OFERTA = :PORC_OFERTA,
EXIBE_FICHA = :EXIBE_FICHA
where (CODIGO = :CODIGO);
if (OPERACAO = 3) then
delete from PRODUTO 
where (CODIGO = :CODIGO);
suspend;
end

^

update RDB$FIELDS set
RDB$FIELD_LENGTH = 400,
RDB$CHARACTER_LENGTH = 400
where RDB$FIELD_NAME = 'RDB$6844'
^

update movto set TIPO_RECEB = 7
where 
tipo_receb = 6
and exists (select codigo from empresa where cnpj = '17.827.707/0001-79')
^