LDP028 — Layout LDP028

Visão Geral

Layout de impressão da família LDP (Duplicata). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição

Consulta baseada em CONTAS, com junção em EMPRESA, PESSOA, RETORNA_DADOSCADASTRAIS, DATA_EXTENSO, filtrada por CD_EMPRESA, NR_LANCTONOTA, CD_SERIE, TP_CONTAS.

Chamada

ExecLayout(Connection, [
  // 0  - Nome do Layout de Duplicata
  // 1  - Empresa
  // 2  - Lancamento (Nota ou Duplicata)
  // 3  - Serie (Nota)
  // 4  - Tipo Nota (E/S)
  // 5  - Path Servidor
  // 6  - Visualiza -> V  ou  Imprime -> I
  // 7  - Impressora do Parametro
  // 8  - Data de lançamento
  // 9  - Data de Emissão de Fatura de
  // 10 - Data de Emissão de Fatura até
  // 11 - Código da Pessoa
  // 12 - Tipo da Duplicata
]);

SQL Base

`tabCONTAS #1`

SELECT /*DADOS DA EMPRESA*/ E.CD_EMPRESA, E.NM_EMPRESA , PE.NR_CNPJCPF NR_CNPJEP, EDE.DS_ENDERECO||', '||EDE.NR_ENDERECO DS_ENDERECOEP, EDE.DS_MUNICIPIO||'-'||EDE.SG_ESTADO DS_CIDADEEP, EDE.NR_CEP NR_CEPEP, /*DADOS DO CLIENTE*/ P.CD_PESSOA, P.NM_PESSOA , P.NR_CNPJCPF NR_CNPJ, EDP.NR_RG, EDP.SG_ESTADORG, C.DT_LANCAMENTO DT_EMISSAO, EDP.DT_NASCIMENTO, EDP.DS_ENDERECO||', '||EDP.NR_ENDERECO DS_ENDERECO, EDP.DS_BAIRRO, EDP.DS_MUNICIPIO DS_CIDADE, EDP.SG_ESTADO DS_ESTATO, EDP.NR_CEP, /*DADOS DA CONTA*/ C.NR_DOCUMENTO,C.CD_EMPRESA,C.NR_LANCAMENTO,C.CD_TIPOCONTA , SUM(C.VL_DOCUMENTO) VL_DOCUMENTO, SUM( CASE WHEN C.DT_VENCIMENTO <= C.DT_LANCAMENTO THEN C.VL_DOCUMENTO ELSE 0 END) VL_ENTRADA, EDE.DS_MUNICIPIO|| ' - '||EDE.SG_ESTADO||', '||DT.O_DS_DATA, CAST('' AS DOM_VARCHAR5000) DS_CLAUSA
FROM CONTAS C
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(PE.CD_PESSOA,NULL) EDE ON (1=1)
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(P.CD_PESSOA,NULL) EDP ON (1=1)
LEFT JOIN DATA_EXTENSO(C.DT_LANCAMENTO) DT ON (1=1)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.NR_LANCTONOTA = :NR_LANCTNOTA
  AND C.CD_SERIE = :CD_SERIE
  AND C.TP_CONTAS = :TP_CONTAS
GROUP BY E.CD_EMPRESA, E.NM_EMPRESA , PE.NR_CNPJCPF , EDE.DS_ENDERECO,EDE.NR_ENDERECO, EDE.DS_MUNICIPIO,EDE.SG_ESTADO, EDE.NR_CEP,P.CD_PESSOA, P.NM_PESSOA , P.NR_CNPJCPF, EDP.NR_RG,EDP.SG_ESTADORG,C.DT_LANCAMENTO, EDP.DT_NASCIMENTO, EDP.DS_ENDERECO,EDP.NR_ENDERECO, EDP.DS_BAIRRO, EDP.DS_MUNICIPIO, EDP.SG_ESTADO,EDP.NR_CEP, C.TP_CONTAS,C.CD_SERIE,C.NR_LANCTONOTA,C.NR_DOCUMENTO, C.CD_EMPRESA,C.NR_LANCAMENTO,C.CD_TIPOCONTA,DT.O_DS_DATA CD_EMPRESA NR_LANCTNOTA CD_SERIE TP_CONTAS
SELECT CAST( 1 AS DOM_INTEGER ) NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO
FROM CONTAS C
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.CD_PESSOA = :CD_PESSOA
  AND C.NR_LANCAMENTO = :NR_LANCAMENTO
  AND C.CD_TIPOCONTA = :CD_TIPOCONTA
  AND C.DT_VENCIMENTO > C.DT_LANCAMENTO
GROUP BY C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO CD_EMPRESA CD_PESSOA NR_LANCAMENTO CD_TIPOCONTA

`tabCONTAS #2`

SELECT {#10} /*DADOS DA EMPRESA*/ {#10} E.CD_EMPRESA, E.NM_EMPRESA , PE.NR_CNPJCPF NR_CNPJEP, {#10} EDE.DS_ENDERECO||', '||EDE.NR_ENDERECO DS_ENDERECOEP, {#10} EDE.DS_MUNICIPIO||'-'||EDE.SG_ESTADO DS_CIDADEEP,{#10} EDE.NR_CEP NR_CEPEP,{#10} /*DADOS DO CLIENTE*/{#10} P.CD_PESSOA, P.NM_PESSOA , P.NR_CNPJCPF NR_CNPJ,{#10} EDP.NR_RG, EDP.SG_ESTADORG,{#10} C.DT_LANCAMENTO DT_EMISSAO, EDP.DT_NASCIMENTO,{#10} EDP.DS_ENDERECO||', '||EDP.NR_ENDERECO DS_ENDERECO,{#10} EDP.DS_BAIRRO, EDP.DS_MUNICIPIO DS_CIDADE, EDP.SG_ESTADO DS_ESTATO,{#10} EDP.NR_CEP,{#10} /*DADOS DA CONTA*/{#10} C.NR_DOCUMENTO,C.CD_EMPRESA,C.NR_LANCAMENTO,C.CD_TIPOCONTA{#10} , SUM(C.VL_DOCUMENTO) VL_DOCUMENTO,{#10} SUM( CASE{#10} WHEN C.DT_VENCIMENTO <= C.DT_LANCAMENTO THEN C.VL_DOCUMENTO{#10} ELSE 0{#10} END) VL_ENTRADA, {#10} EDE.DS_MUNICIPIO|| ' - '||EDE.SG_ESTADO||', '||DT.O_DS_DATA O_DS_DATA, {#10} CAST(NULL AS varchar(5000)) DS_CLAUSA {#10}
FROM CONTAS C{#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA){#10}
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA){#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(PE.CD_PESSOA,NULL) EDE ON (1=1){#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA){#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(P.CD_PESSOA,NULL) EDP ON (1=1){#10}
LEFT JOIN DATA_EXTENSO(C.DT_LANCAMENTO) DT ON (1=1){#10+ iWhere}
GROUP BY E.CD_EMPRESA, E.NM_EMPRESA , PE.NR_CNPJCPF ,{#10} EDE.DS_ENDERECO,EDE.NR_ENDERECO,{#10} EDE.DS_MUNICIPIO,EDE.SG_ESTADO,{#10} EDE.NR_CEP,P.CD_PESSOA, P.NM_PESSOA , P.NR_CNPJCPF,{#10} EDP.NR_RG,EDP.SG_ESTADORG,C.DT_LANCAMENTO, EDP.DT_NASCIMENTO,{#10} EDP.DS_ENDERECO,EDP.NR_ENDERECO, EDP.DS_BAIRRO,{#10} EDP.DS_MUNICIPIO, EDP.SG_ESTADO,EDP.NR_CEP,{#10} C.TP_CONTAS,C.CD_SERIE,C.NR_LANCTONOTA,C.NR_DOCUMENTO,{#10} C.CD_EMPRESA,C.NR_LANCAMENTO,C.CD_TIPOCONTA,DT.O_DS_DATA

`Text`

SELECT {#10} /*DADOS DA EMPRESA*/ {#10} E.CD_EMPRESA, E.NM_EMPRESA , PE.NR_CNPJCPF NR_CNPJEP, {#10} EDE.DS_ENDERECO||', '||EDE.NR_ENDERECO DS_ENDERECOEP, {#10} EDE.DS_MUNICIPIO||'-'||EDE.SG_ESTADO DS_CIDADEEP,{#10} EDE.NR_CEP NR_CEPEP,{#10} /*DADOS DO CLIENTE*/{#10} P.CD_PESSOA, P.NM_PESSOA , P.NR_CNPJCPF NR_CNPJ,{#10} EDP.NR_RG, EDP.SG_ESTADORG,{#10} C.DT_LANCAMENTO DT_EMISSAO, EDP.DT_NASCIMENTO,{#10} EDP.DS_ENDERECO||', '||EDP.NR_ENDERECO DS_ENDERECO,{#10} EDP.DS_BAIRRO, EDP.DS_MUNICIPIO DS_CIDADE, EDP.SG_ESTADO DS_ESTATO,{#10} EDP.NR_CEP,{#10} /*DADOS DA CONTA*/{#10} C.NR_DOCUMENTO,C.CD_EMPRESA,C.NR_LANCAMENTO,C.CD_TIPOCONTA{#10} , SUM(C.VL_DOCUMENTO) VL_DOCUMENTO,{#10} SUM( CASE{#10} WHEN C.DT_VENCIMENTO <= C.DT_LANCAMENTO THEN C.VL_DOCUMENTO{#10} ELSE 0{#10} END) VL_ENTRADA, {#10} EDE.DS_MUNICIPIO|| ' - '||EDE.SG_ESTADO||', '||DT.O_DS_DATA O_DS_DATA, {#10} CAST(NULL AS varchar(5000)) DS_CLAUSA {#10}
FROM CONTAS C{#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA){#10}
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA){#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(PE.CD_PESSOA,NULL) EDE ON (1=1){#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA){#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(P.CD_PESSOA,NULL) EDP ON (1=1){#10}
LEFT JOIN DATA_EXTENSO(C.DT_LANCAMENTO) DT ON (1=1){#10+ iWhere}
GROUP BY E.CD_EMPRESA, E.NM_EMPRESA , PE.NR_CNPJCPF ,{#10} EDE.DS_ENDERECO,EDE.NR_ENDERECO,{#10} EDE.DS_MUNICIPIO,EDE.SG_ESTADO,{#10} EDE.NR_CEP,P.CD_PESSOA, P.NM_PESSOA , P.NR_CNPJCPF,{#10} EDP.NR_RG,EDP.SG_ESTADORG,C.DT_LANCAMENTO, EDP.DT_NASCIMENTO,{#10} EDP.DS_ENDERECO,EDP.NR_ENDERECO, EDP.DS_BAIRRO,{#10} EDP.DS_MUNICIPIO, EDP.SG_ESTADO,EDP.NR_CEP,{#10} C.TP_CONTAS,C.CD_SERIE,C.NR_LANCTONOTA,C.NR_DOCUMENTO,{#10} C.CD_EMPRESA,C.NR_LANCAMENTO,C.CD_TIPOCONTA,DT.O_DS_DATA

Tabelas Utilizadas

Tabela	Uso
`CONTAS`	referenciada nas queries do layout
`DATA_EXTENSO`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`RETORNA_DADOSCADASTRAIS`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LDP028/ULDP028.pas
DFM: source/LDP028/ULDP028.dfm
Package: source/LDP028/LDP028.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

tabCONTAS #1​

tabCONTAS #2​

Text​

Tabelas Utilizadas​

Shared Units​

Fonte​