/*--------------------- Alterações a partir de 01-04-2020 ------------* / /* ----- 08-04-2020 ----- */ ALTER TABLE TBPESSOA ALTER PES_ENDERECO TYPE VARCHAR(60) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_COMPLEMENTO TYPE VARCHAR(40) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_BAIRRO TYPE VARCHAR(40) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_ENDENTREGA TYPE VARCHAR(60) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_COMPLEMENTOENTREGA TYPE VARCHAR(40) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_BAIRROENTREGA TYPE VARCHAR(40) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_ENDCOBRANCA TYPE VARCHAR(60) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_COMPLEMENTOCOBRANCA TYPE VARCHAR(40) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_BAIRROCOBRANCA TYPE VARCHAR(40) CHARACTER SET WIN1252; /* ----- 22-04-2020 ----- */ ALTER TABLE TBEQUIPAMENTO_ACOMPANHAMENTO ADD AC_CODFICHA BIGINT; ALTER TABLE TBEQUIPAMENTO_ACOMPANHAMENTO ALTER AC_ITENS TYPE VARCHAR(240) CHARACTER SET WIN1252; ALTER TABLE TBEQUIPAMENTO_ACOMPANHAMENTO ALTER AC_MOTIVO TYPE VARCHAR(240) CHARACTER SET WIN1252; ALTER TABLE TBEQUIPAMENTO_ACOMPANHAMENTO ADD AC_L1_DESLIGADO LOGICO DEFAULT 'N'; ALTER TABLE TBEQUIPAMENTO_ACOMPANHAMENTO ADD AC_L2_DESLIGADO LOGICO DEFAULT 'N'; /* ----- 04-05-2020 ----- */ ALTER TABLE TBFICHA_SERVICO ALTER FS_TAREFASEXTRAS TYPE VARCHAR(500) CHARACTER SET WIN1252; ALTER TABLE TBFICHA_SERVICO ALTER FS_OBS TYPE VARCHAR(500) CHARACTER SET WIN1252; ALTER TABLE TBEQUIPAMENTO ALTER EQ_MOTIVODESMONTAGEM TYPE VARCHAR(500) CHARACTER SET WIN1252; ALTER TABLE TBEQUIPAMENTO_ACOMPANHAMENTO ALTER AC_ITENS TYPE VARCHAR(500) CHARACTER SET WIN1252; ALTER TABLE TBEQUIPAMENTO_ACOMPANHAMENTO ALTER AC_MOTIVO TYPE VARCHAR(500) CHARACTER SET WIN1252; /* ----- 08-05-2020 Correçao relacionamento Representante no Conta Corrente Comissao ----- */ /* 1º*/ --ALTER TABLE TBCOMISSAO ADD COM_AUXREPRES INTEGER; /* 2º*/ --update tbcomissao set COM_AUXREPRES = COM_codrep where COM_AUXREPRES is null; /* 3º*/ --UPDATE TBCOMISSAO SET COM_CODREP = (select pes_codigo from tbpessoa where (pes_codseq = TBCOMISSAO.COM_AUXREPRES and pes_tipo = 'R')) --where coalesce(COM_AUXREPRES,0) > 0; --COMMIT; /* ----- -------------------------------------------------------------------- ----- */ /* ----- 08-05-2020 ----- */ ALTER TABLE SIS_CONFIG ADD CONF_DIRARQREMESSABANC VARCHAR(240); ALTER TABLE TBEQUIPAMENTO ADD EQ_DUALGAGE LOGICO DEFAULT 'N'; ALTER TABLE SIS_CONFIG ADD CONF_INTERVALOBACKUP INTEGER; /* ----- 02-06-2020 ----- */ ALTER TABLE TBCFOP ADD CF_CSTIPI VARCHAR(3); ALTER TABLE TBCFOP ADD CF_CST VARCHAR(3); ALTER TABLE TBCFOP ADD CF_CSOSN VARCHAR(3); / /* ----- 04-01-2021 ----- */ ALTER TABLE TBUSUARIO ADD USU_CODPESSOA INTEGER; ALTER TABLE TBUSUARIO ADD USU_EMAIL VARCHAR(60); /* ----- 18-01-2021 ----- */ ALTER TABLE TBPRODUTO ADD PROD_AUX NUMERIC(15,3); update tbproduto set PROD_AUX = prod_custoestoque; ALTER TABLE TBPRODUTO DROP PROD_CUSTOESTOQUE; commit work; ALTER TABLE TBPRODUTO ADD PROD_CUSTOESTOQUE NUMERIC(15,3); update tbproduto set PROD_CUSTOESTOQUE = PROD_AUX; ---ALTER TABLE TBPRODUTO DROP PROD_AUX; ---ALTER PARA MOBILE ELAINE --- ALTER TABLE TBPESSOA ALTER PES_ENDERECO TYPE VARCHAR(60) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_OBS TYPE VARCHAR(60) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_HISTORICO TYPE VARCHAR(250) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ALTER PES_CEP TYPE VARCHAR(10) CHARACTER SET WIN1252; ALTER TABLE TBPESSOA ADD PES_CIDADE VARCHAR(40); ALTER TABLE TBPESSOA ADD PES_LATITUDE VARCHAR(25); ALTER TABLE TBPESSOA ADD PES_LONGITUDE VARCHAR(25); ALTER TABLE TBPRODUTO ADD PROD_PK_SERVIDOR INTEGER; /* ----- 27-01-2021 ----- */ ALTER TABLE TBORDEM_SERVICO ADD OS_OBS VARCHAR(200); /* ----- 02-02-2021 ----- */ ALTER TABLE TBESTOQUE ALTER EST_OBS TYPE VARCHAR(60) CHARACTER SET WIN1252; ALTER TABLE TBFUNC_EPI ADD EPI_CERTIFICADO VARCHAR(10); ALTER TABLE TBFUNC_EPI ADD EPI_VALIDADE DATE; update RDB$RELATION_FIELDS set RDB$NULL_FLAG = NULL where (RDB$FIELD_NAME = 'PROD_COD1') and (RDB$RELATION_NAME = 'TBPRODUTO'); /*--------------------------------------------------------------------------*/ CREATE TABLE TBCONFIG ( CAMPO VARCHAR(50) NOT NULL, VALOR VARCHAR(200) ); ALTER TABLE TBCONFIG ADD CONSTRAINT PK_TBCONFIG PRIMARY KEY (CAMPO); /*--------------------------------------------------------------------------*/ /* ----- 23-03-2021 ----- */ ALTER TABLE TBEQUIPAMENTO ADD EQ_ULT_ALTERACAO TIMESTAMP; ALTER TABLE TBFUNCIONARIO ADD FUN_ULT_ALTERACAO TIMESTAMP; ALTER TABLE TBEQUIPAMENTO ALTER EQ_NUMCHIP TYPE VARCHAR(20) CHARACTER SET WIN1252; ALTER TABLE TBFUNCIONARIO ADD FUN_FOTO BLOB SUB_TYPE 0 SEGMENT SIZE 80; ALTER TABLE TBUSUARIO ADD USU_CODPESSOA INTEGER; ALTER TABLE TBUSUARIO ADD USU_EMAIL VARCHAR(60); Update tbproduto set prod_cod1 = prod_codigo where prod_cod1 is null; /* update tbproduto set prod_cod1 = prod_codigo where prod_cod1 is null; UPDATE tbfuncionario SET FUN_ULT_ALTERACAO = current_timestamp; UPDATE tbARQUIVO00 SET ARQ_DATAUPDATE = current_timestamp; UPDATE tbPESSOA SET PES_DATAUPDATE = current_timestamp where PES_TIPO = 'C' OR PES_CLIENTE = 'S'; UPDATE tbEQUIPAMENTO SET EQ_ULT_ALTERACAO = current_timestamp , eq_sincronizacao = 'S'; UPDATE tbproduto SET PROD_DATAUPDATE = current_timestamp; */ ALTER TABLE TBFUNCIONARIO ADD FUN_FOTO BLOB SUB_TYPE 0 SEGMENT SIZE 80; ALTER TABLE TBFICHA_SERVICO ALTER FS_NUMCHIP TYPE VARCHAR(20) CHARACTER SET WIN1252; ALTER TABLE TBFICHA_SERVICO ADD FS_L1_CK_REALIZADA_CAPINA LOGICO; ALTER TABLE TBFICHA_SERVICO ADD FS_L2_CK_REALIZADA_CAPINA LOGICO; ALTER TABLE TBFICHA_SERVICO ADD FS_EQ_NUMERO INTEGER; ALTER TABLE TBFICHA_SERVICO ADD FS_L1_E1_TR3_ARF SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L1_E1_TR3_ARM SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L1_E1_TR3_ARG SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L1_E2_TR3_ARF SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L1_E2_TR3_ARM SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L1_E2_TR3_ARG SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L2_E1_TR3_ARF SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L2_E1_TR3_ARM SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L2_E1_TR3_ARG SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L2_E2_TR3_ARF SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L2_E2_TR3_ARM SMALLINT; ALTER TABLE TBFICHA_SERVICO ADD FS_L2_E2_TR3_ARG SMALLINT; / ----- 28-04-2021 ----- / ALTER TABLE TBBORDERO ADD BOR_CODUSUARIO INTEGER; ALTER TABLE TBBORDERO ADD BOR_ULTALTERACAO TIMESTAMP; / ----- 29-04-2021 ----- / ALTER TABLE SIS_CONFIG ADD CONF_BAIXAVENDASAVISTA LOGICO DEFAULT 'S'; UPDATE SIS_CONFIG CONF_BAIXAVENDASAVISTA = 'S'; /******************************************************************************/ /* ----- 30-06-2021 ----- */ ALTER TABLE TBVEICULO_IND_REVISAO ALTER VR_DESCRICAO TYPE VARCHAR(250) CHARACTER SET WIN1252; /* ----- 27-07-2021 ----- */ ALTER TABLE TBPRODUTO ALTER PROD_FATORCONVERSAO TYPE NUMERIC(15,4); --ALTER TABLE TBINVENTARIO_ITENS ADD IVI_CUSTO TYPE NUMERIC(15,4); ERR ALTER TABLE TBINVENTARIO_ITENS ADD IVI_DESCRICAO VARCHAR(120); ALTER TABLE TBINVENTARIO_ITENS ADD IVI_OBS VARCHAR(30); update tbinventario_itens set ivi_descricao = (select prod_nome from tbproduto where prod_codigo = tbinventario_itens.ivi_codproduto) where ivi_descricao is null; ALTER TABLE TBCREDITO_AP ADD CAP_NUMPATRIMONIO VARCHAR(15); ALTER TABLE TBCREDITO_AP ADD CAP_STATUS VARCHAR(20); ALTER TABLE TBCREDITO_AP ADD CAP_OBS VARCHAR(40); ALTER TABLE TBEQUIPAMENTO_DETALHE ADD ED_ULTALTERACAO TIMESTAMP; ALTER TABLE TBEQUIPAMENTO ADD EQ_ULTFS BIGINT; /* ----- 05-08-2021 ----- */ --- procedure para inventario ----- create or alter procedure SP_ATUALIZA_PRODUTO_CUSTESTOQUE ( D1 date, D2 date) as declare variable PARAR_LACO char(1); declare variable V_CODPRODUTO integer; declare variable V_QTDE numeric(15,3); declare variable V_TOTAL numeric(15,3); declare variable V_CUSTO numeric(15,3); declare variable V_FATOR numeric(15,4); declare variable V_TCONVERSAO char(1); declare CRSR cursor for ( select PIT_CODPRODUTO, sum(coalesce(PIT_QTDE, 0)) QTDE, sum(coalesce(PIT_TOTAL, 0)) TOTAL, PROD_FATORCONVERSAO, PROD_TIPOCONVERSAO from TBPEDIDO, TBPEDIDO_ITENS, TBPRODUTO where PIT_CODPEDIDO = PED_CODIGO and PROD_CODIGO = PIT_CODPRODUTO and PIT_REGISTRO = 'S' and PED_CADASTRO = 'D' and PED_REGISTRO = 'S' and PED_DATASAIDA between :D1 and :D2 and (coalesce(PIT_QTDE, 0) > 0) and (coalesce(PIT_TOTAL, 0) > 0) group by PIT_CODPRODUTO, PROD_FATORCONVERSAO, PROD_TIPOCONVERSAO); BEGIN OPEN CRSR; PARAR_LACO = 'N'; WHILE (PARAR_LACO = 'N') DO BEGIN FETCH CRSR INTO V_CODPRODUTO, v_qtde, v_total, V_FATOR, V_TCONVERSAO; IF (ROW_COUNT = 1) THEN BEGIN v_custo= (:v_total/:v_qtde); if (v_fator <> 1) then BEGIN IF (V_TCONVERSAO = 'M') THEN v_custo = (:v_total/:v_qtde) / :V_FATOR; IF (V_TCONVERSAO = 'D') THEN v_custo = (:v_total/:v_qtde) * :V_FATOR; END UPDATE TBPRODUTO SET PROD_CUSTOESTOQUE = :V_CUSTO WHERE PROD_CODIGO = :V_CODPRODUTO; END ELSE PARAR_LACO = 'S'; END CLOSE CRSR; END -------------------------------------------------------- -----17-08-2021----- ALTER TABLE TBVOLUME ADD VOL_EMBALAGEM VARCHAR(10); ALTER TABLE TBVOLUME ADD VOL_M3 NUMERIC(15,4); update tbvolume set vol_producao = 'N' where vol_producao is null;