LPO002 — Listagem LPO002

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 EMPRESA, PESSOA, PARMFATUR, ENDERECOPESSOA, FORMAPAGTO, CONDPAGTO (+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} PF.DS_LOGOTIPO, {#10} OP.ID IDORCAMENTOPNEU, {#10} PP.ID IDPEDIDOPNEU, {#10} OP.DTEMISSAO DTEMISSAOORCAMENTO, {#10} PP.DTEMISSAO DTEMISSAOCOLETA, {#10} OP.IDPESSOA, {#10} PC.CD_PESSOA CD_CLIENTE, {#10} PC.NM_PESSOA NM_CLIENTE, {#10} PC.NR_CNPJCPF NR_CNPJCPFCLIENTE, {#10} EPC.DS_ENDERECO DS_ENDERECOCLIENTE, {#10} EPC.NR_ENDERECO NR_ENDERECOCLIENTE, {#10} EPC.DS_COMPLEMENTO DS_COMPLEMENTOENDCLIENTE, {#10} EPC.DS_BAIRRO DS_BAIRROENDCLIENTE, {#10} FP.DS_FORMAPAGTO||' - '||CP.DS_CONDPAGTO DS_FORMAPAGTO, {#10} EPE.DS_ENDERECO||', '|| {#10} COALESCE(EPE.NR_ENDERECO, 'Sem Nº')||' - '|| {#10} COALESCE(EPE.DS_BAIRRO, 'Sem Bairro')||' - '|| {#10} 'Cep '||EPE.NR_CEP||' - '|| {#10} MP.DS_MUNICIPIO||' '||ES.DS_ESTADO DS_ENDERECOEMPRESALINHA1, {#10} EPE.NR_FONE||''||COALESCE(' / '||EPE.NR_CELULAR,'')|| {#10} ' E-mail: '||COALESCE(PE.DS_EMAIL,'') DS_ENDERECOEMPRESALINHA2, {#10} PE.NM_PESSOA NM_PESSOAEMPRESA, PE.NM_FANTASIA NM_FANTASIAEMPRESA, {#10} 'CNPJ:'||PE.NR_CNPJCPF NR_CNPJCPFEMPRESA, {#10} OP.DSOBSERVACAO, OP.IDPEDIDOPNEU {#10}
FROM ORCAMENTOPNEU OP {#10}
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = OP.IDEMPRESA) {#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}
INNER JOIN PESSOA PC ON(PC.CD_PESSOA = OP.IDPESSOA) {#10}
INNER JOIN ENDERECOPESSOA EPC ON(EPC.CD_PESSOA = OP.IDPESSOA {#10}AND EPC.CD_ENDERECO = OP.IDENDERECO) {#10}
INNER JOIN FORMAPAGTO FP ON(FP.CD_FORMAPAGTO = OP.CDFORMAPAGTO) {#10}
INNER JOIN CONDPAGTO CP ON(CP.CD_CONDPAGTO = OP.IDCONDPAGTO) {#10}
LEFT JOIN RETORNA_ENDERECO(E.CD_PESSOA, NULL) REP ON(1=1) {#10}
INNER JOIN ENDERECOPESSOA EPE ON(EPE.CD_PESSOA = E.CD_PESSOA {#10}AND EPE.CD_ENDERECO = REP.O_CD_ENDERECO) {#10}
INNER JOIN MUNICIPIO MP ON(MP.CD_MUNICIPIO = EPE.CD_MUNICIPIO) {#10}
INNER JOIN ESTADO ES ON(ES.SG_ESTADO = MP.SG_ESTADO) {#10}
LEFT JOIN PEDIDOPNEU PP ON(PP.ID = OP.IDPEDIDOPNEU) {#10}
WHERE OP.ID = {Nulo(iParametros[1],}I{)}

tabDBSub1

SELECT {#10} M.ID IDMARCA, M.DSMARCA, {#10} MD.ID IDMEDIDAPNEU, MD.DSMEDIDAPNEU, {#10} PN.NRSERIE, PN.NRFOGO, {#10} RB.O_DS_BANDA, {#10} CAST(:IDPEDIDOPNEU AS DOM_INTEGER) IDPEDIDOPNEU, {#10} COALESCE(RVB.O_VL_SERVICO, 0) O_VL_SERVICO, COALESCE(RVB.O_VL_BANDA, 0) O_VL_BANDA, {#10} CASE EXF.STEXAMEFINAL WHEN 'A' THEN 'Aprovado' WHEN 'T' THEN 'Retrabalho' WHEN 'R' THEN 'Reprovado' END DSSTORDEM, {#10} COALESCE(RVB.O_VL_SERVICO, 0) + COALESCE(RVB.O_VL_BANDA, 0) VL_TOTAL {#10}
FROM ITEMORCAMENTOPNEU IOC {#10}
INNER JOIN PNEU PN ON(PN.ID = IOC.IDPNEU) {#10}
INNER JOIN MODELOPNEU MP ON (MP.ID = PN.IDMODELOPNEU) {#10}
INNER JOIN MARCAPNEU M ON(M.ID = MP.IDMARCAPNEU) {#10}
INNER JOIN MEDIDAPNEU MD ON(MD.ID = PN.IDMEDIDAPNEU) {#10}
LEFT JOIN ITEMPEDIDOPNEU IPP ON(IPP.ID = IOC.IDITEMPEDIDOPNEU) {#10}
LEFT JOIN ORDEMPRODUCAORECAP OPR ON(OPR.IDITEMPEDIDOPNEU = IPP.ID {#10}
  AND OPR.STORDEM <> 'C') {#10}
LEFT JOIN EXAMEFINALPNEU EXF ON (EXF.IDORDEMPRODUCAORECAP = OPR.ID) {#10}
LEFT JOIN RETORNA_BANDAPNEU(IPP.ID) RB ON(1=1) {#10}
LEFT JOIN RETORNA_VALORSERVBANDAORC(IPP.ID) RVB ON(1=1) {#10}
WHERE IOC.IDORCAMENTOPNEU = :IDORCAMENTOPNEU

Tabelas Utilizadas

Tabela	Uso
CONDPAGTO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
ESTADO	referenciada nas queries do layout
EXAMEFINALPNEU	referenciada nas queries do layout
FORMAPAGTO	referenciada nas queries do layout
ITEMORCAMENTOPNEU	referenciada nas queries do layout
ITEMPEDIDOPNEU	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
ORDEMPRODUCAORECAP	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PEDIDOPNEU	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PNEU	referenciada nas queries do layout
RETORNA_BANDAPNEU	referenciada nas queries do layout
RETORNA_ENDERECO	referenciada nas queries do layout
RETORNA_VALORSERVBANDAORC	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LPO002/ULPO002.pas
• DFM: source/LPO002/ULPO002.dfm
• Package: source/LPO002/LPO002.dpk