LNF500 — Listagem LNF500

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 VALOR_EXTENSO, com junção em ITEM, TIPOCALCULO, NFE, PESSOA, ENDERECOPESSOA, MUNICIPIO (+36), filtrada por CD_EMPRESA, NR_LANCAMENTO, CD_SERIE, TP_NOTA, ITEMNOTA, JO (+50).

Chamada

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

SQL Base

Nota #1

SELECT CAST(:CD_EMPRESALOGADA AS DOM_INTEGER) CD_EMPRESALOGADA, COALESCE(N.DS_OBSFISCAL, '') DS_OBSFISCAL, COALESCE(N.DS_OBSNOTA, '') DS_OBSNOTA, PIN.NR_INSCEST INSCSUBST, N.ST_NOTA, N.DT_FORNECEDOR, CNE.DS_LOGOTIPO, PE.NM_PESSOA NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJCPFEMP, EE.NR_CEP NR_CEPEMP, EE.DS_ENDERECO||TRIM(COALESCE(', '||EE.NR_ENDERECO, ''))|| COALESCE(', '||EE.DS_COMPLEMENTO, '') DS_ENDERECOEMP, EE.DS_BAIRRO DS_BAIRROEMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICIPIOEMP, ME.SG_ESTADO SG_ESTEMP, EE.NR_INSCEST NR_INSCESTEMP, EE.NR_FAX NR_FAXEMP, EP.NR_CELULAR, EE.NR_FONE NR_FONEEMP1, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EM.NR_INSCMUNICIPAL, 'RECEBEMOS DE '||PE.NM_PESSOA||' OS PRODUTOS '|| 'CONSTANTES NA NOTA FISCAL INDICADA AO LADO' DS_MSGCANHOTO, N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE, N.NR_NOTAFISCAL, N.DT_EMISSAO, N.CD_PESSOA, E.SG_ESTADO SG_ESTADOEMBARQUE, N.CD_PESSOA||' - '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA, '') NM_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA, '') NM_PESSOASEMCOD, N.CD_PESSOA||' - '||P.NM_PESSOA NM_RAZAOCLIENTE, COALESCE(N.DT_VENCIMENTO, N.DT_EMISSAO) DT_VENCIMENTO, P.DS_EMAIL DS_EMAILCLI, P.NR_CNPJCPF, EP.NR_CEP, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA, '') NM_CLIENTE, EP.DS_ENDERECO||TRIM(COALESCE(', '||EP.NR_ENDERECO,''))|| TRIM(COALESCE(', '||EP.DS_COMPLEMENTO,'')) DS_ENDERECO, EP.DS_BAIRRO DS_BAIRRO, MP.DS_MUNICIPIO, MP.SG_ESTADO, COALESCE(EP.NR_INSCEST,EP.NR_INSCPRODUTOR) NR_INSCEST, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, N.TP_PAGTOFRETE, N.QT_VOLUME, N.PS_BRUTO, N.PS_LIQUIDO, N.PS_BRUTOADIC, N.PS_LIQUIDOADIC, N.QT_VOLUMEADIC, N.VL_FRETE, CAST(N.VL_DESPESA - COALESCE(N.VL_SEGURO,0) AS DOM_NUMERIC15_2) VL_DESPESA, N.VL_NOTAFISCAL, N.VL_CONTABIL, CASE CN.TP_DADOSTRANSP WHEN 'M' THEN COALESCE(T.NM_PESSOA, E.NM_MOTORISTA) ELSE T.NM_PESSOA END NM_TRANSP, COALESCE(T.NR_CNPJCPF, E.NR_CGCCPF) NR_CPFTRANSP, E.NR_PLACA, E.NR_ANTT, 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, (
SELECT O_VALOR
FROM VALOR_EXTENSO(N.VL_NOTAFISCAL)) VL_EXTENSO, RVL.O_VL_LIQUIDO VL_LIQUIDO, ((
SELECT SUM(NI.VL_TOTAL)
FROM ITEMNOTA NI
INNER JOIN ITEM ITS ON (ITS.CD_ITEM = NI.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) + N.VL_DESCONTO) VL_NOTABRUTO, (
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, COMENTADO POIS FICA VAZIO O CAMPO VL ICMS SUBST. N.TP_NOTA, NULL, 'I', 'N', 'DS')) 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, (
SELECT SUM(INS.VL_LIQUIDO)
FROM ITEMNOTA INS
INNER JOIN ITEM ISE ON (ISE.CD_ITEM = INS.CD_ITEM)
WHERE INS.CD_EMPRESA = N.CD_EMPRESA
  AND INS.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND INS.CD_SERIE = N.CD_SERIE
  AND INS.TP_NOTA = N.TP_NOTA
  AND ISE.TP_ITEM = 'S') VL_TOTSERVICOS, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'Q', NULL, 'BI')) VL_BASEISSQN, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'Q', NULL, 'VI')) VL_ISSQN, N.VL_DESCONTO, NFE.NR_CHAVEACESSO, NFE.DT_IMPRESSAODANFE, NC.DS_NATCARGA, NFE.NR_PROTOCOLOAUT, 1 QUEBRA, N.CD_FORMAPAGTO, FP.DS_FORMAPAGTO, N.CD_VENDEDOR, VEND.O_NM_VENDEDORES NM_VENDEDOR, N.DS_NUMERACAO, NFE.NRVERSAO , EM.ST_FEDERAL, COALESCE('Endereço de Cobranca: '||EPB.DS_ENDCOMPLETO,'') DS_ENDERCOBRANCA, COALESCE('Endereço de Entrega: '||EPE.DS_ENDCOMPLETO,'') DS_ENDERENTREGA, EP.NR_SUFRAMA, EP.DS_COMPLEMENTO, E.DS_MARCA, NFE.TPAMB, CAST((
SELECT SUM(CASE TP.TP_UNIDADE WHEN 'Q' THEN IP.QT_ITEMNOTA ELSE IP.PS_ITEMNOTA END * I.QT_VOLUME)
FROM ITEMNOTA IP
INNER JOIN ITEM I ON (I.CD_ITEM = IP.CD_ITEM)
INNER JOIN TIPOCALCULO TP ON (TP.CD_TIPOCALCULO = I.CD_TIPOCALCULO)
WHERE IP.CD_EMPRESA = N.CD_EMPRESA
  AND IP.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND IP.TP_NOTA = N.TP_NOTA
  AND IP.CD_SERIE = N.CD_SERIE) AS DOM_NUMERIC15_3) QT_VOLUME_M3, N.VL_SEGURO , PE.DS_EMAIL DS_EMAILEMP, P.NM_PESSOA NM_CLIENTERAZAO, N.NR_PLACARECAP, N.DS_VEICULORECAP, N.KM_ATUALRECAP, N.NR_SERIERECAP, N.NR_CNPJCPF NR_CNPJCPFCONSUMIDORFINAL, NFE.NR_PROTOCOLOCANC, NFE.DS_MOTIVOCONTINGENCIA, NFE.DS_MSGSEFAZ, N.TP_MODFRETEAUTO, CASE N.TP_MODFRETEAUTO WHEN 0 THEN 'REM.' WHEN 1 THEN 'DEST.' WHEN 2 THEN 'TERC.' WHEN 3 THEN 'PRÓP/REM.' WHEN 4 THEN 'PRÓP/DEST.' WHEN 9 THEN 'SEM FRETE' END DS_MODFRETEAUTO, CASE N.TP_MODFRETEAUTO WHEN 0 THEN '0 - REM.' WHEN 1 THEN '1 - DEST.' WHEN 2 THEN '2 - TERC.' WHEN 3 THEN '3 - PRÓP/REM.' WHEN 4 THEN '4 - PRÓP/DEST.' WHEN 9 THEN '9 - SEM FRETE' END DS_MODFRETEAUTO1, --DADOS ENTREGA CASE N.TP_FRETE WHEN 'E' THEN 'Entrega' WHEN 'R' THEN 'Retirada' END TIPODEFRETE, PLE.NR_CNPJCPF NR_CNPJCPFFRETE, PLE.NR_INSCEST NR_INSCESTFRETE, PLE.NM_PESSOA NM_PESSOAFRETE, PLE.DS_ENDERECO DS_ENDERECOFRETE, PLE.NR_ENDERECO NR_ENDERECOFRETE, PLE.DS_COMPLEMENTO DS_COMPLEMENTOFRETE, PLE.DS_BAIRRO DS_BAIRROFRETE, PLE.NR_CEP NR_CEPFRETE, COALESCE(PLE.NR_CELULAR, PLE.NR_FONE) NR_FONEFRETE, PLE.DS_EMAIL DS_EMAILFRETE, PLE.SG_ESTADO SG_ESTADOFRETE, PLE.DS_MUNICIPIO DS_MUNICIPIOFRETE, PLE.NM_PAIS NM_PAISFRETE, LPAD(N.CD_EMPRESA, 9, '0')||LPAD(N.CD_PESSOA, 9, '0')||LPAD(N.CD_SERIE, 5, '-')||LPAD(COALESCE(N.NR_NOTAFOR,N.NR_NOTAFISCAL), 9, '0') DS_CODBARRASCANHOTO
FROM NOTA N
INNER JOIN NFE ON (NFE.CD_EMPRESA = N.CD_EMPRESA
  AND NFE.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NFE.TP_NOTA = N.TP_NOTA
  AND NFE.CD_SERIE = N.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 CONFIGNFE CN ON (CN.IDEMPRESA = N.CD_EMPRESA)
LEFT JOIN RETORNA_VALORLIQUIDOLNF100 (N.CD_EMPRESA,N.NR_LANCAMENTO,N.CD_SERIE,N.TP_NOTA) RVL ON (1=1)
LEFT JOIN RETORNA_DADOSCADASTRAIS(N.CD_PESSOA, 'B') EPB ON (1=1)
LEFT JOIN RETORNA_DADOSCADASTRAIS(N.CD_PESSOA, 'E') EPE ON (1=1)
LEFT JOIN EMBARQUE E ON (N.CD_EMPEMB = E.CD_EMPRESA
  AND N.NR_EMBARQUE = E.NR_EMBARQUE)
LEFT JOIN PESSOA T ON ( CASE CN.TP_DADOSTRANSP WHEN 'M' THEN COALESCE(E.CD_TRANSPORTADOR, E.CD_MOTORISTA) ELSE E.CD_TRANSPORTADOR END = 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 EMPRESA EM ON (EM.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = EM.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 = PE.CD_PESSOA))
INNER JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = EE.CD_MUNICIPIO)
LEFT JOIN PESSOAINSCRICAO PIN ON (PIN.CD_PESSOA = PE.CD_PESSOA
  AND PIN.SG_ESTADO = MP.SG_ESTADO)
INNER JOIN CONFIGNFE CNE ON (CNE.IDEMPRESA = N.CD_EMPRESA)
LEFT JOIN NATUREZACARGA NC ON (NC.CD_NATCARGA = N.CD_NATCARGA)
INNER JOIN FORMAPAGTO FP ON (FP.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN RETORNA_VENDEDORESNOTA(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA) VEND ON (1=1)
LEFT JOIN RETORNA_DADOSCADASTRAIS(N.CD_PESSOALOCAL,NULL,N.CD_ENDENTREGA) PLE ON (1=1)
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_EMPRESALOGADA CD_EMPRESA NR_LANCAMENTO 1429 TP_NOTA S CD_SERIE 1
SELECT CAST(:CD_EMPRESALOGADA AS DOM_INTEGER) CD_EMPRESALOGADA, CASE WHEN C.TP_CODITEM = 'N' THEN N.CD_ITEM WHEN C.TP_CODITEM = 'C' THEN I.CD_FORNECEDOR1 WHEN C.TP_CODITEM = 'P' THEN IPE.CD_PRODUTO END CD_ITEMFORNEC, I.ST_SEMENTE, N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE, I.CD_ITEM, I.DS_ITEM, I.SG_UNIDALT, CASE TC.TP_UNIDADE WHEN 'Q' THEN COALESCE(I.SG_UNIDALT,I.SG_UNIDMED) ELSE I.SG_UNIDMED END SG_UNIDMED, CASE TC.TP_UNIDADE WHEN 'Q' THEN 'Q' ELSE 'P' END 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, cast(N.CD_ORIGEM||RPAD(N.CD_CST ,2,'0') as VARCHAR(5)) CD_CST, N.CD_CSOSN, N.CD_ORIGEM||' - '||n.CD_CSOSN CD_ORIGEMCSOSN, I.NR_NCM, N.CD_CFO, N.CD_OBSFISCAL, M.DS_NATUREZA, N.PC_IPI, I.DS_ESPECIFICACAO, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'I', 'N', 'BI')) VL_BASEICMSITEM, (
SELECT V_PC_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'I', 'N', 'VI')) PC_ICMSITEM, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'I', 'N', 'VI')) VL_ICMSITEM, (
SELECT V_PC_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'P', 'N', 'VI')) PC_IPIITEM, (
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_IPIITEM, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'I', NULL, 'VS')) VL_ICMSSUBSTRIB, (
SELECT FIRST 1 COALESCE('NOME TECNICO: '||R.DS_NOMETECNICO,'')|| COALESCE(' ONU: '||R.NR_ONU,'')||', '|| COALESCE(' REG MAPA: '||R.NR_REGISTRO,'')|| COALESCE(' CL TOX: '||R.CD_CLASSETOXICO||')','')||', '|| COALESCE(' GE '||R.NR_GRUPOEMBALAGEM,'')|| COALESCE(' FORMUL: '||R.DS_FORMULACAO,'')
FROM ITEMRECEITA R
WHERE R.CD_ITEM = N.CD_ITEM) DS_RECEITA, N.DS_SERVICO DS_OBSERVACAO, COALESCE(N.DS_SERVICO,I.DS_ITEM) DS_OBSITEM, I.DS_ITEM||' - '||MC.DS_MARCA DS_ITEMMARCA, I.CD_FORNECEDOR1, RI.O_DS_IMPOSTOS, I.NR_CO, I.NR_CTC, I.NR_TOTAL, I.NR_P205, I.NR_K2O, I.NR_UMMAX, I.DS_NATUREZAFISICA, I.DS_GRANULOMETRIA, I.FORMULACAO, 'Vl. Desconto Item.: '||N.VL_DESCONTO DS_VLDESCONTO, CAST('Cód. ANP: '||I.CD_ANP as dom_varchar60) CD_ANP, (
SELECT LIST(DISTINCT IPD.NR_SEQMANUAL)
FROM ITEMNOTA ITN
LEFT JOIN RETORNA_CHAVEPEDIDO(ITN.CD_EMPRESA, ITN.NR_LANCAMENTO, ITN.TP_NOTA, ITN.CD_SERIE) RPD ON (1=1)
LEFT JOIN ITEMPEDIDO IPD ON (IPD.CD_EMPRESA = RPD.O_CD_EMPRESA
  AND IPD.NR_PEDIDO = RPD.O_NR_PEDIDO
  AND IPD.TP_PEDIDO = RPD.O_TP_PEDIDO
  AND IPD.CD_ITEM = N.CD_ITEM)
WHERE ITN.CD_EMPRESA = N.CD_EMPRESA
  AND ITN.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND ITN.TP_NOTA = N.TP_NOTA
  AND ITN.CD_SERIE = N.CD_SERIE
  AND ITN.CD_ITEM = N.CD_ITEM) NR_SEQMANUAL, I.CD_CODIGOBARRA
FROM ITEMNOTA N
INNER JOIN NOTA A ON (A.CD_EMPRESA = N.CD_EMPRESA
  AND A.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND A.TP_NOTA = N.TP_NOTA
  AND A.CD_SERIE = N.CD_SERIE)
LEFT JOIN ITEMPESSOA IPE ON (IPE.CD_ITEM = N.CD_ITEM
  AND IPE.CD_PESSOA = A.CD_PESSOA)
INNER JOIN ITEM I ON (N.CD_ITEM = I.CD_ITEM)
INNER JOIN TIPOCALCULO TC ON (TC.CD_TIPOCALCULO = I.CD_TIPOCALCULO)
INNER JOIN MOVIMENTACAO M ON (N.CD_MOVIMENTACAO = M.CD_MOVIMENTACAO)
INNER JOIN MARCA MC ON (MC.CD_MARCA = I.CD_MARCA)
LEFT JOIN RETORNA_IMPOSTOSITEMNOTA(N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE, N.CD_ITEM) RI ON (1=1)
INNER JOIN CONFIGNFE C ON (C.IDEMPRESA = N.CD_EMPRESA)
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_EMPRESALOGADA CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE
SELECT V_NR_LANCAMENTO, V_NR_DOCUMENTO||'/'||V_NR_PARCELA V_NR_DOCUMENTO, V_DS_PAGTO, V_VL_DOCUMENTO, V_DT_VENCIMENTO, V_NR_PARCELA||'/'||V_NR_TOTPARCELAS V_NR_PARCELAS
FROM RETORNA_CONTAS (:CD_EMPRESA, :NR_LANCAMENTO, :CD_SERIE, :TP_NOTA, :CD_PESSOA, null, 'V') 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, 'CFOP: '||N.CD_CFO||' NATUREZA: '||M.DS_NATUREZA||ASCII_CHAR(10)||COALESCE(N.DS_SERVICO,I.DS_ITEM) DS_ITEM, (
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', 'S', 'VI')) VL_ISSQN
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
SELECT N.NR_LOTE, N.QT_LOTE, L.DT_VALIDADE, L.DT_FABRICACAO, L.NR_ATESTADO, L.NR_PENEIRA, L.NR_BOLETIM, L.PC_GERMINACAO, L.PC_PUREZA , L.NR_DOCUMENTO DS_LOTE
FROM ITEMNOTASEMENTE N
INNER JOIN LOTESEMENTE L ON (L.CD_EMPRESA = N.CD_EMPRLOTE
  AND L.NR_LOTE = N.NR_LOTE
  AND L.CD_ITEM = N.CD_ITEM)
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 N.CD_ITEM = :CD_ITEM CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE CD_ITEM
SELECT S.NR_LOTESELO, N.QT_SELO, S.DT_VALIDADE, S.DS_COR, S.CD_SELO
FROM ITEMNOTASELO N
INNER JOIN CONTROLESELO S ON (S.CD_EMPRESA = N.CD_EMPRLOTESELO
  AND S.NR_LOTESELO = N.NR_LOTESELO)
INNER JOIN ITEM I ON(I.CD_ITEM = N.CD_ITEM)
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 N.CD_ITEM = :CD_ITEM
  AND I.ST_SEMENTE <> 'E' CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE CD_ITEM
SELECT N.VL_SUBSTRIB, N.VL_BASESUBST
FROM IMPOSTONOTA N
INNER JOIN IMPOSTO I ON (I.CD_IMPOSTO = N.CD_IMPOSTO
  AND I.TP_IMPOSTO = 'I'
  AND N.VL_SUBSTRIB > 0)
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 N.CD_ITEM = :CD_ITEM CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE CD_ITEM
SELECT N.CD_ITEM, COALESCE('Série: '||PN.NRSERIE,'') NRSERIE, COALESCE('Desenho: '||(
SELECT D.DSDESENHO
FROM DESENHOPNEU D
WHERE D.ID = COALESCE(tdp.IDDESENHOPNEU, IPP.IDDESENHOPNEU)),'') DSDESENHO, COALESCE('Marca: '||MRP.dsmarca,'') MARCAPNEUS, POP.IDORDEMPRODUCAORECAP, COALESCE('Fogo: '||PN.NRFOGO, '') NRFOGO, EMB.NRDOT NRVINHETARECAPAGEM, IIF(PR.STIMPCOLETAFOGOSERIE = 'S', CFS.O_DS_OBSCOLETAFOGOSERIE, '') DS_OBSCOLETAFOGOSERIE, COALESCE('Dot: '||pn.NRDOT, Null) NRDOT
FROM ITEMNOTA N
LEFT JOIN RETORNA_CHAVEPEDIDO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE) RP ON (RP.O_CD_ITEM = N.CD_ITEM)
INNER JOIN ITEMPEDIDO IPD ON (IPD.CD_EMPRESA = RP.O_CD_EMPRESA
  AND IPD.NR_PEDIDO = RP.O_NR_PEDIDO
  AND IPD.TP_PEDIDO = RP.O_TP_PEDIDO
  AND IPD.CD_ITEM = RP.O_CD_ITEM)
INNER JOIN PEDIDO PD ON (PD.CD_EMPRESA = IPD.CD_EMPRESA
  AND PD.NR_PEDIDO = IPD.NR_PEDIDO
  AND PD.TP_PEDIDO = IPD.TP_PEDIDO)
LEFT JOIN PLUGORDRECAPPEDIDO POP ON (POP.CD_EMPRESA = PD.CD_EMPRESA
  AND POP.NR_PEDIDO = PD.NR_PEDIDO
  AND POP.TP_PEDIDO = PD.TP_PEDIDO)
LEFT JOIN ORDEMPRODUCAORECAP OPR ON (OPR.ID = POP.IDORDEMPRODUCAORECAP)
LEFT JOIN TROCADESENHOPNEU TDP ON (TDP.ID = OPR.ID)
LEFT JOIN DESENHOPNEU NDP ON (NDP.ID = TDP.IDDESENHOPNEU)
LEFT JOIN EXAMEINICIAL EX ON (EX.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU)
LEFT JOIN PNEU PN ON (PN.ID = IPP.IDPNEU)
LEFT JOIN MODELOPNEU MPN ON (MPN.ID = PN.IDMODELOPNEU)
LEFT JOIN MARCAPNEU MRP ON (MRP.ID = MPN.IDMARCAPNEU)
LEFT JOIN EMBORRACHAMENTO EMB ON (EMB.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN RETORNA_OBSCOLETAFOGOSERIE(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, IPD.CD_ITEM, OPR.ID) CFS ON (1 = 1)
LEFT JOIN PARAMRECAP PR ON (PR.IDEMPRESA = :CD_EMPRESALOGADA)
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 N.CD_ITEM = :CD_ITEM
  AND COALESCE(TDP.IDDESENHOPNEU, IPP.IDDESENHOPNEU) IS NOT NULL CD_EMPRESALOGADA CD_EMPRESA 1 NR_LANCAMENTO TP_NOTA CD_SERIE CD_ITEM
SELECT N.NR_SERIAL, N.NR_CELULAR, N.NR_CONTRATO, N.VL_DESCONTO
FROM ITEMSERIAL N
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 N.CD_ITEM = :CD_ITEM CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE CD_ITEM
SELECT SUBSTRING( COALESCE(' - '||CASE WHEN I.NR_TOTAL IS NOT NULL THEN 'Garantias: Nitrogênio Total.: '||I.NR_TOTAL||'%' END, '')|| COALESCE(' - '||CASE WHEN I.NR_P205 IS NOT NULL THEN 'P2O5 Sol. H20.: '||I.NR_P205||'%' END, '')|| COALESCE(' - '||CASE WHEN I.NR_K2O IS NOT NULL THEN 'K2O.: '||I.NR_K2O||'%' END, '')|| COALESCE(' - '||CASE WHEN I.NR_CTC IS NOT NULL THEN 'CTC.: '||I.NR_CTC||' mmol c/kg' END,'')|| COALESCE(' - '||CASE WHEN I.NR_COT IS NOT NULL THEN 'Carbono Orgânico Total.: '||I.NR_COT||'%' END, '')|| COALESCE(' - '||CASE WHEN I.NR_UMMAX IS NOT NULL THEN 'Umidade Máxima.: '||I.NR_UMMAX||'%' END, '')|| COALESCE(' - '||CASE WHEN I.NR_PH IS NOT NULL THEN 'PH.: '||I.NR_PH||'%' END, '')|| COALESCE(' - '||CASE WHEN I.NR_CO IS NOT NULL THEN 'Carbono Orgânico.: '||I.NR_CO||'%' END, '')|| COALESCE(' - '||CASE WHEN I.NR_CTC_C IS NOT NULL THEN 'CTC/C.: '||I.NR_CTC_C||'%' END, '')|| COALESCE(' - '||CASE WHEN I.NR_CN IS NOT NULL THEN 'C/N (MAX).: '||I.NR_CN||'%' END, '')|| COALESCE(' - '||CASE WHEN I.NR_CRA IS NOT NULL THEN 'Capacidade de Retenção de Água.: '||I.NR_CRA||'%' END, '')|| COALESCE(' - '||CASE WHEN I.DS_NATUREZAFISICA IS NOT NULL THEN 'Natureza Física.: '||I.DS_NATUREZAFISICA END, '')|| COALESCE(' - '||CASE WHEN I.DS_GRANULOMETRIA IS NOT NULL THEN 'Granulometria.: '||I.DS_GRANULOMETRIA END, '')|| COALESCE(' - '||CASE WHEN I.FORMULACAO IS NOT NULL THEN 'Formulação.: '||I.FORMULACAO END, '')
FROM 4 FOR 1000) DS_RECEITA, IR.DS_RECOMENDACAO
FROM ITEMNOTA N
INNER JOIN ITEM I ON (N.CD_ITEM = I.CD_ITEM)
LEFT JOIN ITEMRECEITA IR ON (IR.CD_ITEM = N.CD_ITEM)
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 N.CD_ITEM = :CD_ITEM CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE CD_ITEM
SELECT N.CD_GRADE, N.NR_LINHA, N.NR_COLUNA, N.QT_GRADE, G.DS_GRADE, CG.DS_COLUNA, LG.DS_LINHA
FROM ITEMNOTAGRADE N
INNER JOIN GRADE G ON (G.CD_GRADE = N.CD_GRADE)
INNER JOIN LINHAGRADE LG ON (LG.CD_GRADE = N.CD_GRADE
  AND LG.NR_LINHA = N.NR_LINHA)
INNER JOIN COLUNAGRADE CG ON (CG.CD_GRADE = N.CD_GRADE
  AND CG.NR_COLUNA = N.NR_COLUNA)
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 N.CD_ITEM = :CD_ITEM CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE CD_ITEM

ExecutaConsulta/ExecUpdate

UPDATE nfe
SET dt_impressaodanfe = coalesce(dt_impressaodanfe, current_timestamp)
WHERE cd_empresa = {Parametros}

Nota #2

{StringReplace}

Produto

{StringReplace}

sql #1

SELECT tpEmis, tpAmb
FROM confignfe
WHERE IDEMPRESA = {InttoStr(sessao.empresa.cd_empresa)}

sql #2

UPDATE nfe
SET tpemiss = {Resultado[0]}
WHERE cd_empresa = {Parametros[1]}
  AND nr_lancamento = {Parametros[2]}
  AND cd_serie = {QuotedStr(Parametros[4])}
  AND tp_nota = {QuotedStr(Parametros[3])}

sql #3

SELECT nr_protocoloaut, tpemiss
FROM nfe
WHERE cd_empresa = {Parametros[1]}
  AND nr_lancamento = {Parametros[2]}
  AND cd_serie = {QuotedStr(Parametros[4])}
  AND tp_nota = {QuotedStr(Parametros[3])}

sql #4

SELECT COALESCE(C.STIMPRIMENFE,0) {#10}
FROM CONFIGNFEUSUARIO C {#10}
WHERE C.IDEMPRESA = {frmLNF500.Nota.FieldByName(}CD_EMPRESA{).AsString +#10}
  AND C.IDUSUARIO = {Nulo(sessao.usuario.cd_usuario,}S{)}

parm

SELECT ST_GERABOLETO
FROM PARMNOTA
WHERE CD_EMPRESA = {Parametros[1]}
  AND TP_NOTA = {Nulo(Parametros[3],}S{)}
  AND CD_SERIE = {Nulo(Parametros[4],}S{)}

sql #5

SELECT C.NR_NOSSONUMEROAPI {#10}
FROM CONTAS C {#10}
WHERE C.CD_EMPRESA = {nulo(Parametros[1],}I{) +#10}
  AND C.NR_LANCTONOTA = {nulo(Parametros[2],}I{) +#10}
  AND C.TP_CONTAS = {nulo(Parametros[3],}S{) +#10}
  AND C.CD_SERIE ={nulo(Parametros[4],}S{)}

Tabelas Utilizadas

Tabela	Uso
COLUNAGRADE	referenciada nas queries do layout
CONFIGNFE	referenciada nas queries do layout
CONFIGNFEUSUARIO	referenciada nas queries do layout
CONTAS	referenciada nas queries do layout
CONTROLESELO	referenciada nas queries do layout
DESENHOPNEU	referenciada nas queries do layout
EMBARQUE	referenciada nas queries do layout
EMBORRACHAMENTO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
EXAMEINICIAL	referenciada nas queries do layout
FORMAPAGTO	referenciada nas queries do layout
GRADE	referenciada nas queries do layout
IMPOSTO	referenciada nas queries do layout
IMPOSTONOTA	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMNOTA	referenciada nas queries do layout
ITEMNOTAGRADE	referenciada nas queries do layout
ITEMNOTASELO	referenciada nas queries do layout
ITEMNOTASEMENTE	referenciada nas queries do layout
ITEMPEDIDO	referenciada nas queries do layout
ITEMPEDIDOPNEU	referenciada nas queries do layout
ITEMPESSOA	referenciada nas queries do layout
ITEMRECEITA	referenciada nas queries do layout
ITEMSERIAL	referenciada nas queries do layout
LINHAGRADE	referenciada nas queries do layout
LOTESEMENTE	referenciada nas queries do layout
MARCA	referenciada nas queries do layout
MARCAPNEU	referenciada nas queries do layout
MODELOPNEU	referenciada nas queries do layout
MOVIMENTACAO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
NATUREZACARGA	referenciada nas queries do layout
NFE	referenciada nas queries do layout
NOTA	referenciada nas queries do layout
ORDEMPRODUCAORECAP	referenciada nas queries do layout
PARAMRECAP	referenciada nas queries do layout
PARMNOTA	referenciada nas queries do layout
PEDIDO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PESSOAINSCRICAO	referenciada nas queries do layout
PLUGORDRECAPPEDIDO	referenciada nas queries do layout
PNEU	referenciada nas queries do layout
RETORNA_CHAVEPEDIDO	referenciada nas queries do layout
RETORNA_CONTAS	referenciada nas queries do layout
RETORNA_DADOSCADASTRAIS	referenciada nas queries do layout
RETORNA_IMPOSTOSITEMNOTA	referenciada nas queries do layout
RETORNA_OBSCOLETAFOGOSERIE	referenciada nas queries do layout
[[RETORNA_VALORLIQUIDOLNF100]]	referenciada nas queries do layout
RETORNA_VENDEDORESNOTA	referenciada nas queries do layout
TIPOCALCULO	referenciada nas queries do layout
TROCADESENHOPNEU	referenciada nas queries do layout
VALOR_EXTENSO	referenciada nas queries do layout
VALOR_IMPOSTO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LNF500/ULNF500.pas
• DFM: source/LNF500/ULNF500.dfm
• Package: source/LNF500/LNF500.dpk