LNF174 — Listagem LNF174

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 MDFE, com junção em EMPRESA, PARMFATUR, MUNICIPIO, MOTORISTA, PESSOA, RETORNA_VEICULO (+3), filtrada por CD_EMPRESA, NR_LANCAMENTO, CD_SERIE, NR_, SUBSTR, AS (+5).

Chamada

ExecLayout(Connection, [
  // 1 - Cod Empresa
  // 2 - Nr Lancamento
  // 3 - vazio
  // 4 - Cod Serie
  // 5 - Path Servidor
  // 6 - Visualiza -> V  ou  Imprime -> I
  // 7 - Impressora do Parametro
  // 8 - Usuario
  // 9 - GeraPDF
]);

SQL Base

tabMDFE

SELECT /*EMPRESA*/ E.CD_EMPRESA, E.NM_EMPRESA, ED.NR_CNPJCPF, ED.NR_INSCEST, ED.NM_FANTASIA,ED.DS_ENDERECO DS_LOGRADOURO, ED.DS_COMPLEMENTO,ED.NR_ENDERECO, ED.DS_BAIRRO, ED.SG_ESTADO, ED.DS_MUNICIPIO, ED.NR_CEP, P.DS_LOGOTIPO, /*MDFE*/ M.NR_LANCAMENTO, M.CD_SERIE, M.NR_MDFE, M.DT_EMISSAO, MO.SG_ESTADO UF_CARREG, M.NR_CHAVEACESSO, M.NR_PROTOCOLOAUT, M.DT_TRANSMISSAO, M.NR_PROTOCOLOCANC, M.NR_PROTOCOLOENC, M.TP_AMB, M.TP_EMIS, CAST(CURRENT_TIMESTAMP AS DOM_TIMESTAMP) DT_IMPRESSAO, M.ST_MDFE, M.NR_CEPCARREGAMENTO, M.NR_CEPDESCARREGAMENTO, /*MUNICIPIO Destino*/ MD.CD_IBGE CD_IBGEDEST, MD.DS_MUNICIPIO DS_MUNICIPIODEST, MD.SG_ESTADO SG_ESTADODEST, /*MUNICIPIO ENCERRAMENTO*/ ME.CD_IBGE CD_IBGEENC, ME.DS_MUNICIPIO DS_MUNICIPIOENC, ME.SG_ESTADO SG_ESTADOENC, /*QUANTIDADE*/ QT.O_QT_NFE, QT.O_QT_CTE, QT.O_PS_MDFE, /*MOTORISTA*/ M.CD_MOTORISTA, PM.NM_PESSOA, PM.NR_CNPJCPF, /*VEICULO*/ V.O_NR_PLACA, V.O_NR_RNTRC, M.DS_OBSERVACAO, /*REBOQUES*/ R.O_NR_PLACAREBOQ1, R.O_NR_PLACAREBOQ2, R.O_NR_PLACAREBOQ3
FROM MDFE M
INNER JOIN EMPRESA E ON ( E.CD_EMPRESA = M.CD_EMPRESA )
INNER JOIN PARMFATUR P ON (P.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN MUNICIPIO MO ON (MO.CD_MUNICIPIO = M.CD_MUNICIPIOORIG)
LEFT JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = M.CD_MUNICIPIOENCER)
LEFT JOIN MUNICIPIO MD ON (MD.CD_MUNICIPIO = M.CD_MUNICIPIODEST)
INNER JOIN MOTORISTA MT ON (MT.CD_MOTORISTA = M.CD_MOTORISTA)
INNER JOIN PESSOA PM ON (PM.CD_PESSOA = MT.CD_MOTORISTA)
LEFT JOIN RETORNA_VEICULO(M.NR_PLACA) V ON (1=1)
LEFT JOIN RETORNA_NOTASMDFE(M.CD_EMPRESA, M.NR_LANCAMENTO, M.CD_SERIE, NULL, 'Q') QT ON (1 = 1)
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) ED ON (1 = 1)
LEFT JOIN VIEW_LNF174(M.CD_EMPRESA, M.NR_LANCAMENTO, M.CD_SERIE) R ON (1=1)
WHERE M.CD_EMPRESA = :CD_EMPRESA
  AND M.NR_LANCAMENTO = :NR_LANCAMENTO
  AND M.CD_SERIE = :CD_SERIE CD_EMPRESA NR_LANCAMENTO CD_SERIE CD_EMPRESA CD_EMPRESA NM_EMPRESA NM_EMPRESA NR_CNPJCPF NR_CNPJCPF NR_INSCEST NR_INSCEST NM_FANTASIA NM_FANTASIA DS_LOGRADOURO DS_LOGRADOURO DS_COMPLEMENTO DS_COMPLEMENTO NR_ENDERECO NR_ENDERECO DS_BAIRRO DS_BAIRRO SG_ESTADO SG_ESTADO DS_MUNICIPIO DS_MUNICIPIO NR_CEP NR_CEP DS_LOGOTIPO DS_LOGOTIPO NR_LANCAMENTO NR_LANCAMENTO CD_SERIE CD_SERIE NR_MDFE NR_MDFE DT_EMISSAO DT_EMISSAO UF_CARREG UF_CARREG NR_CHAVEACESSO NR_CHAVEACESSO NR_PROTOCOLOAUT NR_PROTOCOLOAUT DT_TRANSMISSAO DT_TRANSMISSAO NR_PROTOCOLOCANC NR_PROTOCOLOCANC NR_PROTOCOLOENC NR_PROTOCOLOENC TP_AMB TP_AMB TP_EMIS TP_EMIS DT_IMPRESSAO DT_IMPRESSAO ST_MDFE ST_MDFE CD_IBGEENC CD_IBGEENC DS_MUNICIPIOENC DS_MUNICIPIOENC O_QT_NFE O_QT_NFE O_QT_CTE O_QT_CTE O_PS_MDFE O_PS_MDFE CD_MOTORISTA CD_MOTORISTA NM_PESSOA NM_PESSOA NR_CNPJCPF_1 NR_CNPJCPF O_NR_PLACA O_NR_PLACA O_NR_RNTRC O_NR_RNTRC DS_OBSERVACAO DS_OBSERVACAO O_NR_PLACAREBOQ1 O_NR_PLACAREBOQ1 O_NR_PLACAREBOQ2 O_NR_PLACAREBOQ2 O_NR_PLACAREBOQ3 O_NR_PLACAREBOQ3 NR_CEPCARREGAMENTO NR_CEPCARREGAMENTO NR_CEPDESCARREGAMENTO NR_CEPDESCARREGAMENTO CD_IBGEDEST CD_IBGEDEST DS_MUNICIPIODEST DS_MUNICIPIODEST SG_ESTADODEST SG_ESTADODEST SG_ESTADOENC SG_ESTADOENC DB1 O_NR_NOTAFISCAL O_NR_NOTAFISCAL O_NR_CHAVEACESSO O_NR_CHAVEACESSO O_TP_DOC O_TP_DOC O_NR_CNPJCPFMASK O_NR_CNPJCPFMASK
SELECT /*Nota*/ COALESCE(N.O_NR_NOTAFISCAL, CAST(SUBSTRING(N.O_NR_CHAVEACESSO
FROM 26 for 9) as integer)) O_NR_NOTAFISCAL, N.O_NR_CHAVEACESSO, COALESCE(N.O_TP_DOC, IIF(SUBSTRING(N.O_NR_CHAVEACESSO
FROM 21 for 2) = '55', 'NF-e', IIF(SUBSTRING(N.O_NR_CHAVEACESSO
FROM 21 for 2) = '57', 'CT-e', 'NFC-e'))) O_TP_DOC, COALESCE(N.O_NR_CNPJCPFMASK, (
SELECT FC.O_CAMPO_FORMATADO
FROM FORMATA_CPFCNPJ((SUBSTRING(N.O_NR_CHAVEACESSO
FROM 07 FOR 14))) FC)) O_NR_CNPJCPFMASK
FROM RETORNA_NOTASMDFE(:CD_EMPRESA,:NR_LANCAMENTO,:CD_SERIE,NULL,'N') N CD_EMPRESA NR_LANCAMENTO CD_SERIE O_NR_NOTAFISCAL "RETORNA_NOTASMDFE"."O_NR_NOTAFISCAL" O_NR_CHAVEACESSO "RETORNA_NOTASMDFE"."O_NR_CHAVEACESSO" O_TP_DOC "RETORNA_NOTASMDFE"."O_TP_DOC" O_NR_CNPJCPFMASK "RETORNA_NOTASMDFE"."O_NR_CNPJCPFMASK" DBSub2 CD_MOTORISTA CD_MOTORISTA NM_PESSOA NM_PESSOA NR_CNPJCPF NR_CNPJCPF
SELECT /*MOTORISTA*/ M.CD_MOTORISTA, PM.NM_PESSOA, PM.NR_CNPJCPF
FROM MDFE M
INNER JOIN MOTORISTA MT ON (MT.CD_MOTORISTA = M.CD_MOTORISTA)
INNER JOIN PESSOA PM ON (PM.CD_PESSOA = MT.CD_MOTORISTA)
WHERE M.CD_EMPRESA = :CD_EMPRESA
  AND M.NR_LANCAMENTO = :NR_LANCAMENTO
  AND M.CD_SERIE = :CD_SERIE
UNION ALL
SELECT /*MOTORISTA*/ MM.CD_MOTORISTA, PM.NM_PESSOA, PM.NR_CNPJCPF
FROM MDFEMOTORISTA MM
INNER JOIN MOTORISTA MT ON (MT.CD_MOTORISTA = MM.CD_MOTORISTA)
INNER JOIN PESSOA PM ON (PM.CD_PESSOA = MT.CD_MOTORISTA)
WHERE MM.CD_EMPRESA = :CD_EMPRESA1
  AND MM.NR_LANCAMENTO = :NR_LANCAMENTO1
  AND MM.CD_SERIE = :CD_SERIE1 CD_EMPRESA NR_LANCAMENTO CD_SERIE CD_EMPRESA1 NR_LANCAMENTO1 CD_SERIE1 CD_MOTORISTA NM_PESSOA NR_CNPJCPF

Tabelas Utilizadas

Tabela	Uso
EMPRESA	referenciada nas queries do layout
FORMATA_CPFCNPJ	referenciada nas queries do layout
MDFE	referenciada nas queries do layout
MDFEMOTORISTA	referenciada nas queries do layout
MOTORISTA	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_DADOSCADASTRAIS	referenciada nas queries do layout
RETORNA_NOTASMDFE	referenciada nas queries do layout
RETORNA_VEICULO	referenciada nas queries do layout
[[VIEW_LNF174]]	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa
• jFaturamento

Fonte

• Unit: source/LNF174/ULNF174.pas
• DFM: source/LNF174/ULNF174.dfm
• Package: source/LNF174/LNF174.dpk