Pular para o conteúdo principal

LNF228 — Listagem LNF228

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 ITEMNOTA, com junção em ORDEMCARREGRECAP, RETORNA_CHAVEPEDIDO, PLUGORDRECAPPEDIDO, ITEMRECAPFATUR, ORDEMPRODUCAORECAP, ITEM (+18), filtrada por CD_EMPRESA, NR_LANCAMENTO, TP_NOTA, CD_SERIE, NN, JO (+39).

Chamada​

ExecLayout(Connection, [
  // 0 - Nome do Layout da Nota Fiscal
  // 1 - Cd Empresa
  // 2 - Nr Lancamento
  // 3 - Tp Nota
  // 4 - Cd Serie
  // 5 - Path Servidor
  // 6 - Visualiza -> V ou Imprime -> I
  // 7 - Impressora do Parametro
]);

SQL Base​

tabDB​

SELECT DISTINCT IIF(NF.CD_AUTENTICACAO IS NOT NULL, N.NR_NOTAFISCAL, N.NR_LANCAMENTO) NR_NOTAFISCAL, CAST(N.NR_LANCAMENTO||'/'||N.CD_SERIE AS varchar(60)) NR_CONTROLEINTERNO, --COALESCE(N.NR_NOTAFISCAL, N.NR_NOTAFOR) NR_NOTAFISCAL, NF.CD_AUTENTICACAO, N.DT_EMISSAO DH_EMISSAO, RE.O_NR_LINHA, EM.NR_INSCMUNICIPAL, RPE.NR_FONE FONEEMPRESA, N.CD_CONDPAGTO, N.CD_FORMAPAGTO, CP.DS_CONDPAGTO, FP.DS_FORMAPAGTO, --[ TOMADOR ]-- IIF(NF.CD_AUTENTICACAO IS NOT NULL, NF.NR_RPS, N.NR_LANCAMENTO) NR_RPS, N.DT_EMISSAO DT_RPS, P.NR_CNPJCPF, N.CD_PESSOA, PE.NR_CNPJCPF CNPJTOMADOR, PE.NM_PESSOA NM_TOMADOR, RPE.DS_ENDERECO||' - '||RPE.DS_BAIRRO||' - '||MC.DS_MUNICIPIO||'\'||MC.SG_ESTADO ENDERECOTOMADOR, PE.DS_EMAIL, PE.DS_SITE, (
SELECT SUM(((COALESCE(P.PS_ITEMNOTA, P.QT_ITEMNOTA) * P.VL_UNITARIO)))
FROM ITEMNOTA P
WHERE P.CD_EMPRESA = N.CD_EMPRESA
  AND P.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND P.TP_NOTA = N.TP_NOTA) VL_TOTALNOTA, (
SELECT SUM(COALESCE(P.VL_DESCONTO,0))
FROM ITEMNOTA P
WHERE P.CD_EMPRESA = N.CD_EMPRESA
  AND P.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND P.TP_NOTA = N.TP_NOTA
  AND p.cd_serie = n.cd_serie) - COALESCE( (
SELECT SUM(LDD.VL_UTILIZADO)
FROM LAUDORECAPDESCNOTA LDD
WHERE LDD.CD_EMPRESA = N.CD_EMPRESA
  AND LDD.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND LDD.CD_SERIE = N.CD_SERIE
  AND LDD.TP_NOTA = N.TP_NOTA), 0) - coalesce((
SELECT SUM(II.VL_UNITARIO * IC.QT_ITEM)
FROM NOTA NN
INNER JOIN ITEMNOTA II ON (II.CD_EMPRESA = NN.CD_EMPRESA
  AND II.NR_LANCAMENTO = NN.NR_LANCAMENTO
  AND II.TP_NOTA = NN.TP_NOTA
  AND II.CD_SERIE = NN.CD_SERIE)
INNER JOIN ORDEMCARREGRECAP O ON (O.CD_EMPRESA = Nn.CD_EMPEMB
  AND O.NR_EMBARQUE = Nn.NR_EMBARQUE)
LEFT JOIN RETORNA_CHAVEPEDIDO(ii.CD_EMPRESA, II.NR_LANCAMENTO, II.TP_NOTA, II.CD_SERIE) rped on (rped.O_CD_ITEM = ii.CD_ITEM)
INNER JOIN PLUGORDRECAPPEDIDO plug on (plug.CD_EMPRESA = rped.O_CD_EMPRESA
  AND PLUG.NR_PEDIDO = rped.O_NR_PEDIDO
  AND PLUG.TP_PEDIDO = rped.O_TP_PEDIDO)
INNER JOIN ITEMRECAPFATUR IC ON (IC.CD_EMPRESA = O.CD_EMPRESA
  AND IC.NR_EMBARQUE = O.NR_EMBARQUE
  AND IC.ID_ITEMPEDIDOPNEU = O.IDITEMPEDIDOPNEU
  AND IC.CD_ITEM = II.CD_ITEM)
INNER JOIN ordemproducaorecap opr on (opr.ID = plug.IDORDEMPRODUCAORECAP
  AND opr.ID = ic.ID_ORDEMPRODUCAORECAP)
WHERE NN.CD_EMPRESA = N.CD_EMPRESA
  AND NN.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NN.TP_NOTA = N.TP_NOTA
  AND NN.CD_SERIE = N.CD_SERIE
  AND OPR.STEXAMEFINAL = 'R' ),0) - coalesce((
SELECT SUM(II.VL_UNITARIO * IC.QT_DESCONTADO)
FROM NOTA NN
INNER JOIN ITEMNOTA II ON (II.CD_EMPRESA = NN.CD_EMPRESA
  AND II.NR_LANCAMENTO = NN.NR_LANCAMENTO
  AND II.TP_NOTA = NN.TP_NOTA
  AND II.CD_SERIE = NN.CD_SERIE)
INNER JOIN ORDEMCARREGRECAP O ON (O.CD_EMPRESA = Nn.CD_EMPEMB
  AND O.NR_EMBARQUE = Nn.NR_EMBARQUE)
LEFT JOIN RETORNA_CHAVEPEDIDO(ii.CD_EMPRESA, II.NR_LANCAMENTO, II.TP_NOTA, II.CD_SERIE) rped on (rped.O_CD_ITEM = ii.CD_ITEM)
INNER JOIN PLUGORDRECAPPEDIDO plug on (plug.CD_EMPRESA = rped.O_CD_EMPRESA
  AND PLUG.NR_PEDIDO = rped.O_NR_PEDIDO
  AND PLUG.TP_PEDIDO = rped.O_TP_PEDIDO)
INNER JOIN ITEMRECAPFATUR IC ON (IC.CD_EMPRESA = O.CD_EMPRESA
  AND IC.NR_EMBARQUE = O.NR_EMBARQUE
  AND IC.ID_ITEMPEDIDOPNEU = O.IDITEMPEDIDOPNEU
  AND IC.CD_ITEM = II.CD_ITEM)
INNER JOIN ordemproducaorecap opr on (opr.ID = plug.IDORDEMPRODUCAORECAP
  AND opr.ID = ic.ID_ORDEMPRODUCAORECAP)
WHERE NN.CD_EMPRESA = N.CD_EMPRESA
  AND NN.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NN.TP_NOTA = N.TP_NOTA
  AND NN.CD_SERIE = N.CD_SERIE
  AND OPR.STEXAMEFINAL <> 'R' ),0) VL_DESCONTO, (
SELECT SUM(LDD.VL_UTILIZADO)
FROM LAUDORECAPDESCNOTA LDD
WHERE LDD.CD_EMPRESA = N.CD_EMPRESA
  AND LDD.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND LDD.CD_SERIE = N.CD_SERIE
  AND LDD.TP_NOTA = N.TP_NOTA) VL_LAUDONOTA, coalesce((
SELECT SUM(II.VL_UNITARIO * IC.QT_ITEM)
FROM NOTA NN
INNER JOIN ITEMNOTA II ON (II.CD_EMPRESA = NN.CD_EMPRESA
  AND II.NR_LANCAMENTO = NN.NR_LANCAMENTO
  AND II.TP_NOTA = NN.TP_NOTA
  AND II.CD_SERIE = NN.CD_SERIE)
INNER JOIN ORDEMCARREGRECAP O ON (O.CD_EMPRESA = Nn.CD_EMPEMB
  AND O.NR_EMBARQUE = Nn.NR_EMBARQUE)
LEFT JOIN RETORNA_CHAVEPEDIDO(ii.CD_EMPRESA, II.NR_LANCAMENTO, II.TP_NOTA, II.CD_SERIE) rped on (rped.O_CD_ITEM = ii.CD_ITEM)
INNER JOIN PLUGORDRECAPPEDIDO plug on (plug.CD_EMPRESA = rped.O_CD_EMPRESA
  AND PLUG.NR_PEDIDO = rped.O_NR_PEDIDO
  AND PLUG.TP_PEDIDO = rped.O_TP_PEDIDO)
INNER JOIN ITEMRECAPFATUR IC ON (IC.CD_EMPRESA = O.CD_EMPRESA
  AND IC.NR_EMBARQUE = O.NR_EMBARQUE
  AND IC.ID_ITEMPEDIDOPNEU = O.IDITEMPEDIDOPNEU
  AND IC.CD_ITEM = II.CD_ITEM)
INNER JOIN ordemproducaorecap opr on (opr.ID = plug.IDORDEMPRODUCAORECAP
  AND opr.ID = ic.ID_ORDEMPRODUCAORECAP)
WHERE NN.CD_EMPRESA = N.CD_EMPRESA
  AND NN.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NN.TP_NOTA = N.TP_NOTA
  AND NN.CD_SERIE = N.CD_SERIE
  AND OPR.STEXAMEFINAL = 'R' ),0) VL_DESC_RECUSADO, coalesce((
SELECT SUM(II.VL_UNITARIO * IC.QT_DESCONTADO)
FROM NOTA NN
INNER JOIN ITEMNOTA II ON (II.CD_EMPRESA = NN.CD_EMPRESA
  AND II.NR_LANCAMENTO = NN.NR_LANCAMENTO
  AND II.TP_NOTA = NN.TP_NOTA
  AND II.CD_SERIE = NN.CD_SERIE)
INNER JOIN ORDEMCARREGRECAP O ON (O.CD_EMPRESA = NN.CD_EMPEMB
  AND O.NR_EMBARQUE = NN.NR_EMBARQUE)
INNER JOIN ITEMRECAPFATUR IC ON (IC.CD_EMPRESA = O.CD_EMPRESA
  AND IC.NR_EMBARQUE = O.NR_EMBARQUE
  AND IC.ID_ITEMPEDIDOPNEU = O.IDITEMPEDIDOPNEU
  AND IC.CD_ITEM = II.CD_ITEM)
INNER JOIN ITEM I ON (I.CD_ITEM = IC.CD_ITEM)
INNER JOIN ordemproducaorecap opr oN (opr.ID = ic.ID_ORDEMPRODUCAORECAP)
WHERE NN.CD_EMPRESA = N.CD_EMPRESA
  AND NN.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NN.TP_NOTA = N.TP_NOTA
  AND NN.CD_SERIE = N.CD_SERIE
  AND OPR.STEXAMEFINAL <> 'R' ),0) VL_CONSERTODADO, --[ VIA PRESTADOR ]-- P.NR_CNPJCPF CNPJPRESTADOR, P.CD_PESSOA||' - '||P.NM_PESSOA NM_PRESTADOR, EP.NR_FONE NR_FONEPRESTADOR, EP.DS_ENDERECO||COALESCE(' - '||EP.NR_ENDERECO, '')||COALESCE(' - '||EP.DS_BAIRRO, '')||' - '||MP.DS_MUNICIPIO||'/'||MP.SG_ESTADO DS_ENDERECOPRESTADOR, P.DS_EMAIL EMAIL_PRESTADOR, N.CD_EMPRESA, N.NR_LANCAMENTO, N.TP_NOTA, N.CD_SERIE, PV.NM_PESSOA NM_VENDEDOR, N.DS_OBSNOTA DS_OBSERVACAO, CN.DS_LOGOTIPO, 'Recebemos de '||PE.NM_PESSOA||' os Serviços Constantes do Recibo Provisório de Serviços Indicados Abaixo: ' DS_RECEBIMENTO, N.VL_CONTABIL, INSS.V_VL_IMPOSTO VLINSS, IRRF.V_VL_IMPOSTO VLIRRF, ISS.V_VL_IMPOSTO VLISS, (
SELECT SUM(PIS.V_VL_IMPOSTO) + SUM(COFINS.V_VL_IMPOSTO) + SUM(CSLL.V_VL_IMPOSTO)
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'F' ,'S', 'VI') COFINS
LEFT JOIN VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'L', 'S', 'VI') CSLL ON (1 = 1)
LEFT JOIN VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'S', 'S', 'VI') PIS ON (1 = 1)) PISCOFINS, COALESCE(NULLIF(TRIM(RNV.O_NM_VENDEDORES), ''), PV.NM_PESSOA) NM_VENDEDORES, NF.NR_RPS NR_RPSNOTA
FROM NOTA N
LEFT JOIN VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'N', 'S', 'VI') INSS ON (1 = 1)
LEFT JOIN VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'J', 'S', 'VI') IRRF ON (1 = 1)
LEFT JOIN VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'Q', 'S', 'VI') ISS ON (1 = 1)
LEFT JOIN NFSE NF ON (NF.CD_EMPRESA = N.CD_EMPRESA
  AND NF.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NF.TP_NOTA = N.TP_NOTA
  AND NF.CD_SERIE = N.CD_SERIE)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = N.CD_VENDEDOR)
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
INNER JOIN EMPRESA EM ON (EM.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN CONFIGNFSE CN ON (CN.CD_EMPRESA = EM.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = EM.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA RPE ON (RPE.CD_PESSOA = PE.CD_PESSOA
  AND RPE.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(PE.CD_PESSOA, NULL)))
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 MUNICIPIO MC ON (RPE.CD_MUNICIPIO = MC.CD_MUNICIPIO)
LEFT JOIN RETORNA_LINHAS(:QT_VIAS) RE ON (1 = 1)
INNER JOIN FORMAPAGTO FP ON (FP.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
INNER JOIN CONDPAGTO CP ON (CP.CD_CONDPAGTO = N.CD_CONDPAGTO)
LEFT JOIN RETORNA_VENDEDORESNOTA(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA) RNV 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 QT_VIAS CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE NR_NOTAFISCAL NR_CONTROLEINTERNO CD_AUTENTICACAO "NFSE"."CD_AUTENTICACAO" DH_EMISSAO "NOTA"."DT_EMISSAO" O_NR_LINHA "RETORNA_LINHAS"."O_NR_LINHA" NR_INSCMUNICIPAL "EMPRESA"."NR_INSCMUNICIPAL" FONEEMPRESA "ENDERECOPESSOA"."NR_FONE" CD_CONDPAGTO "NOTA"."CD_CONDPAGTO" CD_FORMAPAGTO "NOTA"."CD_FORMAPAGTO" DS_CONDPAGTO "CONDPAGTO"."DS_CONDPAGTO" DS_FORMAPAGTO "FORMAPAGTO"."DS_FORMAPAGTO" NR_RPS DT_RPS "NOTA"."DT_EMISSAO" NR_CNPJCPF "PESSOA"."NR_CNPJCPF" CD_PESSOA "NOTA"."CD_PESSOA" CNPJTOMADOR "PESSOA"."NR_CNPJCPF" NM_TOMADOR "PESSOA"."NM_PESSOA" ENDERECOTOMADOR DS_EMAIL "PESSOA"."DS_EMAIL" DS_SITE "PESSOA"."DS_SITE" VL_TOTALNOTA VL_DESCONTO VL_LAUDONOTA CNPJPRESTADOR "PESSOA"."NR_CNPJCPF" NM_PRESTADOR NR_FONEPRESTADOR "ENDERECOPESSOA"."NR_FONE" DS_ENDERECOPRESTADOR EMAIL_PRESTADOR "PESSOA"."DS_EMAIL" CD_EMPRESA "NOTA"."CD_EMPRESA" NR_LANCAMENTO "NOTA"."NR_LANCAMENTO" TP_NOTA "NOTA"."TP_NOTA" CD_SERIE "NOTA"."CD_SERIE" NM_VENDEDOR "PESSOA"."NM_PESSOA" DS_OBSERVACAO "NOTA"."DS_OBSNOTA" DS_LOGOTIPO "CONFIGNFSE"."DS_LOGOTIPO" DS_RECEBIMENTO VL_CONTABIL "NOTA"."VL_CONTABIL" VLINSS "VALOR_IMPOSTO"."V_VL_IMPOSTO" VLIRRF "VALOR_IMPOSTO"."V_VL_IMPOSTO" VLISS "VALOR_IMPOSTO"."V_VL_IMPOSTO" PISCOFINS NM_VENDEDORES VL_DESC_RECUSADO VL_CONSERTODADO NR_RPSNOTA "NFSE"."NR_RPS" DBSub1 ppDB CD_EMPRESA;NR_LANCAMENTO;CD_SERIE;TP_NOTA
SELECT o_nr_dot, o_ds_marcapneu, o_nr_fogo, ds_quebra, stexamefinal, cd_item, ds_item, qt_pneu, vl_unitario, vl_total, vl_naocobrado, vl_liquido, o_nr_serie, o_ds_modelopneu, o_qt_pneu, cast(substring(o_ds_obsitem
FROM 1 for 32000) as varchar(32000)) o_ds_obsitem
FROM retorna_servicoslnf228(:cd_empresa, :nr_lancamento, :cd_serie, :tp_nota) CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA CD_EMPRESA;NR_LANCAMENTO;CD_SERIE;TP_NOTA;CD_PESSOA
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, 12, '1') CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA CD_PESSOA V_NR_LANCAMENTO "RETORNA_CONTAS"."V_NR_LANCAMENTO" V_NR_DOCUMENTO "RETORNA_CONTAS"."V_NR_DOCUMENTO" V_NR_PARCELA "RETORNA_CONTAS"."V_NR_PARCELA" V_VL_DOCUMENTO "RETORNA_CONTAS"."V_VL_DOCUMENTO" V_DT_VENCIMENTO "RETORNA_CONTAS"."V_DT_VENCIMENTO" DBSub2 ppDB V_NR_LANCAMENTO V_NR_LANCAMENTO V_NR_DOCUMENTO V_NR_DOCUMENTO V_NR_PARCELA V_NR_PARCELA V_VL_DOCUMENTO V_VL_DOCUMENTO V_DT_VENCIMENTO V_DT_VENCIMENTO Default Impressão de Nota Fiscal Custom Default D:\Desenvolvimento\JunsoftERP\dist\Módulos\LNF228.rtm ($MyDocuments)\ReportArchive.raf Printer PDF PDF SMTP http://localhost http://localhost Default ReportBuilder ReportBuilder Arial Report ($MyDocuments)\Report.pdf <Texto a localizar> ReportBuilder ReportBuilder Report Report Report http://localhost http://localhost http://localhost 23.0 ppDB Label3 2 Arial Label4 <-- QUANTIDADES DE VIAS DO LAYOUT Arial Label5 Não deletar os campos acima Arial SubReport1 ppDBSub1 Default Impressão de Nota Fiscal Custom Default 23.0 ppDBSub1 edtO_VL_LIQUIDO VL_TOTAL #,0.00 Draft 20cpi ppDBSub1 edtDS_ITEM DS_ITEM Draft 20cpi ppDBSub1 edtO_QT_ITEM QT_PNEU ##,###,###,##0.00 Draft 20cpi ppDBSub1 edtO_VL_UNITARIO VL_UNITARIO #,0.00 Draft 20cpi ppDBSub1 edtO_VL_DESCONTO VL_NAOCOBRADO #,0.00 Draft 20cpi ppDBSub1 edtO_DS_OBSITEM O_DS_OBSITEM Arial ppDBSub1 Shape13 lblDS_CONDPAGTO Cond. Pagto Arial lblVL_CONTABIL Total Liquido RPS Arial edtDS_CONDPAGTO DS_CONDPAGTO Arial ppDB lblDS_FORMAPAGTO Forma Pgto Arial edtDS_FORMAPAGTO DS_FORMAPAGTO Arial ppDB edtVL_CONTABIL VL_CONTABIL #,0.00 Arial ppDB lblVL_TOTALNOTA Total Geral RPS Arial edtVL_TOTALNOTA VL_TOTALNOTA #,0.00 Arial ppDB lblVLISS ISS Retido Arial edtVLISS VLISS #,0.00 Arial ppDB edtVLINSS VLINSS #,0.00 Arial ppDB lblVLINSS INSS Retido Arial lblPISCOFINS Desconto de Laudo Arial edtPISCOFINS VL_LAUDONOTA #,0.00 Arial ppDB lblVL_DESCONTO Total de Desconto Arial edtVL_DESCONTO VL_DESCONTO #,0.00 Arial ppDB edtO_QT_PNEU O_QT_PNEU Qtde Pneu.: ######### Draft 20cpi ppDBSub1 edtO_DS_DESENHO O_DS_DESENHO Draft 20cpi ppDBSub1 edtO_NR_SERIE O_NR_SERIE Draft 20cpi ppDBSub1 DBCalc1 VL_TOTAL #,0.00 Draft 20cpi ppDBSub1 DS_QUEBRA Group3 ppDBSub1 edtO_NR_FOGO O_NR_FOGO Draft 20cpi ppDBSub1 edtO_DS_MARCAPNEU O_DS_MARCAPNEU Draft 20cpi ppDBSub1 edtO_NR_DOT O_NR_DOT Draft 20cpi ppDBSub1 Foreground O_NR_LINHA Group1 ppDB Shape1 Shape3 Line1 Shape2 edtDS_RECEBIMENTO DS_RECEBIMENTO Arial ppDB lblNR_NFSE NFS-e Arial edtNR_NFSE NR_NOTAFISCAL #0000 Arial ppDB Label2 Data de Recebimento Arial Label1 Identificação e Assinatura do Recebedor Arial Shape18 Shape21 Image2 Label6 Prefeitura do Municipio de Maringá Arial Label7 Secretaria Municipal da Fazenda Arial Label8 Documento Auxiliar de Nota Fiscal de Serviço Eletrônica Arial lblNR_NOTAFISCAL Número Arial lblCD_AUTENTICACAO Código Verificador Arial lblDH_EMISSAO Emitido em Arial edtDH_EMISSAO DH_EMISSAO Arial ppDB edtCD_AUTENTICACAO CD_AUTENTICACAO Arial ppDB edtNR_NOTAFISCAL NR_NOTAFISCAL Arial ppDB lblNR_RPS RPS N° Arial edtNR_RPS NR_RPS #0000 Arial ppDB lblDT_RPS Data RPS: Arial edtDT_RPS DT_RPS dd/MM/yyyy Arial ppDB Shape4 Shape12 Shape101 Shape17 Shape19 Shape22 Label40 Prestador de Serviços Arial Label46 Tomador de Serviços Arial Label51 Descrição de Serviços Arial lblO_QT_ITEM Qtde Arial lblDS_ITEM Serviço Arial lblO_VL_UNITARIO Valor Unitário Arial lblO_VL_DESCONTO Valor Desconto Arial lblO_VL_LIQUIDO Total Liquido Arial lblCNPJTOMADOR CNPJ: Arial edtCNPJTOMADOR CNPJTOMADOR Arial ppDB lblNR_INSCMUNICIPAL Inscrição Municipal: Arial edtNR_INSCMUNICIPAL NR_INSCMUNICIPAL Arial ppDB lblNM_TOMADOR Razão Social: Arial edtNM_TOMADOR NM_TOMADOR Arial ppDB lblENDERECOTOMADOR Endereço: Arial edtENDERECOTOMADOR ENDERECOTOMADOR Arial ppDB lblNM_VENDEDOR Vendedor: Arial edtNM_VENDEDOR NM_VENDEDOR Arial ppDB lblFONEEMPRESA Fone: Arial edtFONEEMPRESA FONEEMPRESA Arial ppDB lblCNPJPRESTADOR CPF/CNPJ: Arial lblNM_PRESTADOR Razão Social: Arial lblDS_ENDERECOPRESTADOR Endereço: Arial lblEMAIL_PRESTADOR E-mail.: Arial lblNR_FONEPRESTADOR Fone: Arial edtCNPJPRESTADOR CNPJPRESTADOR Arial ppDB edtNM_PRESTADOR NM_PRESTADOR Arial ppDB edtDS_ENDERECOPRESTADOR DS_ENDERECOPRESTADOR Arial ppDB edtEMAIL_PRESTADOR EMAIL_PRESTADOR Arial ppDB edtNR_FONEPRESTADOR NR_FONEPRESTADOR Arial ppDB Shape5 Region1 SubReport2 ppDBSub2 Default Impressão de Nota Fiscal Custom Default 23.0 ppDBSub2 edtV_DT_VENCIMENTO V_DT_VENCIMENTO dd/MM/yyyy Arial ppDBSub2 edtV_VL_DOCUMENTO V_VL_DOCUMENTO #,0.00 Arial ppDBSub2 Foreground1 edtDS_OBSERVACAO DS_OBSERVACAO Arial ppDB Foreground2
SELECT PF.DS_LOGOTIPO, E.NM_EMPRESA RAZAO_SOCIAL_EMP, N.DT_EMISSAO, COALESCE(N.NR_NOTAFOR, N.NR_NOTAFISCAL) NR_NOTAFISCAL, PC.CD_PESSOA, PC.NM_PESSOA RAZAO_SOCIAL_PES, PC.NM_FANTASIA, PC.NM_PESSOA||COALESCE(' - '||PC.NM_FANTASIA, '') NM_PESSOA, OPR.ID NR_PNEU, MEP.DSMEDIDAPNEU DS_MEDIDA, PN.NRSERIE NR_MATRICULA, PN.NRFOGO NR_FOGO, COALESCE(IPP.QTREFORMAS, 0) QT_RECAPES, MOP.DSMOTIVO DS_MOTIVO, IIF(NF.CD_AUTENTICACAO IS NOT NULL, N.NR_NOTAFISCAL, N.NR_LANCAMENTO) NR_LANCTONOTA, --
SELECT TOTAL-- --COUNT(DISTINCT OPR.ID) QT_TOTPNEUS (
SELECT COUNT(DISTINCT OPR.ID)
FROM NOTA N
INNER JOIN NFSE NF ON (NF.CD_EMPRESA = N.CD_EMPRESA
  AND NF.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NF.TP_NOTA = N.TP_NOTA
  AND NF.CD_SERIE = N.CD_SERIE)
INNER JOIN ITEMNOTA ITN ON (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)
INNER JOIN ITEM I ON (I.CD_ITEM = ITN.CD_ITEM)
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = N.CD_PESSOA)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA)
LEFT JOIN RETORNA_CHAVEPEDIDO(ITN.CD_EMPRESA, ITN.NR_LANCAMENTO, ITN.TP_NOTA, ITN.CD_SERIE) CHP ON (ITN.CD_ITEM = CHP.O_CD_ITEM)
INNER JOIN PLUGORDRECAPPEDIDO POP ON (POP.CD_EMPRESA = CHP.O_CD_EMPRESA
  AND POP.NR_PEDIDO = CHP.O_NR_PEDIDO
  AND POP.TP_PEDIDO = CHP.O_TP_PEDIDO)
INNER JOIN ORDEMPRODUCAORECAP OPR ON (OPR.ID = POP.IDORDEMPRODUCAORECAP)
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 OPR.STEXAMEFINAL = 'R' ) QT_TOTPNEUS
FROM NOTA N
LEFT JOIN NFSE NF ON (NF.CD_EMPRESA = N.CD_EMPRESA
  AND NF.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NF.TP_NOTA = N.TP_NOTA
  AND NF.CD_SERIE = N.CD_SERIE)
INNER JOIN ITEMNOTA ITN ON (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)
INNER JOIN ITEM I ON (I.CD_ITEM = ITN.CD_ITEM)
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = N.CD_PESSOA)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA)
LEFT JOIN RETORNA_CHAVEPEDIDO(ITN.CD_EMPRESA, ITN.NR_LANCAMENTO, ITN.TP_NOTA, ITN.CD_SERIE) CHP ON (ITN.CD_ITEM = CHP.O_CD_ITEM)
INNER JOIN PLUGORDRECAPPEDIDO POP ON (POP.CD_EMPRESA = CHP.O_CD_EMPRESA
  AND POP.NR_PEDIDO = CHP.O_NR_PEDIDO
  AND POP.TP_PEDIDO = CHP.O_TP_PEDIDO)
INNER JOIN ORDEMPRODUCAORECAP OPR ON (OPR.ID = POP.IDORDEMPRODUCAORECAP)
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU)
INNER JOIN PNEU PN ON (PN.ID = IPP.IDPNEU)
INNER JOIN MEDIDAPNEU MEP ON (MEP.ID = PN.IDMEDIDAPNEU)
INNER JOIN LAUDOTECNICOPNEURECAP LT ON (LT.IDITEMPEDIDOPNEUORIGEM = OPR.IDITEMPEDIDOPNEU)
INNER JOIN MOTIVOLAUDO MP ON (MP.IDLAUDOTECNICO = LT.ID)
INNER JOIN MOTIVOPNEU MOP ON (MOP.ID = MP.ID_MOTIVO)
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 OPR.STEXAMEFINAL <> 'A'
  AND N.TP_NOTA = :TP_NOTA
  AND N.CD_SERIE = :CD_SERIE
  AND OPR.STEXAMEFINAL <> 'A' CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE TP_NOTA CD_SERIE DBSub3 Default Impressão de Nota Fiscal Custom Default D:\Desenvolvimento\JunsoftERP\dist\Módulos\LNF228_R.rtm ($MyDocuments)\ReportArchive.raf Printer PDF PDF SMTP http://localhost http://localhost Default ReportBuilder ReportBuilder Arial Report ($MyDocuments)\Report.pdf <Texto a localizar> ReportBuilder ReportBuilder Report Report Report http://localhost http://localhost http://localhost 23.0 ppDBSub3 Shape1 imgDS_LOGOTIPO1 DS_LOGOTIPO Bitmap ppDBSub3 lblPNEUSRECUSADOS Pneus Recusados - Por N.F. Saída Arial edtRAZAO_SOCIAL_EMP RAZAO_SOCIAL_EMP Arial ppDBSub3 edtNR_PNEU NR_PNEU Arial ppDBSub3 edtDS_MEDIDA DS_MEDIDA Arial ppDBSub3 edtNR_MATRICULA NR_MATRICULA Arial ppDBSub3 edtNR_FOGO NR_FOGO Arial ppDBSub3 edtQT_RECAPES QT_RECAPES Arial ppDBSub3 edtDT_EMISSAO DT_EMISSAO Arial ppDBSub3 edtDS_MOTIVO DS_MOTIVO Arial ppDBSub3 NR_NOTAFISCAL Group1 ppDBSub3 lblNR_NFSAIDA NF Saída: Arial edtNR_NFSAIDA NR_NOTAFISCAL Arial ppDBSub3 Line1 lblCD_PESSOA Cliente: Arial edtRAZAO_SOCIAL_PES NM_PESSOA Arial ppDBSub3 Line2 lblNR_PNEU N° Pneu Arial Line3 lblDS_MEDIDA Medida Arial lblNR_MATRICULA Matricula Arial lblNR_FOGO N° Fogo Arial lblQT_RECAPES N° Recape Arial lblDT_EMISSAO Dt. NF Saída Arial lblDS_MOTIVO Descrição do Dano Arial edtCD_PESSOA CD_PESSOA Arial ppDBSub3 lblQT_RECAPES_CLIENTE1 Total de Pneus do Cliente..................: Arial lblQT_RECAPES_NOTA1 Total de Pneus da Nota..........................: Arial lblQT_RECAPES_CLIENTE2 Pneu(s) Arial lblQT_RECAPES_NOTA2 Pneu(s) Arial Line4 Line6 Line15 edtNR_FOGO1 QT_TOTPNEUS Arial ppDBSub3 edtQT_TOTPNEUS2 QT_TOTPNEUS Arial ppDBSub3 Foreground3

Consulta​

SELECT COUNT(1) {#10}
FROM ITEMNOTA ITN {#10}
LEFT JOIN RETORNA_CHAVEPEDIDO(ITN.CD_EMPRESA, ITN.NR_LANCAMENTO, ITN.TP_NOTA, ITN.CD_SERIE) CHP ON (ITN.CD_ITEM = CHP.O_CD_ITEM) {#10}
INNER JOIN PLUGORDRECAPPEDIDO POP ON (POP.CD_EMPRESA = CHP.O_CD_EMPRESA {#10}
  AND POP.NR_PEDIDO = CHP.O_NR_PEDIDO {#10}
  AND POP.TP_PEDIDO = CHP.O_TP_PEDIDO) {#10}
INNER JOIN ORDEMPRODUCAORECAP OPR ON (OPR.ID = POP.IDORDEMPRODUCAORECAP) {#10}
INNER JOIN EXAMEINICIAL EI ON (EI.IDORDEMPRODUCAORECAP = OPR.ID) {#10}
INNER JOIN MOTIVORECUSAEXAME MRE ON (MRE.IDEXAMEINICIAL = EI.ID) {#10}
INNER JOIN MOTIVOPNEU MOP ON (MOP.ID = MRE.IDMOTIVO) {#10}
WHERE ITN.CD_EMPRESA = {Nulo(Parametros[1],}I{) + #10}
  AND ITN.NR_LANCAMENTO = {Nulo(Parametros[2],}I{) + #10}
  AND ITN.TP_NOTA = {Nulo(Parametros[3],}S{) + #10}
  AND ITN.CD_SERIE = {Nulo(Parametros[4],}S{)}

Tabelas Utilizadas​

TabelaUso
CONDPAGTOreferenciada nas queries do layout
CONFIGNFSEreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
EXAMEINICIALreferenciada nas queries do layout
FORMAPAGTOreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ITEMNOTAreferenciada nas queries do layout
ITEMPEDIDOPNEUreferenciada nas queries do layout
ITEMRECAPFATURreferenciada nas queries do layout
LAUDORECAPDESCNOTAreferenciada nas queries do layout
LAUDOTECNICOPNEURECAPreferenciada nas queries do layout
MEDIDAPNEUreferenciada nas queries do layout
MOTIVOLAUDOreferenciada nas queries do layout
MOTIVOPNEUreferenciada nas queries do layout
MOTIVORECUSAEXAMEreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
NFSEreferenciada nas queries do layout
NOTAreferenciada nas queries do layout
ORDEMCARREGRECAPreferenciada nas queries do layout
ORDEMPRODUCAORECAPreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PLUGORDRECAPPEDIDOreferenciada nas queries do layout
PNEUreferenciada nas queries do layout
RETORNA_CHAVEPEDIDOreferenciada nas queries do layout
RETORNA_CONTASreferenciada nas queries do layout
RETORNA_ENDERECOreferenciada nas queries do layout
RETORNA_LINHASreferenciada nas queries do layout
[[RETORNA_SERVICOSLNF228]]referenciada nas queries do layout
RETORNA_VENDEDORESNOTAreferenciada nas queries do layout
VALOR_IMPOSTOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LNF228/ULNF228.pas
  • DFM: source/LNF228/ULNF228.dfm
  • Package: source/LNF228/LNF228.dpk