/*--------------------- 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' where CONF_BAIXAVENDASAVISTA is null;

/******************************************************************************/

/* ----- 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);

-----04-10-2021-----
ALTER TABLE TBEMPRESA ADD EMP_EXC_ICMS_PISCOFINS VARCHAR(30);