LNF107 — Listagem LNF107

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 ITEMNOTA, PESSOA, ENDERECOPESSOA, MUNICIPIO, CONTAS, CONDPAGTO (+13), filtrada por CD_EMPRESA, NR_LANCAMENTO, TP_NOTA, CD_SERIE.

Chamada

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

SQL Base

`Nota`

SELECT distinct COALESCE(V.NM_PESSOA||' - '||N.CD_VENDEDOR,'Sem Vendedor') NM_VENDEDOR, P.NM_PESSOA||' - '||N.CD_PESSOA NM_PESSOA, N.DT_EMISSAO, M.DS_MUNICIPIO||' - '||M.SG_ESTADO DS_MUNICIPIO, --C.DT_VENCIMENTO + 7 DT_VENCTO, C.NR_DOCUMENTO NR_DOCTO, CAST(((C.VL_DOCUMENTO * coalesce(I.PC_COMISSAO,0)) / 100) AS NUMERIC(15,2)) VL_COMISSAO, (
SELECT O_VALOR
FROM VALOR_EXTENSO(CAST(((C.VL_DOCUMENTO * coalesce(I.PC_COMISSAO,0)) / 100) AS NUMERIC(15,2)))) VL_EXTENSO, MAX(PE.NR_ORDEMSERVICO) NR_ORDEM, MAX(MA.DS_MAQUINA) DS_MAQUINA, CP.DS_CONDPAGTO, N.CD_CONDPAGTO, O.PC_COMISSAOVEND, O.PC_COMISSAOPECAVEND, O.PC_COMISSAOMEC, O.PC_COMISSAOPECAMEC, O.CD_MECANICA, MEC.NM_PESSOA NM_MECANICA, O.CD_PLATAFORMAVEICULO||' - '||PL.DS_PLATAFORMAVEICULO DS_PLATAFORMAVEICULO
FROM NOTA N
INNER JOIN ITEMNOTA I ON (I.CD_EMPRESA = N.CD_EMPRESA
  AND I.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND I.CD_SERIE = N.CD_SERIE
  AND I.TP_NOTA = N.TP_NOTA)
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA E ON (E.CD_PESSOA = N.CD_PESSOA
  AND E.CD_ENDERECO = N.CD_ENDERECO)
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = E.CD_MUNICIPIO)
INNER JOIN CONTAS C ON (C.CD_EMPRESA = N.CD_EMPRESA
  AND C.NR_LANCTONOTA = N.NR_LANCAMENTO
  AND C.CD_SERIE = N.CD_SERIE
  AND C.TP_CONTAS = N.TP_NOTA
  AND C.CD_PESSOA = N.CD_PESSOA)
INNER JOIN CONDPAGTO CP ON (CP.CD_CONDPAGTO = N.CD_CONDPAGTO)
LEFT JOIN PESSOA V ON (N.CD_VENDEDOR = V.CD_PESSOA)
LEFT JOIN PEDIDONOTA PN ON (PN.CD_EMPRESA = I.CD_EMPRESA
  AND PN.NR_LANCAMENTO = I.NR_LANCAMENTO
  AND PN.CD_SERIE = I.CD_SERIE
  AND PN.TP_NOTA = I.TP_NOTA
  AND PN.CD_ITEM = I.CD_ITEM)
LEFT JOIN PEDIDO PE ON (PE.CD_EMPRESA = PN.CD_EMPRPED
  AND PE.NR_PEDIDO = PN.NR_PEDIDO
  AND PE.TP_PEDIDO = PN.TP_PEDIDO)
LEFT JOIN ORDEMSERVICO O ON (O.CD_EMPRESA = PE.CD_EMPRORDEM
  AND O.NR_ORDEMSERVICO = PE.NR_ORDEMSERVICO)
LEFT JOIN MAQUINA MA ON (MA.NR_SERIEMAQUINA = O.NR_SERIEMAQUINA)
LEFT JOIN PESSOA MEC ON(MEC.CD_PESSOA = O.CD_MECANICA)
LEFT JOIN PLATAFORMAVEICULO PL ON(PL.CD_PLATAFORMAVEICULO = O.CD_PLATAFORMAVEICULO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_LANCAMENTO = :NR_LANCAMENTO
  AND N.TP_NOTA = :TP_NOTA
  AND N.CD_SERIE = :CD_SERIE
GROUP BY V.NM_PESSOA, N.CD_VENDEDOR, P.NM_PESSOA, N.CD_PESSOA, N.DT_EMISSAO, M.DS_MUNICIPIO, M.SG_ESTADO, C.DT_VENCIMENTO, C.NR_DOCUMENTO, C.NR_PARCELA, C.VL_DOCUMENTO, I.PC_COMISSAO, CP.DS_CONDPAGTO, N.CD_CONDPAGTO, O.PC_COMISSAOVEND, O.PC_COMISSAOPECAVEND, O.PC_COMISSAOMEC, O.PC_COMISSAOPECAMEC, O.CD_MECANICA, MEC.NM_PESSOA, O.CD_PLATAFORMAVEICULO||' - '||PL.DS_PLATAFORMAVEICULO CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE NM_VENDEDOR NM_PESSOA DT_EMISSAO "NOTA"."DT_EMISSAO" DS_MUNICIPIO VL_COMISSAO VL_EXTENSO NR_ORDEM DS_MAQUINA DS_CONDPAGTO "CONDPAGTO"."DS_CONDPAGTO" PC_COMISSAOVEND "ORDEMSERVICO"."PC_COMISSAOVEND" PC_COMISSAOPECAVEND "ORDEMSERVICO"."PC_COMISSAOPECAVEND" PC_COMISSAOMEC "ORDEMSERVICO"."PC_COMISSAOMEC" PC_COMISSAOPECAMEC "ORDEMSERVICO"."PC_COMISSAOPECAMEC" CD_MECANICA "ORDEMSERVICO"."CD_MECANICA" NM_MECANICA DS_PLATAFORMAVEICULO NR_DOCTO CD_CONDPAGTO Default Impressão de Duplicata Custom Default J:\Sistema\Módulos\LNF020.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 ppDBSub1 Label14 O R D E M D E C R E D I T O Draft 12cpi Line4 Line5 edtDS_NATUREZA1 NM_VENDEDOR Draft 12cpi ppDB edtNM_PESSOA1 NM_PESSOA Draft 12cpi ppDB edtNR_CNPJCPF2 NR_DOCTO Draft 12cpi ppDB edtDT_EMISSAO1 DT_EMISSAO dd/mm/yyyy Draft 12cpi ppDB edtDS_BAIRRO1 VL_COMISSAO #,0.00 Draft 12cpi ppDBSub1 edtDS_ENDERECO2 DS_MUNICIPIO Draft 12cpi ppDB edtDT_VENCIMENTO1 DT_VENCIMENTO dd/mm/yyyy Draft 12cpi ppDBSub1 Label15 CREDOR.: Draft 12cpi Label16 CLIENTE.: Draft 12cpi Label17 CIDADE.: Draft 12cpi Label18 VENCIMENTO.: Draft 12cpi Label19 DUPLICATA.: Draft 12cpi Label20 VALOR.: Draft 12cpi Label21 DATA DE EMISSAO.: Draft 12cpi DBMemo2 VL_EXTENSO Draft 12cpi ppDBSub1 Label22 O Pagamento do valor acima só será efetuado após o recebimento da duplicata. Draft 12cpi Line6 Label101 Assinatura Draft 12cpi Label24 VALOR EXTENSO.: Draft 12cpi Label25 Nº O.S.: Draft 12cpi DBText10 NR_ORDEM Draft 12cpi ppDB Label26 PLATAFORMA.: Draft 12cpi DBText11 DS_PLATAFORMAVEICULO Draft 12cpi ppDB DBText101 DS_CONDPAGTO Draft 12cpi ppDB lblVL_COMVEND lblVL_COMVEND Draft 12cpi lblVL_EXTVEND lblVL_EXTVEND Draft 12cpi Foreground
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,'')) 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, '8', 80)),' ') DS_OBSNOTA, (
SELECT SUM(NI.VL_TOTAL - COALESCE(NI.VL_DESCONTO,0))
FROM ITEMNOTA NI
INNER JOIN ITEM IT ON(IT.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 IT.TP_ITEM <> 'S') 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, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'Q', null, 'VI')) VL_ISS, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'Q', null, 'BI')) VL_BASEISS, (
SELECT V_PC_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, NULL, 'Q', null, 'VI')) PC_ISS, (
SELECT O_VALOR
FROM VALOR_EXTENSO(N.VL_NOTAFISCAL)) VL_EXTENSO, (
SELECT SUM(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_DESCPROD, (
SELECT SUM(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_DESCSERV
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, NCM.SG_NCM, N.CD_CFO, N.CD_OBSFISCAL, M.DS_NATUREZA, N.PC_ICMS, N.PC_IPI, O.DS_OBSFISCAL, (
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, (
SELECT V_VL_IMPOSTO
FROM VALOR_IMPOSTO(N.CD_EMPRESA, N.NR_LANCAMENTO, N.CD_SERIE, N.TP_NOTA, N.CD_ITEM, 'I', 'N', 'DI')) VL_DESCIMPOSTO, (
SELECT FIRST 1 'NOME TECNICO: '||R.DS_NOMETECNICO||' REG MA: '||R.NR_REGISTRO||' CL TOXICOLOGICA: '||R.CD_CLASSETOXICO||' FORMUL: '||R.DS_FORMULACAO
FROM ITEMRECEITA R
WHERE R.CD_ITEM = N.CD_ITEM) DS_RECEITA
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)
LEFT JOIN OBSFISCAL O ON (O.CD_OBSFISCAL = N.CD_OBSFISCAL)
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 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, 8, '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, N.CD_CFO, M.DS_NATUREZA, COALESCE(N.DS_SERVICO,I.DS_ITEM) DS_ITEM, N.VL_TOTAL, N.VL_DESCONTO, (
SELECT SUM(NI.VL_TOTAL)
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
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
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 DISTINCT N.CD_CFO
FROM ITEMNOTA N
INNER JOIN ITEM I ON (COALESCE(N.CD_ITEMSIMILAR,N.CD_ITEM) = I.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 CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE Default Impressão de Duplicata Custom Default J:\Sistema\Módulos\LNF020.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 ppDBSub2 Label14 O R D E M D E C R E D I T O Draft 12cpi Line4 Line5 edtDS_NATUREZA1 NM_MECANICA Draft 12cpi ppDB edtNM_PESSOA1 NM_PESSOA Draft 12cpi ppDB edtNR_CNPJCPF2 NR_DOCTO Draft 12cpi ppDB edtDT_EMISSAO1 DT_EMISSAO dd/mm/yyyy Draft 12cpi ppDB edtDS_BAIRRO1 VL_COMISSAO #,0.00 Draft 12cpi ppDBSub2 edtDS_ENDERECO2 DS_MUNICIPIO Draft 12cpi ppDB edtDT_VENCIMENTO1 DT_VENCIMENTO dd/mm/yyyy Draft 12cpi ppDBSub2 Label15 CREDOR.: Draft 12cpi Label16 CLIENTE.: Draft 12cpi Label17 CIDADE.: Draft 12cpi Label18 VENCIMENTO.: Draft 12cpi Label19 DUPLICATA.: Draft 12cpi Label20 VALOR.: Draft 12cpi Label21 DATA DE EMISSAO.: Draft 12cpi DBMemo2 VL_EXTENSO Draft 12cpi ppDBSub2 Label22 O Pagamento do valor acima só será efetuado após o recebimento da duplicata. Draft 12cpi Line6 Label101 Assinatura Draft 12cpi Label24 VALOR EXTENSO.: Draft 12cpi Label25 Nº O.S.: Draft 12cpi DBText10 NR_ORDEM Draft 12cpi ppDB Label26 PLATAFORMA.: Draft 12cpi DBText11 DS_PLATAFORMAVEICULO Draft 12cpi ppDB DBText101 DS_CONDPAGTO Draft 12cpi ppDB lblVL_EXTMEC lblVL_EXTMEC Draft 12cpi lblVL_COMMEC lblVL_COMMEC Draft 12cpi Foreground1
SELECT COALESCE(N.DT_VENCIMENTO + 5, COALESCE(T.DT_VENCIMENTO + 5, T.DT_EMISSAO + 5)) DT_VENCIMENTO
FROM NOTA T
LEFT JOIN PARCELANOTA N ON (N.CD_EMPRESA = T.CD_EMPRESA
  AND N.NR_LANCAMENTO = T.NR_LANCAMENTO
  AND N.TP_NOTA = T.TP_NOTA
  AND N.CD_SERIE = T.CD_SERIE)
WHERE T.CD_EMPRESA = :CD_EMPRESA
  AND T.NR_LANCAMENTO = :NR_LANCAMENTO
  AND T.TP_NOTA = :TP_NOTA
  AND T.CD_SERIE = :CD_SERIE CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE DT_VENCIMENTO DBSub1 DT_VENCIMENTO DT_VENCIMENTO
SELECT COALESCE(N.DT_VENCIMENTO + 5, COALESCE(T.DT_VENCIMENTO + 5, T.DT_EMISSAO + 5)) DT_VENCIMENTO
FROM NOTA T
LEFT JOIN PARCELANOTA N ON (N.CD_EMPRESA = T.CD_EMPRESA
  AND N.NR_LANCAMENTO = T.NR_LANCAMENTO
  AND N.TP_NOTA = T.TP_NOTA
  AND N.CD_SERIE = T.CD_SERIE)
WHERE T.CD_EMPRESA = :CD_EMPRESA
  AND T.NR_LANCAMENTO = :NR_LANCAMENTO
  AND T.TP_NOTA = :TP_NOTA
  AND T.CD_SERIE = :CD_SERIE CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE DT_VENCIMENTO DBSub2 DT_VENCIMENTO DT_VENCIMENTO

`Consulta #1`

SELECT COUNT(PN.NR_PARCELA)
FROM PARCELANOTA PN
WHERE PN.CD_EMPRESA = {Parametros[1]}
  AND PN.NR_LANCAMENTO = {Parametros[2]}
  AND PN.TP_NOTA = {QuotedStr(Parametros[3])}

`sql #1`

SELECT O_VALOR
FROM VALOR_EXTENSO({Nulo(FloatToStr(VL_COMISSAOMEC),}F{)})

`sql #2`

SELECT O_VALOR
FROM VALOR_EXTENSO({Nulo(FloatToStr(VL_COMISSAOVEND),}F{)})

`Consulta #2`

SELECT COALESCE(ST_COMISSAOTERCEIROS,'S'), COALESCE(ST_CALCULOCOMISSAO,'S')
FROM PARMOFICINA
WHERE CD_EMPRESA = {IntToStr(sessao.empresa.cd_Empresa)}

`Consulta #3`

SELECT COALESCE(SUM(S.VL_TOTAL), 0), COALESCE(SUM(S.VL_DESCONTO), 0)
FROM SERVICOITEM S
WHERE S.CD_EMPRESA = {IntToStr(sessao.empresa.cd_Empresa)}
  AND S.NR_ORDEMSERVICO = {frmLNF107.Nota.fieldByName(}NR_ORDEM{).AsString}

`Consulta #4`

SELECT COALESCE(SUM(S.VL_TOTAL), 0), COALESCE(SUM(S.VL_DESCONTO), 0)
FROM ORDEMSERVITEM S {
WHERE}

Tabelas Utilizadas

Tabela	Uso
`CONDPAGTO`	referenciada nas queries do layout
`CONTAS`	referenciada nas queries do layout
`EMBARQUE`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`ENDERECOPESSOA`	referenciada nas queries do layout
`HABILITA_PESOQTDE`	referenciada nas queries do layout
`ITEM`	referenciada nas queries do layout
`ITEMNOTA`	referenciada nas queries do layout
`ITEMNOTASEMENTE`	referenciada nas queries do layout
`ITEMRECEITA`	referenciada nas queries do layout
`LOTESEMENTE`	referenciada nas queries do layout
`MAQUINA`	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
`OBSFISCAL`	referenciada nas queries do layout
`ORDEMSERVICO`	referenciada nas queries do layout
`ORDEMSERVITEM`	referenciada nas queries do layout
`PARCELANOTA`	referenciada nas queries do layout
`PARMOFICINA`	referenciada nas queries do layout
`PEDIDO`	referenciada nas queries do layout
`PEDIDONOTA`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`PLATAFORMAVEICULO`	referenciada nas queries do layout
`RETORNA_CONTAS`	referenciada nas queries do layout
`RETORNA_OBSNOTA`	referenciada nas queries do layout
`SERVICOITEM`	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/LNF107/ULNF107.pas
DFM: source/LNF107/ULNF107.dfm
Package: source/LNF107/LNF107.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Nota​

Consulta #1​

sql #1​

sql #2​

Consulta #2​

Consulta #3​

Consulta #4​

Tabelas Utilizadas​

Shared Units​

Fonte​