LDP014 — Layout LDP014

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, ENDERECOPESSOA, MUNICIPIO, NOTA, PEDIDONOTA (+4), filtrada por NR_LANCAMENTO, CD_EMPRESA, NR_, JO, CD_PESSOA, CD_ENDERECO (+7).

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

`Contas #1`

SELECT DISTINCT C.NR_PARCELA||'/'||(
SELECT MAX(CTS.NR_PARCELA)
FROM CONTAS CTS
WHERE (CTS.NR_LANCAMENTO = C.NR_LANCAMENTO
  AND CTS.CD_EMPRESA = EMPRESA.CD_EMPRESA)) NR_DUPLICATA, C.NR_DOCUMENTO, C.NR_PARCELA, C.VL_DOCUMENTO, C.DT_VENCIMENTO, C.CD_PESSOA, P.NM_PESSOA, P.NM_PESSOA||' - '||C.CD_PESSOA DS_PESSOA, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO, '')|| COALESCE(' '||EP.DS_COMPLEMENTO, '') DS_ENDERECO, '('||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||')'|| COPIA_TEXTO( '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *', CHAR_LENGTH('('||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||')'), CASE WHEN (155 - CHAR_LENGTH('('||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||')')) < 0 THEN 0 ELSE (155 - CHAR_LENGTH('('||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||')')) END ) AS DS_DUPLICATA, COALESCE(' '||EP.DS_COMPLEMENTO, '') DS_ENDERECO, MUNICIPIO.DS_MUNICIPIO||' - '||MUNICIPIO.SG_ESTADO DS_MUNICIPIO, MUNICIPIO.DS_MUNICIPIO||' - '||MUNICIPIO.SG_ESTADO||COALESCE(' CEP: '||EP.NR_CEP,'') DS_PRACAPAGTO, P.NR_CNPJCPF, COALESCE(EP.NR_FONE,EP.NR_CELULAR) NR_FONE, EP.NR_FAX, C.DT_LANCAMENTO DT_EMISSAO, N.CD_VENDEDOR, PV.NM_FANTASIA NM_VENDEDOR, EP.DS_BAIRRO, EP.NR_CEP, EMPRESA.NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJCPFE, EP.NR_INSCEST, EPE.NR_INSCEST NR_INSCESTE, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICIPIOE, COALESCE(EPE.NR_FONE, EPE.NR_CELULAR) NR_FONEE, EPE.NR_FAX NR_FAXE, EPE.DS_ENDERECO||COALESCE(', '||EPE.NR_ENDERECO, '')||COALESCE(' - '||EPE.DS_COMPLEMENTO, '')||COALESCE(' - CEP: '||EPE.NR_CEP,'') DS_ENDERECOE, N.VL_NOTAFISCAL, J.O_VL_JURO VL_JURODIA, PTV.DS_PLATAFORMAVEICULO, C.DS_OBSERVACAO
FROM CONTAS C
INNER JOIN EMPRESA ON (EMPRESA.CD_EMPRESA = C.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = EMPRESA.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EPE ON (EPE.CD_PESSOA = PE.CD_PESSOA
  AND EPE.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(PE.CD_PESSOA, NULL)))
INNER JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = EPE.CD_MUNICIPIO)
LEFT JOIN NOTA N ON (N.CD_EMPRESA = C.CD_EMPRESA
  AND N.NR_LANCAMENTO = C.NR_LANCTONOTA
  AND N.CD_SERIE = C.CD_SERIE
  AND N.TP_NOTA = C.TP_CONTAS)
LEFT JOIN PEDIDONOTA PN ON (PN.CD_EMPRESA = N.CD_EMPRESA
  AND PN.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND PN.CD_SERIE = N.CD_SERIE
  AND PN.TP_NOTA = N.TP_NOTA)
LEFT JOIN PEDIDO PED ON (PED.CD_EMPRESA = PN.CD_EMPRPED
  AND PED.NR_PEDIDO = PN.NR_PEDIDO
  AND PED.TP_PEDIDO = PN.TP_PEDIDO)
LEFT JOIN ORDEMSERVICO OS ON (OS.CD_EMPRESA = PED.CD_EMPRORDEM
  AND OS.NR_ORDEMSERVICO = PED.NR_ORDEMSERVICO)
LEFT JOIN PLATAFORMAVEICULO PTV ON (PTV.CD_PLATAFORMAVEICULO = OS.CD_PLATAFORMAVEICULO)
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = C.CD_PESSOA
  AND EP.CD_ENDERECO = COALESCE(N.CD_ENDERECO, (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(C.CD_PESSOA, NULL))))
INNER JOIN MUNICIPIO ON (MUNICIPIO.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN CALCULA_JURO(C.CD_EMPRESA, C.DT_VENCIMENTO + 1, C.DT_VENCIMENTO, C.CD_JURO, C.VL_DOCUMENTO) J ON (1 = 1)

`Contas #2`

{Consulta}

`Contas #3`

{frmLDP014}

`Contas #4`

{frmLDP014}

`Contas #5`

{frmLDP014}

`Contas #6`

{frmLDP014}

`Contas #7`

{frmLDP014}

`Contas #8`

{frmLDP014}

`Contas #9`

{frmLDP014}

`Contas #10`

{frmLDP014}

`Contas #11`

{frmLDP014}

`Contas #12`

{frmLDP014}

`Contas #13`

{frmLDP014}

`Contas #14`

{frmLDP014}

`Contas #15`

{frmLDP014}

`Contas #16`

{frmLDP014}

`Contas #17`

{frmLDP014}

`Consulta`

SELECT DISTINCT C.NR_PARCELA || '/' ||(
SELECT MAX(CTS.NR_PARCELA) {#10}
FROM CONTAS CTS {#10}
WHERE (CTS.NR_LANCAMENTO = C.NR_LANCAMENTO {#10}
  AND CTS.CD_EMPRESA = EMPRESA.CD_EMPRESA)) NR_DUPLICATA, C.NR_DOCUMENTO, C.NR_PARCELA,{#10} C.VL_DOCUMENTO, C.DT_VENCIMENTO, C.CD_PESSOA, P.NM_PESSOA, P.NM_PESSOA || ' - ' || C.CD_PESSOA DS_PESSOA,{#10} EP.DS_ENDERECO || COALESCE(', ' || EP.NR_ENDERECO, '') || COALESCE(' ' || EP.DS_COMPLEMENTO, '') DS_ENDERECO, {#10}'(' ||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO)) || ')' || COPIA_TEXTO('* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *', CHAR_LENGTH('(' ||(
SELECT O_VALOR {#10}
FROM VALOR_EXTENSO(C.VL_DOCUMENTO)) || ')'), 155 - CHAR_LENGTH('(' ||(
SELECT O_VALOR {#10}
FROM VALOR_EXTENSO(C.VL_DOCUMENTO)) || ')')) DS_DUPLICATA, {#10}'Reconheco(emos) a exatidao desta DUPLICATA DE VENDA MERCANTIL, com pagto UNICO na importancia acima que pagarei(emos) a ' || EMPRESA.NM_EMPRESA || ', ou a sua ordem na praca e vencimentos indicados.' {#10}|| CHR(10) || 'Na falta de pagto no vencimento serao cobrados juros e demais custos financeiros.' DS_MENSAGEM, {#10} COALESCE(' ' || EP.DS_COMPLEMENTO, '') DS_ENDERECO, {#10} MUNICIPIO.DS_MUNICIPIO || ' - ' || MUNICIPIO.SG_ESTADO DS_MUNICIPIO, {#10} MUNICIPIO.DS_MUNICIPIO || ' - ' || MUNICIPIO.SG_ESTADO || COALESCE(' CEP: ' || EP.NR_CEP, '') DS_PRACAPAGTO, {#10} P.NR_CNPJCPF, COALESCE(EP.NR_FONE, EP.NR_CELULAR) NR_FONE, EP.NR_FAX, C.DT_LANCAMENTO DT_EMISSAO, N.CD_VENDEDOR, {#10} PV.NM_FANTASIA NM_VENDEDOR, EP.DS_BAIRRO, EP.NR_CEP, EMPRESA.NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJCPFE, EP.NR_INSCEST, {#10} EPE.NR_INSCEST NR_INSCESTE, ME.DS_MUNICIPIO || ' - ' || ME.SG_ESTADO DS_MUNICIPIOE, {#10} COALESCE(EPE.NR_FONE, EPE.NR_CELULAR) NR_FONEE, EPE.NR_FAX NR_FAXE, {#10} EPE.DS_ENDERECO || COALESCE(', ' || EPE.NR_ENDERECO, '') || COALESCE(' - ' || EPE.DS_COMPLEMENTO, '') || COALESCE(' - CEP: ' || EPE.NR_CEP, '') DS_ENDERECOE,{#10} N.VL_NOTAFISCAL, J.O_VL_JURO VL_JURODIA, PTV.DS_PLATAFORMAVEICULO, C.DS_OBSERVACAO{#10}
FROM CONTAS C {#10}
INNER JOIN EMPRESA ON (EMPRESA.CD_EMPRESA = C.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = EMPRESA.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EPE ON (EPE.CD_PESSOA = PE.CD_PESSOA {#10}
  AND EPE.CD_ENDERECO = (
SELECT O_CD_ENDERECO {#10}
FROM RETORNA_ENDERECO(PE.CD_PESSOA, NULL))) {#10}
INNER JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = EPE.CD_MUNICIPIO) {#10}
INNER JOIN NOTA N ON (N.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND N.NR_LANCAMENTO = C.NR_LANCTONOTA {#10}
  AND N.CD_SERIE = C.CD_SERIE {#10}
  AND N.TP_NOTA = C.TP_CONTAS) {#10}
LEFT JOIN PEDIDONOTA PN ON (PN.CD_EMPRESA = N.CD_EMPRESA {#10}
  AND PN.NR_LANCAMENTO = N.NR_LANCAMENTO {#10}
  AND PN.CD_SERIE = N.CD_SERIE {#10}
  AND PN.TP_NOTA = N.TP_NOTA) {#10}
LEFT JOIN PEDIDO PED ON (PED.CD_EMPRESA = PN.CD_EMPRPED {#10}
  AND PED.NR_PEDIDO = PN.NR_PEDIDO {#10}
  AND PED.TP_PEDIDO = PN.TP_PEDIDO) {#10}
LEFT JOIN ORDEMSERVICO OS ON (OS.CD_EMPRESA = PED.CD_EMPRORDEM {#10}
  AND OS.NR_ORDEMSERVICO = PED.NR_ORDEMSERVICO) {#10}
LEFT JOIN PLATAFORMAVEICULO PTV ON (PTV.CD_PLATAFORMAVEICULO = OS.CD_PLATAFORMAVEICULO) {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = C.CD_PESSOA {#10}
  AND EP.CD_ENDERECO = COALESCE(N.CD_ENDERECO, (
SELECT O_CD_ENDERECO {#10}
FROM RETORNA_ENDERECO(C.CD_PESSOA, NULL)))) {#10}
INNER JOIN MUNICIPIO ON (MUNICIPIO.CD_MUNICIPIO = EP.CD_MUNICIPIO) {#10}
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = N.CD_VENDEDOR) {#10}
LEFT JOIN CALCULA_JURO(C.CD_EMPRESA, C.DT_VENCIMENTO + 1, C.DT_VENCIMENTO, C.CD_JURO, C.VL_DOCUMENTO) J ON (1 = 1)

Tabelas Utilizadas

Tabela	Uso
`CALCULA_JURO`	referenciada nas queries do layout
`CONTAS`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`ENDERECOPESSOA`	referenciada nas queries do layout
`MUNICIPIO`	referenciada nas queries do layout
`NOTA`	referenciada nas queries do layout
`ORDEMSERVICO`	referenciada nas queries do layout
`PEDIDO`	referenciada nas queries do layout
`PEDIDONOTA`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`PLATAFORMAVEICULO`	referenciada nas queries do layout
`RETORNA_ENDERECO`	referenciada nas queries do layout
`VALOR_EXTENSO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LDP014/ULDP014.pas
DFM: source/LDP014/ULDP014.dfm
Package: source/LDP014/LDP014.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Contas #1​

Contas #2​

Contas #3​

Contas #4​

Contas #5​

Contas #6​

Contas #7​

Contas #8​

Contas #9​

Contas #10​

Contas #11​

Contas #12​

Contas #13​

Contas #14​

Contas #15​

Contas #16​

Contas #17​

Consulta​

Tabelas Utilizadas​

Shared Units​

Fonte​