LNF169 — Listagem LNF169

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_CONTAS, com junção em ITEM, EMPRESA, MOVIMENTACAO, LOTESEMENTE, CONTROLESELO, IMPOSTO (+28), filtrada por CD_EMPRESA, NR_LANCAMENTO, CD_SERIE, TP_NOTA, TP_ITEM, JO (+37).

Chamada

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

SQL Base

`TabContas`

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, 10, 'V') CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA CD_PESSOA DBSub3 ppDB
SELECT N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE, E.NR_INSCMUNICIPAL, 'CFOP: '||N.CD_CFO||' NATUREZA: '||M.DS_NATUREZA||CHR(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 DBSub4
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 DBSub5
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 DBSub6
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 DBSub7
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
FROM ITEMNOTA N
INNER JOIN PEDIDONOTA PNF ON (PNF.CD_EMPRESA = N.CD_EMPRESA
  AND PNF.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND PNF.TP_NOTA = N.TP_NOTA
  AND PNF.CD_SERIE = N.CD_SERIE
  AND PNF.CD_ITEM = N.CD_ITEM)
INNER JOIN ITEMPEDIDO IPD ON (IPD.CD_EMPRESA = PNF.CD_EMPRESA
  AND IPD.NR_PEDIDO = PNF.NR_PEDIDO
  AND IPD.TP_PEDIDO = PNF.TP_PEDIDO
  AND IPD.CD_ITEM = PNF.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)
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_EMPRESA 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 DBSub8
SELECT 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, 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, 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, COALESCE(T.NM_PESSOA, E.NM_MOTORISTA) NM_TRANSP, T.NR_CNPJCPF NR_CPFTRANSP, E.NR_PLACA, E.NR_ANTT, ET.DS_ENDERECO||TRIM(COALESCE(', '||ET.NR_ENDERECO,'')) DS_ENDTRANSP, MT.DS_MUNICIPIO DS_MUNTRANSP, MT.SG_ESTADO SG_ESTTRANSP, ET.NR_INSCEST NR_INSCTRANSP, (
SELECT O_VALOR
FROM VALOR_EXTENSO(N.VL_NOTAFISCAL)) VL_EXTENSO, (
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
  AND ITS.TP_ITEM <> 'S') VL_LIQUIDO, (
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, (
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, NFE.DS_MSGSEFAZ
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)
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 (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 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 PESSOA VEND ON (VEND.CD_PESSOA = N.CD_VENDEDOR)
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 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(' REG MA: '||R.NR_REGISTRO,'')|| COALESCE(' ONU: '||R.NR_ONU,'')||' CL TOX: '|| COALESCE(R.CD_CLASSETOXICO,'')|| 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
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
ORDER BY N.NR_SEQUENCIA, N.CD_ITEM CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE

`ExecutaConsulta/ExecUpdate`

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

`Sql`

SELECT COUNT(1)
FROM ITEMNOTA N
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA
  AND E.ST_ESTADO = 'S')
INNER JOIN MOVIMENTACAO M ON (M.CD_MOVIMENTACAO = N.CD_MOVIMENTACAO
  AND M.ST_DEVOLUCAO <> 'N')
WHERE N.CD_EMPRESA = {Parametros[1]}
  AND N.NR_LANCAMENTO = {Parametros[2]}
  AND N.TP_NOTA = {Nulo(Parametros[3],}S{)}
  AND N.CD_SERIE = {Nulo(Parametros[4],}S{)}

`sql #1`

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

`sql #2`

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

`sql #3`

SELECT FIRST 1 V.NR_PLACA, V.NR_CHASSIS, M.DS_MODELOVEICULO, C.DS_CORVEICULO, V.NR_FROTA
FROM PEDIDONOTA N
INNER JOIN PEDIDO P ON (P.CD_EMPRESA = N.CD_EMPRPED
  AND P.NR_PEDIDO = N.NR_PEDIDO
  AND P.TP_PEDIDO = N.TP_PEDIDO)
INNER JOIN ORDEMSERVICO O ON (O.CD_EMPRESA = P.CD_EMPRORDEM
  AND O.NR_ORDEMSERVICO = P.NR_ORDEMSERVICO)
INNER JOIN VEICULO V ON (V.NR_PLACA = O.NR_PLACA)
LEFT JOIN MODELOVEICULO M ON (M.CD_MARCAVEICULO = V.CD_MARCAVEICULO
  AND M.CD_MODELOVEICULO = V.CD_MODELOVEICULO)
LEFT JOIN CORVEICULO C ON (C.CD_CORVEICULO = V.CD_CORVEICULO)
WHERE N.CD_EMPRESA = {Parametros[1]}
  AND N.NR_LANCAMENTO = {Parametros[2]}
  AND N.TP_NOTA = {Nulo(Parametros[3],}S{)}
  AND N.CD_SERIE = {Nulo(Parametros[4],}S{)}

`sql #4`

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 #5`

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

`parm`

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

`sql #6`

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
`CONFIGNFE`	referenciada nas queries do layout
`CONFIGNFEUSUARIO`	referenciada nas queries do layout
`CONTAS`	referenciada nas queries do layout
`CONTROLESELO`	referenciada nas queries do layout
`CORVEICULO`	referenciada nas queries do layout
`DESENHOPNEU`	referenciada nas queries do layout
`EMBARQUE`	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
`IMPOSTO`	referenciada nas queries do layout
`IMPOSTONOTA`	referenciada nas queries do layout
`ITEM`	referenciada nas queries do layout
`ITEMNOTA`	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
`LOTESEMENTE`	referenciada nas queries do layout
`MARCA`	referenciada nas queries do layout
`MARCAPNEU`	referenciada nas queries do layout
`MODELOPNEU`	referenciada nas queries do layout
`MODELOVEICULO`	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
`ORDEMSERVICO`	referenciada nas queries do layout
`PARMNOTA`	referenciada nas queries do layout
`PEDIDO`	referenciada nas queries do layout
`PEDIDONOTA`	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_CONTAS`	referenciada nas queries do layout
`RETORNA_DADOSCADASTRAIS`	referenciada nas queries do layout
`RETORNA_IMPOSTOSITEMNOTA`	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
`VEICULO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LNF169/ULNF169.pas
DFM: source/LNF169/ULNF169.dfm
Package: source/LNF169/LNF169.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

TabContas​

ExecutaConsulta/ExecUpdate​

Sql​

sql #1​

sql #2​

sql #3​

sql #4​

sql #5​

parm​

sql #6​

Tabelas Utilizadas​

Shared Units​

Fonte​