LNF227 — Listagem LNF227

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 NOTA, com junção em CONTAS, MOVTOCAIXA, PROCESSO, CHEQUE, PARMSALDO, RETORNA_IMPOSTOSITEMNOTA (+7), filtrada por CD_EMPRESA, NR_LANCAMENTO, TP_NOTA, CD_SERIE, TP_DOCUMENTO.

Chamada

ExecLayout(Connection, [
  // 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
  // 8 - usuario
  // 9 - pdF
  // 10 - Tela
  // 11 - Confirma Impressão
]);

SQL Base

tabNOTA

SELECT /* NOTA */ NF.CD_EMPRESA, NF.NR_LANCAMENTO,NF.CD_SERIE, NF.TP_NOTA, NF.NR_NOTAFISCAL, NF.NR_NOTAFOR, NF.VL_NOTAFISCAL, NF.VL_CONTABIL,NF.VL_DESCONTO, NF.VL_FRETE, (NF.VL_DESPESA + NF.VL_FRETE) VL_DESPESA, NF.CD_CONDPAGTO, NF.DS_CONDPAGTO, NF.DT_EMISSAO, NF.DT_VENCIMENTO, NF.CD_FORMAPAGTO, NF.DS_FORMAPAGTO, NF.DS_OBSNOTA, NF.DS_OBSFISCAL, NF.NM_VENDEDORCABEC, NF.CD_NM_VENDEDORCABEC, NF.O_NM_VENDEDORES,NF.ST_NOTA, NII.O_DS_IMPOSTOS, NII.O_VL_IMPOSTO, CASE NF.TP_PAGTCUPOM when '1' then 'Dinheiro' when '2' then 'Cheque' when '3' then 'Cartão de Crédito' when '4' then 'Cartão de Débito' when '5' then 'Crédito Loja' when '10' then 'Vale Alimentação' when '11' then 'Vale Refeição' when '12' then 'Vale Presente' when '13' then 'Vale Combustível' when '99' then 'Outros' END TP_PAGTCUPOM, COALESCE((PN.VL_PARCELA + COALESCE(NF.VL_TROCO, 0)), NF.VL_RECEBIDO) VL_RECEBIDO, /* EMPRESA */ NF.DS_LOGOTIPO, NF.DS_MENSAGEM, NF.E_NM_RAZAOSOCIAL, NF.E_NM_FANTASIA, NF.E_NR_CNPJCPF, NF.E_DS_EMAIL, NF.E_DS_SITE, NF.E_DS_ENDERECO, NF.E_DS_MUNICIPIO, NF.E_NR_ENDERECO, NF.E_DS_BAIRRO, NF.E_DS_COMPLEMENTO, NF.E_NR_CEP, NF.E_NR_INSCEST, NF.E_NR_FONE, NF.E_NR_CELULAR, NF.E_DS_ENDCOMPLETO, NF.E_NR_FAX, (NF.E_DS_ENDERECO||', '||NF.E_NR_ENDERECO||' - '||NF.E_DS_BAIRRO) E_DS_ENDBAIRRO, (REPLACE(NF.E_DS_MUNICIPIO, '/', ', ')) E_DS_CIDADEESTADO, ('Fone: '||NF.E_NR_FONE) E_NR_FONEDESC, /* PESSOA */ NF.C_CD_PESSOA, NF.C_NM_CLIENTE, NF.C_NM_FANTASIA, NF.C_NR_CNPJCPF, NF.C_DS_EMAIL, NF.C_DS_SITE, NF.C_DS_ENDERECO, NF.C_DS_MUNICIPIO, NF.C_NR_ENDERECO, NF.C_DS_BAIRRO, NF.C_DS_COMPLEMENTO, NF.C_NR_CEP, NF.C_NR_INSCEST, NF.C_NR_FONE, NF.C_NR_CELULAR, NF.C_DS_ENDCOMPLETO, NF.C_NR_INSCPRODUTOR, NF.C_NR_FAX, /*NFE*/ NF.NR_CHAVEACESSO, NF.TP_EMISS, NF.CSTAT, NF.NR_LOTE, NF.NR_RECIBO, NF.NR_PROTOCOLOAUT, NF.NR_PROTOCOLOCANC, NF.TP_AMB, NF.DS_URLQRCODE,NF.HR_EMISSAO, CASE NF.TP_EMISS WHEN 1 THEN 'Normal' ELSE 'Contigência' END DS_TPEMISSAO, P.CD_CONSUMIDOR, NF.CF_NR_CNPJCPF, NF.ST_CONDPAGTO, P.ST_COMPROVANTECUPOM, CF.O_NR_CHAVEFORMATADA NR_CHAVEFORMATADA, TI.O_VL_TOTALITENS, COALESCE(NULLIF(ABS((
SELECT SUM(X.VL_DOCUMENTO) VL_BAIXA
FROM (
SELECT DISTINCT MX.CD_EMPRESA, MX.NR_LANCCAIXA, CH.TP_PAGTOCARTAO, MX.VL_DOCUMENTO, PS.TP_SALDO
FROM NOTA N
INNER JOIN CONTAS C ON (C.CD_EMPRESA = N.CD_EMPRESA
  AND C.NR_LANCTONOTA = N.NR_LANCAMENTO
  AND C.TP_CONTAS = N.TP_NOTA
  AND C.CD_SERIE = N.CD_SERIE)
INNER JOIN MOVTOCAIXA M ON (M.CD_EMPRCONTAS = C.CD_EMPRESA
  AND M.NR_LANCAMENTO = C.NR_LANCAMENTO
  AND M.CD_TIPOCONTA = C.CD_TIPOCONTA
  AND M.NR_PARCELA = C.NR_PARCELA
  AND M.CD_PESSOA = C.CD_PESSOA
  AND M.TP_MOVTOCAIXA = 'P')
INNER JOIN PROCESSO P ON (P.CD_EMPRESA = M.CD_EMPRESA
  AND P.NR_PROCESSO = M.NR_PROCESSO)
INNER JOIN MOVTOCAIXA MX ON (MX.CD_EMPRPROC = P.CD_EMPRESA
  AND MX.NR_PROCESSO = P.NR_PROCESSO
  AND MX.TP_DOCUMENTO = 'AV'
  AND MX.TP_MOVTOCAIXA = 'R')
LEFT JOIN CHEQUE CH ON (CH.CD_EMPRCAIXA = MX.CD_EMPRESA
  AND CH.NR_LANCCAIXA = MX.NR_LANCCAIXA)
LEFT JOIN PARMSALDO PS ON (PS.CD_EMPRESA = MX.CD_EMPRESA
  AND PS.CD_CONTA = MX.CD_CONTADEBITO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_LANCAMENTO = :NR_LANCAMENTO
  AND N.TP_NOTA = :TP_NOTA
  AND N.CD_SERIE = :CD_SERIE --
  AND MX.TP_DOCUMENTO <> 'NT'
ORDER BY 1) X ) - NF.VL_NOTAFISCAL),0), NF.VL_TROCO) VL_TROCO, NF.DS_MSGSEFAZ
FROM RETORNA_CABECNF(:CD_EMPRESA, :NR_LANCAMENTO, :CD_SERIE, :TP_NOTA) NF
LEFT JOIN RETORNA_IMPOSTOSITEMNOTA(NF.CD_EMPRESA, NF.NR_LANCAMENTO, NF.TP_NOTA, NF.CD_SERIE, NULL) NII ON (1=1)
INNER JOIN PARMFATUR P ON (P.CD_EMPRESA = NF.CD_EMPRESA)
LEFT JOIN PARCELANOTA PN ON (PN.CD_EMPRESA = NF.CD_EMPRESA
  AND PN.NR_LANCAMENTO = NF.NR_LANCAMENTO
  AND PN.CD_SERIE = NF.CD_SERIE
  AND PN.TP_NOTA = NF.TP_NOTA
  AND PN.NR_PARCELA = 1)
LEFT JOIN RETORNA_CHAVEACESSOFORMATADA(NF.NR_CHAVEACESSO) CF ON (1=1)
LEFT JOIN RETORNA_TOTALITEMNOTA(NF.CD_EMPRESA, NF.NR_LANCAMENTO, NF.TP_NOTA, NF.CD_SERIE) TI ON (1=1) CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE CD_EMPRESA "RETORNA_CABECNF"."CD_EMPRESA" NR_LANCAMENTO "RETORNA_CABECNF"."NR_LANCAMENTO" CD_SERIE "RETORNA_CABECNF"."CD_SERIE" TP_NOTA "RETORNA_CABECNF"."TP_NOTA" NR_NOTAFISCAL "RETORNA_CABECNF"."NR_NOTAFISCAL" NR_NOTAFOR "RETORNA_CABECNF"."NR_NOTAFOR" VL_NOTAFISCAL "RETORNA_CABECNF"."VL_NOTAFISCAL" VL_CONTABIL "RETORNA_CABECNF"."VL_CONTABIL" VL_DESCONTO "RETORNA_CABECNF"."VL_DESCONTO" VL_FRETE "RETORNA_CABECNF"."VL_FRETE" VL_DESPESA "RETORNA_CABECNF"."VL_DESPESA" CD_CONDPAGTO "RETORNA_CABECNF"."CD_CONDPAGTO" DS_CONDPAGTO "RETORNA_CABECNF"."DS_CONDPAGTO" DT_EMISSAO "RETORNA_CABECNF"."DT_EMISSAO" DT_VENCIMENTO "RETORNA_CABECNF"."DT_VENCIMENTO" CD_FORMAPAGTO "RETORNA_CABECNF"."CD_FORMAPAGTO" DS_FORMAPAGTO "RETORNA_CABECNF"."DS_FORMAPAGTO" DS_OBSNOTA "RETORNA_CABECNF"."DS_OBSNOTA" DS_OBSFISCAL "RETORNA_CABECNF"."DS_OBSFISCAL" NM_VENDEDORCABEC "RETORNA_CABECNF"."NM_VENDEDORCABEC" CD_NM_VENDEDORCABEC "RETORNA_CABECNF"."CD_NM_VENDEDORCABEC" O_NM_VENDEDORES "RETORNA_CABECNF"."O_NM_VENDEDORES" DS_LOGOTIPO "RETORNA_CABECNF"."DS_LOGOTIPO" DS_MENSAGEM "RETORNA_CABECNF"."DS_MENSAGEM" E_NM_RAZAOSOCIAL "RETORNA_CABECNF"."E_NM_RAZAOSOCIAL" E_NM_FANTASIA "RETORNA_CABECNF"."E_NM_FANTASIA" E_NR_CNPJCPF "RETORNA_CABECNF"."E_NR_CNPJCPF" E_DS_EMAIL "RETORNA_CABECNF"."E_DS_EMAIL" E_DS_SITE "RETORNA_CABECNF"."E_DS_SITE" E_DS_ENDERECO "RETORNA_CABECNF"."E_DS_ENDERECO" E_DS_MUNICIPIO "RETORNA_CABECNF"."E_DS_MUNICIPIO" E_NR_ENDERECO "RETORNA_CABECNF"."E_NR_ENDERECO" E_DS_BAIRRO "RETORNA_CABECNF"."E_DS_BAIRRO" E_DS_COMPLEMENTO "RETORNA_CABECNF"."E_DS_COMPLEMENTO" E_NR_CEP "RETORNA_CABECNF"."E_NR_CEP" E_NR_INSCEST "RETORNA_CABECNF"."E_NR_INSCEST" E_NR_FONE "RETORNA_CABECNF"."E_NR_FONE" E_NR_CELULAR "RETORNA_CABECNF"."E_NR_CELULAR" E_DS_ENDCOMPLETO "RETORNA_CABECNF"."E_DS_ENDCOMPLETO" E_NR_FAX "RETORNA_CABECNF"."E_NR_FAX" C_CD_PESSOA "RETORNA_CABECNF"."C_CD_PESSOA" C_NM_CLIENTE "RETORNA_CABECNF"."C_NM_CLIENTE" C_NM_FANTASIA "RETORNA_CABECNF"."C_NM_FANTASIA" C_NR_CNPJCPF "RETORNA_CABECNF"."C_NR_CNPJCPF" C_DS_EMAIL "RETORNA_CABECNF"."C_DS_EMAIL" C_DS_SITE "RETORNA_CABECNF"."C_DS_SITE" C_DS_ENDERECO "RETORNA_CABECNF"."C_DS_ENDERECO" C_DS_MUNICIPIO "RETORNA_CABECNF"."C_DS_MUNICIPIO" C_NR_ENDERECO "RETORNA_CABECNF"."C_NR_ENDERECO" C_DS_BAIRRO "RETORNA_CABECNF"."C_DS_BAIRRO" C_DS_COMPLEMENTO "RETORNA_CABECNF"."C_DS_COMPLEMENTO" C_NR_CEP "RETORNA_CABECNF"."C_NR_CEP" C_NR_INSCEST "RETORNA_CABECNF"."C_NR_INSCEST" C_NR_FONE "RETORNA_CABECNF"."C_NR_FONE" C_NR_CELULAR "RETORNA_CABECNF"."C_NR_CELULAR" C_DS_ENDCOMPLETO "RETORNA_CABECNF"."C_DS_ENDCOMPLETO" C_NR_INSCPRODUTOR "RETORNA_CABECNF"."C_NR_INSCPRODUTOR" C_NR_FAX "RETORNA_CABECNF"."C_NR_FAX" NR_CHAVEACESSO "RETORNA_CABECNF"."NR_CHAVEACESSO" CSTAT "RETORNA_CABECNF"."CSTAT" NR_LOTE "RETORNA_CABECNF"."NR_LOTE" NR_RECIBO "RETORNA_CABECNF"."NR_RECIBO" NR_PROTOCOLOAUT "RETORNA_CABECNF"."NR_PROTOCOLOAUT" NR_PROTOCOLOCANC "RETORNA_CABECNF"."NR_PROTOCOLOCANC" DS_TPEMISSAO TP_EMISS "RETORNA_CABECNF"."TP_EMISS" TP_AMB "RETORNA_CABECNF"."TP_AMB" ST_NOTA "RETORNA_CABECNF"."ST_NOTA" DS_URLQRCODE HR_EMISSAO "RETORNA_CABECNF"."HR_EMISSAO" O_DS_IMPOSTOS "RETORNA_IMPOSTOSITEMNOTA"."O_DS_IMPOSTOS" O_VL_IMPOSTO "RETORNA_IMPOSTOSITEMNOTA"."O_VL_IMPOSTO" TP_PAGTCUPOM CD_CONSUMIDOR "PARMFATUR"."CD_CONSUMIDOR" CF_NR_CNPJCPF ST_CONDPAGTO ST_COMPROVANTECUPOM VL_RECEBIDO "RETORNA_CABECNF"."VL_RECEBIDO" E_DS_ENDBAIRRO E_DS_CIDADEESTADO E_NR_FONEDESC NR_CHAVEFORMATADA "RETORNA_CHAVEACESSOFORMATADA"."O_NR_CHAVEFORMATADA" O_VL_TOTALITENS "RETORNA_TOTALITEMNOTA"."O_VL_TOTALITENS" #,0.00 VL_TROCO #,0.00 DS_MSGSEFAZ "RETORNA_CABECNF"."DS_MSGSEFAZ" DB1 CD_EMPRESA CD_EMPRESA NR_LANCAMENTO NR_LANCAMENTO TP_NOTA TP_NOTA CD_SERIE CD_SERIE CD_ITEM CD_ITEM N_CD_ITEM N_CD_ITEM N_DS_ITEM N_DS_ITEM N_CD_DS_ITEM N_CD_DS_ITEM N_DS_OBSITEM N_DS_OBSITEM N_SG_UNIDMED N_SG_UNIDMED N_SG_UNIDALT N_SG_UNIDALT N_VL_UNITARIO N_VL_UNITARIO N_VL_TOTAL N_VL_TOTAL N_VL_DESCONTO N_VL_DESCONTO N_VL_DESPESA N_VL_DESPESA N_VL_FRETE N_VL_FRETE N_VL_LIQUIDO N_VL_LIQUIDO N_QT_ITEMNOTA N_QT_ITEMNOTA N_PS_ITEMNOTA N_PS_ITEMNOTA N_QT_ITEM N_QT_ITEM N_CD_CFO N_CD_CFO N_CD_CST N_CD_CST N_CD_CSOSN N_CD_CSOSN N_NR_NCM N_NR_NCM N_CD_FORNECEDOR1 N_CD_FORNECEDOR1 N_CD_FORNECEDOR2 N_CD_FORNECEDOR2 N_CD_CODIGOBARRA N_CD_CODIGOBARRA O_VL_IMPOSTO O_VL_IMPOSTO O_DS_IMPOSTOS O_DS_IMPOSTOS DS_ITEMOBS DS_ITEMOBS
SELECT /*Nota*/ NI.CD_EMPRESA, NI.NR_LANCAMENTO, NI.TP_NOTA, NI.CD_SERIE, /*Itens*/ NI.CD_ITEM, NI.N_CD_ITEM, NI.N_DS_ITEM, NI.N_CD_DS_ITEM, NI.N_DS_OBSITEM, NI.N_SG_UNIDMED, NI.N_SG_UNIDALT, NI.N_VL_UNITARIO,NI.N_VL_TOTAL, NI.N_VL_DESCONTO, NI.N_VL_DESPESA, NI.N_VL_FRETE, NI.N_VL_LIQUIDO, NI.N_QT_ITEMNOTA, NI.N_PS_ITEMNOTA, NI.N_QT_ITEM, NI.N_CD_CFO, NI.N_CD_CST, NI.N_CD_CSOSN, NI.N_NR_NCM, NI.N_CD_FORNECEDOR1, NI.N_CD_FORNECEDOR2, NI.N_CD_CODIGOBARRA,NII.O_VL_IMPOSTO,NII.O_DS_IMPOSTOS, COALESCE(NI.N_DS_OBSITEM, NI.N_DS_ITEM) DS_ITEMOBS
FROM RETORNA_ITENSNF(:CD_EMPRESA,:NR_LANCAMENTO,:CD_SERIE,:TP_NOTA,NULL) NI
LEFT JOIN RETORNA_IMPOSTOSITEMNOTA(NI.CD_EMPRESA, NI.NR_LANCAMENTO, NI.TP_NOTA, NI.CD_SERIE,NULL) NII on (1=1) CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA CD_EMPRESA "RETORNA_ITENSNF"."CD_EMPRESA" NR_LANCAMENTO "RETORNA_ITENSNF"."NR_LANCAMENTO" TP_NOTA "RETORNA_ITENSNF"."TP_NOTA" CD_SERIE "RETORNA_ITENSNF"."CD_SERIE" CD_ITEM "RETORNA_ITENSNF"."CD_ITEM" N_CD_ITEM "RETORNA_ITENSNF"."N_CD_ITEM" N_DS_ITEM "RETORNA_ITENSNF"."N_DS_ITEM" N_CD_DS_ITEM "RETORNA_ITENSNF"."N_CD_DS_ITEM" N_DS_OBSITEM "RETORNA_ITENSNF"."N_DS_OBSITEM" N_SG_UNIDMED "RETORNA_ITENSNF"."N_SG_UNIDMED" N_SG_UNIDALT "RETORNA_ITENSNF"."N_SG_UNIDALT" N_VL_UNITARIO "RETORNA_ITENSNF"."N_VL_UNITARIO" N_VL_TOTAL "RETORNA_ITENSNF"."N_VL_TOTAL" N_VL_DESCONTO "RETORNA_ITENSNF"."N_VL_DESCONTO" N_VL_DESPESA "RETORNA_ITENSNF"."N_VL_DESPESA" N_VL_FRETE "RETORNA_ITENSNF"."N_VL_FRETE" N_VL_LIQUIDO "RETORNA_ITENSNF"."N_VL_LIQUIDO" N_QT_ITEMNOTA "RETORNA_ITENSNF"."N_QT_ITEMNOTA" N_PS_ITEMNOTA "RETORNA_ITENSNF"."N_PS_ITEMNOTA" N_QT_ITEM "RETORNA_ITENSNF"."N_QT_ITEM" N_CD_CFO "RETORNA_ITENSNF"."N_CD_CFO" N_CD_CST "RETORNA_ITENSNF"."N_CD_CST" N_CD_CSOSN "RETORNA_ITENSNF"."N_CD_CSOSN" N_NR_NCM "RETORNA_ITENSNF"."N_NR_NCM" N_CD_FORNECEDOR1 "RETORNA_ITENSNF"."N_CD_FORNECEDOR1" N_CD_FORNECEDOR2 "RETORNA_ITENSNF"."N_CD_FORNECEDOR2" N_CD_CODIGOBARRA "RETORNA_ITENSNF"."N_CD_CODIGOBARRA" O_VL_IMPOSTO "RETORNA_IMPOSTOSITEMNOTA"."O_VL_IMPOSTO" O_DS_IMPOSTOS "RETORNA_IMPOSTOSITEMNOTA"."O_DS_IMPOSTOS" DS_ITEMOBS DB2 O_NR_PARCELA O_NR_PARCELA O_TP_MOVTO O_TP_MOVTO O_TP_BAIXA O_TP_BAIXA O_VL_DOCUMENTO O_VL_DOCUMENTO
SELECT PGT.O_NR_PARCELA, PGT.O_TP_MOVTO, PGT.O_TP_BAIXA, PGT.O_VL_DOCUMENTO
FROM RETORNA_PAGAMENTONOTA(:CD_EMPRESA,:NR_LANCAMENTO,:CD_SERIE,:TP_NOTA) PGT CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA O_NR_PARCELA "RETORNA_PAGAMENTONOTA"."O_NR_PARCELA" O_TP_MOVTO "RETORNA_PAGAMENTONOTA"."O_TP_MOVTO" O_TP_BAIXA "RETORNA_PAGAMENTONOTA"."O_TP_BAIXA" O_VL_DOCUMENTO "RETORNA_PAGAMENTONOTA"."O_VL_DOCUMENTO"
SELECT VL_SALDO, VL_PAGAR, VL_NOTAFISCAL, (VL_SALDO - VL_NOTAFISCAL) VL_CREDITO, (VL_PAGAR - VL_SALDO) VL_TOTCREDITO, (VL_SALDO - VL_PAGAR) VL_TOTDEBITO
FROM (
SELECT SUM(COALESCE(C.VL_SALDO,0)) VL_SALDO, (
SELECT COALESCE(SUM(C.VL_SALDO),0)
FROM CONTAS C
INNER JOIN TIPOCONTA ON (TIPOCONTA.CD_TIPOCONTA = C.CD_TIPOCONTA)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.CD_PESSOA = :CD_PESSOA
  AND C.ST_CONTAS IN('T','P')
  AND C.TP_CONTAS IN ('E')
  AND TIPOCONTA.TP_TIPOCONTA IN('CP', 'AC')) VL_PAGAR, CAST(:VL_NOTAFISCAL AS DOM_NUMERIC15_2) VL_NOTAFISCAL
FROM CONTAS C
INNER JOIN TIPOCONTA ON (TIPOCONTA.CD_TIPOCONTA = C.CD_TIPOCONTA)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.CD_PESSOA = :CD_PESSOA
  AND C.ST_CONTAS IN('T','P')
  AND C.TP_CONTAS IN ('S')
  AND TIPOCONTA.TP_TIPOCONTA = 'CR' ) CD_EMPRESA CD_PESSOA VL_NOTAFISCAL CD_EMPRESA CD_PESSOA VL_SALDO VL_PAGAR VL_NOTAFISCAL VL_CREDITO VL_TOTCREDITO VL_TOTDEBITO DBSub3 VL_SALDO VL_SALDO VL_PAGAR VL_PAGAR VL_NOTAFISCAL VL_NOTAFISCAL VL_CREDITO VL_CREDITO VL_TOTCREDITO VL_TOTCREDITO VL_TOTDEBITO VL_TOTDEBITO TP_PAGTCUPOM;VL_NOTAFISCAL;CD_EMPRESA;NR_LANCAMENTO;CD_SERIE;TP_NOTA
SELECT COALESCE(X.TP_BAIXA, NF.TP_BAIXA) TP_PAGTCUPOM, COALESCE(X.VL_DOCUMENTO, NF.VL_DOCUMENTO)VL_DOCUMENTO
FROM (
SELECT CAST(:TP_PAGTCUPOM as VARCHAR(20)) TP_BAIXA, CAST(:VL_NOTAFISCAL AS DOM_NUMERIC15_2) VL_DOCUMENTO
FROM RDB$DATABASE)NF
LEFT JOIN(
SELECT DISTINCT CASE PS.TP_SALDO WHEN 'X' THEN 'Dinheiro' WHEN 'B' THEN 'Banco' WHEN 'R' THEN 'Cheque' WHEN 'P' THEN 'Cheque' WHEN 'T' THEN CASE CH.TP_PAGTOCARTAO WHEN 'D' THEN 'Débito a Vista' WHEN 'P' THEN 'Crédito a Prazo' WHEN 'C' THEN 'Crédito a Vista' ELSE 'Crédito a Vista' END ELSE 'Outros' END TP_BAIXA, MX.VL_DOCUMENTO VL_DOCUMENTO
FROM NOTA N
INNER JOIN CONFIGNFE CN ON (CN.IDEMPRESA = N.CD_EMPRESA)
INNER JOIN CONDPAGTO CP ON (CP.CD_CONDPAGTO = N.CD_CONDPAGTO)
INNER JOIN CONTAS C ON (C.CD_EMPRESA = N.CD_EMPRESA
  AND C.NR_LANCTONOTA = N.NR_LANCAMENTO
  AND C.TP_CONTAS = N.TP_NOTA
  AND C.CD_SERIE = N.CD_SERIE)
INNER JOIN MOVTOCAIXA M ON (M.CD_EMPRCONTAS = C.CD_EMPRESA
  AND M.NR_LANCAMENTO = C.NR_LANCAMENTO
  AND M.CD_TIPOCONTA = C.CD_TIPOCONTA
  AND M.NR_PARCELA = C.NR_PARCELA
  AND M.CD_PESSOA = C.CD_PESSOA
  AND M.TP_MOVTOCAIXA = 'P')
INNER JOIN PROCESSO P ON (P.CD_EMPRESA = M.CD_EMPRESA
  AND P.NR_PROCESSO = M.NR_PROCESSO)
INNER JOIN MOVTOCAIXA MX ON (MX.CD_EMPRPROC = P.CD_EMPRESA
  AND MX.NR_PROCESSO = P.NR_PROCESSO
  AND MX.TP_DOCUMENTO = 'AV'
  AND MX.TP_MOVTOCAIXA = 'R')
LEFT JOIN CHEQUE CH ON (CH.CD_EMPRCAIXA = MX.CD_EMPRESA
  AND CH.NR_LANCCAIXA = MX.NR_LANCCAIXA
  AND CH.NR_PARCELA = M.NR_PARCELA)
LEFT JOIN PARMSALDO PS ON (PS.CD_EMPRESA = MX.CD_EMPRESA
  AND PS.CD_CONTA = MX.CD_CONTADEBITO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_LANCAMENTO = :NR_LANCAMENTO
  AND N.CD_SERIE = :CD_SERIE
  AND N.TP_NOTA = :TP_NOTA
  AND CP.ST_CONDPAGTO = 'V'
  AND CN.TP_FPAGTONFCE = 'X'
GROUP BY 1, 2 )X ON (1=1) TP_PAGTCUPOM VL_NOTAFISCAL CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA TP_PAGTCUPOM VL_DOCUMENTO DBSub4 TP_PAGTCUPOM TP_PAGTCUPOM VL_DOCUMENTO VL_DOCUMENTO

Consulta #1

SELECT O_DS_IMPRESSORA
FROM RETORNA_IMPRESSORAUSUARIO({ Nulo(Parametros[1],}I{)}, { Nulo(Parametros[8],}S{)}, { QuotedStr(}N{)}, { QuotedStr(}W{)}, { Nulo(Parametros[3],}S{)}, { Nulo(Parametros[4],}S{)})

Consulta #2

SELECT N.ST_CUPOMIDENTIFICADO {#10}
FROM NOTA N {#10}
WHERE N.CD_EMPRESA = {Nulo(frmLNF227.tabNOTA.ParamByName(}CD_EMPRESA{).AsString,}I{)}
  AND N.NR_LANCAMENTO = {Nulo(frmLNF227.tabNOTA.ParamByName(}NR_LANCAMENTO{).AsString,}I{)}
  AND N.CD_SERIE = {Nulo(frmLNF227.tabNOTA.ParamByName(}CD_SERIE{).AsString,}S{)}
  AND N.TP_NOTA = {Nulo(frmLNF227.tabNOTA.ParamByName(}TP_NOTA{).AsString,}S{)}

Tabelas Utilizadas

Tabela	Uso
CHEQUE	referenciada nas queries do layout
CONDPAGTO	referenciada nas queries do layout
CONFIGNFE	referenciada nas queries do layout
CONTAS	referenciada nas queries do layout
MOVTOCAIXA	referenciada nas queries do layout
NOTA	referenciada nas queries do layout
PARCELANOTA	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PARMSALDO	referenciada nas queries do layout
PROCESSO	referenciada nas queries do layout
RDB	referenciada nas queries do layout
RETORNA_CABECNF	referenciada nas queries do layout
RETORNA_CHAVEACESSOFORMATADA	referenciada nas queries do layout
RETORNA_IMPOSTOSITEMNOTA	referenciada nas queries do layout
RETORNA_IMPRESSORAUSUARIO	referenciada nas queries do layout
RETORNA_ITENSNF	referenciada nas queries do layout
RETORNA_PAGAMENTONOTA	referenciada nas queries do layout
RETORNA_TOTALITEMNOTA	referenciada nas queries do layout
TIPOCONTA	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa
• jFaturamento

Fonte

• Unit: source/LNF227/ULNF227.pas
• DFM: source/LNF227/ULNF227.dfm
• Package: source/LNF227/LNF227.dpk