LNF230 — Listagem LNF230

Visão Geral

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

Descrição

Consulta baseada em N, com junção em PESSOA, ENDERECOPESSOA, MUNICIPIO, ESTADO, EMPRESA, CONDPAGTO (+9), filtrada por CD_PESSOA, JO, CD_MUNICIPIO, SG_ESTADO, CD_CONDPAGTO, CD_EMPRESA (+10).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout da Nota Fiscal
  // 1 - Cod Empresa
  // 2 - Nr Lancamento
  // 3 - Tp Nota
  // 4 - Cod Serie
  // 5 - Path Servidor
  // 6 - Visualiza -> V  ou  Imprime -> I
  // 7 - Impressora do Parametro
]);

SQL Base

`Nota`

SELECT DISTINCT N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE, N.ST_NOTA, -- EMPRESA -- PE.NM_PESSOA NM_EMPRESA, PE.NM_FANTASIA, PE.NR_CNPJCPF NR_CNPJEMPRESA, EE.NR_INSCEST NR_INSCESTEMPRESA, EE.NR_INSCMUN NR_INSCMUNEMPRESA, PE.DS_SITE DS_SITEEMPRESA, PE.DS_EMAIL DS_EMAILEMPRESA, EE.DS_ENDERECO DS_ENDEMPRESA, EE.NR_ENDERECO NR_ENDEMPRESA, EE.NR_CEP NR_CEPEMPRESA, EE.DS_BAIRRO DS_BAIRROEMPRESA, EE.DS_COMPLEMENTO DS_COMPEMPRESA, ME.DS_MUNICIPIO DS_MUNICIPIOEMP, EE.NR_FONE NR_FONEEMPRESA, EE.NR_FAX NR_FAXEMPRESA, COALESCE(CF.DS_LOGOTIPO, PA.DS_LOGOTIPO) DS_LOGOTIPO, COALESCE(PU.NM_PESSOA,U.NM_USUARIO) NM_USUARIO, EE.DS_ENDERECO||COALESCE(', Nº '|| EE.NR_ENDERECO,' ')||COALESCE(', Bairro: '|| EE.DS_BAIRRO,' ')||COALESCE(', '||EE.DS_COMPLEMENTO,' ')DS_ENDERECOEMP, EE.DS_ENDERECO||COALESCE(' '||EE.NR_ENDERECO, '')||COALESCE(' '||EE.DS_BAIRRO, '')|| COALESCE(''||ME.DS_MUNICIPIO, '')||COALESCE(' - '||ESE.SG_ESTADO, '') DS_ENDERECOEMPRESA, ME.DS_MUNICIPIO||' - '||ESE.SG_ESTADO DS_MUNEMPRESA, 'CNPJ: '||PE.NR_CNPJCPF||COALESCE(' | IE: '||EE.NR_INSCEST, '') NR_CNPJINSCEST, 'TELEFONE : '||COALESCE(EE.NR_FONE, EE.NR_CELULAR, EE.NR_FAX) NR_TELEFONEEMPRESA, --NOTA-- COALESCE(NFSE.NR_RPS, NFSE.NR_NOTASERVICO, N.NR_NOTAFISCAL) NR_NOTA, N.DT_EMISSAO DT_EMISSAONOTA, IIF(NFSE.CD_AUTENTICACAO IS NOT NULL,COALESCE(NFSE.NR_NOTASERVICO, N.NR_NOTAFISCAL),'') NR_NOTASERVICO, NFSE.CD_AUTENTICACAO, N.DT_EMISSAO DT_EMISSAORPS, N.NR_LANCAMENTO||'/'||N.CD_SERIE||' '||EXTRACT(DAY
FROM N.DT_EMISSAO)||'/'||EXTRACT(MONTH
FROM N.DT_EMISSAO)||'/'||EXTRACT(YEAR
FROM N.DT_EMISSAO) DS_NOTASERIEDATA, NFSE.NR_LOTE NR_LOTERPS, NFSE.NR_RPS, N.NR_NOTAFISCAL NR_DOCUMENTO, N.DT_REGISTRO HR_DOCUMENTO, RC.O_DS_CONDPAGTO, --TRIM(OBS.V_DS_OBSNOTA) DS_OBSNOTA, --TRIM(CAST(OBS.V_DS_OBSFISCAL AS DOM_VARCHAR1000)) DS_OBSFISCAL, n.DS_OBSNOTA, n.DS_OBSFISCAL, V.CD_PESSOA||'-'||V.NM_PESSOA NM_VENDEDOR, C.CD_CONDPAGTO, C.DS_CONDPAGTO, F.CD_FORMAPAGTO, F.DS_FORMAPAGTO, --CLIENTE-- P.CD_PESSOA, P.NM_PESSOA, P.NR_CNPJCPF, P.DS_EMAIL, P.NM_FANTASIA NM_FANTASIAPESSOA, EP.NR_ENDERECO NR_ENDPESSOA, EP.NR_INSCMUN, EP.NR_CEP NR_CEPPESSOA, EP.DS_BAIRRO DS_BAIRROPESSOA, EP.DS_COMPLEMENTO DS_COMPPESSOA, MP.DS_MUNICIPIO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNPESSOA, MP.SG_ESTADO, EP.NR_FONE, EP.NR_FAX, EP.DS_CONTATO, EP.NR_CELULAR, EP.DS_ENDERECO DS_ENDERECOPESSOA, EP.DS_ENDERECO||COALESCE(', Nº '|| EP.NR_ENDERECO,' ')||COALESCE(', Bairro: '|| EP.DS_BAIRRO,' ')|| COALESCE(' - '||MP.DS_MUNICIPIO||' , '||ESP.DS_ESTADO,' ') DS_ENDPESSOA, EP.NR_INSCEST NR_INSCESTPESSOA, EP.DS_ENDERECO||COALESCE(', Nº '|| EP.NR_ENDERECO,' ')||COALESCE(', Cep: '||EP.NR_CEP,' ') || COALESCE(', Bairro: '|| EP.DS_BAIRRO,' ')||Coalesce(', '||EP.DS_COMPLEMENTO,' ')|| COALESCE(' - '||MP.DS_MUNICIPIO||' , '||ESP.DS_ESTADO,' ') DS_ENDCOMPLETOPESSOA, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'Q', 'N', 'VI')) VL_ISSQN, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'Q', 'S', 'VI')) VL_ISSQN_RETIDO, N.VL_CONTABIL, ---IMPOSTOS ZILS (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'S', NULL, 'VI')) VL_PIS, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'F', NULL, 'VI')) VL_COFINS, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'N', NULL, 'VI')) VL_INSS, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'J', NULL, 'VI')) VL_IR, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'L', NULL, 'VI')) VL_CSLL, N.VL_DESCONTO VL_TOTDESCONTO, LDN.O_VL_LAUDO VL_GARANTIA, (
SELECT V_PC_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'S', NULL, 'VI')) PC_PIS, (
SELECT V_PC_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'F', NULL, 'VI')) PC_COFINS, (
SELECT V_PC_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'N', NULL, 'VI')) PC_INSS, (
SELECT V_PC_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'J', NULL, 'VI')) PC_IR, (
SELECT V_PC_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'L', NULL, 'VI')) PC_CSLL, N.VL_NOTAFISCAL, CNAE.DS_CNAE, N.VL_NOTAFISCAL + COALESCE(N.VL_DESCONTO, 0) - COALESCE(N.VL_DESPESA, 0) - COALESCE(N.VL_FRETE, 0) VL_BRUTONOTA
FROM NOTA N
INNER JOIN PESSOA P ON (P.CD_PESSOA = N.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = N.CD_PESSOA
  AND EP.CD_ENDERECO = N.CD_ENDERECO)
INNER JOIN MUNICIPIO MP ON (MP.CD_MUNICIPIO = EP.CD_MUNICIPIO)
INNER JOIN ESTADO ESP ON (ESP.SG_ESTADO = MP.SG_ESTADO)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT MIN(CD_ENDERECO)
FROM ENDERECOPESSOA ENDER
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA))
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO)
INNER JOIN ESTADO ESE ON (ESE.SG_ESTADO = ME.SG_ESTADO)
INNER JOIN CONDPAGTO C ON (C.CD_CONDPAGTO = N.CD_CONDPAGTO)
INNER JOIN PARMFATUR PA ON (PA.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN USUARIO U ON (U.CD_USUARIO = N.CD_USUARIO)
LEFT JOIN NFSE ON (NFSE.CD_EMPRESA = N.CD_EMPRESA
  AND NFSE.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NFSE.CD_SERIE = N.CD_SERIE
  AND NFSE.TP_NOTA = N.TP_NOTA)
LEFT JOIN PESSOA PU ON (PU.CD_PESSOA = U.CD_PESSOA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN CONFIGNFSE CF ON (CF.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN RETORNA_CONDPAGTONOTALNF230(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA) RC ON (1 = 1)
LEFT JOIN RETORNA_VLLAUDONOTA(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA) LDN ON (1=1)
LEFT JOIN CNAE ON (CNAE.CD_CNAE = E.CD_CNAEPRIN)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_LANCAMENTO = :NR_LANCAMENTO
  AND N.TP_NOTA = :TP_NOTA
  AND N.CD_SERIE = :CD_SERIE CD_EMPRESA 1 NR_LANCAMENTO 1429 TP_NOTA S CD_SERIE 1
SELECT R.O_CD_ITEM, R.O_DS_ITEM, R.O_DS_ITEMMFA013, R.O_QTDE, R.O_VL_UNITARIO, R.O_VL_TOTAL, R.O_QT_DESCONTADA, R.O_NR_SERIE, R.O_NR_DOT, R.O_NR_FOGO, R.O_DS_MODELO, R.O_DS_MARCA, R.O_DS_MEDIDAPNEU, R.O_DS_DESENHO, R.O_IDORDEMPRODUCAORECAP, R.O_ORDEM, R.O_VL_TOTAL TOT_VL_ITENS, R.O_QTDE TOT_QT_ITENS, IIF(R.O_ORDEM = 1, R.O_ORDEM, NULL) TOT_QT_PNEUS, IIF(R.O_DSSITUACAO = 'A', 1, NULL) TOT_QT_PRODUZIDOS, IIF(R.O_DSSITUACAO = 'R', 1, NULL) TOT_QT_RECUSADOS, COALESCE(CAST(I.DS_OBSERVACAO AS VARCHAR(32000)), R.O_DS_ITEM) DS_OBSERVACAOTPO001, R.O_QT_REFORMAS QT_REFORMAS, R.O_NRDOT_EMBORRACHAMENTO NR_DOTEMBORRACHAMENTO, R.O_VL_DESCONTO VL_DESCONTO, R.O_VL_LIQUIDO VL_LIQUIDO, R.O_VL_UNITARIO_LIQ VL_UNITARIO_LIQ
FROM RETORNA_SERVICONOTALNF230(:CD_EMPRESA, :NR_LANCAMENTO, :TP_NOTA, :CD_SERIE) R
INNER JOIN ITEM I ON (I.CD_ITEM = R.O_CD_ITEM) CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE

`Produto`

{frmLNF230}

`Consulta #1`

SELECT PARM.ST_GERABOLETO, C.ST_GERABOLNFSEPEND
FROM PARMNOTA PARM
INNER JOIN CONFIGNFSE C ON (C.CD_EMPRESA = PARM.CD_EMPRESA) {#10}
WHERE PARM.CD_EMPRESA = {iParametros[1]}
  AND PARM.TP_NOTA = {Nulo(iParametros[3],}S{)}
  AND PARM.CD_SERIE = {Nulo(iParametros[4],}S{)}

`Consulta #2`

SELECT CD_AUTENTICACAO
FROM NFSE
WHERE CD_EMPRESA = {iParametros[1]}
  AND NR_LANCAMENTO = {iParametros[2]}
  AND CD_SERIE = {Nulo(iParametros[4],}S{)}
  AND TP_NOTA = {Nulo(iParametros[3],}S{)}

`Consulta #3`

SELECT C.NR_NOSSONUMEROAPI {#10}
FROM CONTAS C {#10}
WHERE C.CD_EMPRESA = {nulo(iParametros[1],}I{) +#10}
  AND C.NR_LANCTONOTA = {nulo(iParametros[2],}I{) +#10}
  AND C.TP_CONTAS = {nulo(iParametros[3],}S{) +#10}
  AND C.CD_SERIE ={nulo(iParametros[4],}S{)}

Tabelas Utilizadas

Tabela	Uso
`CNAE`	referenciada nas queries do layout
`CONDPAGTO`	referenciada nas queries do layout
`CONFIGNFSE`	referenciada nas queries do layout
`CONTAS`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`ENDERECOPESSOA`	referenciada nas queries do layout
`ESTADO`	referenciada nas queries do layout
`FORMAPAGTO`	referenciada nas queries do layout
`ITEM`	referenciada nas queries do layout
`MUNICIPIO`	referenciada nas queries do layout
`N`	referenciada nas queries do layout
`NFSE`	referenciada nas queries do layout
`NOTA`	referenciada nas queries do layout
`PARMFATUR`	referenciada nas queries do layout
`PARMNOTA`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
[[RETORNA_CONDPAGTONOTALNF230]]	referenciada nas queries do layout
[[RETORNA_SERVICONOTALNF230]]	referenciada nas queries do layout
`RETORNA_VLLAUDONOTA`	referenciada nas queries do layout
`USUARIO`	referenciada nas queries do layout
`VALOR_IMPOSTO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LNF230/ULNF230.pas
DFM: source/LNF230/ULNF230.dfm
Package: source/LNF230/LNF230.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Nota​

Produto​

Consulta #1​

Consulta #2​

Consulta #3​

Tabelas Utilizadas​

Shared Units​

Fonte​