LDP017 — Layout LDP017

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 VALOR_EXTENSO, com junção em CONTASHISTORICO, HISTORICO, EMPRESA, PESSOA, ENDERECOPESSOA, MUNICIPIO (+3).

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

Pedido #1

SELECT R.DS_OBSERVACAO, R.DS_OBSROMANEIO, CH.CD_HISTORICO, H.DS_HISTORICO, C.DS_OBSERVACAO OBSSOLIC, CH.VL_DOCUMENTO, CASE C.TP_CONTAS WHEN 'S' THEN CASE H.TP_NATUREZA WHEN 'P' THEN CH.VL_DOCUMENTO ELSE CH.VL_DOCUMENTO * -1 END ELSE CASE H.TP_NATUREZA WHEN 'R' THEN CH.VL_DOCUMENTO ELSE CH.VL_DOCUMENTO * -1 END END VL_DOCTO, C.NR_DOCUMENTO NR_NOTA, C.NR_DOCUMENTO NR_DUPLICATA, C.VL_DOCUMENTO, C.DT_VENCIMENTO, C.NR_DOCUMENTO||'-'||C.NR_PARCELA NR_DOCTO, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||'.' DS_DUPLICATA, C.CD_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO, '')|| COALESCE(' '||EP.DS_COMPLEMENTO, '') DS_ENDERECO, MUNICIPIO.DS_MUNICIPIO||' - '||MUNICIPIO.SG_ESTADO DS_MUNICIPIO, MUNICIPIO.DS_MUNICIPIO||' - '||MUNICIPIO.SG_ESTADO||COALESCE(' CEP: '||EP.NR_CEP,'') DS_PRACAPAGTO, P.NR_CNPJCPF, COALESCE(EP.NR_FONE,EP.NR_CELULAR) NR_FONE, EP.NR_FAX, C.DT_LANCAMENTO DT_EMISSAO, C.CD_VENDEDOR, PV.NM_FANTASIA NM_VENDEDOR, EP.DS_BAIRRO, EP.NR_CEP, EMPRESA.NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJCPFE, EP.NR_INSCEST, EPE.NR_INSCEST NR_INSCESTE, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICIPIOE, COALESCE(EPE.NR_FONE,EPE.NR_CELULAR) NR_FONEE, EPE.NR_FAX NR_FAXE, COALESCE(EPE.DS_COMPLEMENTO||' - ', '')||COALESCE('CEP: '||EPE.NR_CEP,'') DS_COMPLEMENTOE, EPE.DS_ENDERECO||COALESCE(', '||EPE.NR_ENDERECO, '')||COALESCE(' - '||EPE.DS_BAIRRO,'') DS_ENDERECOE, C.NR_PARCELA, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONEEMP, C.DT_LANCAMENTO
FROM CONTAS C
INNER JOIN CONTASHISTORICO CH ON (CH.CD_EMPRESA = C.CD_EMPRESA
  AND CH.NR_LANCAMENTO = C.NR_LANCAMENTO
  AND CH.CD_PESSOA = C.CD_PESSOA
  AND CH.CD_TIPOCONTA = C.CD_TIPOCONTA
  AND CH.NR_PARCELA = C.NR_PARCELA)
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = CH.CD_HISTORICO)
INNER JOIN EMPRESA ON (EMPRESA.CD_EMPRESA = C.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = EMPRESA.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EPE ON (EPE.CD_PESSOA = PE.CD_PESSOA
  AND EPE.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(PE.CD_PESSOA,NULL)))
INNER JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = EPE.CD_MUNICIPIO)
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = C.CD_PESSOA
  AND EP.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(C.CD_PESSOA, 'B')))
INNER JOIN MUNICIPIO ON (MUNICIPIO.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = C.CD_VENDEDOR)
LEFT JOIN PARMFATUR ON (PARMFATUR.CD_EMPRESA = C.CD_EMPRESA)
LEFT JOIN ROMANEIOCONTAS RO ON (RO.CD_EMPRESA = C.CD_EMPRESA
  AND RO.NR_LANCAMENTO = C.NR_LANCAMENTO
  AND RO.CD_PESSOA = C.CD_PESSOA
  AND RO.CD_TIPOCONTA = C.CD_TIPOCONTA)
LEFT JOIN ROMANEIO R ON (R.CD_EMPRESA = RO.CD_EMPRESA
  AND R.NR_ROMANEIO = RO.NR_ROMANEIO)

Pedido #2

{frmLDP017}

Pedido #3

{frmLDP017}

Pedido #4

{frmLDP017}

Pedido #5

{frmLDP017}

Pedido #6

{frmLDP017}

Pedido #7

{frmLDP017}

Pedido #8

{frmLDP017}

Pedido #9

{frmLDP017}

Pedido #10

{frmLDP017}

Pedido #11

{frmLDP017}

Pedido #12

{frmLDP017}

Pedido #13

{frmLDP017}

Tabelas Utilizadas

Tabela	Uso
CONTAS	referenciada nas queries do layout
CONTASHISTORICO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
HISTORICO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_ENDERECO	referenciada nas queries do layout
ROMANEIO	referenciada nas queries do layout
ROMANEIOCONTAS	referenciada nas queries do layout
VALOR_EXTENSO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LDP017/ULDP017.pas
• DFM: source/LDP017/ULDP017.dfm
• Package: source/LDP017/LDP017.dpk