LNF043 — Listagem LNF043

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 ITEMNOTA, PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA, CONDPAGTO (+9), filtrada por CD_PESSOA, JO, CD_MUNICIPIO, CD_CONDPAGTO, CD_ITEM, CD_EMPRESA (+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

`Pedido`

SELECT N.CD_EMPRESA, E.NM_EMPRESA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_CEP NR_CEPEMP, CASE N.TP_NOTA WHEN 'S' THEN 'PEDIDO '||N.NR_NOTAFISCAL ELSE 'DEVOLUÇÃO '||N.NR_NOTAFISCAL END NR_PEDIDO, N.TP_NOTA, N.DT_EMISSAO DT_PEDIDO, N.CD_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||P.CD_PESSOA NM_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, COALESCE(EP.NR_INSCEST,PF.NR_RG) NR_INSCEST, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, CASE C.ST_CONDPAGTO WHEN 'D' THEN 'Vencto.: '||DATETOSTR(N.DT_VENCIMENTO,'%d/%m/%Y') ELSE C.DS_CONDPAGTO END DS_CONDPAGTO, N.CD_CONDPAGTO, N.DT_VENCIMENTO, N.CD_VENDEDOR, V.NM_PESSOA||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, IP.CD_ITEM, I.DS_ITEM, IP.VL_UNITARIO, IP.VL_DESCONTO, IP.VL_TOTAL, CASE TC.TP_UNIDADE WHEN 'Q' THEN COALESCE(I.SG_UNIDALT,I.SG_UNIDMED) ELSE I.SG_UNIDMED END SG_UNIDMED, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) VL_LIQUIDO, IP.PS_ITEMNOTA PS_PEDIDO, IP.QT_ITEMNOTA QT_PEDIDA, CAST(CASE TC.TP_UNIDADE WHEN 'Q' THEN COALESCE(IP.QT_ITEMNOTA, IP.PS_ITEMNOTA) ELSE IP.PS_ITEMNOTA END AS NUMERIC(15,2)) QTDE, IP.VL_DESPESA, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MENSAGEM,'') DS_OBSERVACAO, IP.VL_FRETE, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) + COALESCE(IP.VL_FRETE,0) VL_TOT, COALESCE(IP.DS_SERVICO, '') DS_OBSITEM
FROM NOTA N
INNER JOIN ITEMNOTA IP ON (N.CD_EMPRESA = IP.CD_EMPRESA
  AND N.NR_LANCAMENTO = IP.NR_LANCAMENTO
  AND N.TP_NOTA = IP.TP_NOTA
  AND N.CD_SERIE = IP.CD_SERIE)
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (N.CD_PESSOA = EP.CD_PESSOA
  AND N.CD_ENDERECO = EP.CD_ENDERECO)
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO)
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.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 CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO)
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN TIPOCALCULO TC ON (TC.CD_TIPOCALCULO = I.CD_TIPOCALCULO)
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 TP_NOTA CD_SERIE
SELECT P.DT_VENCIMENTO, P.VL_PARCELA, P.NR_PARCELA
FROM PARCELANOTA P
WHERE P.CD_EMPRESA = :CD_EMPRESA
  AND P.NR_LANCAMENTO = :NR_LANCAMENTO
  AND P.TP_NOTA = :TP_NOTA
  AND P.CD_SERIE = :CD_SERIE
ORDER BY P.DT_VENCIMENTO CD_EMPRESA 1 NR_LANCAMENTO TP_NOTA CD_SERIE DbSub1 Default Impressão de Nota Fiscal A4 Default D:\Desenvolvimento\JunsoftERP\dist\Módulos\LNF043.RTM ($MyDocuments)\ReportArchive.raf Printer PDF PDF SMTP http://localhost http://localhost Portuguese (Brazil) ReportBuilder ReportBuilder Arial Report ($MyDocuments)\Report.pdf <FindText> ReportBuilder ReportBuilder Report Report Report http://localhost http://localhost http://localhost 23.0 ppDB lblNR_INSCEST INSC. EST.: Draft 20cpi lblDS_ITEM DESCRIÇÃO PRODUTO Draft 20cpi lblVL_UNITARIO VL UNITÁRIO Draft 20cpi lblVL_TOTAL VL TOTAL Draft 20cpi edtNM_EMPRESA NM_EMPRESA Roman 12cpi ppDB edtDS_ENDEREMP DS_ENDEREMP Draft 20cpi ppDB edtNR_PEDIDO NR_PEDIDO Roman 12cpi ppDB edtDT_PEDIDO DT_PEDIDO dd/mm/yyyy Draft 20cpi ppDB lblDT_PEDIDO DATA.: Draft 20cpi lblNM_PESSOA CLIENTE.: Draft 20cpi lblDS_ENDERECO ENDEREÇO.: Draft 20cpi lblNR_FONE FONE.: Draft 20cpi edtNR_FONE NR_FONE Draft 20cpi ppDB lblDS_MUNICIPIO CIDADE.: Draft 20cpi lblNR_CEP CEP.: Draft 20cpi edtNR_CEP NR_CEP Draft 20cpi ppDB lblNR_CNPJCPF CNPJ / CPF.: Draft 20cpi edtNR_CNPJCPF NR_CNPJCPF Draft 20cpi ppDB edtNR_INSCEST NR_INSCEST Draft 20cpi ppDB lblDS_BAIRRO BAIRRO.: Draft 20cpi edtDS_BAIRRO DS_BAIRRO Draft 20cpi ppDB lblDS_ENDEREMP ENDEREÇO.: Draft 20cpi lblDS_MUNICEMP CIDADE.: Draft 20cpi edtDS_MUNICEMP DS_MUNICEMP Draft 20cpi ppDB lblNR_FONEEMP FONE.: Draft 20cpi edtNR_FONEEMP NR_FONEEMP Draft 20cpi ppDB edtNR_CEPEMP NR_CEPEMP Draft 20cpi ppDB lblNR_CEPEMP CEP.: Draft 20cpi Line4 Line5 lblSG_UNIDMED UND Draft 20cpi lblCD_ITEM CÓDIGO Draft 20cpi Line2 lblPS_PEDIDO1 QUANTIDADE Draft 20cpi lblDS_BAIRRO1 VENDEDOR.: Draft 20cpi edtDS_BAIRRO1 NM_VENDEDOR Draft 20cpi ppDB edtDS_ENDERECO DS_ENDERECO Draft 20cpi ppDB edtDS_MUNICIPIO DS_MUNICIPIO Draft 20cpi ppDB edtNM_PESSOA NM_PESSOA Draft 20cpi ppDB lblCobranca FORMA PAGTO.: Draft 20cpi DS_FORMAPAGTO DS_FORMAPAGTO Draft 20cpi ppDB edtCD_ITEM CD_ITEM Draft 20cpi ppDB edtDS_ITEM DS_ITEM Draft 20cpi ppDB edtVL_UNITARIO VL_UNITARIO #,###,###,##0.0000 Draft 20cpi ppDB edtVL_TOTAL VL_TOTAL ###,###,###,##0.00 Draft 20cpi ppDB edtSG_UNIDMED SG_UNIDMED Draft 20cpi ppDB edtQT_PEDIDA QTDE #,0.00 Draft 20cpi ppDB lblPagina Draft 20cpi Memo3 Memo3 Tahoma Este Label ao lado(lblST_IMPRIME)verifica se o valor passado é I para Imprimir diretamente pela impressora padrão(adm012) ou V para visualizar sendo editado pelo usuário lblST_IMPRIME V Tahoma memDS_OBSERVACAO DS_OBSERVACAO Draft 20cpi ppDB edtNM_PESSOA1 NM_PESSOA Draft 20cpi ppDB Line3 NR_PEDIDO Group1 ppDB Memo2 Adicionado campos VL_FRETE e VL_TOT(valor total já somado o frete) ambos invisíveis, é necessário a edição. É possível co Draft 20cpi Adicionado campos VL_FRETE e VL_TOT(valor total já somado o frete) ambos invisíveis, é necessário a edição. É possível adicionar o valor do frete para cada item, apenas adicione o campo VL_FRETE no detail. lblTOTAIS SUB-TOTAL.: Draft 20cpi edtVL_TOTTOTAL VL_TOTAL ###,###,###,##0.00 Draft 20cpi ppDB Line1 lblTOTAIS1 DESCONTO.: Draft 20cpi edtTotDesconto VL_DESCONTO ###,###,###,##0.00 Draft 20cpi ppDB Label9 TOTAL.: Draft 20cpi edtTotVlLiquido VL_LIQUIDO ###,###,###,##0.00 Draft 20cpi ppDB Label10 DESPESAS.: Draft 20cpi edtTotDesconto1 VL_DESPESA ###,###,###,##0.00 Draft 20cpi ppDB RegContas subContas ppDbSub1 8000 53000 98000 Default Impressão de Nota Fiscal Custom Default 23.0 ppDbSub1 Label2 Vencimentos Draft 20cpi edtDT_VENCIMENTO DT_VENCIMENTO dd/mm/yyyy "|" Draft 20cpi ppDbSub1 edtVL_PARCELA VL_PARCELA #,0.00 Draft 20cpi ppDbSub1 edtDT_VENCIMENTO1 NR_PARCELA Draft 20cpi ppDbSub1 Foreground Memo1 Memo1 Draft 20cpi DS_FORMAPAGTO1 DS_CONDPAGTO Draft 20cpi ppDB lblCobranca1 CONDIÇÃO PAGTO.: Draft 20cpi SubEntrega ppDbSub2 Default Impressão de Nota Fiscal A4 Default 23.0 ppDbSub2 lblDS_ITEM1 DESCRIÇÃO PRODUTO Draft 20cpi lblVL_TOTAL1 DATA ENTREGA Draft 20cpi Line6 lblSG_UNIDMED1 UND Draft 20cpi lblCD_ITEM1 CÓDIGO Draft 20cpi Line7 Label12 QUANTIDADE Draft 20cpi Label13 DEMONSTRATIVO DE ENTREGA DE PRODUTOS Draft 20cpi edtCD_ITEM1 CD_ITEM Draft 20cpi ppDbSub2 edtDS_ITEM1 DS_ITEM Draft 20cpi ppDbSub2 edtVL_TOTAL1 DT_ENTREGA dd/mm/yyyy hh:nn Draft 20cpi ppDbSub2 edtSG_UNIDMED1 SG_UNIDMED Draft 20cpi ppDbSub2 edtQT_PEDIDA1 QTDE #,0.00 Draft 20cpi ppDbSub2 Foreground1 Label6 FRETE.: Draft 20cpi edtTotVlLiquido1 VL_FRETE ###,###,###,##0.00 Draft 20cpi ppDB Label14 TOTAL.: Draft 20cpi DBCalc3 VL_TOT ###,###,###,##0.00 Draft 20cpi ppDB Foreground2
SELECT E.CD_ITEM, I.DS_ITEM, E.DT_REGISTRO DT_ENTREGA, I.SG_UNIDMED, COALESCE(E.QT_ITEMNOTA, E.PS_ITEMNOTA) QTDE, COALESCE(E.DS_SERVICO, '') DS_OBSITEM
FROM ITEMNOTA E
INNER JOIN ITEM I ON (I.CD_ITEM = E.CD_ITEM)
INNER JOIN PARMENTREGA P ON (P.CD_EMPRESA = E.CD_EMPRESA
  AND P.CD_MOVIMENTACAO <> E.CD_MOVIMENTACAO)
WHERE E.CD_EMPRESA = :CD_EMPRESA
  AND E.NR_LANCAMENTO = :NR_LANCAMENTO
  AND E.TP_NOTA = :TP_NOTA
  AND E.CD_SERIE = :CD_SERIE CD_EMPRESA 1 NR_LANCAMENTO TP_NOTA CD_SERIE DbSub2
SELECT N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE, N.NR_NOTAFISCAL, N.DT_EMISSAO, N.CD_PESSOA, P.NM_PESSOA||' <'||P.CD_PESSOA||'>' NM_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, CURRENT_DATE DT_ATUAL, CURRENT_TIME HR_ATUAL, EP.DS_ENDERECO||TRIM(COALESCE(', '||EP.NR_ENDERECO,''))||COALESCE(' '||EP.DS_COMPLEMENTO,'') DS_ENDERECO, COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, MP.DS_MUNICIPIO, MP.SG_ESTADO, EP.NR_INSCEST, EP.NR_FONE, EP.NR_FAX, 0 VL_SEGURO, N.TP_PAGTOFRETE, COALESCE(N.QT_VOLUMEADIC,N.QT_VOLUME) QT_VOLUME, COALESCE(N.PS_BRUTOADIC,N.PS_BRUTO) PS_BRUTO, N.PS_LIQUIDO, N.VL_FRETE, N.VL_DESPESA, N.VL_NOTAFISCAL, N.VL_CONTABIL, COALESCE(T.NM_PESSOA, E.NM_MOTORISTA) NM_TRANSP, COALESCE(T.NR_CNPJCPF,E.NR_CGCCPF) NR_CPFTRANSP, E.NR_PLACA, COALESCE(ET.DS_ENDERECO||TRIM(COALESCE(', '||ET.NR_ENDERECO,'')),E.DS_ENDERECO) DS_ENDTRANSP, COALESCE(MT.DS_MUNICIPIO,E.DS_MUNICIPIO) DS_MUNTRANSP, COALESCE(MT.SG_ESTADO,E.SG_ESTADO) SG_ESTTRANSP, ET.NR_INSCEST NR_INSCTRANSP, Null DS_ESPECIE, COALESCE((
SELECT V_DS_OBSNOTA
FROM RETORNA_OBSNOTA( N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.DS_OBSERVACAO, N.CD_VENDEDOR, N.CD_USUARIO, '4', 80)),' ') DS_OBSNOTA, (
SELECT SUM(NI.VL_TOTAL - COALESCE(NI.VL_DESCONTO,0))
FROM ITEMNOTA NI
WHERE NI.CD_EMPRESA = N.CD_EMPRESA
  AND NI.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NI.CD_SERIE = N.CD_SERIE
  AND NI.TP_NOTA = N.TP_NOTA) VL_LIQUIDO, N.VL_DESCONTO, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'P', 'N', 'VI')) VL_IPI, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'I', 'N', 'VI')) VL_ICMS, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'I', 'N', 'BI')) VL_BASE, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'I', 'N', 'VS')) VL_SUBST, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'I', 'N', 'BS')) VL_BASESUB
FROM NOTA N
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (N.CD_PESSOA = EP.CD_PESSOA
  AND N.CD_ENDERECO = EP.CD_ENDERECO)
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO)
LEFT JOIN EMBARQUE E ON (N.CD_EMPEMB = E.CD_EMPRESA
  AND N.NR_EMBARQUE = E.NR_EMBARQUE)
LEFT JOIN PESSOA T ON (COALESCE(E.CD_TRANSPORTADOR, E.CD_MOTORISTA) = T.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA ET ON (ET.CD_PESSOA = T.CD_PESSOA
  AND ET.CD_ENDERECO = (
SELECT MIN(CD_ENDERECO)
FROM ENDERECOPESSOA ENDER
WHERE ENDER.CD_PESSOA = ET.CD_PESSOA))
LEFT JOIN MUNICIPIO MT ON (ET.CD_MUNICIPIO = MT.CD_MUNICIPIO)
INNER JOIN CONDPAGTO G ON (G.CD_CONDPAGTO = N.CD_CONDPAGTO)
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 NR_LANCAMENTO TP_NOTA CD_SERIE
SELECT N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE, I.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, I.SG_UNIDALT, (
SELECT V_TIPO
FROM HABILITA_PESOQTDE(N.CD_ITEM)) TP_UNIDADE, N.PS_ITEMNOTA, N.QT_ITEMNOTA, N.VL_UNITARIO, N.VL_DESCONTO, N.VL_TOTAL, (N.VL_TOTAL - COALESCE(N.VL_DESCONTO,0)) VL_LIQUIDO, N.CD_ORIGEM||PADLEFT(N.CD_CST,2,'0') CD_CST, I.NR_NCM, COALESCE(NCM.SG_NCM,'X') SG_NCM, N.CD_CFO, N.CD_OBSFISCAL, M.DS_NATUREZA, N.PC_ICMS, N.PC_IPI, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'P', 'N', 'VI')) VL_ITEMIPI
FROM ITEMNOTA N
INNER JOIN ITEM I ON (COALESCE(N.CD_ITEMSIMILAR,N.CD_ITEM) = I.CD_ITEM)
INNER JOIN MOVIMENTACAO M ON (N.CD_MOVIMENTACAO = M.CD_MOVIMENTACAO)
INNER JOIN NCM ON (NCM.NR_NCM = I.NR_NCM)
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 NR_LANCAMENTO TP_NOTA CD_SERIE
SELECT V_NR_LANCAMENTO, V_NR_DOCUMENTO, V_NR_PARCELA, V_VL_DOCUMENTO, V_DT_VENCIMENTO
FROM RETORNA_CONTAS (:CD_EMPRESA, :NR_LANCAMENTO, :CD_SERIE, :TP_NOTA, :CD_PESSOA, 6, '1') CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA CD_PESSOA
SELECT N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE, E.NR_INSCMUNICIPAL, NULL NR_ORDEMSERVICO, 'CFOP: '||N.CD_CFO||' NATUREZA: '||M.DS_NATUREZA DS_NATUREZACFO, N.CD_CFO, M.DS_NATUREZA, COALESCE(N.DS_SERVICO,I.DS_ITEM) DS_ITEM, (N.VL_TOTAL - COALESCE(N.VL_DESCONTO,0)) VL_SERVICO, (
SELECT SUM(NI.VL_TOTAL - COALESCE(NI.VL_DESCONTO,0))
FROM ITEMNOTA NI
INNER JOIN ITEM IT ON (NI.CD_ITEM = IT.CD_ITEM)
WHERE NI.CD_EMPRESA = N.CD_EMPRESA
  AND NI.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NI.CD_SERIE = N.CD_SERIE
  AND NI.TP_NOTA = N.TP_NOTA
  AND IT.TP_ITEM = 'S') VL_SERVICO, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'Q', NULL, 'VI')) VL_ISSQN, (
SELECT V_PC_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'Q', NULL, 'VI')) PC_ISSQN, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'Q', NULL, 'BI')) VL_BASEISS
FROM ITEMNOTA N
INNER JOIN ITEM I ON (N.CD_ITEM = I.CD_ITEM)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN MOVIMENTACAO M ON (M.CD_MOVIMENTACAO = N.CD_MOVIMENTACAO)
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 I.TP_ITEM = 'S' CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE

`Consulta`

SELECT I.DS_PORTADOS, I.CD_IMPRESSORA
FROM PARMUSUARIO U
INNER JOIN IMPRESSORA I ON (I.CD_IMPRESSORA = U.CD_IMPNOTA)
WHERE CD_EMPRESA = {IntToStr(sessao.empresa.cd_Empresa)}
  AND CD_USUARIO = {Nulo(sessao.usuario.cd_Usuario,}S{)}

Tabelas Utilizadas

Tabela	Uso
`CONDPAGTO`	referenciada nas queries do layout
`EMBARQUE`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`ENDERECOPESSOA`	referenciada nas queries do layout
`FORMAPAGTO`	referenciada nas queries do layout
`HABILITA_PESOQTDE`	referenciada nas queries do layout
`IMPRESSORA`	referenciada nas queries do layout
`ITEM`	referenciada nas queries do layout
`ITEMNOTA`	referenciada nas queries do layout
`MOVIMENTACAO`	referenciada nas queries do layout
`MUNICIPIO`	referenciada nas queries do layout
`NCM`	referenciada nas queries do layout
`NOTA`	referenciada nas queries do layout
`PARCELANOTA`	referenciada nas queries do layout
`PARMENTREGA`	referenciada nas queries do layout
`PARMFATUR`	referenciada nas queries do layout
`PARMUSUARIO`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`PESSOAFISICA`	referenciada nas queries do layout
`RETORNA_CONTAS`	referenciada nas queries do layout
`RETORNA_OBSNOTA`	referenciada nas queries do layout
`TIPOCALCULO`	referenciada nas queries do layout
`VALOR_IMPOSTO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LNF043/ULNF043.pas
DFM: source/LNF043/ULNF043.dfm
Package: source/LNF043/LNF043.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Pedido​

Consulta​

Tabelas Utilizadas​

Shared Units​

Fonte​