LPM001 — Layout LPM001

Visão Geral

Layout de impressão da família LPM (Produto). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição

Consulta baseada em C, com junção em PESSOA, EMPRESA, ENDERECOPESSOA, MUNICIPIO, 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
]);

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(current_date,'%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 EMPRESA E on (C.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN ENDERECOPESSOA EP on (EP.CD_PESSOA = E.CD_PESSOA
  AND EP.CD_ENDERECO = (
SELECT MIN(E1.CD_ENDERECO)
FROM ENDERECOPESSOA E1
WHERE E1.CD_PESSOA = E.CD_PESSOA))
INNER JOIN MUNICIPIO MP on (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO)
INNER JOIN PESSOA PE on (E.CD_PESSOA = PE.CD_PESSOA)
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = C.CD_EMPRESA)

tabContas #2

{frmLPM001}

tabContas #3

{frmLPM001}

tabContas #4

{frmLPM001}

tabContas #5

{frmLPM001}

tabContas #6

{frmLPM001}

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/LPM001/ULPM001.pas
• DFM: source/LPM001/ULPM001.dfm
• Package: source/LPM001/LPM001.dpk