Pular para o conteúdo principal

LDP013 — Layout LDP013

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

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 C.NR_DOCUMENTO||'/'||C.NR_PARCELA NR_DUPLICATA, C.VL_SALDO VL_DOCUMENTO, C.DT_VENCIMENTO, C.NR_DOCUMENTO, C.NR_PARCELA||' / '||COALESCE((
SELECT MAX(CP.NR_PARCELA)
FROM CONTAS CP
WHERE CP.CD_EMPRESA = C.CD_EMPRESA
  AND CP.NR_LANCAMENTO = C.NR_LANCAMENTO
  AND CP.CD_PESSOA = C.CD_PESSOA
  AND CP.CD_TIPOCONTA = C.CD_TIPOCONTA),1) NR_PARCELA, CAST(P.CD_PESSOA AS VARCHAR(10))||' - '|| P.NM_PESSOA NM_PESSOA, E.DS_ENDERECO||COALESCE(', '||E.NR_ENDERECO, '')||COALESCE(' '||E.DS_COMPLEMENTO, '') DS_ENDERECO, E.DS_BAIRRO, M.DS_MUNICIPIO, M.SG_ESTADO, E.NR_CEP, P.NR_CNPJCPF, COALESCE(E.NR_FONE, E.NR_FAX) NR_FONE, E.NR_INSCEST, C.DT_LANCAMENTO, COALESCE(N.VL_NOTAFISCAL, C.VL_SALDO) VL_NOTA, (
SELECT O_VALOR
FROM VALOR_EXTENSO(COALESCE(N.VL_NOTAFISCAL, C.VL_SALDO))) VL_EXTENSO, B.DS_ENDERECO||COALESCE(', '||B.NR_ENDERECO, '')||COALESCE(' '||B.DS_COMPLEMENTO, '')||COALESCE(' '||B.DS_BAIRRO,'')||'. '||MB.DS_MUNICIPIO||' - '||MB.SG_ESTADO DS_ENDCOBRANCA
FROM CONTAS C
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)
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
INNER JOIN ENDERECOPESSOA E ON (E.CD_PESSOA = C.CD_PESSOA
  AND E.CD_ENDERECO = COALESCE(N.CD_ENDERECO,(
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(C.CD_PESSOA, NULL))))
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = E.CD_MUNICIPIO)
INNER JOIN ENDERECOPESSOA B ON (B.CD_PESSOA = C.CD_PESSOA
  AND B.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(C.CD_PESSOA, 'B')))
INNER JOIN MUNICIPIO MB ON (MB.CD_MUNICIPIO = B.CD_MUNICIPIO)

Contas #2​

{frmLDP013}

Contas #3​

{frmLDP013}

Contas #4​

{frmLDP013}

Contas #5​

{frmLDP013}

Contas #6​

{frmLDP013}

Contas #7​

{frmLDP013}

Contas #8​

{frmLDP013}

Contas #9​

{frmLDP013}

Contas #10​

{frmLDP013}

Contas #11​

{frmLDP013}

Contas #12​

{frmLDP013}

Contas #13​

{frmLDP013}

Contas #14​

{frmLDP013}

Contas #15​

{frmLDP013}

Tabelas Utilizadas​

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

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LDP013/ULDP013.pas
  • DFM: source/LDP013/ULDP013.dfm
  • Package: source/LDP013/LDP013.dpk