LDP012 — Layout LDP012

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 C, com junção em PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA, PARMFATUR, filtrada por CD_PESSOA, JO, CD_MUNICIPIO, CD_EMPRESA.

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

tabContas #1

SELECT C.CD_EMPRESA, E.NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJEMP, C.NR_DOCUMENTO NR_LANCAMENTO, C.TP_CONTAS TP_NOTA, C.DT_LANCAMENTO DT_EMISSAO, C.NR_DOCUMENTO NR_NOTAFISCAL, '' CD_SERIE, C.DT_LANCAMENTO DT_EMISSAO, CASE PF.CD_CONSUMIDOR WHEN C.CD_PESSOA THEN C.DS_OBSERVACAO ELSE '('||cast(C.CD_PESSOA as varchar(10))||') '||P.NM_PESSOA END NM_PESSOA, C.CD_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, EP.DS_ENDERECO||coalesce(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, coalesce(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO||', '||FORMATA_DATA(C.DT_VENCIMENTO,'%d/%m/%Y') DS_MUNICIPIO, EP.NR_INSCEST, coalesce(EP.NR_FONE, EP.NR_FAX) NR_FONE, P.NM_FANTASIA DS_OBSERVACAO, C.DT_VENCIMENTO, C.VL_DOCUMENTO, extract(day
FROM C.DT_VENCIMENTO) DIA, (
SELECT O_DS_MES
FROM MES_EXTENSO(C.DT_VENCIMENTO)) MES, extract(year
FROM C.DT_VENCIMENTO) ANO, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO)) VL_EXTENSO, (
SELECT O_DS_DATA
FROM DATA_EXTENSO(C.DT_VENCIMENTO)) DT_EXTENSA, C.TP_CONTAS
FROM CONTAS C
INNER JOIN PESSOA P on (C.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP on (EP.CD_PESSOA = C.CD_PESSOA
  AND EP.CD_ENDERECO = (
SELECT MIN(E1.CD_ENDERECO)
FROM ENDERECOPESSOA E1
WHERE E1.CD_PESSOA = C.CD_PESSOA))
INNER JOIN MUNICIPIO MP on (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO)
INNER JOIN EMPRESA E on (C.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA PE on (E.CD_PESSOA = PE.CD_PESSOA)
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = C.CD_EMPRESA)

tabContas #2

{frmLDP012}

tabContas #3

{frmLDP012}

tabContas #4

{frmLDP012}

tabContas #5

{frmLDP012}

tabContas #6

{frmLDP012}

tabContas #7

{frmLDP012}

tabContas #8

{frmLDP012}

tabContas #9

{frmLDP012}

tabContas #10

{frmLDP012}

tabContas #11

{frmLDP012}

Tabelas Utilizadas

Tabela	Uso
C	referenciada nas queries do layout
CONTAS	referenciada nas queries do layout
DATA_EXTENSO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
MES_EXTENSO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
VALOR_EXTENSO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LDP012/ULDP012.pas
• DFM: source/LDP012/ULDP012.dfm
• Package: source/LDP012/LDP012.dpk