/*------ 15/04/2016 02:24:19 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCONTASRECEBIDAS ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALORPAGO FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), TIPOPGTO VARCHAR(15), HORA TIME, CREDITO FLOAT, RESTANTECOMJUROS FLOAT) AS declare variable TIPOPG CHAR(1); begin FOR SELECT CPR.CODMOVIMENTO, CPR.CODPLANOPGTO, PC.CODPARCELA, PC.NRPARCELA, PC.VALORPARCELA, PC.VENCIMENTO, PC.DOCUMENTO, PC.PAGO, PG.DATA, PG.VALOR, PG.CODPARCELAPGTO, PG.VALORNADATA, PG.CODUSUARIO, PG.TIPO, PG.HORA FROM PARCELASPGTO PG JOIN PARCELASCONTAS PC ON (PG.CODPARCELA = PC.CODPARCELA) JOIN CONTASPAGARRECEBER CPR ON (CPR.CODCONTA = PC.CODCONTA) WHERE CPR.TIPO IN ('VE', 'RE') AND PG.DATA>=:DATAI AND PG.DATA<=:DATAF INTO :CODMOVIMENTO, :CODPLANOPGTO, :CODPARCELA, :NRPARCELA, :VALORPARCELA, :VENCIMENTO, :DOCUMENTO, :PAGO, :DATAPGTO, :VALORPAGO, :CODPARCELAPGTO, :VALORNADATA, :CODUSUARIO, :TIPOPG, :HORA DO BEGIN TIPOPGTO = NULL; /*if (TIPOPG='D') then TIPOPGTO = 'DINHEIRO'; if (TIPOPG='C') then TIPOPGTO = 'CHEQUE'; if (TIPOPG='K') then TIPOPGTO = 'CARTAO';*/ SELECT TIPOPGTO FROM SPTIPOPGTO(:TIPOPG) INTO :TIPOPGTO; NRDOCUMENTO = null; USUARIO = NULL; SELECT U.LOGIN FROM USUARIOS U WHERE U.CODUSUARIO=:CODUSUARIO INTO :USUARIO; SELECT SPR.RESTANTECOMJUROS, SPR.VALORPAGO FROM SPCONTASRECEBER SPR WHERE SPR.CODPARCELA=:CODPARCELA INTO :RESTANTECOMJUROS, :CREDITO; CODIGOCONTABIL = NULL; SELECT M.CODFILIAL, M.DATA, F.NOME, M.TIPO, M.CODIGOCONTABIL FROM MOVIMENTOSPRODUTOS M JOIN FILIAIS F ON (F.CODFILIAL = M.CODFILIAL) WHERE M.CODMOVIMENTO=:CODMOVIMENTO INTO :CODFILIAL, :DATA, :FILIAL, :TIPO, :CODIGOCONTABIL; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; NRNFE = NULL; SELECT N.NRDOCUMENTO FROM NFEMOV N WHERE N.CODMOVIMENTO=:CODMOVIMENTO INTO :NRNFE; SELECT DM.TIPODOC, DM.NRDOCUMENTO FROM DOCUMENTOMOV DM WHERE DM.CODMOVIMENTO=:CODMOVIMENTO INTO :TIPODOC, :NRDOCUMENTO; SELECT CM.CODCLIENTE FROM CLIENTEMOVIMENTO CM WHERE CM.CODMOVIMENTO=:CODMOVIMENTO INTO :CODCLIENTE; SELECT CAST(C.NOME AS VARCHAR(70))AS CLIENTE, C.NOME FROM CLIENTES C WHERE C.CODCLIENTE=:CODCLIENTE INTO :CLIENTE, :NOME; SELECT PL.DESCRICAO FROM PLANOSDECONTAS PL WHERE PL.CODIGOCONTABIL=:CODIGOCONTABIL INTO :PLANODECONTAS; if (VALORPAGO>VALORPARCELA) then BEGIN JUROS = VALORPAGO - VALORPARCELA; END ELSE JUROS = 0; DESCONTO =0; SELECT SUM(DC.VALOR) FROM LINKDESCONTOPARCELEA LK JOIN DESCONTOPARCELA DC ON (DC.CODDESCONTOPARCELA = LK.CODDESCONTOPARCELA) WHERE LK.CODPARCELAPGTO=:CODPARCELAPGTO INTO :DESCONTO; EXTENSO=NULL; if (VALORPAGO>0) then begin SELECT VALOREXTENSO FROM EXTENSO(:VALORPAGO,'S') INTO :EXTENSO; end suspend; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:24:24 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCXACADEMIA ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALOR FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), DESCRECEITA VARCHAR(50), TIPOPGTO VARCHAR(15)) AS begin DESCRECEITA = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , FILIAL , DATA , TIPO , CODPLANOPGTO , CODPARCELA , NRPARCELA , VALORPARCELA , VENCIMENTO , DOCUMENTO , PAGO , CODCLIENTE , CLIENTE , DATAPGTO , VALORPAGO , JUROS , NRDOCUMENTO , NOME , CODPARCELAPGTO , DESCONTO , VALORNADATA , CODUSUARIO , USUARIO , NRNFE , TIPODOC , EXTENSO , CODIGOCONTABIL , PLANODECONTAS, TIPOPGTO FROM SPCONTASRECEBIDAS(:DATAI, :DATAF) INTO :CODMOVIMENTO , :CODFILIAL , :FILIAL , :DATA , :TIPO , :CODPLANOPGTO , :CODPARCELA , :NRPARCELA , :VALORPARCELA , :VENCIMENTO , :DOCUMENTO , :PAGO , :CODCLIENTE , :CLIENTE , :DATAPGTO , :VALOR , :JUROS , :NRDOCUMENTO , :NOME , :CODPARCELAPGTO , :DESCONTO , :VALORNADATA , :CODUSUARIO , :USUARIO , :NRNFE , :TIPODOC , :EXTENSO , :CODIGOCONTABIL , :PLANODECONTAS, :TIPOPGTO DO SUSPEND; VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASCHEQUE(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'CHEQUE'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'VE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVVENDAAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:34:15 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCONTASRECEBIDAS ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALORPAGO FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), TIPOPGTO VARCHAR(15), HORA TIME, CREDITO FLOAT, RESTANTECOMJUROS FLOAT) AS declare variable TIPOPG CHAR(1); begin FOR SELECT CPR.CODMOVIMENTO, CPR.CODPLANOPGTO, PC.CODPARCELA, PC.NRPARCELA, PC.VALORPARCELA, PC.VENCIMENTO, PC.DOCUMENTO, PC.PAGO, PG.DATA, PG.VALOR, PG.CODPARCELAPGTO, PG.VALORNADATA, PG.CODUSUARIO, PG.TIPO, PG.HORA FROM PARCELASPGTO PG JOIN PARCELASCONTAS PC ON (PG.CODPARCELA = PC.CODPARCELA) JOIN CONTASPAGARRECEBER CPR ON (CPR.CODCONTA = PC.CODCONTA) WHERE CPR.TIPO IN ('VE', 'RE') AND PG.DATA>=:DATAI AND PG.DATA<=:DATAF INTO :CODMOVIMENTO, :CODPLANOPGTO, :CODPARCELA, :NRPARCELA, :VALORPARCELA, :VENCIMENTO, :DOCUMENTO, :PAGO, :DATAPGTO, :VALORPAGO, :CODPARCELAPGTO, :VALORNADATA, :CODUSUARIO, :TIPOPG, :HORA DO BEGIN TIPOPGTO = NULL; /*if (TIPOPG='D') then TIPOPGTO = 'DINHEIRO'; if (TIPOPG='C') then TIPOPGTO = 'CHEQUE'; if (TIPOPG='K') then TIPOPGTO = 'CARTAO';*/ SELECT RESTANTECOMJUROS, VALORPAGO FROM SPCONTASRECEBER WHERE CODPARCELA=:CODPARCELA INTO :RESTANTECOMJUROS, :CREDITO; SELECT TIPOPGTO FROM SPTIPOPGTO(:TIPOPG) INTO :TIPOPGTO; NRDOCUMENTO = null; USUARIO = NULL; SELECT U.LOGIN FROM USUARIOS U WHERE U.CODUSUARIO=:CODUSUARIO INTO :USUARIO; CODIGOCONTABIL = NULL; SELECT M.CODFILIAL, M.DATA, F.NOME, M.TIPO, M.CODIGOCONTABIL FROM MOVIMENTOSPRODUTOS M JOIN FILIAIS F ON (F.CODFILIAL = M.CODFILIAL) WHERE M.CODMOVIMENTO=:CODMOVIMENTO INTO :CODFILIAL, :DATA, :FILIAL, :TIPO, :CODIGOCONTABIL; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; NRNFE = NULL; SELECT N.NRDOCUMENTO FROM NFEMOV N WHERE N.CODMOVIMENTO=:CODMOVIMENTO INTO :NRNFE; SELECT DM.TIPODOC, DM.NRDOCUMENTO FROM DOCUMENTOMOV DM WHERE DM.CODMOVIMENTO=:CODMOVIMENTO INTO :TIPODOC, :NRDOCUMENTO; SELECT CM.CODCLIENTE FROM CLIENTEMOVIMENTO CM WHERE CM.CODMOVIMENTO=:CODMOVIMENTO INTO :CODCLIENTE; SELECT CAST(C.NOME AS VARCHAR(70))AS CLIENTE, C.NOME FROM CLIENTES C WHERE C.CODCLIENTE=:CODCLIENTE INTO :CLIENTE, :NOME; SELECT PL.DESCRICAO FROM PLANOSDECONTAS PL WHERE PL.CODIGOCONTABIL=:CODIGOCONTABIL INTO :PLANODECONTAS; if (VALORPAGO>VALORPARCELA) then BEGIN JUROS = VALORPAGO - VALORPARCELA; END ELSE JUROS = 0; DESCONTO =0; SELECT SUM(DC.VALOR) FROM LINKDESCONTOPARCELEA LK JOIN DESCONTOPARCELA DC ON (DC.CODDESCONTOPARCELA = LK.CODDESCONTOPARCELA) WHERE LK.CODPARCELAPGTO=:CODPARCELAPGTO INTO :DESCONTO; EXTENSO=NULL; if (VALORPAGO>0) then begin SELECT VALOREXTENSO FROM EXTENSO(:VALORPAGO,'S') INTO :EXTENSO; end suspend; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:34:17 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCXACADEMIA ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALOR FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), DESCRECEITA VARCHAR(50), TIPOPGTO VARCHAR(15)) AS begin DESCRECEITA = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , FILIAL , DATA , TIPO , CODPLANOPGTO , CODPARCELA , NRPARCELA , VALORPARCELA , VENCIMENTO , DOCUMENTO , PAGO , CODCLIENTE , CLIENTE , DATAPGTO , VALORPAGO , JUROS , NRDOCUMENTO , NOME , CODPARCELAPGTO , DESCONTO , VALORNADATA , CODUSUARIO , USUARIO , NRNFE , TIPODOC , EXTENSO , CODIGOCONTABIL , PLANODECONTAS, TIPOPGTO FROM SPCONTASRECEBIDAS(:DATAI, :DATAF) INTO :CODMOVIMENTO , :CODFILIAL , :FILIAL , :DATA , :TIPO , :CODPLANOPGTO , :CODPARCELA , :NRPARCELA , :VALORPARCELA , :VENCIMENTO , :DOCUMENTO , :PAGO , :CODCLIENTE , :CLIENTE , :DATAPGTO , :VALOR , :JUROS , :NRDOCUMENTO , :NOME , :CODPARCELAPGTO , :DESCONTO , :VALORNADATA , :CODUSUARIO , :USUARIO , :NRNFE , :TIPODOC , :EXTENSO , :CODIGOCONTABIL , :PLANODECONTAS, :TIPOPGTO DO SUSPEND; VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASCHEQUE(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'CHEQUE'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'VE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVVENDAAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:35:42 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCONTASRECEBIDAS ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALORPAGO FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), TIPOPGTO VARCHAR(15), HORA TIME, CREDITO FLOAT, RESTANTECOMJUROS FLOAT) AS declare variable TIPOPG CHAR(1); begin FOR SELECT CPR.CODMOVIMENTO, CPR.CODPLANOPGTO, PC.CODPARCELA, PC.NRPARCELA, PC.VALORPARCELA, PC.VENCIMENTO, PC.DOCUMENTO, PC.PAGO, PG.DATA, PG.VALOR, PG.CODPARCELAPGTO, PG.VALORNADATA, PG.CODUSUARIO, PG.TIPO, PG.HORA FROM PARCELASPGTO PG JOIN PARCELASCONTAS PC ON (PG.CODPARCELA = PC.CODPARCELA) JOIN CONTASPAGARRECEBER CPR ON (CPR.CODCONTA = PC.CODCONTA) WHERE CPR.TIPO IN ('VE', 'RE') AND PG.DATA>=:DATAI AND PG.DATA<=:DATAF INTO :CODMOVIMENTO, :CODPLANOPGTO, :CODPARCELA, :NRPARCELA, :VALORPARCELA, :VENCIMENTO, :DOCUMENTO, :PAGO, :DATAPGTO, :VALORPAGO, :CODPARCELAPGTO, :VALORNADATA, :CODUSUARIO, :TIPOPG, :HORA DO BEGIN TIPOPGTO = NULL; /*if (TIPOPG='D') then TIPOPGTO = 'DINHEIRO'; if (TIPOPG='C') then TIPOPGTO = 'CHEQUE'; if (TIPOPG='K') then TIPOPGTO = 'CARTAO';*/ RESTANTECOMJUROS =0 ; CREDITO =0 ; SELECT RESTANTECOMJUROS, VALORPAGO FROM SPCONTASRECEBER WHERE CODPARCELA=:CODPARCELA INTO :RESTANTECOMJUROS, :CREDITO; SELECT TIPOPGTO FROM SPTIPOPGTO(:TIPOPG) INTO :TIPOPGTO; NRDOCUMENTO = null; USUARIO = NULL; SELECT U.LOGIN FROM USUARIOS U WHERE U.CODUSUARIO=:CODUSUARIO INTO :USUARIO; CODIGOCONTABIL = NULL; SELECT M.CODFILIAL, M.DATA, F.NOME, M.TIPO, M.CODIGOCONTABIL FROM MOVIMENTOSPRODUTOS M JOIN FILIAIS F ON (F.CODFILIAL = M.CODFILIAL) WHERE M.CODMOVIMENTO=:CODMOVIMENTO INTO :CODFILIAL, :DATA, :FILIAL, :TIPO, :CODIGOCONTABIL; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; NRNFE = NULL; SELECT N.NRDOCUMENTO FROM NFEMOV N WHERE N.CODMOVIMENTO=:CODMOVIMENTO INTO :NRNFE; SELECT DM.TIPODOC, DM.NRDOCUMENTO FROM DOCUMENTOMOV DM WHERE DM.CODMOVIMENTO=:CODMOVIMENTO INTO :TIPODOC, :NRDOCUMENTO; SELECT CM.CODCLIENTE FROM CLIENTEMOVIMENTO CM WHERE CM.CODMOVIMENTO=:CODMOVIMENTO INTO :CODCLIENTE; SELECT CAST(C.NOME AS VARCHAR(70))AS CLIENTE, C.NOME FROM CLIENTES C WHERE C.CODCLIENTE=:CODCLIENTE INTO :CLIENTE, :NOME; SELECT PL.DESCRICAO FROM PLANOSDECONTAS PL WHERE PL.CODIGOCONTABIL=:CODIGOCONTABIL INTO :PLANODECONTAS; if (VALORPAGO>VALORPARCELA) then BEGIN JUROS = VALORPAGO - VALORPARCELA; END ELSE JUROS = 0; DESCONTO =0; SELECT SUM(DC.VALOR) FROM LINKDESCONTOPARCELEA LK JOIN DESCONTOPARCELA DC ON (DC.CODDESCONTOPARCELA = LK.CODDESCONTOPARCELA) WHERE LK.CODPARCELAPGTO=:CODPARCELAPGTO INTO :DESCONTO; EXTENSO=NULL; if (VALORPAGO>0) then begin SELECT VALOREXTENSO FROM EXTENSO(:VALORPAGO,'S') INTO :EXTENSO; end suspend; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:35:44 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCXACADEMIA ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALOR FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), DESCRECEITA VARCHAR(50), TIPOPGTO VARCHAR(15)) AS begin DESCRECEITA = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , FILIAL , DATA , TIPO , CODPLANOPGTO , CODPARCELA , NRPARCELA , VALORPARCELA , VENCIMENTO , DOCUMENTO , PAGO , CODCLIENTE , CLIENTE , DATAPGTO , VALORPAGO , JUROS , NRDOCUMENTO , NOME , CODPARCELAPGTO , DESCONTO , VALORNADATA , CODUSUARIO , USUARIO , NRNFE , TIPODOC , EXTENSO , CODIGOCONTABIL , PLANODECONTAS, TIPOPGTO FROM SPCONTASRECEBIDAS(:DATAI, :DATAF) INTO :CODMOVIMENTO , :CODFILIAL , :FILIAL , :DATA , :TIPO , :CODPLANOPGTO , :CODPARCELA , :NRPARCELA , :VALORPARCELA , :VENCIMENTO , :DOCUMENTO , :PAGO , :CODCLIENTE , :CLIENTE , :DATAPGTO , :VALOR , :JUROS , :NRDOCUMENTO , :NOME , :CODPARCELAPGTO , :DESCONTO , :VALORNADATA , :CODUSUARIO , :USUARIO , :NRNFE , :TIPODOC , :EXTENSO , :CODIGOCONTABIL , :PLANODECONTAS, :TIPOPGTO DO SUSPEND; VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASCHEQUE(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'CHEQUE'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'VE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVVENDAAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:46:52 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCONTASRECEBIDAS ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALORPAGO FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), TIPOPGTO VARCHAR(15), HORA TIME, CREDITO FLOAT, RESTANTECOMJUROS FLOAT) AS declare variable TIPOPG CHAR(1); begin FOR SELECT CPR.CODMOVIMENTO, CPR.CODPLANOPGTO, PC.CODPARCELA, PC.NRPARCELA, PC.VALORPARCELA, PC.VENCIMENTO, PC.DOCUMENTO, PC.PAGO, PG.DATA, PG.VALOR, PG.CODPARCELAPGTO, PG.VALORNADATA, PG.CODUSUARIO, PG.TIPO, PG.HORA FROM PARCELASPGTO PG JOIN PARCELASCONTAS PC ON (PG.CODPARCELA = PC.CODPARCELA) JOIN CONTASPAGARRECEBER CPR ON (CPR.CODCONTA = PC.CODCONTA) WHERE CPR.TIPO IN ('VE', 'RE') AND PG.DATA>=:DATAI AND PG.DATA<=:DATAF INTO :CODMOVIMENTO, :CODPLANOPGTO, :CODPARCELA, :NRPARCELA, :VALORPARCELA, :VENCIMENTO, :DOCUMENTO, :PAGO, :DATAPGTO, :VALORPAGO, :CODPARCELAPGTO, :VALORNADATA, :CODUSUARIO, :TIPOPG, :HORA DO BEGIN TIPOPGTO = NULL; /*if (TIPOPG='D') then TIPOPGTO = 'DINHEIRO'; if (TIPOPG='C') then TIPOPGTO = 'CHEQUE'; if (TIPOPG='K') then TIPOPGTO = 'CARTAO';*/ RESTANTECOMJUROS =0 ; CREDITO =0 ; SELECT CR.RESTANTECOMJUROS, CR.VALORPAGO FROM SPCONTASRECEBER CR WHERE CR.CODPARCELA=:CODPARCELA INTO :RESTANTECOMJUROS, :CREDITO; SELECT TIPOPGTO FROM SPTIPOPGTO(:TIPOPG) INTO :TIPOPGTO; NRDOCUMENTO = null; USUARIO = NULL; SELECT U.LOGIN FROM USUARIOS U WHERE U.CODUSUARIO=:CODUSUARIO INTO :USUARIO; CODIGOCONTABIL = NULL; SELECT M.CODFILIAL, M.DATA, F.NOME, M.TIPO, M.CODIGOCONTABIL FROM MOVIMENTOSPRODUTOS M JOIN FILIAIS F ON (F.CODFILIAL = M.CODFILIAL) WHERE M.CODMOVIMENTO=:CODMOVIMENTO INTO :CODFILIAL, :DATA, :FILIAL, :TIPO, :CODIGOCONTABIL; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; NRNFE = NULL; SELECT N.NRDOCUMENTO FROM NFEMOV N WHERE N.CODMOVIMENTO=:CODMOVIMENTO INTO :NRNFE; SELECT DM.TIPODOC, DM.NRDOCUMENTO FROM DOCUMENTOMOV DM WHERE DM.CODMOVIMENTO=:CODMOVIMENTO INTO :TIPODOC, :NRDOCUMENTO; SELECT CM.CODCLIENTE FROM CLIENTEMOVIMENTO CM WHERE CM.CODMOVIMENTO=:CODMOVIMENTO INTO :CODCLIENTE; SELECT CAST(C.NOME AS VARCHAR(70))AS CLIENTE, C.NOME FROM CLIENTES C WHERE C.CODCLIENTE=:CODCLIENTE INTO :CLIENTE, :NOME; SELECT PL.DESCRICAO FROM PLANOSDECONTAS PL WHERE PL.CODIGOCONTABIL=:CODIGOCONTABIL INTO :PLANODECONTAS; if (VALORPAGO>VALORPARCELA) then BEGIN JUROS = VALORPAGO - VALORPARCELA; END ELSE JUROS = 0; DESCONTO =0; SELECT SUM(DC.VALOR) FROM LINKDESCONTOPARCELEA LK JOIN DESCONTOPARCELA DC ON (DC.CODDESCONTOPARCELA = LK.CODDESCONTOPARCELA) WHERE LK.CODPARCELAPGTO=:CODPARCELAPGTO INTO :DESCONTO; EXTENSO=NULL; if (VALORPAGO>0) then begin SELECT VALOREXTENSO FROM EXTENSO(:VALORPAGO,'S') INTO :EXTENSO; end suspend; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:46:56 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCXACADEMIA ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALOR FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), DESCRECEITA VARCHAR(50), TIPOPGTO VARCHAR(15)) AS begin DESCRECEITA = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , FILIAL , DATA , TIPO , CODPLANOPGTO , CODPARCELA , NRPARCELA , VALORPARCELA , VENCIMENTO , DOCUMENTO , PAGO , CODCLIENTE , CLIENTE , DATAPGTO , VALORPAGO , JUROS , NRDOCUMENTO , NOME , CODPARCELAPGTO , DESCONTO , VALORNADATA , CODUSUARIO , USUARIO , NRNFE , TIPODOC , EXTENSO , CODIGOCONTABIL , PLANODECONTAS, TIPOPGTO FROM SPCONTASRECEBIDAS(:DATAI, :DATAF) INTO :CODMOVIMENTO , :CODFILIAL , :FILIAL , :DATA , :TIPO , :CODPLANOPGTO , :CODPARCELA , :NRPARCELA , :VALORPARCELA , :VENCIMENTO , :DOCUMENTO , :PAGO , :CODCLIENTE , :CLIENTE , :DATAPGTO , :VALOR , :JUROS , :NRDOCUMENTO , :NOME , :CODPARCELAPGTO , :DESCONTO , :VALORNADATA , :CODUSUARIO , :USUARIO , :NRNFE , :TIPODOC , :EXTENSO , :CODIGOCONTABIL , :PLANODECONTAS, :TIPOPGTO DO SUSPEND; VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASCHEQUE(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'CHEQUE'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'VE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVVENDAAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:50:03 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCONTASRECEBIDAS ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALORPAGO FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), TIPOPGTO VARCHAR(15), HORA TIME, CREDITO FLOAT, RESTANTECOMJUROS FLOAT) AS declare variable TIPOPG CHAR(1); begin FOR SELECT CPR.CODMOVIMENTO, CPR.CODPLANOPGTO, PC.CODPARCELA, PC.NRPARCELA, PC.VALORPARCELA, PC.VENCIMENTO, PC.DOCUMENTO, PC.PAGO, PG.DATA, PG.VALOR, PG.CODPARCELAPGTO, PG.VALORNADATA, PG.CODUSUARIO, PG.TIPO, PG.HORA FROM PARCELASPGTO PG JOIN PARCELASCONTAS PC ON (PG.CODPARCELA = PC.CODPARCELA) JOIN CONTASPAGARRECEBER CPR ON (CPR.CODCONTA = PC.CODCONTA) WHERE CPR.TIPO IN ('VE', 'RE') AND PG.DATA>=:DATAI AND PG.DATA<=:DATAF INTO :CODMOVIMENTO, :CODPLANOPGTO, :CODPARCELA, :NRPARCELA, :VALORPARCELA, :VENCIMENTO, :DOCUMENTO, :PAGO, :DATAPGTO, :VALORPAGO, :CODPARCELAPGTO, :VALORNADATA, :CODUSUARIO, :TIPOPG, :HORA DO BEGIN TIPOPGTO = NULL; /*if (TIPOPG='D') then TIPOPGTO = 'DINHEIRO'; if (TIPOPG='C') then TIPOPGTO = 'CHEQUE'; if (TIPOPG='K') then TIPOPGTO = 'CARTAO';*/ SELECT TIPOPGTO FROM SPTIPOPGTO(:TIPOPG) INTO :TIPOPGTO; NRDOCUMENTO = null; USUARIO = NULL; SELECT U.LOGIN FROM USUARIOS U WHERE U.CODUSUARIO=:CODUSUARIO INTO :USUARIO; CODIGOCONTABIL = NULL; SELECT M.CODFILIAL, M.DATA, F.NOME, M.TIPO, M.CODIGOCONTABIL FROM MOVIMENTOSPRODUTOS M JOIN FILIAIS F ON (F.CODFILIAL = M.CODFILIAL) WHERE M.CODMOVIMENTO=:CODMOVIMENTO INTO :CODFILIAL, :DATA, :FILIAL, :TIPO, :CODIGOCONTABIL; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; NRNFE = NULL; SELECT N.NRDOCUMENTO FROM NFEMOV N WHERE N.CODMOVIMENTO=:CODMOVIMENTO INTO :NRNFE; SELECT DM.TIPODOC, DM.NRDOCUMENTO FROM DOCUMENTOMOV DM WHERE DM.CODMOVIMENTO=:CODMOVIMENTO INTO :TIPODOC, :NRDOCUMENTO; SELECT CM.CODCLIENTE FROM CLIENTEMOVIMENTO CM WHERE CM.CODMOVIMENTO=:CODMOVIMENTO INTO :CODCLIENTE; SELECT CAST(C.NOME AS VARCHAR(70))AS CLIENTE, C.NOME FROM CLIENTES C WHERE C.CODCLIENTE=:CODCLIENTE INTO :CLIENTE, :NOME; SELECT PL.DESCRICAO FROM PLANOSDECONTAS PL WHERE PL.CODIGOCONTABIL=:CODIGOCONTABIL INTO :PLANODECONTAS; if (VALORPAGO>VALORPARCELA) then BEGIN JUROS = VALORPAGO - VALORPARCELA; END ELSE JUROS = 0; DESCONTO =0; SELECT SUM(DC.VALOR) FROM LINKDESCONTOPARCELEA LK JOIN DESCONTOPARCELA DC ON (DC.CODDESCONTOPARCELA = LK.CODDESCONTOPARCELA) WHERE LK.CODPARCELAPGTO=:CODPARCELAPGTO INTO :DESCONTO; EXTENSO=NULL; if (VALORPAGO>0) then begin SELECT VALOREXTENSO FROM EXTENSO(:VALORPAGO,'S') INTO :EXTENSO; end RESTANTECOMJUROS =0 ; CREDITO =0 ; SELECT CR.RESTANTECOMJUROS, CR.VALORPAGO FROM SPCONTASRECEBER CR WHERE CR.CODPARCELA=:CODPARCELA INTO :RESTANTECOMJUROS, :CREDITO; suspend; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:50:06 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCXACADEMIA ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALOR FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), DESCRECEITA VARCHAR(50), TIPOPGTO VARCHAR(15)) AS begin DESCRECEITA = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , FILIAL , DATA , TIPO , CODPLANOPGTO , CODPARCELA , NRPARCELA , VALORPARCELA , VENCIMENTO , DOCUMENTO , PAGO , CODCLIENTE , CLIENTE , DATAPGTO , VALORPAGO , JUROS , NRDOCUMENTO , NOME , CODPARCELAPGTO , DESCONTO , VALORNADATA , CODUSUARIO , USUARIO , NRNFE , TIPODOC , EXTENSO , CODIGOCONTABIL , PLANODECONTAS, TIPOPGTO FROM SPCONTASRECEBIDAS(:DATAI, :DATAF) INTO :CODMOVIMENTO , :CODFILIAL , :FILIAL , :DATA , :TIPO , :CODPLANOPGTO , :CODPARCELA , :NRPARCELA , :VALORPARCELA , :VENCIMENTO , :DOCUMENTO , :PAGO , :CODCLIENTE , :CLIENTE , :DATAPGTO , :VALOR , :JUROS , :NRDOCUMENTO , :NOME , :CODPARCELAPGTO , :DESCONTO , :VALORNADATA , :CODUSUARIO , :USUARIO , :NRNFE , :TIPODOC , :EXTENSO , :CODIGOCONTABIL , :PLANODECONTAS, :TIPOPGTO DO SUSPEND; VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASCHEQUE(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'CHEQUE'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'VE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVVENDAAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:54:44 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCONTASRECEBIDAS ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALORPAGO FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), TIPOPGTO VARCHAR(15), HORA TIME, CREDITO FLOAT, RESTANTECOMJUROS FLOAT) AS declare variable TIPOPG CHAR(1); begin FOR SELECT CPR.CODMOVIMENTO, CPR.CODPLANOPGTO, PC.CODPARCELA, PC.NRPARCELA, PC.VALORPARCELA, PC.VENCIMENTO, PC.DOCUMENTO, PC.PAGO, PG.DATA, PG.VALOR, PG.CODPARCELAPGTO, PG.VALORNADATA, PG.CODUSUARIO, PG.TIPO, PG.HORA FROM PARCELASPGTO PG JOIN PARCELASCONTAS PC ON (PG.CODPARCELA = PC.CODPARCELA) JOIN CONTASPAGARRECEBER CPR ON (CPR.CODCONTA = PC.CODCONTA) WHERE CPR.TIPO IN ('VE', 'RE') AND PG.DATA>=:DATAI AND PG.DATA<=:DATAF INTO :CODMOVIMENTO, :CODPLANOPGTO, :CODPARCELA, :NRPARCELA, :VALORPARCELA, :VENCIMENTO, :DOCUMENTO, :PAGO, :DATAPGTO, :VALORPAGO, :CODPARCELAPGTO, :VALORNADATA, :CODUSUARIO, :TIPOPG, :HORA DO BEGIN TIPOPGTO = NULL; /*if (TIPOPG='D') then TIPOPGTO = 'DINHEIRO'; if (TIPOPG='C') then TIPOPGTO = 'CHEQUE'; if (TIPOPG='K') then TIPOPGTO = 'CARTAO';*/ SELECT TIPOPGTO FROM SPTIPOPGTO(:TIPOPG) INTO :TIPOPGTO; NRDOCUMENTO = null; USUARIO = NULL; SELECT U.LOGIN FROM USUARIOS U WHERE U.CODUSUARIO=:CODUSUARIO INTO :USUARIO; CODIGOCONTABIL = NULL; SELECT M.CODFILIAL, M.DATA, F.NOME, M.TIPO, M.CODIGOCONTABIL FROM MOVIMENTOSPRODUTOS M JOIN FILIAIS F ON (F.CODFILIAL = M.CODFILIAL) WHERE M.CODMOVIMENTO=:CODMOVIMENTO INTO :CODFILIAL, :DATA, :FILIAL, :TIPO, :CODIGOCONTABIL; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; NRNFE = NULL; SELECT N.NRDOCUMENTO FROM NFEMOV N WHERE N.CODMOVIMENTO=:CODMOVIMENTO INTO :NRNFE; SELECT DM.TIPODOC, DM.NRDOCUMENTO FROM DOCUMENTOMOV DM WHERE DM.CODMOVIMENTO=:CODMOVIMENTO INTO :TIPODOC, :NRDOCUMENTO; SELECT CM.CODCLIENTE FROM CLIENTEMOVIMENTO CM WHERE CM.CODMOVIMENTO=:CODMOVIMENTO INTO :CODCLIENTE; SELECT CAST(C.NOME AS VARCHAR(70))AS CLIENTE, C.NOME FROM CLIENTES C WHERE C.CODCLIENTE=:CODCLIENTE INTO :CLIENTE, :NOME; SELECT PL.DESCRICAO FROM PLANOSDECONTAS PL WHERE PL.CODIGOCONTABIL=:CODIGOCONTABIL INTO :PLANODECONTAS; if (VALORPAGO>VALORPARCELA) then BEGIN JUROS = VALORPAGO - VALORPARCELA; END ELSE JUROS = 0; DESCONTO =0; SELECT SUM(DC.VALOR) FROM LINKDESCONTOPARCELEA LK JOIN DESCONTOPARCELA DC ON (DC.CODDESCONTOPARCELA = LK.CODDESCONTOPARCELA) WHERE LK.CODPARCELAPGTO=:CODPARCELAPGTO INTO :DESCONTO; EXTENSO=NULL; if (VALORPAGO>0) then begin SELECT VALOREXTENSO FROM EXTENSO(:VALORPAGO,'S') INTO :EXTENSO; end RESTANTECOMJUROS =0 ; CREDITO =0 ; SELECT CR.RESTANTECOMJUROS, CR.VALORPAGO FROM SPCONTASRECEBER CR WHERE CR.CODPARCELA=:CODPARCELA INTO :RESTANTECOMJUROS, :CREDITO; suspend; END end ^ SET TERM ; ^ /*------ 15/04/2016 02:54:47 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCXACADEMIA ( DATAI DATE, DATAF DATE) RETURNS ( CODMOVIMENTO INTEGER, CODFILIAL INTEGER, FILIAL VARCHAR(40), DATA DATE, TIPO VARCHAR(2), CODPLANOPGTO INTEGER, CODPARCELA INTEGER, NRPARCELA INTEGER, VALORPARCELA FLOAT, VENCIMENTO DATE, DOCUMENTO VARCHAR(20), PAGO CHAR(1), CODCLIENTE INTEGER, CLIENTE VARCHAR(70), DATAPGTO DATE, VALOR FLOAT, JUROS FLOAT, NRDOCUMENTO VARCHAR(20), NOME VARCHAR(70), CODPARCELAPGTO INTEGER, DESCONTO FLOAT, VALORNADATA FLOAT, CODUSUARIO INTEGER, USUARIO VARCHAR(10), NRNFE VARCHAR(20), TIPODOC VARCHAR(20), EXTENSO VARCHAR(255), CODIGOCONTABIL VARCHAR(20), PLANODECONTAS VARCHAR(40), DESCRECEITA VARCHAR(50), TIPOPGTO VARCHAR(15)) AS begin DESCRECEITA = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , FILIAL , DATA , TIPO , CODPLANOPGTO , CODPARCELA , NRPARCELA , VALORPARCELA , VENCIMENTO , DOCUMENTO , PAGO , CODCLIENTE , CLIENTE , DATAPGTO , VALORPAGO , JUROS , NRDOCUMENTO , NOME , CODPARCELAPGTO , DESCONTO , VALORNADATA , CODUSUARIO , USUARIO , NRNFE , TIPODOC , EXTENSO , CODIGOCONTABIL , PLANODECONTAS, TIPOPGTO FROM SPCONTASRECEBIDAS(:DATAI, :DATAF) INTO :CODMOVIMENTO , :CODFILIAL , :FILIAL , :DATA , :TIPO , :CODPLANOPGTO , :CODPARCELA , :NRPARCELA , :VALORPARCELA , :VENCIMENTO , :DOCUMENTO , :PAGO , :CODCLIENTE , :CLIENTE , :DATAPGTO , :VALOR , :JUROS , :NRDOCUMENTO , :NOME , :CODPARCELAPGTO , :DESCONTO , :VALORNADATA , :CODUSUARIO , :USUARIO , :NRNFE , :TIPODOC , :EXTENSO , :CODIGOCONTABIL , :PLANODECONTAS, :TIPOPGTO DO SUSPEND; VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'RE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVRECEITASCHEQUE(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'CHEQUE'; SUSPEND; END VALORPARCELA = NULL; VENCIMENTO = NULL; DATAPGTO = NULL; JUROS = NULL; CODPARCELAPGTO = NULL; VALORNADATA = NULL; EXTENSO = NULL; CODPARCELA = NULL; NRPARCELA = NULL; TIPO = 'VE'; CODPLANOPGTO = NULL; TIPODOC= NULL; CODCLIENTE = NULL; FOR SELECT CODMOVIMENTO , CODFILIAL , DATA , CODCLIENTE , NOME , TOTAL , CODIGOCONTABIL , PLANODECONTAS , NRDOCUMENTO, DESCRICAO, DATA FROM SPMOVVENDAAVISTA(:DATAI, :DATAF) WHERE TOTAL>0 INTO :CODMOVIMENTO , :CODFILIAL , :DATA , :CODCLIENTE , :CLIENTE , :VALOR , :CODIGOCONTABIL , :PLANODECONTAS , :NRDOCUMENTO, :DESCRECEITA, :DATAPGTO DO BEGIN NOME= :CLIENTE; SELECT F.NOME FROM FILIAIS F WHERE F.CODFILIAL=:CODFILIAL INTO :FILIAL; TIPOPGTO = 'DINHEIRO'; SUSPEND; END end ^ SET TERM ; ^ /*------ 17/04/2016 01:00:07 --------*/ ALTER TABLE TABNCM ADD TEC NUMERIC_10_5; /*------ 23/04/2016 01:51:16 --------*/ CREATE TABLE ITENSMOVMESA( CODITEMMOVMESA CODIGO NOT NULL); /*------ 23/04/2016 01:51:16 --------*/ alter table ITENSMOVMESA add primary key (CODITEMMOVMESA); /*------ 23/04/2016 01:51:28 --------*/ ALTER TABLE ITENSMOVMESA ADD CODMOVMESA INTEIRO_NULL; /*------ 23/04/2016 01:51:40 --------*/ ALTER TABLE ITENSMOVMESA ADD CODPRODUTO INTEIRO_NOTNULL NOT NULL ; /*------ 23/04/2016 01:51:56 --------*/ ALTER TABLE ITENSMOVMESA ADD DESCRICAO VARCHAR_50; /*------ 23/04/2016 01:52:21 --------*/ ALTER TABLE ITENSMOVMESA ADD QTD NUMERIC_10_5; /*------ 23/04/2016 01:52:41 --------*/ ALTER TABLE ITENSMOVMESA ADD VALOR VALOR_10_2; /*------ 23/04/2016 01:52:55 --------*/ ALTER TABLE ITENSMOVMESA ADD TOTAL VALOR_10_2; /*------ 23/04/2016 01:53:09 --------*/ ALTER TABLE ITENSMOVMESA ADD FATURAR CHAR1; /*------ 24/04/2016 01:50:50 --------*/ ALTER TABLE CAIXAMOV ADD STATUS CHAR1; /*------ 24/04/2016 01:53:51 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCX ( DATAI DATE, DATAF DATE) RETURNS ( CODCAIXAMOV INTEGER, CODCXPARCELA INTEGER, CODFILIAL INTEGER, DATA DATE, HORA TIME, DESCRICAO VARCHAR(70), VALOR FLOAT, TIPOMOV VARCHAR(50), FORMAPGTO VARCHAR(15), FINANCEIRO CHAR(1), CREDITO FLOAT, DEBITO FLOAT, SALDO FLOAT, STATUS CHAR(1)) AS begin FOR SELECT CM.CODCAIXAMOV, CODFILIAL, DATA, HORA, DESCRICAO, VALOR, TIPOMOV, FORMAPGTO, STATUS FROM CAIXAMOV CM WHERE CM.DATA>=:DATAI AND CM.DATA<=:DATAF INTO :CODCAIXAMOV, :CODFILIAL,:DATA, :HORA, :DESCRICAO, :VALOR, :TIPOMOV, :FORMAPGTO, :STATUS DO BEGIN CODCXPARCELA =NULL; FINANCEIRO='N'; SELECT CF.FINANCEIRO FROM CONFCAIXA CF WHERE CF.TIPOMOV=:TIPOMOV AND CF.TIPOPGTO=:FORMAPGTO INTO :FINANCEIRO; if (FINANCEIRO='+') then BEGIN CREDITO = VALOR; DEBITO = 0; END if (FINANCEIRO='-') then BEGIN DEBITO = :VALOR; CREDITO = 0; END if (FINANCEIRO='N') then BEGIN CREDITO = 0; DEBITO = 0; END SALDO = CREDITO - DEBITO; suspend; END FOR SELECT CP.CODCXPARCELA, CP.CODFILIAL, CP.DATA, CP.HORA, CP.DESCRICAO, CP.VALOR, CP.TIPOMOV, CP.FORMAPGTO FROM CAIXAPARCELAS CP WHERE CP.DATA>=:DATAI AND CP.DATA<=:DATAF INTO :CODCXPARCELA, :CODFILIAL,:DATA, :HORA, :DESCRICAO, :VALOR, :TIPOMOV, :FORMAPGTO DO BEGIN CODCAIXAMOV = NULL; FINANCEIRO='N'; SELECT CF.FINANCEIRO FROM CONFCAIXA CF WHERE CF.TIPOMOV=:TIPOMOV AND CF.TIPOPGTO=:FORMAPGTO INTO :FINANCEIRO; if (FINANCEIRO='+') then BEGIN CREDITO = :VALOR; DEBITO = 0; END if (FINANCEIRO='-') then BEGIN DEBITO = :VALOR; CREDITO = 0; END if (FINANCEIRO='N') then BEGIN CREDITO = 0; DEBITO = 0; END SALDO = CREDITO - DEBITO; suspend; END end ^ SET TERM ; ^ /*------ 24/04/2016 01:53:54 --------*/ SET TERM ^ ; ALTER PROCEDURE SPSOMACX ( DATAI DATE, DATAF DATE) RETURNS ( CREDITO FLOAT, DEBITO FLOAT, NULO FLOAT, SALDO FLOAT) AS begin CREDITO = 0; DEBITO = 0; NULO = 0; SALDO = 0; SELECT SUM(VALOR) FROM SPCX(:DATAI, :DATAF) WHERE FINANCEIRO='+' INTO :CREDITO; SELECT SUM(VALOR) FROM SPCX(:DATAI, :DATAF) WHERE FINANCEIRO='-' INTO :DEBITO; SELECT SUM(VALOR) FROM SPCX(:DATAI, :DATAF) WHERE FINANCEIRO='N' INTO :NULO; SALDO = CREDITO - DEBITO; suspend; end ^ SET TERM ; ^ /*------ 25/04/2016 01:25:51 --------*/ SET TERM ^ ; ALTER PROCEDURE SPINVENTARIO ( TABELAS CHAR(1)) RETURNS ( CODPRODUTO INTEGER, CODFABRICANTE INTEGER, FABRICANTE VARCHAR(40), CODGRUPO INTEGER, GRUPO VARCHAR(30), REFERENCIA VARCHAR(20), CODUNIDADERETORNO INTEGER, UNRETORNO VARCHAR(30), ESTOQUE FLOAT, ESTOQUECONVERTIDO FLOAT, DESCRICAO VARCHAR(50), CODUNIDADEPROD INTEGER, UNIDADEPROD VARCHAR(30), PRECOCOMPRA FLOAT, PRECOCUSTO FLOAT, PRECOVENDA FLOAT, TOTALCOMPRA FLOAT, TOTALCUSTO FLOAT, TOTALVENDA FLOAT, ESTOQUENOVO FLOAT, CODNCM VARCHAR(30), ICMS FLOAT, PIS FLOAT, COFINS FLOAT) AS declare variable PRODUTO INTEGER; declare variable CODUNIDADEPADRAO INTEGER; declare variable CODUNIDADEINVENTARIO INTEGER; declare variable UNIDADEPRODUTO INTEGER; declare variable UNIDADERETORNO INTEGER; declare variable QTD FLOAT; declare variable TESTOQUE FLOAT; declare variable TEMPESTOQUE FLOAT; declare variable TEMPPRECOCOMPRA FLOAT; declare variable TEMPPRECOCUSTO FLOAT; declare variable TEMPPRECOVENDA FLOAT; begin FOR SELECT SP.CODPRODUTO, SP.CODFABRICANTE, SP.FABRICANTE, SP.CODGRUPO, SP.GRUPO, SP.REFERENCIA, SP.CODUNIDADEPROD, SP.CODUNIDADEINVENTARIO, SP.UNIDADEINVENTARIO, SP.DESCRICAO, SP.CODUNIDADEPROD, SP.UNIDADEPROD, COALESCE(SP.PRECOCOMPRA, 0), COALESCE(SP.PRECOCUSTO, 0), COALESCE(SP.PRECOVENDA,0), SP.CODUNIDADEPADRAO FROM SPPRODINVENTARIO(:TABELAS) SP WHERE (SP.CODUNIDADEPROD=SP.CODUNIDADEINVENTARIO) or (SP.CODUNIDADEINVENTARIO IS NULL) INTO :PRODUTO, :CODFABRICANTE, :FABRICANTE, :CODGRUPO, :GRUPO, :REFERENCIA, :UNIDADEPRODUTO, :UNIDADERETORNO, :UNRETORNO, :DESCRICAO, :CODUNIDADEPROD, :UNIDADEPROD, :TEMPPRECOCOMPRA, :TEMPPRECOCUSTO, :TEMPPRECOVENDA, :CODUNIDADEPADRAO DO BEGIN SELECT COALESCE(SPE.ESTOQUE, 0) FROM SPMOVESTOQUE(:PRODUTO) SPE INTO :TESTOQUE; SELECT COALESCE(QTDCONVERTIDA, 0) FROM SPCONVERTEUN( :CODUNIDADEPADRAO,:TESTOQUE, :UNIDADERETORNO) INTO :TEMPESTOQUE; CODPRODUTO = PRODUTO; CODUNIDADERETORNO = UNIDADERETORNO; ESTOQUE = TEMPESTOQUE; ESTOQUECONVERTIDO = TEMPESTOQUE; PRECOCOMPRA = TEMPPRECOCOMPRA; PRECOCUSTO = TEMPPRECOCUSTO; PRECOVENDA = TEMPPRECOVENDA; TOTALCOMPRA = TEMPESTOQUE * TEMPPRECOCOMPRA; TOTALCUSTO = TEMPESTOQUE * TEMPPRECOCUSTO; TOTALVENDA = TEMPESTOQUE * TEMPPRECOVENDA; SELECT P.CODNCM, P.COFINS FROM PRODUTOS P WHERE P.codproduto=:PRODUTO INTO :CODNCM, :COFINS; SELECT FP.ICMS, FP.PISCOFINS FROM FORMACAODEPRECO FP WHERE FP.CODPRODUTO=:PRODUTO INTO :ICMS, :PIS; suspend; END end ^ SET TERM ; ^ /*------ 03/05/2016 13:11:36 --------*/ ALTER TABLE CAIXAPARCELAS ADD STATUS CHAR1; /*------ 03/05/2016 13:12:01 --------*/ SET TERM ^ ; ALTER PROCEDURE SPCX ( DATAI DATE, DATAF DATE) RETURNS ( CODCAIXAMOV INTEGER, CODCXPARCELA INTEGER, CODFILIAL INTEGER, DATA DATE, HORA TIME, DESCRICAO VARCHAR(70), VALOR FLOAT, TIPOMOV VARCHAR(50), FORMAPGTO VARCHAR(15), FINANCEIRO CHAR(1), CREDITO FLOAT, DEBITO FLOAT, SALDO FLOAT, STATUS CHAR(1)) AS begin FOR SELECT CM.CODCAIXAMOV, CODFILIAL, DATA, HORA, DESCRICAO, VALOR, TIPOMOV, FORMAPGTO, STATUS FROM CAIXAMOV CM WHERE CM.DATA>=:DATAI AND CM.DATA<=:DATAF INTO :CODCAIXAMOV, :CODFILIAL,:DATA, :HORA, :DESCRICAO, :VALOR, :TIPOMOV, :FORMAPGTO, :STATUS DO BEGIN CODCXPARCELA =NULL; FINANCEIRO='N'; SELECT CF.FINANCEIRO FROM CONFCAIXA CF WHERE CF.TIPOMOV=:TIPOMOV AND CF.TIPOPGTO=:FORMAPGTO INTO :FINANCEIRO; if (FINANCEIRO='+') then BEGIN CREDITO = VALOR; DEBITO = 0; END if (FINANCEIRO='-') then BEGIN DEBITO = :VALOR; CREDITO = 0; END if (FINANCEIRO='N') then BEGIN CREDITO = 0; DEBITO = 0; END SALDO = CREDITO - DEBITO; suspend; END FOR SELECT CP.CODCXPARCELA, CP.CODFILIAL, CP.DATA, CP.HORA, CP.DESCRICAO, CP.VALOR, CP.TIPOMOV, CP.FORMAPGTO, CP.STATUS FROM CAIXAPARCELAS CP WHERE CP.DATA>=:DATAI AND CP.DATA<=:DATAF INTO :CODCXPARCELA, :CODFILIAL,:DATA, :HORA, :DESCRICAO, :VALOR, :TIPOMOV, :FORMAPGTO, :STATUS DO BEGIN CODCAIXAMOV = NULL; FINANCEIRO='N'; SELECT CF.FINANCEIRO FROM CONFCAIXA CF WHERE CF.TIPOMOV=:TIPOMOV AND CF.TIPOPGTO=:FORMAPGTO INTO :FINANCEIRO; if (FINANCEIRO='+') then BEGIN CREDITO = :VALOR; DEBITO = 0; END if (FINANCEIRO='-') then BEGIN DEBITO = :VALOR; CREDITO = 0; END if (FINANCEIRO='N') then BEGIN CREDITO = 0; DEBITO = 0; END SALDO = CREDITO - DEBITO; suspend; END end ^ SET TERM ; ^ /*------ 03/05/2016 13:12:04 --------*/ SET TERM ^ ; ALTER PROCEDURE SPSOMACX ( DATAI DATE, DATAF DATE) RETURNS ( CREDITO FLOAT, DEBITO FLOAT, NULO FLOAT, SALDO FLOAT) AS begin CREDITO = 0; DEBITO = 0; NULO = 0; SALDO = 0; SELECT SUM(VALOR) FROM SPCX(:DATAI, :DATAF) WHERE FINANCEIRO='+' INTO :CREDITO; SELECT SUM(VALOR) FROM SPCX(:DATAI, :DATAF) WHERE FINANCEIRO='-' INTO :DEBITO; SELECT SUM(VALOR) FROM SPCX(:DATAI, :DATAF) WHERE FINANCEIRO='N' INTO :NULO; SALDO = CREDITO - DEBITO; suspend; end ^ SET TERM ; ^ /*------ 03/05/2016 13:12:27 --------*/ update RDB$RELATION_FIELDS set RDB$FIELD_SOURCE = 'STATUS' where (RDB$FIELD_NAME = 'STATUS') and (RDB$RELATION_NAME = 'CAIXAPARCELAS') ; /*------ 03/05/2016 13:13:05 --------*/ update RDB$RELATION_FIELDS set RDB$FIELD_SOURCE = 'STATUS' where (RDB$FIELD_NAME = 'STATUS') and (RDB$RELATION_NAME = 'CAIXAMOV') ; /*------ 15/05/2016 15:21:13 --------*/ ALTER TABLE CONFGERAL ADD CONTANFCE CODIGOCONTABIL; /*------ 15/05/2016 15:21:40 --------*/ ALTER TABLE CONFGERAL ALTER COLUMN CONTANFCE TO NFCECONTA; /*------ 15/05/2016 15:22:03 --------*/ ALTER TABLE CONFGERAL ADD NFCEPLANOPGTO INTEIRO_NULL; /*------ 06/06/2016 01:35:32 --------*/ ALTER TABLE SUBGRUPO ADD CODGRUPO INTEIRO_NULL; /*------ 06/06/2016 02:39:44 --------*/ ALTER TABLE FOTOPRODUTO ADD MINIATURA FOTO; /*------ 06/06/2016 02:40:16 --------*/ ALTER TABLE FOTOPRODUTO ADD MEDIO FOTO; /*------ 06/06/2016 02:40:27 --------*/ ALTER TABLE FOTOPRODUTO ADD GRANDE FOTO; /*------ 06/06/2016 02:41:23 --------*/ ALTER TABLE FOTOPRODUTO ADD FOTO2 FOTO; /*------ 06/06/2016 02:41:31 --------*/ ALTER TABLE FOTOPRODUTO ADD FOTO3 FOTO; /*------ 06/06/2016 02:41:43 --------*/ ALTER TABLE FOTOPRODUTO ADD FOTO4 FOTO; /*------ 06/06/2016 02:41:55 --------*/ ALTER TABLE FOTOPRODUTO ADD FOTO5 FOTO; /*------ 11/06/2016 00:26:04 --------*/ CREATE TABLE CONTADOR( CODCONTADOR CODIGO NOT NULL); /*------ 11/06/2016 00:26:04 --------*/ alter table CONTADOR add primary key (CODCONTADOR); /*------ 11/06/2016 00:26:34 --------*/ ALTER TABLE CONTADOR ADD NOME VARCHAR_50; /*------ 11/06/2016 00:26:58 --------*/ ALTER TABLE CONTADOR ADD CPF VARCHAR11; /*------ 11/06/2016 00:27:08 --------*/ ALTER TABLE CONTADOR ADD CRC VARCHAR_30; /*------ 11/06/2016 00:27:18 --------*/ ALTER TABLE CONTADOR ADD CNPJ CNPJ; /*------ 11/06/2016 00:27:31 --------*/ ALTER TABLE CONTADOR ADD CEP CEP; /*------ 11/06/2016 00:27:49 --------*/ ALTER TABLE CONTADOR ADD CODEMPRESA CODIGO_FK NOT NULL ; /*------ 11/06/2016 00:28:17 --------*/ ALTER TABLE CONTADOR ADD CODCIDADE INTEIRO_NULL; /*------ 11/06/2016 00:28:34 --------*/ ALTER TABLE CONTADOR ADD ENDERECO VARCHAR_50; /*------ 11/06/2016 00:29:11 --------*/ ALTER TABLE CONTADOR ADD NR VAR_CHAR10; /*------ 11/06/2016 00:29:28 --------*/ ALTER TABLE CONTADOR ADD CPL VARCHAR_30; /*------ 11/06/2016 00:29:54 --------*/ ALTER TABLE CONTADOR ADD BAIRRO VARCHAR_30; /*------ 11/06/2016 00:30:29 --------*/ ALTER TABLE CONTADOR ADD FONE VARCHAR_30; /*------ 11/06/2016 00:30:43 --------*/ ALTER TABLE CONTADOR ADD FAX VARCHAR_30; /*------ 11/06/2016 00:31:10 --------*/ UPDATE RDB$RELATION_FIELDS SET RDB$FIELD_POSITION = 1 WHERE (RDB$RELATION_NAME = 'CONTADOR') AND (RDB$FIELD_NAME= 'CODEMPRESA'); /*------ 11/06/2016 00:31:10 --------*/ UPDATE RDB$RELATION_FIELDS SET RDB$FIELD_POSITION = 2 WHERE (RDB$RELATION_NAME = 'CONTADOR') AND (RDB$FIELD_NAME= 'NOME'); /*------ 11/06/2016 00:31:10 --------*/ UPDATE RDB$RELATION_FIELDS SET RDB$FIELD_POSITION = 3 WHERE (RDB$RELATION_NAME = 'CONTADOR') AND (RDB$FIELD_NAME= 'CPF'); /*------ 11/06/2016 00:31:10 --------*/ UPDATE RDB$RELATION_FIELDS SET RDB$FIELD_POSITION = 4 WHERE (RDB$RELATION_NAME = 'CONTADOR') AND (RDB$FIELD_NAME= 'CRC'); /*------ 11/06/2016 00:31:10 --------*/ UPDATE RDB$RELATION_FIELDS SET RDB$FIELD_POSITION = 5 WHERE (RDB$RELATION_NAME = 'CONTADOR') AND (RDB$FIELD_NAME= 'CNPJ'); /*------ 11/06/2016 00:31:10 --------*/ UPDATE RDB$RELATION_FIELDS SET RDB$FIELD_POSITION = 6 WHERE (RDB$RELATION_NAME = 'CONTADOR') AND (RDB$FIELD_NAME= 'CEP'); /*------ 17/06/2016 02:03:49 --------*/ update RDB$RELATION_FIELDS set RDB$FIELD_SOURCE = 'VARCHAR_15' where (RDB$FIELD_NAME = 'TIPOPGTO') and (RDB$RELATION_NAME = 'CONFCAIXA') ; /*------ 18/06/2016 02:08:31 --------*/ SET TERM ^ ; ALTER PROCEDURE SPEMPRESA ( ID VARCHAR(20)) RETURNS ( CODEMPRESA INTEGER, NOMEFANTASIA VARCHAR(40), RAZAOSOCIAL VARCHAR(40), ENDERECO VARCHAR(40), NUMERO VARCHAR(5), BAIRRO VARCHAR(30), COMPLEMENTO VARCHAR(20), CEP VARCHAR(8), FONE VARCHAR(15), FAX VARCHAR(10), CNPJ VARCHAR(20), IE VARCHAR(20), CONTATO VARCHAR(30), CIDADE VARCHAR(30), UF VARCHAR(2), CIDADEUF VARCHAR(33), LOGOTIPO BLOB sub_type 0 segment size 100, ENDNR VARCHAR(45), CONVENIO CHAR(1), CODUF INTEGER, CODCIDADE INTEGER, CONTADOR VARCHAR(100) ) AS begin SELECT E.CODEMPRESA, E.NOMEFANTASIA, E.RAZAOSOCIAL, E.ENDERECO, E.NUMERO, E.BAIRRO, E.COMPLEMENTO, E.CEP, E.FONE, E.FAX, E.CNPJ, E.IE, E.CONTATO, C.DESCRICAO, U.SIGLA, C.DESCRICAO || '-' ||U.SIGLA, E.LOGOTIPO, E.ENDERECO || '-' || E.NUMERO, E.CONVENIO, C.CODUF, C.CODCIDADE, E.CONTADOR FROM EMPRESA E JOIN CIDADES C ON (C.CODCIDADE = E.CODCIDADE) JOIN UF U ON (U.CODUF = C.CODUF) WHERE E.CNPJ=:ID INTO CODEMPRESA, NOMEFANTASIA, RAZAOSOCIAL, ENDERECO, NUMERO, BAIRRO, COMPLEMENTO, CEP, FONE, FAX, CNPJ, IE, CONTATO, CIDADE, UF, CIDADEUF, LOGOTIPO, ENDNR, CONVENIO, CODUF, CODCIDADE, CONTADOR; suspend; end ^ SET TERM ; ^ /*------ 18/06/2016 02:34:52 --------*/ SET TERM ^ ; ALTER PROCEDURE SPEMPRESA ( ID VARCHAR(20)) RETURNS ( CODEMPRESA INTEGER, NOMEFANTASIA VARCHAR(40), RAZAOSOCIAL VARCHAR(40), ENDERECO VARCHAR(40), NUMERO VARCHAR(5), BAIRRO VARCHAR(30), COMPLEMENTO VARCHAR(20), CEP VARCHAR(8), FONE VARCHAR(15), FAX VARCHAR(10), CNPJ VARCHAR(20), IE VARCHAR(20), CONTATO VARCHAR(30), CIDADE VARCHAR(30), UF VARCHAR(2), CIDADEUF VARCHAR(33), LOGOTIPO BLOB sub_type 0 segment size 100, ENDNR VARCHAR(45), CONVENIO CHAR(1), CODUF INTEGER, CODCIDADE INTEGER, CONTADOR VARCHAR(100), EMAIL VARCHAR(100)) AS begin SELECT E.CODEMPRESA, E.NOMEFANTASIA, E.RAZAOSOCIAL, E.ENDERECO, E.NUMERO, E.BAIRRO, E.COMPLEMENTO, E.CEP, E.FONE, E.FAX, E.CNPJ, E.IE, E.CONTATO, C.DESCRICAO, U.SIGLA, C.DESCRICAO || '-' ||U.SIGLA, E.LOGOTIPO, E.ENDERECO || '-' || E.NUMERO, E.CONVENIO, C.CODUF, C.CODCIDADE, E.CONTADOR, E.EMAIL FROM EMPRESA E JOIN CIDADES C ON (C.CODCIDADE = E.CODCIDADE) JOIN UF U ON (U.CODUF = C.CODUF) WHERE E.CNPJ=:ID INTO CODEMPRESA, NOMEFANTASIA, RAZAOSOCIAL, ENDERECO, NUMERO, BAIRRO, COMPLEMENTO, CEP, FONE, FAX, CNPJ, IE, CONTATO, CIDADE, UF, CIDADEUF, LOGOTIPO, ENDNR, CONVENIO, CODUF, CODCIDADE, CONTADOR, EMAIL; suspend; end ^ SET TERM ; ^ /*------ 18/06/2016 04:48:30 --------*/ ALTER TABLE MDFE ADD INFFISCO MEMO_TEXTO; /*------ 18/06/2016 04:48:49 --------*/ ALTER TABLE MDFE ADD INFOCONTRIBUINTE MEMO_TEXTO; /*------ 18/06/2016 09:06:41 --------*/ ALTER TABLE MDFE ADD PESOBRUTO NUMERIC_10_5;