Pular para o conteúdo principal

LDP001 — Layout LDP001

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 DATA_EXTENSO, com junção em EMPRESA, PESSOA, NOTA, 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, 'A(os), '||UPPER((
SELECT O_DS_DATA
FROM DATA_EXTENSO(C.DT_VENCIMENTO)))||' pagarei por esta unica '|| 'via de N promissoria a '||UPPER(E.NM_EMPRESA||' '||PE.NR_CNPJCPF)||' ou a sua ordem a quantia de '|| (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||'.' DS_DUPLICATA, N.CD_PESSOA, P.NM_PESSOA, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO, '')|| COALESCE(' '||EP.DS_COMPLEMENTO, '')||' '||M.DS_MUNICIPIO||'-'||M.SG_ESTADO DS_ENDERECO, P.NR_CNPJCPF, COALESCE(EP.NR_FONE||' ', '')||COALESCE(EP.NR_CELULAR||' ', '')||COALESCE(EP.NR_FAX, '') NR_FONES, C.DT_LANCAMENTO DT_EMISSAO, (
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, C.CD_VENDEDOR, PV.NM_FANTASIA NM_VENDEDOR
FROM CONTAS C
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
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)
LEFT JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA
  AND EP.CD_ENDERECO = COALESCE(N.CD_ENDERECO,1))
LEFT JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = C.CD_VENDEDOR)

Contas #2​

{frmLDP001}

Contas #3​

{frmLDP001}

Contas #4​

{frmLDP001}

Contas #5​

{frmLDP001}

Contas #6​

{frmLDP001}

Contas #7​

{frmLDP001}

Contas #8​

{frmLDP001}

Contas #9​

{frmLDP001}

Contas #10​

{frmLDP001}

Contas #11​

{frmLDP001}

Contas #12​

{frmLDP001}

Contas #13​

{frmLDP001}

Contas #14​

{frmLDP001}

Contas #15​

{frmLDP001}

Tabelas Utilizadas​

TabelaUso
CALCULA_JUROreferenciada nas queries do layout
CONTASreferenciada nas queries do layout
DATA_EXTENSOreferenciada 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
VALOR_EXTENSOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LDP001/ULDP001.pas
  • DFM: source/LDP001/ULDP001.dfm
  • Package: source/LDP001/LDP001.dpk