Pular para o conteúdo principal

LDP021 — Layout LDP021

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

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_DOCUMENTO, C.DT_VENCIMENTO, C.NR_DOCUMENTO, C.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, M.DS_MUNICIPIO, M.SG_ESTADO, E.NR_CEP, P.NR_CNPJCPF, COALESCE(E.NR_FONE, E.NR_FAX) NR_FONE, E.NR_INSCEST, (
SELECT O_VL_JURO
FROM CALCULA_JURO(C.CD_EMPRESA, C.DT_VENCIMENTO + 1, C.DT_VENCIMENTO, C.CD_JURO, C.VL_DOCUMENTO)) VL_JURO, EXTRACT (DAY
FROM N.DT_EMISSAO) DIA, EXTRACT (MONTH
FROM N.DT_EMISSAO) MES, EXTRACT (YEAR
FROM N.DT_EMISSAO) ANO, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO)) VL_EXTENSO
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)
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA E ON (E.CD_PESSOA = N.CD_PESSOA
  AND E.CD_ENDERECO = N.CD_ENDERECO)
LEFT JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = E.CD_MUNICIPIO)

Contas #2​

{frmLDP021}

Contas #3​

{frmLDP021}

Contas #4​

{frmLDP021}

Contas #5​

{frmLDP021}

Contas #6​

{frmLDP021}

Contas #7​

{frmLDP021}

Contas #8​

{frmLDP021}

Contas #9​

{frmLDP021}

Contas #10​

{frmLDP021}

Contas #11​

{frmLDP021}

Contas #12​

{frmLDP021}

Contas #13​

{frmLDP021}

Contas #14​

{frmLDP021}

Contas #15​

{frmLDP021}

Tabelas Utilizadas​

TabelaUso
CALCULA_JUROreferenciada nas queries do layout
CONTASreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
Nreferenciada nas queries do layout
NOTAreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
VALOR_EXTENSOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LDP021/ULDP021.pas
  • DFM: source/LDP021/ULDP021.dfm
  • Package: source/LDP021/LDP021.dpk