LNF600 — Listagem LNF600

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 NFE, com junção em NOTA, EMPRESA, PESSOA, CONFIGNFE, filtrada por CD_EMPRESA, TP_NOTA, CD_SERIE, NR_LANCAMENTO, PROD_VOUTRO, CIL (+18).

Chamada

ExecLayout(Connection, [
  // parametros nao documentados no .pas
]);

SQL Base

`tabNOTANFE`

SELECT NFE.CD_EMPRESA, NFE.NR_LANCAMENTO, NFE.CD_SERIE, NFE.TP_NOTA, NFE.NR_CHAVEACESSO, NFE.TPEMISS, NFE.CSTAT, NFE.NR_LOTE, NFE.NR_RECIBO, NFE.NR_PROTOCOLOAUT, NFE.NR_PROTOCOLOCANC, NFE.DT_IMPRESSAODANFE, NFE.NRVERSAO, NFE.DS_NOTIFICACAOEMAIL, NFE.DS_NOTIFICACAOERRO, NFE.DT_REGISTRO, NFE.ST_LOTE, NFE.TPAMB, NFE.DS_URLQRCODE, NFE.CD_DIGESTVALUE, NFE.HR_EMISSAO, NFE.ST_CUPOMOFF, NFE.ST_EMAILENVIADO, NFE.BI_IMGQRCODE, NFE.BI_ARQUIVOXML, CAST(COALESCE(OCTET_LENGTH(NFE.BI_ARQUIVOXML),0)AS INTEGER) QT_TAMXML, N.ST_NOTA, CNE.DS_LOGOTIPO, E.ST_FEDERAL, REPLACE(REPLACE(REPLACE(PE.NR_CNPJCPF,'-',''),'/',''),'.','')NR_CPFCNPJ, N.DT_EMISSAO, NFE.DS_MSGSEFAZ
FROM NFE
INNER JOIN NOTA N ON (N.CD_EMPRESA = NFE.CD_EMPRESA
  AND N.NR_LANCAMENTO = NFE.NR_LANCAMENTO
  AND N.CD_SERIE = NFE.CD_SERIE
  AND N.TP_NOTA = NFE.TP_NOTA)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
INNER JOIN CONFIGNFE CNE ON (CNE.IDEMPRESA = N.CD_EMPRESA)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.TP_NOTA = :TP_NOTA
  AND N.CD_SERIE = :CD_SERIE
  AND N.NR_LANCAMENTO = :NR_LANCAMENTO CD_EMPRESA 1 TP_NOTA S CD_SERIE 1 NR_LANCAMENTO 1429 CD_EMPRESA CD_EMPRESA NR_LANCAMENTO NR_LANCAMENTO CD_SERIE CD_SERIE TP_NOTA TP_NOTA NR_CHAVEACESSO NR_CHAVEACESSO TPEMISS TPEMISS CSTAT CSTAT NR_LOTE NR_LOTE NR_RECIBO NR_RECIBO NR_PROTOCOLOAUT NR_PROTOCOLOAUT NR_PROTOCOLOCANC NR_PROTOCOLOCANC DT_IMPRESSAODANFE DT_IMPRESSAODANFE NRVERSAO NRVERSAO DS_NOTIFICACAOEMAIL DS_NOTIFICACAOEMAIL DS_NOTIFICACAOERRO DS_NOTIFICACAOERRO DT_REGISTRO DT_REGISTRO ST_LOTE ST_LOTE TPAMB TPAMB DS_URLQRCODE DS_URLQRCODE CD_DIGESTVALUE CD_DIGESTVALUE HR_EMISSAO HR_EMISSAO ST_CUPOMOFF ST_CUPOMOFF ST_EMAILENVIADO ST_EMAILENVIADO BI_IMGQRCODE BI_IMGQRCODE BI_ARQUIVOXML BI_ARQUIVOXML QT_TAMXML QT_TAMXML ST_NOTA ST_NOTA DS_LOGOTIPO DS_LOGOTIPO ST_FEDERAL ST_FEDERAL NR_CPFCNPJ NR_CPFCNPJ DT_EMISSAO DT_EMISSAO DS_MSGSEFAZ DS_MSGSEFAZ qVol esp marca nVol pesoL pesoB lacres DBSub3 ppDB qVol qVol esp esp marca marca nVol nVol pesoL pesoL pesoB pesoB lacres lacres refNFe refNF_cUF refNF_AAMM refNF_CNPJ refNF_mod refNF_serie refNF_nNF refNFP_cUF refNFP_AAMM refNFP_CNPJ refNFP_CPF IE refNFP_mod refNFP_serie refNFP_nNF refCTe refECF_mod nECF nCOO DBSub4 ppDB refNFe refNFe refNF_cUF refNF_cUF refNF_AAMM refNF_AAMM refNF_CNPJ refNF_CNPJ refNF_mod refNF_mod refNF_serie refNF_serie refNF_nNF refNF_nNF refNFP_cUF refNFP_cUF refNFP_AAMM refNFP_AAMM refNFP_CNPJ refNFP_CNPJ refNFP_CPF refNFP_CPF IE IE refNFP_mod refNFP_mod refNFP_serie refNFP_serie refNFP_nNF refNFP_nNF refCTe refCTe refECF_mod refECF_mod nECF nECF nCOO nCOO XMLProvider versao Id tpAmb verAplic chNFe dhRecbto nProt digVal cStat xMotivo NFe xMsg DBSub5 versao versao Id Id tpAmb tpAmb verAplic verAplic chNFe chNFe dhRecbto dhRecbto nProt nProt digVal digVal cStat cStat xMotivo xMotivo NFe NFe xMsg xMsg nLote qLote cAgreg dFab dVal DBSub6 nLote nLote qLote qLote cAgreg cAgreg dFab dFab dVal dVal nItem cProd cEAN xProd NCM NVE CEST EXTIPI CFOP uCom qCom vUnCom vProd cEANTrib uTrib qTrib vUnTrib vFrete vSeg fat_vDesc prod_vOutro indTot xPed nItemPed nFCI tpOp chassi cCor xCor pot cilin pesoL pesoB nSerie tpComb nMotor CMT dist anoMod anoFab tpPint tpVeic espVeic VIN condVeic cMod cCorDENATRAN lota tpRest vTotTrib ICMS00_orig ICMS00_CST ICMS00_modBC ICMS00_vBC ICMS00_pICMS ICMS00_vICMS ICMS10_orig ICMS10_CST ICMS10_modBC ICMS10_vBC ICMS10_pICMS ICMS10_vICMS ICMS10_modBCST ICMS10_pMVAST ICMS10_pRedBCST ICMS10_vBCST ICMS10_pICMSST ICMS10_vICMSST ICMS20_orig ICMS20_CST ICMS20_modBC ICMS20_pRedBC ICMS20_vBC ICMS20_pICMS ICMS20_vICMS ICMS20_vICMSDeson ICMS20_motDesICMS ICMS30_orig ICMS30_CST ICMS30_modBCST ICMS30_pMVAST ICMS30_pRedBCST ICMS30_vBCST ICMS30_pICMSST ICMS30_vICMSST ICMS30_vICMSDeson ICMS30_motDesICMS ICMS40_orig ICMS40_CST ICMS40_vICMSDeson ICMS40_motDesICMS ICMS51_orig ICMS51_CST ICMS51_modBC ICMS51_pRedBC ICMS51_vBC ICMS51_pICMS vICMSOp pDif vICMSDif ICMS51_vICMS ICMS60_orig ICMS60_CST ICMS60_vBCSTRet ICMS60_vICMSSTRet ICMS70_orig ICMS70_CST ICMS70_modBC ICMS70_pRedBC ICMS70_vBC ICMS70_pICMS ICMS70_vICMS ICMS70_modBCST ICMS70_pMVAST ICMS70_pRedBCST ICMS70_vBCST ICMS70_pICMSST ICMS70_vICMSST ICMS70_vICMSDeson ICMS70_motDesICMS ICMS90_orig ICMS90_CST ICMS90_modBC ICMS90_vBC ICMS90_pRedBC ICMS90_pICMS ICMS90_vICMS ICMS90_modBCST ICMS90_pMVAST ICMS90_pRedBCST ICMS90_vBCST ICMS90_pICMSST ICMS90_vICMSST ICMS90_vICMSDeson ICMS90_motDesICMS ICMSPart_orig ICMSPart_CST ICMSPart_modBC ICMSPart_vBC ICMSPart_pRedBC ICMSPart_pICMS ICMSPart_vICMS ICMSPart_modBCST ICMSPart_pMVAST ICMSPart_pRedBCST ICMSPart_vBCST ICMSPart_pICMSST ICMSPart_vICMSST pBCOp UFST ICMSST_orig ICMSST_CST ICMSST_vBCSTRet ICMSST_vICMSSTRet vBCSTDest vICMSSTDest ICMSSN101_orig ICMSSN101_CSOSN ICMSSN101_pCredSN ICMSSN101_vCredICMSSN ICMSSN102_orig ICMSSN102_CSOSN ICMSSN201_orig ICMSSN201_CSOSN ICMSSN201_modBCST ICMSSN201_pMVAST ICMSSN201_pRedBCST ICMSSN201_vBCST ICMSSN201_pICMSST ICMSSN201_vICMSST ICMSSN201_pCredSN ICMSSN201_vCredICMSSN ICMSSN202_orig ICMSSN202_CSOSN ICMSSN202_modBCST ICMSSN202_pMVAST ICMSSN202_pRedBCST ICMSSN202_vBCST ICMSSN202_pICMSST ICMSSN202_vICMSST ICMSSN500_orig ICMSSN500_CSOSN ICMSSN500_vBCSTRet ICMSSN500_vICMSSTRet ICMSSN900_orig ICMSSN900_CSOSN ICMSSN900_modBC ICMSSN900_vBC ICMSSN900_pRedBC ICMSSN900_pICMS ICMSSN900_vICMS IICMSSN900_modBCST ICMSSN900_pMVAST ICMSSN900_pRedBCST ICMSSN900_vBCST ICMSSN900_pICMSST ICMSSN900_vICMSST ICMSSN900_pCredSN ICMSSN900_vCredICMSSN II_vBC vDespAdu vII vIOF IPI_clEnq IPI_CNPJProd IPI_cSelo IPI_qSelo IPI_cEnq IPITrib_CST IPITrib_vBC IPITrib_pIPI IPITrib_qUnid IPITrib_vUnid IPITrib_vIPI IPINT_CST ISSQN_vBC vAliq vISSQN cMunFG cListServ vDeducao ISSQN_vOutro vDescIncond vDescCond vISSRet indISS cServico ISSQN_cMun enderDest_cPais nProcesso indIncentivo PISAliq_CST PISAliq_vBC PISAliq_pPIS PISAliq_vPIS PISQtde_CST PISQtde_qBCProd PISQtde_vAliqProd PISQtde_vPIS PISNT_CST PISOutr_CST PISOutr_vBC PISOutr_pPIS PISOutr_qBCProd PISOutr_vAliqProd PISOutr_vPIS PISST_vBC pPIS PISST_qBCProd PISST_vAliqProd PISST_vPIS COFINSAliq_CST COFINSAliq_vBC COFINSAliq_pCOFINS COFINSAliq_vCOFINS COFINSQtde_CST COFINSQtde_qBCProd COFINSQtde_vAliqProd COFINSQtde_vCOFINS COFINSNT_CST COFINSOutr_CST COFINSOutr_vBC COFINSOutr_pCOFINS COFINSOutr_qBCProd COFINSOutr_vAliqProd COFINSOutr_vCOFINS COFINSST_vBC pCOFINS COFINSST_qBCProd COFINSST_vAliqProd COFINSST_vCOFINS vBCUFDest pFCPUFDest pICMSUFDest pICMSInter pICMSInterPart vFCPUFDest vICMSUFDest vICMSUFRemet pDevol impDevol_IPI_clEnq impDevol_IPI_CNPJProd impDevol_IPI_cSelo impDevol_IPI_qSelo impDevol_IPI_cEnq impDevol_IPITrib_CST impDevol_IPITrib_vBC impDevol_IPITrib_pIPI impDevol_IPITrib_qUnid impDevol_IPITrib_vUnid impDevol_IPITrib_vIPI impDevol_IPINT_CST infAdProd DI detExport ICMS_orig ICMS_CST ICMS_pICMS ICMS_vICMS ICMS_vBCICMS Nulo indEscala CNPJFab cBenef nLote qLote dFab dVal cAgreg ICMS00_pFCP ICMS00_vFCP ICMS00_pFCPST ICMS00_vFCPST ICMS10_pFCP ICMS10_vFCP ICMS10_pFCPST ICMS10_vFCPST ICMS20_pFCP ICMS20_vFCP ICMS20_pFCPST ICMS20_vFCPST ICMS30_pFCP ICMS30_vFCP ICMS30_pFCPST ICMS30_vFCPST ICMS40_pFCP ICMS40_vFCP ICMS40_pFCPST ICMS40_vFCPST ICMS51_pFCP ICMS51_vFCP ICMS51_pFCPST ICMS51_vFCPST ICMS60_pFCP ICMS60_vFCP ICMS60_pFCPST ICMS60_vFCPST ICMS70_pFCP ICMS70_vFCP ICMS70_pFCPST ICMS70_vFCPST ICMS90_pFCP ICMS90_vFCP ICMS90_pFCPST ICMS90_vFCPST ICMSPart_pFCP ICMSPart_vFCP ICMSPart_pFCPST ICMSPart_vFCPST ICMSST_pFCP ICMSST_vFCP ICMSST_pFCPST ICMSST_vFCPST ICMSSN101_pFCP ICMSSN101_vFCP ICMSSN101_pFCPST ICMSSN101_vFCPST ICMSSN102_pFCP ICMSSN102_vFCP ICMSSN102_pFCPST ICMSSN102_vFCPST ICMSSN201_pFCP ICMSSN201_vFCP ICMSSN201_pFCPST ICMSSN201_vFCPST ICMSSN202_pFCP ICMSSN202_vFCP ICMSSN202_pFCPST ICMSSN202_vFCPST ICMSSN500_pFCP ICMSSN500_vFCP ICMSSN500_pFCPST ICMSSN500_vFCPST ICMSSN900_pFCP ICMSSN900_vFCP ICMSSN900_pFCPST ICMSSN900_vFCPST ICMS_pFCP ICMS_vFCP ICMS_vFCPST ICMS_pFCPST rastro

`ExecutaConsulta/ExecUpdate`

UPDATE NFE
SET DT_IMPRESSAODANFE = COALESCE(DT_IMPRESSAODANFE, CURRENT_TIMESTAMP)
WHERE CD_EMPRESA = {parametros.cdEmpresa}
  AND NR_LANCAMENTO = {parametros.nrLancamento}
  AND CD_SERIE = {QuotedStr}

`sql #1`

UPDATE nfe n
SET n.tpemiss = {IntToStr(ord(tpEmis))}
WHERE n.cd_empresa = {parametros.cdEmpresa}
  AND n.nr_lancamento = {parametros.nrLancamento}
  AND n.cd_serie = {parametros.cdSerie}
  AND n.tp_nota = {parametros.tpNota}

`sql #2`

SELECT FIRST 1 V.NR_PLACA, V.NR_CHASSIS, M.DS_MODELOVEICULO, C.DS_CORVEICULO, V.NR_FROTA {#10}
FROM PEDIDONOTA N {#10}
INNER JOIN PEDIDO P ON (P.CD_EMPRESA = N.CD_EMPRPED {#10}
  AND P.NR_PEDIDO = N.NR_PEDIDO {#10}
  AND P.TP_PEDIDO = N.TP_PEDIDO) {#10}
INNER JOIN ORDEMSERVICO O ON (O.CD_EMPRESA = P.CD_EMPRORDEM {#10}
  AND O.NR_ORDEMSERVICO = P.NR_ORDEMSERVICO) {#10}
INNER JOIN VEICULO V ON (V.NR_PLACA = O.NR_PLACA) {#10}
LEFT JOIN MODELOVEICULO M ON (M.CD_MARCAVEICULO = V.CD_MARCAVEICULO {#10}
  AND M.CD_MODELOVEICULO = V.CD_MODELOVEICULO) {#10}
LEFT JOIN CORVEICULO C ON (C.CD_CORVEICULO = V.CD_CORVEICULO) {#10}
WHERE N.CD_EMPRESA = {parametros.cdEmpresa +#10}
  AND N.NR_LANCAMENTO = {parametros.nrLancamento +#10}
  AND N.TP_NOTA = {Nulo(parametros.tpNota,}S{) +#10}
  AND N.CD_SERIE = {Nulo(parametros.cdSerie,}S{)}

`sql #3`

SELECT COALESCE(C.STIMPRIMENFE,0) {#10}
FROM CONFIGNFEUSUARIO C {#10}
WHERE C.IDEMPRESA = {parametros.cdEmpresa +#10}
  AND C.IDUSUARIO = {Nulo(sessao.usuario.cd_Usuario,}S{)}

`parm`

SELECT PARM.ST_GERABOLETO
FROM PARMNOTA PARM
WHERE PARM.CD_EMPRESA = {parametros.cdEmpresa}
  AND PARM.TP_NOTA = {Nulo(parametros.tpNota ,}S{)}
  AND PARM.CD_SERIE = {Nulo(parametros.cdSerie,}S{)}

`sql #4`

SELECT C.NR_NOSSONUMEROAPI {#10}
FROM CONTAS C {#10}
WHERE C.CD_EMPRESA = {nulo(Parametros.cdEmpresa,}I{) +#10}
  AND C.NR_LANCTONOTA = {nulo(Parametros.nrLancamento,}I{) +#10}
  AND C.TP_CONTAS = {nulo(Parametros.tpNota,}S{) +#10}
  AND C.CD_SERIE ={nulo(Parametros.cdSerie,}S{)}

Tabelas Utilizadas

Tabela	Uso
`CONFIGNFE`	referenciada nas queries do layout
`CONFIGNFEUSUARIO`	referenciada nas queries do layout
`CONTAS`	referenciada nas queries do layout
`CORVEICULO`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`MODELOVEICULO`	referenciada nas queries do layout
`NFE`	referenciada nas queries do layout
`NOTA`	referenciada nas queries do layout
`ORDEMSERVICO`	referenciada nas queries do layout
`PARMNOTA`	referenciada nas queries do layout
`PEDIDO`	referenciada nas queries do layout
`PEDIDONOTA`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`VEICULO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LNF600/ULNF600.pas
DFM: source/LNF600/ULNF600.dfm
Package: source/LNF600/LNF600.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

tabNOTANFE​

ExecutaConsulta/ExecUpdate​

sql #1​

sql #2​

sql #3​

parm​

sql #4​

Tabelas Utilizadas​

Shared Units​

Fonte​