LNF182 — Listagem LNF182

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 RETORNA_CABECNF, com junção em RETORNA_IMPOSTOSITEMNOTA, PARMFATUR, filtrada por O_TP_MOVTO, JO, N_TP_ITEM.

Chamada

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

SQL Base

tabNOTA

SELECT NF.*, NII.O_DS_IMPOSTOS, NII.O_VL_IMPOSTO
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) CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA
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
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
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
WHERE PGT.O_TP_MOVTO <> 'Avista' CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA
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
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)
WHERE NI.N_TP_ITEM = 'S' CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA
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
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)
WHERE NI.N_TP_ITEM <> 'S' CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA

Tabelas Utilizadas

Tabela	Uso
PARMFATUR	referenciada nas queries do layout
RETORNA_CABECNF	referenciada nas queries do layout
RETORNA_IMPOSTOSITEMNOTA	referenciada nas queries do layout
RETORNA_ITENSNF	referenciada nas queries do layout
RETORNA_PAGAMENTONOTA	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LNF182/ULNF182.pas
• DFM: source/LNF182/ULNF182.dfm
• Package: source/LNF182/LNF182.dpk