Pular para o conteúdo principal

LNF233 — Listagem LNF233

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 CONTAS, filtrada por CD_EMPRESA, NR_LANCTONOTA, TP_CONTAS, CD_SERIE, ST_CONTAS.

Chamada​

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

SQL Base​

tabCondPagto​

SELECT N.DT_VENCIMENTO, N.DT_LANCAMENTO, N.NR_PARCELA
FROM CONTAS N
WHERE N.CD_EMPRESA = :CD_EMPRESA
AND N.NR_LANCTONOTA = :NR_LANCAMENTO
AND N.TP_CONTAS = :TP_NOTA
AND N.CD_SERIE = :CD_SERIE
AND N.ST_CONTAS <> 'C'
ORDER BY N.DT_VENCIMENTO CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE

tabPRINCIPAL​

SELECT {#10} CD_EMPRESA, NR_LANCAMENTO, CD_SERIE, TP_NOTA, NR_NOTAFISCAL, NR_NOTAFOR, {#10} VL_NOTAFISCAL, VL_CONTABIL, VL_DESCONTO, VL_FRETE, VL_DESPESA, {#10} CD_CONDPAGTO, DS_CONDPAGTO, DT_EMISSAO, DT_VENCIMENTO, CD_FORMAPAGTO, {#10} DS_FORMAPAGTO, DS_OBSNOTA, DS_OBSFISCAL, NM_VENDEDORCABEC, {#10} CD_NM_VENDEDORCABEC, O_NM_VENDEDORES, DS_LOGOTIPO, DS_MENSAGEM, {#10} E_NM_RAZAOSOCIAL, E_NM_FANTASIA, E_NR_CNPJCPF, E_DS_EMAIL, E_DS_SITE, {#10} E_DS_ENDERECO, E_DS_MUNICIPIO, E_NR_ENDERECO, E_DS_BAIRRO, {#10} E_DS_COMPLEMENTO, E_NR_CEP, E_NR_INSCEST, E_NR_FONE, E_NR_CELULAR, {#10} E_DS_ENDCOMPLETO, E_NR_FAX, C_CD_PESSOA, C_NM_CLIENTE, C_NM_FANTASIA, {#10} C_NR_CNPJCPF, C_DS_EMAIL, C_DS_SITE, C_DS_ENDERECO, C_DS_MUNICIPIO, {#10} C_NR_ENDERECO, C_DS_BAIRRO, C_DS_COMPLEMENTO, C_NR_CEP, C_NR_INSCEST, {#10} C_NR_FONE, C_NR_CELULAR, C_DS_ENDCOMPLETO, C_NR_INSCPRODUTOR, C_NR_FAX, {#10} DH_EMISSAO, O_NR_LINHA, (CAST(VL_NOTAFISCAL AS DOM_NUMERIC15_2) + CAST(VL_DESCONTO AS DOM_NUMERIC15_2)) VL_TOTNOTA, {#10} {SeSenao(stEnviaCampoDB,}DS_CONDPAGTO {, Nulo(dsCondPagto,}S{))}DS_MEMOCONDPAGTO{#10}
FROM RETORNA_CABECNF_RECAP({Nulo(Parametros[1],}I{)}, {Nulo(Parametros[2],}I{)}, { Nulo(Parametros[4],}S{)}, {Nulo(Parametros[3],}S{)}) R {#10}
LEFT JOIN RETORNA_LINHAS(COALESCE(:NR_LINHA, 1)) RL ON (1 = 1)

tabSUB1​

SELECT P.IDORDEMPRODUCAORECAP, P.NRSERIE, P.NRDOT, P.NRFOGO, P.DTANOPNEU, P.VLUNITARIO, P.VLDESCONTO, P.DSMODELO, {#10} P.DSMARCA, P.DSMEDIDAPNEU, P.DSGARANTIA, P.DS_SITUACAO, P.QTCONSERTOS, P.QTDESCONTADA, P.QTCONSERTOLIQUIDO, {#10} COALESCE(P.QTPNEU, IIF(P.IDORDEMPRODUCAORECAP IS NULL , R.N_QTDE , 1)) QTDE, {#10} (COALESCE(P.QTPNEU, IIF(P.IDORDEMPRODUCAORECAP IS NULL , R.N_QTDE , 1)) * R.N_VL_UNITARIO) I_VL_TOT_CALC, {#10} (R.N_VL_DESCONTO / COALESCE(COALESCE(NULLIF(R.N_QTDE,0),1) , IIF(P.IDORDEMPRODUCAORECAP IS NULL , COALESCE(NULLIF(R.N_QTDE,0),1) , 1)) ) I_VL_DESC, {#10} R.CD_EMPRESA, R.NR_LANCAMENTO, R.TP_NOTA, R.CD_SERIE, {#10} R.CD_ITEM, R.N_CD_ITEM, R.N_DS_ITEM, R.N_CD_DS_ITEM, R.N_DS_OBSITEM, R.N_SG_UNIDMED, {#10} R.N_SG_UNIDALT, R.N_VL_UNITARIO, R.N_VL_TOTAL, R.N_VL_DESCONTO, R.N_VL_DESPESA, R.N_VL_FRETE, R.N_VL_LIQUIDO, {#10} R.N_QT_ITEMNOTA, R.N_PS_ITEMNOTA, R.N_QT_ITEM, R.N_CD_CFO, R.N_CD_CST, R.N_CD_CSOSN, R.N_NR_NCM, {#10} R.N_CD_FORNECEDOR1, R.N_CD_FORNECEDOR2, R.N_SG_QUANTIDADE, {#10} COALESCE(P.QTPNEU, IIF(P.IDORDEMPRODUCAORECAP IS NULL , R.N_QTDE , 1)) N_QTDE, {#10} N_SG_QUANTIDADE {#10}
FROM RETORNA_ITENSNF_RECAP(:CD_EMPRESA, :NR_LANCAMENTO, :CD_SERIE, :TP_NOTA) R {#10}
LEFT JOIN RETORNA_PNEUSNF_RECAP(R.CD_EMPRESA, R.NR_LANCAMENTO, R.CD_SERIE, R.TP_NOTA, R.CD_ITEM) P ON (1 = 1) {#10}
ORDER BY P.IDORDEMPRODUCAORECAP, P.NRSERIE, P.NRDOT, P.NRFOGO

tabSUB2​

SELECT V_NR_LANCAMENTO, V_NR_DOCUMENTO||'/'||V_NR_PARCELA V_NR_DOCUMENTO, V_DS_PAGTO, {#10} V_VL_DOCUMENTO, V_DT_VENCIMENTO, V_NR_PARCELA||'/'||V_NR_TOTPARCELAS V_NR_PARCELAS {#10}
FROM RETORNA_CONTAS (:CD_EMPRESA, :NR_LANCAMENTO, {#10} :CD_SERIE, :TP_NOTA, :C_CD_PESSOA, {#10} 500, 'V')

tabSub3 #1​

SELECT {#10} PF.DS_LOGOTIPO, E.NM_EMPRESA RAZAO_SOCIAL_EMP, N.DT_EMISSAO, {#10} COALESCE(N.NR_NOTAFOR, N.NR_NOTAFISCAL) NR_NOTAFISCAL, {#10} PC.CD_PESSOA, PC.NM_PESSOA RAZAO_SOCIAL_PES, PC.NM_FANTASIA, {#10} PC.NM_PESSOA||COALESCE(' - '||PC.NM_FANTASIA, '') NM_PESSOA, {#10} OPR.ID NR_PNEU, MEP.DSMEDIDAPNEU DS_MEDIDA, {#10} PN.NRSERIE NR_MATRICULA, PN.NRFOGO NR_FOGO, {#10} COALESCE(IPP.QTREFORMAS, 0) QT_RECAPES, MOP.DSMOTIVO DS_MOTIVO, {#10} IIF(NF.CD_AUTENTICACAO IS NOT NULL, N.NR_NOTAFISCAL, N.NR_LANCAMENTO) NR_LANCTONOTA, {#10} (
SELECT {#10} COUNT(DISTINCT OPR.ID) {#10}
FROM NOTA N {#10}
INNER JOIN ITEMNOTA ITN ON (ITN.CD_EMPRESA = N.CD_EMPRESA {#10}
AND ITN.NR_LANCAMENTO = N.NR_LANCAMENTO {#10}
AND ITN.TP_NOTA = N.TP_NOTA {#10}
AND ITN.CD_SERIE = N.CD_SERIE) {#10}
INNER JOIN ITEM I ON (I.CD_ITEM = ITN.CD_ITEM) {#10}
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = N.CD_PESSOA) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA) {#10}
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA) {#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 ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU) {#10}
INNER JOIN PNEU PN ON (PN.ID = IPP.IDPNEU) {#10}
INNER JOIN MEDIDAPNEU MEP ON (MEP.ID = PN.IDMEDIDAPNEU) {#10}
INNER JOIN EXAMEINICIAL EI ON (EI.IDORDEMPRODUCAORECAP = OPR.ID) {#10}
LEFT JOIN MOTIVORECUSAEXAME MRE ON (MRE.IDEXAMEINICIAL = EI.ID) {#10}
LEFT JOIN MOTIVOPNEU MOP ON (MOP.ID = MRE.IDMOTIVO) {#10}
WHERE N.CD_EMPRESA = {Nulo(Parametros[1],}I{) + #10}
AND N.NR_LANCAMENTO = {Nulo(Parametros[2],}I{) + #10}
AND N.TP_NOTA = {Nulo(Parametros[3],}S{) + #10}
AND N.CD_SERIE = {Nulo(Parametros[4],}S{) + #10}
AND OPR.STEXAMEFINAL <> 'A' {#10} ) QT_TOTPNEUS {#10}
FROM NOTA N {#10}
INNER JOIN ITEMNOTA ITN ON (ITN.CD_EMPRESA = N.CD_EMPRESA {#10}
AND ITN.NR_LANCAMENTO = N.NR_LANCAMENTO {#10}
AND ITN.TP_NOTA = N.TP_NOTA {#10}
AND ITN.CD_SERIE = N.CD_SERIE) {#10}
INNER JOIN ITEM I ON (I.CD_ITEM = ITN.CD_ITEM) {#10}
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = N.CD_PESSOA) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA) {#10}
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA) {#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 ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU) {#10}
INNER JOIN PNEU PN ON (PN.ID = IPP.IDPNEU) {#10}
INNER JOIN MEDIDAPNEU MEP ON (MEP.ID = PN.IDMEDIDAPNEU) {#10}
INNER JOIN LAUDOTECNICOPNEURECAP LT ON (LT.IDITEMPEDIDOPNEUORIGEM = OPR.IDITEMPEDIDOPNEU) {#10}
INNER JOIN MOTIVOLAUDO MP ON (MP.IDLAUDOTECNICO = LT.ID) {#10}
INNER JOIN MOTIVOPNEU MOP ON (MOP.ID = MP.ID_MOTIVO) {#10}
LEFT JOIN NFSE NF ON (NF.CD_EMPRESA = N.CD_EMPRESA {#10}
AND NF.NR_LANCAMENTO = N.NR_LANCAMENTO {#10}
AND NF.TP_NOTA = N.TP_NOTA {#10}
AND NF.CD_SERIE = N.CD_SERIE) {#10}
WHERE N.CD_EMPRESA = {Nulo(Parametros[1],}I{) + #10}
AND N.NR_LANCAMENTO = {Nulo(Parametros[2],}I{) + #10}
AND N.TP_NOTA = {Nulo(Parametros[3],}S{) + #10}
AND N.CD_SERIE = {Nulo(Parametros[4],}S{) + #10}
AND OPR.STEXAMEFINAL <> 'A'

tabSub4 #1​

SELECT {#10} /*CABECALHO DADOS DA EMPRESA EMITENTE*/ {#10} PF.DS_LOGOTIPO, /*NAO TA NO CHAMADO MAS A IMAGEM DO CLIENTE POSSUI LOGO */ {#10} E.NM_EMPRESA RAZAO_SOCIAL_EMP, {#10} PE.NM_PESSOA NM_PESSOANOTA, {#10} PE.NR_CNPJCPF, {#10} EPE.NR_INSCEST, {#10} EPE.DS_ENDERECO, {#10} COALESCE(EPE.NR_FONE,EPE.NR_CELULAR ) TELEFONE_EMP, {#10} N.CD_VENDEDOR, {#10} /*CABECALHO DADOS DO CLIENTE DA NF*/ {#10} PC.NM_PESSOA RAZAO_SOCIAL_PES, PC.NM_FANTASIA, {#10} PC.NR_CNPJCPF, {#10} EPC.NR_INSCEST, {#10} EPC.DS_ENDERECO, {#10} COALESCE(EPC.NR_FONE,EPC.NR_CELULAR ) TELEFONE_CLI, {#10} N.DT_EMISSAO, {#10} COALESCE(N.NR_NOTAFOR, N.NR_NOTAFISCAL) NR_NOTAFISCAL, {#10} /* CORPO DA PAGINA*/ {#10} OPR.ID NR_ORDEMPRODUCAO, {#10} DS.DSDESENHO, {#10} ITV.CD_VENDEDOR, --VERIFICAR {#10} MEP.DSMEDIDAPNEU DS_MEDIDA, {#10} OPR.DTFECHAMENTO, {#10} PN.NRSERIE, PN.NRFOGO NR_FOGO, {#10} MA.DSMARCA, MP.DSMODELO {#10}
FROM NOTA N {#10}
INNER JOIN ITEMNOTA ITN ON (ITN.CD_EMPRESA = N.CD_EMPRESA {#10}
AND ITN.NR_LANCAMENTO = N.NR_LANCAMENTO {#10}
AND ITN.TP_NOTA = N.TP_NOTA {#10}
AND ITN.CD_SERIE = N.CD_SERIE) {#10}
INNER JOIN ITEMNOTAVENDEDOR ITV ON (ITV.CD_EMPRESA = ITN.CD_EMPRESA {#10}
AND ITV.NR_LANCAMENTO = ITN.NR_LANCAMENTO {#10}
AND ITV.TP_NOTA = ITN.TP_NOTA {#10}
AND ITV.CD_SERIE = ITV.CD_SERIE {#10}
AND ITV.CD_ITEM = ITN.CD_ITEM) {#10}
INNER JOIN TIPOVENDEDOR TP ON (TP.CD_TIPO = ITV.CD_TIPO {#10}
AND TP.ST_VENDEDORPRINCIPAL = 'S') {#10}
INNER JOIN ITEM I ON (I.CD_ITEM = ITN.CD_ITEM) {#10}
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = N.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EPC on (EPC.CD_PESSOA = PC.CD_PESSOA {#10}
AND EPC.CD_ENDERECO = N.CD_ENDERECO) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(PE.CD_PESSOA,NULL, NULL) EPE ON (1=1) {#10}
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA) {#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 ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU) {#10}
INNER JOIN PNEU PN ON (PN.ID = IPP.IDPNEU) {#10}
INNER JOIN MEDIDAPNEU MEP ON (MEP.ID = PN.IDMEDIDAPNEU) {#10}
INNER JOIN MODELOPNEU MP ON (MP.ID = PN.IDMODELOPNEU) {#10}
INNER JOIN MARCAPNEU MA ON (MA.ID = MP.IDMARCAPNEU) {#10}
INNER JOIN DESENHOPNEU DS ON (DS.ID = OPR.ID) {#10}
WHERE N.CD_EMPRESA = {Nulo(Parametros[1],}I{) + #10}
AND N.NR_LANCAMENTO = {Nulo(Parametros[2],}I{) + #10}
AND N.TP_NOTA = {Nulo(Parametros[3],}S{) + #10}
AND N.CD_SERIE = {Nulo(Parametros[4],}S{) + #10}
AND OPR.STEXAMEFINAL <> 'A'

tabSub4 #2​

SELECT {#10}/*CABECALHO DADOS DA EMPRESA EMITENTE*/ {#10} PF.DS_LOGOTIPO, /*NAO TA NO CHAMADO MAS A IMAGEM DO CLIENTE POSSUI LOGO */ {#10} E.NM_EMPRESA RAZAO_SOCIAL_EMP, {#10} PE.NM_PESSOA NM_PESSOANOTA, {#10} PE.NR_CNPJCPF, {#10} EPE.NR_INSCEST, {#10} EPE.DS_ENDERECO, {#10} COALESCE(EPE.NR_FONE,EPE.NR_CELULAR ) TELEFONE_EMP, {#10} N.CD_VENDEDOR, {#10}/*CABECALHO DADOS DO CLIENTE DA NF*/ {#10} PC.NM_PESSOA RAZAO_SOCIAL_PES, PC.NM_FANTASIA, {#10} PC.NR_CNPJCPF NR_CNPJCPFPESSOA, {#10} EPC.NR_INSCEST NR_INSCESTPESSOA, {#10} EPC.DS_ENDERECO DS_ENDERECOPESSOA, {#10} COALESCE(EPC.NR_FONE,EPC.NR_CELULAR ) TELEFONE_CLI, {#10} N.DT_EMISSAO, {#10} COALESCE(N.NR_NOTAFOR, N.NR_NOTAFISCAL) NR_NOTAFISCAL, {#10}/* Literal*/ {#10}'Certificado de Garantia' TEXTO_A, {#10}'Certificamos a garantia pelos serviços prestados para os pneus abaixo relacionados:' TEXTO_B, {#10}/* CORPO DA PAGINA*/ {#10} OPR.ID NR_ORDEMPRODUCAO, {#10} DS.DSDESENHO, {#10} ITV.CD_VENDEDOR CD_VENDEDORORDEM, --VERIFICAR {#10} MEP.DSMEDIDAPNEU DS_MEDIDA, {#10} OPR.DTFECHAMENTO, {#10} PN.ID NR_PNEU, {#10} PN.NRSERIE, PN.NRFOGO NR_FOGO, {#10} MA.DSMARCA, MP.DSMODELO {#10}
FROM NOTA N {#10}
INNER JOIN ITEMNOTA ITN ON (ITN.CD_EMPRESA = N.CD_EMPRESA {#10}
AND ITN.NR_LANCAMENTO = N.NR_LANCAMENTO {#10}
AND ITN.TP_NOTA = N.TP_NOTA {#10}
AND ITN.CD_SERIE = N.CD_SERIE) {#10}
LEFT JOIN ITEMNOTAVENDEDOR ITV ON (ITV.CD_EMPRESA = ITN.CD_EMPRESA {#10}
AND ITV.NR_LANCAMENTO = ITN.NR_LANCAMENTO {#10}
AND ITV.TP_NOTA = ITN.TP_NOTA {#10}
AND ITV.CD_SERIE = ITV.CD_SERIE {#10}
AND ITV.CD_ITEM = ITN.CD_ITEM) {#10}
LEFT JOIN TIPOVENDEDOR TP ON (TP.CD_TIPO = ITV.CD_TIPO {#10}
AND TP.ST_VENDEDORPRINCIPAL = 'S') {#10}
INNER JOIN ITEM I ON (I.CD_ITEM = ITN.CD_ITEM) {#10}
LEFT JOIN SERVICOPNEU SP ON (SP.ID = I.CD_ITEM) {#10}
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = N.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EPC on (EPC.CD_PESSOA = PC.CD_PESSOA {#10}
AND EPC.CD_ENDERECO = N.CD_ENDERECO) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = N.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(PE.CD_PESSOA,NULL, NULL) EPE ON (1=1) {#10}
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA) {#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 ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU) {#10}
INNER JOIN PNEU PN ON (PN.ID = IPP.IDPNEU) {#10}
INNER JOIN MEDIDAPNEU MEP ON (MEP.ID = PN.IDMEDIDAPNEU) {#10}
INNER JOIN MODELOPNEU MP ON (MP.ID = PN.IDMODELOPNEU) {#10}
INNER JOIN MARCAPNEU MA ON (MA.ID = MP.IDMARCAPNEU) {#10}
LEFT JOIN DESENHOPNEU DS ON (DS.ID = OPR.ID) {#10}
WHERE N.CD_EMPRESA = {Nulo(Parametros[1],}I{) + #10}
AND N.NR_LANCAMENTO = {Nulo(Parametros[2],}I{) + #10}
AND N.TP_NOTA = {Nulo(Parametros[3],}S{) + #10}
AND N.CD_SERIE = {Nulo(Parametros[4],}S{) + #10}
AND OPR.STEXAMEFINAL = 'A'

tabSub3 #2​

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{)}

Consulta​

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​

TabelaUso
CONTASreferenciada nas queries do layout
DESENHOPNEUreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
EXAMEINICIALreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ITEMNOTAreferenciada nas queries do layout
ITEMNOTAVENDEDORreferenciada nas queries do layout
ITEMPEDIDOPNEUreferenciada nas queries do layout
LAUDOTECNICOPNEURECAPreferenciada nas queries do layout
MARCAPNEUreferenciada nas queries do layout
MEDIDAPNEUreferenciada nas queries do layout
MODELOPNEUreferenciada nas queries do layout
MOTIVOLAUDOreferenciada nas queries do layout
MOTIVOPNEUreferenciada nas queries do layout
MOTIVORECUSAEXAMEreferenciada nas queries do layout
NFSEreferenciada nas queries do layout
NOTAreferenciada nas queries do layout
ORDEMPRODUCAORECAPreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PARMNOTAreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PLUGORDRECAPPEDIDOreferenciada nas queries do layout
PNEUreferenciada nas queries do layout
RETORNA_CABECNF_RECAPreferenciada nas queries do layout
RETORNA_CHAVEPEDIDOreferenciada nas queries do layout
RETORNA_CONTASreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
RETORNA_ITENSNF_RECAPreferenciada nas queries do layout
RETORNA_LINHASreferenciada nas queries do layout
RETORNA_PNEUSNF_RECAPreferenciada nas queries do layout
SERVICOPNEUreferenciada nas queries do layout
TIPOVENDEDORreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LNF233/ULNF233.pas
  • DFM: source/LNF233/ULNF233.dfm
  • Package: source/LNF233/LNF233.dpk