Pular para o conteúdo principal

LDP006 — Layout LDP006

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, EMPRESA, filtrada por ST_CONTAS, DT_LANCAMENTO.

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, C.CD_PESSOA, CAST(P.CD_PESSOA AS VARCHAR(10))||' - '|| P.NM_PESSOA NM_PESSOA, EMPRESA.NM_EMPRESA, (
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 C.DT_LANCAMENTO) DIA, EXTRACT (MONTH
FROM C.DT_LANCAMENTO) MES, EXTRACT (YEAR
FROM C.DT_LANCAMENTO) 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)
INNER JOIN EMPRESA ON (EMPRESA.CD_EMPRESA = C.CD_EMPRESA)
WHERE C.ST_CONTAS <> 'C'
  AND C.DT_LANCAMENTO < C.DT_VENCIMENTO

Contas #2​

{frmLDP006}

Contas #3​

{frmLDP006}

Contas #4​

{frmLDP006}

Contas #5​

{frmLDP006}

Contas #6​

{frmLDP006}

Contas #7​

{frmLDP006}

Contas #8​

{frmLDP006}

Contas #9​

{frmLDP006}

Contas #10​

{frmLDP006}

Contas #11​

{frmLDP006}

Contas #12​

{frmLDP006}

Contas #13​

{frmLDP006}

Contas #14​

{frmLDP006}

Contas #15​

{frmLDP006}

Tabelas Utilizadas​

TabelaUso
Creferenciada nas queries do layout
CALCULA_JUROreferenciada nas queries do layout
CONTASreferenciada nas queries do layout
EMPRESAreferenciada 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/LDP006/ULDP006.pas
  • DFM: source/LDP006/ULDP006.dfm
  • Package: source/LDP006/LDP006.dpk