Pular para o conteúdo principal

LDP024 — Layout LDP024

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 VALOR_EXTENSO, com junção em EMPRESA, PESSOA, ENDERECOPESSOA, MUNICIPIO, NOTA, PESSOAFISICA.

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 'Pagarei por esta única via de N PROMISSÓRIA a '||EMPRESA.NM_EMPRESA||' CNPJ / CPF '|| PE.NR_CNPJCPF||' ou à sua ordem, a quantia de '||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_SALDO)) DS_NOMINAL, C.NR_DOCUMENTO NR_DUPLICATA, C.VL_SALDO VL_DOCUMENTO , C.DT_VENCIMENTO, C.NR_DOCUMENTO||'-'||C.NR_PARCELA NR_QUEBRA, C.NR_DOCUMENTO||'/'||C.NR_PARCELA NR_PROMISSORIA, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_SALDO))||'.' DS_DUPLICATA, C.CD_PESSOA, P.NM_PESSOA, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO, '')|| COALESCE(' '||EP.DS_COMPLEMENTO, '')||' ' DS_ENDERECO, MUNICIPIO.DS_MUNICIPIO||'-'||MUNICIPIO.SG_ESTADO DS_MUNICIPIO, P.NR_CNPJCPF, COALESCE(EP.NR_FONE,EP.NR_CELULAR) NR_FONE, 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, EPE.DS_BAIRRO DS_BAIRROE, COALESCE(EPE.NR_FONE,EPE.NR_CELULAR) NR_FONEE, EPE.NR_CEP NR_CEPE, EPE.DS_ENDERECO||COALESCE(', '||EPE.NR_ENDERECO, '')|| COALESCE(' '||EPE.DS_COMPLEMENTO, '') DS_ENDERECOE, C.NR_PARCELA, PSF.NR_RG
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 PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
LEFT 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(P.CD_PESSOA,NULL))))
LEFT JOIN MUNICIPIO ON (MUNICIPIO.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN PESSOAFISICA PSF ON (PSF.CD_PESSOA = P.CD_PESSOA)

Contas #2​

{frmLDP024}

Contas #3​

{frmLDP024}

Contas #4​

{frmLDP024}

Contas #5​

{frmLDP024}

Contas #6​

{frmLDP024}

Contas #7​

{frmLDP024}

Contas #8​

{frmLDP024}

Contas #9​

{frmLDP024}

Contas #10​

{frmLDP024}

Contas #11​

{frmLDP024}

Contas #12​

{frmLDP024}

Contas #13​

{frmLDP024}

Contas #14​

{frmLDP024}

Contas #15​

{frmLDP024}

Tabelas Utilizadas​

TabelaUso
CONTASreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
NOTAreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PESSOAFISICAreferenciada nas queries do layout
RETORNA_ENDERECOreferenciada nas queries do layout
VALOR_EXTENSOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LDP024/ULDP024.pas
  • DFM: source/LDP024/ULDP024.dfm
  • Package: source/LDP024/LDP024.dpk