LNF400 — Listagem LNF400

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
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)
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 = {frmLNF400.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(iParametros[1],}I{) +#10}
  AND C.NR_LANCTONOTA = {nulo(iParametros[2],}I{) +#10}
  AND C.TP_CONTAS = {nulo(iParametros[3],}S{) +#10}
  AND C.CD_SERIE ={nulo(iParametros[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/LNF400/ULNF400.pas
DFM: source/LNF400/ULNF400.dfm
Package: source/LNF400/LNF400.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Nota #1​

ExecutaConsulta/ExecUpdate​

Nota #2​

Produto​

sql #1​

sql #2​

sql #3​

sql #4​

parm​

sql #5​

Tabelas Utilizadas​

Shared Units​

Fonte​