Pular para o conteúdo principal

LDP009 — Layout LDP009

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 EMPRESA, PESSOA, ENDERECOPESSOA, MUNICIPIO, NOTA, PEDIDONOTA (+5).

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 DISTINCT C.NR_DOCUMENTO||'/'||C.NR_PARCELA NR_DUPLICATA, C.NR_DOCUMENTO, C.NR_PARCELA, C.VL_DOCUMENTO, C.DT_VENCIMENTO, C.CD_PESSOA, P.NM_PESSOA, P.NM_PESSOA||' - '||C.CD_PESSOA DS_PESSOA, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO, '')|| COALESCE(' '||EP.DS_COMPLEMENTO, '') DS_ENDERECO, '('||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||')'||COPIA_TEXTO( '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *', CHAR_LENGTH('('||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||')'), CASE WHEN (155 - CHAR_LENGTH('('||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||')')) < 0 THEN 0 ELSE (155 - CHAR_LENGTH('('||(
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_DOCUMENTO))||')')) END) DS_DUPLICATA, 'Reconheco(emos) a exatidao desta DUPLICATA DE VENDA MERCANTIL, com pagto UNICO na importancia acima que pagarei(emos) a '||EMPRESA.NM_EMPRESA||', ou a sua ordem na praca e vencimentos indicados.'||ASCII_CHAR(10)|| 'Na falta de pagto no vencimento serao cobrados juros e demais custos financeiros.' DS_MENSAGEM, 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, N.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, EPE.DS_ENDERECO||COALESCE(', '||EPE.NR_ENDERECO, '')||COALESCE(' - '||EPE.DS_COMPLEMENTO, '')||COALESCE(' - CEP: '||EPE.NR_CEP,'') DS_ENDERECOE, N.VL_NOTAFISCAL, J.O_VL_JURO VL_JURODIA, PTV.DS_PLATAFORMAVEICULO, EC.DS_ENDERECO||COALESCE(', '||EC.NR_ENDERECO,'')||COALESCE(' '||EC.DS_COMPLEMENTO,'')||COALESCE(' '||EC.DS_BAIRRO,'')||' '||MC.DS_MUNICIPIO||' - '||MC.SG_ESTADO DS_ENDCOBRANCA, PV.CD_PESSOA CD_VEND, PV.NM_PESSOA NM_PESSOAVENDEDOR, FO.CD_FORMAPAGTO CD_FORMAPAGTO, FO.DS_FORMAPAGTO DS_FORMAPAGTO
FROM CONTAS C
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 ENDERECOPESSOA EC ON (EC.CD_PESSOA = C.CD_PESSOA
  AND EC.CD_ENDERECO = COALESCE((
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(C.CD_PESSOA, 'B')), (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(C.CD_PESSOA, NULL))))
INNER JOIN MUNICIPIO MC ON (MC.CD_MUNICIPIO = EC.CD_MUNICIPIO)
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
  AND N.TP_NOTA = C.TP_CONTAS)
LEFT JOIN PEDIDONOTA PN ON (PN.CD_EMPRESA = N.CD_EMPRESA
  AND PN.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND PN.CD_SERIE = N.CD_SERIE
  AND PN.TP_NOTA = N.TP_NOTA)
LEFT JOIN PEDIDO PED ON (PED.CD_EMPRESA = PN.CD_EMPRPED
  AND PED.NR_PEDIDO = PN.NR_PEDIDO
  AND PED.TP_PEDIDO = PN.TP_PEDIDO)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = PED.CD_FORMAPAGTO)
LEFT JOIN FORMAPAGTO FO ON (FO.CD_FORMAPAGTO = C.CD_FORMAPAGTO)
LEFT JOIN ORDEMSERVICO OS ON (OS.CD_EMPRESA = PED.CD_EMPRORDEM
  AND OS.NR_ORDEMSERVICO = PED.NR_ORDEMSERVICO)
LEFT JOIN PLATAFORMAVEICULO PTV ON (PTV.CD_PLATAFORMAVEICULO = OS.CD_PLATAFORMAVEICULO)
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 = COALESCE(N.CD_ENDERECO, (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(C.CD_PESSOA, NULL))))
INNER JOIN MUNICIPIO ON (MUNICIPIO.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN CALCULA_JURO(C.CD_EMPRESA, C.DT_VENCIMENTO + 1, C.DT_VENCIMENTO, C.CD_JURO, C.VL_DOCUMENTO) J ON (1 = 1)

Contas #2​

{frmLDP009}

Contas #3​

{frmLDP009}

Contas #4​

{frmLDP009}

Contas #5​

{frmLDP009}

Contas #6​

{frmLDP009}

Contas #7​

{frmLDP009}

Contas #8​

{frmLDP009}

Contas #9​

{frmLDP009}

Contas #10​

{frmLDP009}

Contas #11​

{frmLDP009}

Contas #12​

{frmLDP009}

Contas #13​

{frmLDP009}

Contas #14​

{frmLDP009}

Contas #15​

{frmLDP009}

Contas #16​

{frmLDP009}

Tabelas Utilizadas​

TabelaUso
CALCULA_JUROreferenciada nas queries do layout
CONTASreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
FORMAPAGTOreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
NOTAreferenciada nas queries do layout
ORDEMSERVICOreferenciada nas queries do layout
PEDIDOreferenciada nas queries do layout
PEDIDONOTAreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PLATAFORMAVEICULOreferenciada nas queries do layout
RETORNA_ENDERECOreferenciada nas queries do layout
VALOR_EXTENSOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LDP009/ULDP009.pas
  • DFM: source/LDP009/ULDP009.dfm
  • Package: source/LDP009/LDP009.dpk