LPO001 — Listagem LPO001

Visão Geral

Layout de impressão da família LPO (Produto). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição

Consulta baseada em ORCAMENTOPNEU, com junção em CONDPAGTO, FORMAPAGTO, TIPOPEDIDOPNEU, PESSOA, RETORNA_DADOSCADASTRAIS, ENDERECOPESSOA (+4), filtrada por ID.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Id Orçamento Pneu
  // 2 - Path Servidor
  // 3 - Visualiza -> V  ou  Imprime -> I
  // 4 - Impressora do Parametro
  // 5 - pdF
]);

SQL Base

tabDB

SELECT {#10} OP.ID, OP.DTEMISSAO, OP.DTAPROVACAO, {#10} OP.IDCONDPAGTO, CP.DS_CONDPAGTO, {#10} OP.CDFORMAPAGTO, FP.DS_FORMAPAGTO,{#10} OP.DTVENCIMENTO, OP.STORCAMENTO,{#10} OP.IDPESSOA, PC.NM_PESSOA,{#10} OP.IDVENDEDOR, PV.NM_PESSOA NM_VENDEDOR,{#10} OP.IDEMPRESA, OP.DSOBSERVACAO,{#10} OP.DTREGISTRO, OP.IDTIPOPEDIDO,{#10} TP.DSTIPOPEDIDO, OP.IDPEDIDOMOVEL,{#10} OP.IDPEDIDOPNEU, OP.IDENDERECO,{#10} E.CD_EMPRESA, E.NM_EMPRESA,{#10} RDCE.NR_CNPJCPF NR_CNPJEMP,{#10} RDCE.DS_ENDCOMPLETO DS_ENDERECOEMP,{#10} RDCE.NR_FONE NR_FONEEMP,{#10} RDCE.NR_FAX NR_FAXEMP,{#10} RDCE.NR_CEP NR_CEPEMP,{#10} RDCE.NR_INSCEST NR_INSCESTEMP,{#10} OP.DTEMISSAO DT_ORCAMENTO,{#10} RDCE.DS_EMAIL DS_EMAILEMP,{#10} RDCE.DS_CONTATO DS_CONTATOEMP,{#10} PF.DS_LOGOTIPO DS_LOGOTIPO,{#10} RDCPF.DS_EMAIL DS_EMAILCLI,{#10} RDCPF.DS_ENDCOMPLETO DS_ENDCOMPLETOCLI,{#10} RDCPF.NR_FONE NR_FONECLI,{#10} RDCPF.NR_CNPJCPF NR_CNPJCPFCLI,{#10} RTOP.O_VL_TOTCONSERTOS, RTOP.O_VL_TOTPNEUS,{#10} RTOP.O_VL_TOTALGERAL,RTOP.O_VL_TOTALDESCONTO,{#10} RTOP.O_VL_TOTDESCSERV, RTOP.O_VL_TOTDESCONSERTO,{#10} RTOP.O_VL_TOTLIQCONS,{#10} SUM(COALESCE(RTOP.O_VL_TOTLIQCONS, 0) + COALESCE(RTOP.O_VL_TOTPNEUS, 0)) VL_TOT_LIQ,{#10} SUM(COALESCE(RTOP.O_VL_BRUTOCONS,0) + COALESCE(RTOP.O_VL_BRUTOSERV,0)) VL_BRUTO_TOTAL{#10}
FROM ORCAMENTOPNEU OP{#10}
INNER JOIN CONDPAGTO CP ON (CP.CD_CONDPAGTO = OP.IDCONDPAGTO){#10}
INNER JOIN FORMAPAGTO FP ON (FP.CD_FORMAPAGTO = OP.CDFORMAPAGTO){#10}
INNER JOIN TIPOPEDIDOPNEU TP ON (TP.ID = OP.IDTIPOPEDIDO){#10}
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = OP.IDPESSOA){#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(PC.CD_PESSOA, NULL, (IIF(OP.IDENDERECO > 0, OP.IDENDERECO, null)))RDCPF ON(1=1){#10}
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = PC.CD_PESSOA{#10}
  AND EP.CD_ENDERECO = OP.IDENDERECO){#10}
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = EP.CD_MUNICIPIO){#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = OP.IDEMPRESA){#10}
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA){#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL, NULL)RDCE ON(1=1){#10}
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = OP.IDVENDEDOR){#10}
LEFT JOIN RETORNA_TOTAISORCAMENTOPNEU(OP.ID) RTOP ON(1=1){#10}
WHERE OP.ID = {Nulo(iParametros[1],}I{)}
GROUP BY OP.ID, OP.DTEMISSAO, OP.DTAPROVACAO, OP.IDCONDPAGTO, CP.DS_CONDPAGTO, OP.CDFORMAPAGTO,{#10} FP.DS_FORMAPAGTO, OP.DTVENCIMENTO, OP.STORCAMENTO, OP.IDPESSOA, PC.NM_PESSOA, OP.IDVENDEDOR,{#10} PV.NM_PESSOA, OP.IDEMPRESA, OP.DSOBSERVACAO, OP.DTREGISTRO, OP.IDTIPOPEDIDO, TP.DSTIPOPEDIDO,{#10} OP.IDPEDIDOMOVEL, OP.IDPEDIDOPNEU, OP.IDENDERECO, E.CD_EMPRESA, E.NM_EMPRESA, RDCE.NR_CNPJCPF,{#10} RDCE.DS_ENDCOMPLETO, RDCE.NR_FONE, RDCE.NR_FAX, RDCE.NR_CEP, RDCE.NR_INSCEST, OP.DTEMISSAO,{#10} RDCE.DS_EMAIL, RDCE.DS_CONTATO, PF.DS_LOGOTIPO, RDCPF.DS_EMAIL, RDCPF.DS_ENDCOMPLETO, RDCPF.NR_FONE,{#10} RDCPF.NR_CNPJCPF, RTOP.O_VL_TOTCONSERTOS, RTOP.O_VL_TOTPNEUS, RTOP.O_VL_TOTALGERAL, RTOP.O_VL_TOTALDESCONTO,{#10} RTOP.O_VL_TOTDESCSERV, RTOP.O_VL_TOTDESCONSERTO, RTOP.O_VL_TOTLIQCONS

tabDBSub1

SELECT IP.ID, IP.IDORCAMENTOPNEU, IP.IDPNEU, PN.IDMODELOPNEU,{#10} MA.DSMARCA||' '||MP.DSMODELO DSMODELO, PN.IDMEDIDAPNEU,{#10} MI.DSMEDIDAPNEU, PN.NRSERIE, PN.NRFOGO, PN.NRDOT, PS.NM_PESSOA NMCLIENTE,{#10} IP.IDSERVICOPNEU, SP.DSSERVICO, IP.IDDESENHOPNEU, DP.DSDESENHO,{#10} IP.DTREGISTRO, IP.VLUNITARIO,{#10} IP.PCDESCONTO, COALESCE(IP.VLDESCONTO, 0)VLDESCONTO,{#10} IP.IDTABPRECO, TC.DS_TABPRECO, IPE.CD_PRODUTO, {#10} IP.VLUNITARIO - COALESCE(IP.VLDESCONTO,0) VL_UNILIQSERVICO,{#10} MP.DSMODELO NM_MODELO, MA.DSMARCA {#10}
FROM ITEMORCAMENTOPNEU IP{#10}
INNER JOIN ORCAMENTOPNEU OP ON (OP.ID = IP.IDORCAMENTOPNEU){#10}
INNER JOIN PNEU PN ON (PN.ID = IP.IDPNEU){#10}
INNER JOIN MEDIDAPNEU MI ON (MI.ID = PN.IDMEDIDAPNEU){#10}
INNER JOIN PESSOA PS ON (PS.CD_PESSOA = PN.IDPESSOA){#10}
INNER JOIN MODELOPNEU MP ON (MP.ID = PN.IDMODELOPNEU){#10}
INNER JOIN MARCAPNEU MA ON (MA.ID = MP.IDMARCAPNEU){#10}
INNER JOIN SERVICOPNEU SP ON (SP.ID = IP.IDSERVICOPNEU){#10}
LEFT JOIN TABPRECO TC ON (TC.CD_TABPRECO = IP.IDTABPRECO){#10}
LEFT JOIN DESENHOPNEU DP ON (DP.ID = IP.IDDESENHOPNEU){#10}
LEFT JOIN ITEMPESSOA IPE ON (IPE.CD_PESSOA = OP.IDPESSOA{#10}
  AND IPE.CD_ITEM = SP.ID){#10+#10}
WHERE IP.IDORCAMENTOPNEU = :ID

tabDBSub2

SELECT{#10} CP.IDCONSERTO, CS.DSCONSERTO,{#10} CP.IDITEMORCAMENTOPNEU, CP.IDTABPRECO,{#10} CP.VLUNITARIO, COALESCE(CP.VLDESCONTO, 0)VLDESCONTO, CP.PCDESCONTO,{#10} CP.DT_REGISTRO, CP.QTCONSERTO,{#10} CAST(COALESCE(CP.QTCONSERTO, 0) * COALESCE(CP.VLUNITARIO, 0) AS DOM_NUMERIC15_2) VL_TOTAL,{#10} IPE.CD_PRODUTO, {#10} (CAST(COALESCE(CP.QTCONSERTO, 0) * COALESCE(CP.VLUNITARIO, 0) AS DOM_NUMERIC15_2) - COALESCE(CP.VLDESCONTO,0)) / CP.QTCONSERTO VL_UNILIQCONSERTO, {#10} SUM(CP.VLDESCONTO) TOT_DESCONTO, {#10} (CAST(COALESCE(CP.QTCONSERTO, 0) * COALESCE(CP.VLUNITARIO, 0) AS DOM_NUMERIC15_2) - COALESCE(CP.VLDESCONTO,0)) VL_TOTALIQCONS{#10}
FROM CONSERTOITEMORCAMENTOPNEU CP{#10}
INNER JOIN ITEMORCAMENTOPNEU IOP ON (IOP.ID = CP.IDITEMORCAMENTOPNEU){#10}
INNER JOIN ORCAMENTOPNEU OP ON (OP.ID = IOP.IDORCAMENTOPNEU){#10}
INNER JOIN CONSERTOPNEU CS ON(CS.ID = CP.IDCONSERTO){#10}
LEFT JOIN ITEMPESSOA IPE ON (IPE.CD_PESSOA = OP.IDPESSOA{#10}
  AND IPE.CD_ITEM = CP.IDCONSERTO){#10}
WHERE CP.IDITEMORCAMENTOPNEU = :ID{#10}
GROUP BY IOP.ID, CP.IDCONSERTO, CS.DSCONSERTO,{#10}CP.IDITEMORCAMENTOPNEU, CP.IDTABPRECO, CP.VLUNITARIO, VLDESCONTO, CP.PCDESCONTO,{#10}CP.DT_REGISTRO, CP.QTCONSERTO,VL_TOTAL,VL_UNILIQCONSERTO, IPE.CD_PRODUTO

Tabelas Utilizadas

Tabela	Uso
CONDPAGTO	referenciada nas queries do layout
CONSERTOITEMORCAMENTOPNEU	referenciada nas queries do layout
CONSERTOPNEU	referenciada nas queries do layout
DESENHOPNEU	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
FORMAPAGTO	referenciada nas queries do layout
ITEMORCAMENTOPNEU	referenciada nas queries do layout
ITEMPESSOA	referenciada nas queries do layout
MARCAPNEU	referenciada nas queries do layout
MEDIDAPNEU	referenciada nas queries do layout
MODELOPNEU	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
ORCAMENTOPNEU	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PNEU	referenciada nas queries do layout
RETORNA_DADOSCADASTRAIS	referenciada nas queries do layout
RETORNA_TOTAISORCAMENTOPNEU	referenciada nas queries do layout
SERVICOPNEU	referenciada nas queries do layout
TABPRECO	referenciada nas queries do layout
TIPOPEDIDOPNEU	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LPO001/ULPO001.pas
• DFM: source/LPO001/ULPO001.dfm
• Package: source/LPO001/LPO001.dpk