/*------ 21/01/2021 11:17:06 --------*/

update RDB$RELATION_FIELDS set
RDB$FIELD_SOURCE = 'VC250'
where (RDB$FIELD_NAME = 'DESCRICAO') and
(RDB$RELATION_NAME = 'CFOP')
;


/*------ 29/01/2021 17:03:02 --------*/

CREATE TABLE ARQUIVOSEMP(
    IDARQEMP CODIGO NOT NULL);


/*------ 29/01/2021 17:03:02 --------*/

alter table ARQUIVOSEMP
add 
primary key (IDARQEMP);


/*------ 29/01/2021 17:03:21 --------*/

ALTER TABLE ARQUIVOSEMP
ADD CODEMPRESA INTEIRO_NULL;


/*------ 29/01/2021 17:03:46 --------*/

ALTER TABLE ARQUIVOSEMP
ADD CERTIFICADO FOTO;


/*------ 29/01/2021 17:04:06 --------*/

CREATE GENERATOR GEN_ARQUIVOSEMP;


/*------ 29/01/2021 17:04:06 --------*/

SET TERM ^ ;

CREATE TRIGGER ARQUIVOSEMP_BI FOR ARQUIVOSEMP
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.IDARQEMP IS NULL OR NEW.IDARQEMP=0) THEN
      NEW.IDARQEMP = GEN_ID(GEN_ARQUIVOSEMP,1);
END
^

SET TERM ; ^




/*------ 06/02/2021 01:31:29 --------*/

ALTER TABLE ITENSMOVIMENTOPROD
ADD IDITEMPEDIDO INTEIRO_NULL;


/*------ 09/02/2021 01:02:34 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPDESPESASAVISTA
RETURNS (
    CODMOVIMENTO INTEGER,
    CODFORNECEDOR INTEGER,
    NOME VARCHAR(70),
    DATA DATE,
    TOTAL FLOAT,
    DESCRICAO VARCHAR(50),
    CODIGOCONTABIL VARCHAR(20),
    PLANODECONTAS VARCHAR(40),
    CODFUNCIONARIO INTEGER,
    FUNCIONARIO VARCHAR(40),
    VALOR FLOAT,
    CODFILIAL INTEGER,
    CODEMPRESA INTEGER)
AS
begin
  FOR SELECT M.CODMOVIMENTO, F.CODFORNECEDOR, F.NOME, M.DATA, DP.VALOR, DP.DESCRICAO, PC.CODIGOCONTABIL, PC.DESCRICAO,
  M.CODFUNCIONARIO, FU.NOME, DM.VALOR, M.CODFILIAL, M.CODEMPRESA
  FROM MOVIMENTOSPRODUTOS           M
  JOIN DESPESASRECEITAS             DP  ON (DP.CODMOVIMENTO = M.CODMOVIMENTO)
  JOIN CONTASPAGARRECEBER           CPR ON (CPR.CODMOVIMENTO = M.CODMOVIMENTO)
  JOIN PLANOSDECONTAS               PC  ON (PC.CODIGOCONTABIL  = M.CODIGOCONTABIL)
  JOIN DINHEIRO                     DM  ON (DM.CODCONTA   = CPR.CODCONTA)
  LEFT JOIN FORNMOVIMENTO          FM  ON (FM.CODMOVIMENTO    = M.CODMOVIMENTO)
  LEFT JOIN FORNECEDORES            F   ON (F.CODFORNECEDOR = FM.CODFORNECEDOR)
  LEFT JOIN FUNCIONARIOS            FU  ON (FU.CODFUNCIONARIO = M.CODFUNCIONARIO)
  WHERE M.TIPO IN('DP', 'DF') AND DM.VALOR>0
    INTO :CODMOVIMENTO, :CODFORNECEDOR, :NOME, :DATA, :TOTAL, :DESCRICAO, :CODIGOCONTABIL, :PLANODECONTAS,
    :CODFUNCIONARIO, :FUNCIONARIO, :VALOR, :CODFILIAL, :CODEMPRESA DO
    suspend;
end
^

SET TERM ; ^




/*------ 09/02/2021 01:02:37 --------*/

SET TERM ^ ;

ALTER PROCEDURE SPDESPESASACADEMIA
RETURNS (
    CODMOVIMENTO INTEGER,
    CODEMPRESA INTEGER,
    CODFORNECEDOR INTEGER,
    NOME VARCHAR(70),
    DATAPGTO DATE,
    VALOR FLOAT,
    DESCRICAO VARCHAR(50),
    CODIGOCONTABIL VARCHAR(20),
    PLANODECONTAS VARCHAR(40),
    CODFILIAL INTEGER)
AS
begin
  FOR select CODMOVIMENTO, CODFORNECEDOR, FORNECEDOR,  DATAPGTO, TOTALPAGO, DESCRICAO,  CODIGOCONTABIL,  PLANODECONTAS, CODFILIAL
    from VWCONTASPAGAS
    INTO  :CODMOVIMENTO, :CODFORNECEDOR,  :NOME, :DATAPGTO,  :VALOR, :DESCRICAO, :CODIGOCONTABIL,  :PLANODECONTAS, :CODFILIAL DO
           SUSPEND;

    FOR SELECT
     DA.CODMOVIMENTO,
     DA.CODFORNECEDOR,
     DA.NOME,
     DA.DATA,
     DA.VALOR,
     DA.DESCRICAO ,
     DA.CODIGOCONTABIL,
     DA.PLANODECONTAS,
     DA.CODFILIAL
    FROM
    SPDESPESASAVISTA DA
    INTO :CODMOVIMENTO,
     :CODFORNECEDOR,
     :NOME,
     :DATAPGTO,
     :VALOR,
     :DESCRICAO,
     :CODIGOCONTABIL,
     :PLANODECONTAS,
     :CODFILIAL  DO
     BEGIN

        SELECT CODEMPRESA FROM MOVIMENTOSPRODUTOS M
        WHERE M.CODMOVIMENTO=:CODMOVIMENTO
        INTO:CODEMPRESA;

      SUSPEND;
     END

end
^

SET TERM ; ^