LOR044 — Layout LOR044

Visão Geral

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

Descrição

Consulta baseada em ORCAMENTO, com junção em MAQUINAORCAMENTO, ITEM, ITEMTABPRECO, PESSOA, ENDERECOPESSOA, MUNICIPIO (+8), filtrada por CD_PESSOA, JO, CD_MUNICIPIO, CD_CONDPAGTO, CD_EMPRESA, CD_FORMAPAGTO (+15).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Orcamento (Apelidado de Nr Pedido)
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
]);

SQL Base

`tabPEDIDO`

SELECT --Vilas Boas, Chamado 285481; SQL para LOR044 baseado na LPD128 para Chocolates Roma. N.CD_EMPRESA, E.NM_EMPRESA, LPAD(N.NR_ORCAMENTO,7,'0') CODBARRA, N.NR_ORCAMENTO NR_ORCAMENTO, --NR_ORCAMENTO duplicado para atender o fonte do relatório. N.ST_ORCAMENTO ST_PEDIDO, N.NR_ORCAMENTO NR_PEDIDO, N.TP_ORCAMENTO TP_PEDIDO, N.DT_ORCAMENTO DT_PEDIDO, N.DT_ENTREGA, N.CD_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||P.CD_PESSOA NM_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, N.CD_CONDPAGTO, N.DT_VENCIMENTO, N.CD_VENDEDOR, V.NM_PESSOA||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, CASE N.CD_FORMAPAGTO WHEN 'DB' THEN 'BANCO DO BRASIL, Agência: 587-8, Conta: 26430-X' END DS_CONTABANCARIA, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGORCAMENTO,'') DS_OBSERVACAO, N.NR_DIASVALIDADE, 'Este Orçamento é Válido por '||N.NR_DIASVALIDADE||' Dias.' DS_VALIDADE, --DS_OBSALTERACAO N.DS_OBSALTERACAO EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_CEP NR_CEPEMP, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, EP.NR_INSCEST, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, C.DS_CONDPAGTO, COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) PS_PEDIDO, I.SG_UNIDMED, IP.CD_ITEM, I.DS_ITEM, I.NR_NCM, IP.VL_UNITARIO, COALESCE(ITP.VL_PRECO, (IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0)) / COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA)) VL_UNITARIOTABELA, COALESCE(IP.VL_DESCONTO,0) VL_DESCONTO, COALESCE(COALESCE(IP.VL_DESCONTO,0) / COALESCE(NULLIF(IP.PS_MAQUINA,0), IP.QT_MAQUINA),0) VL_DESCUNIT, IP.VL_TOTAL, CI.O_VL_IPI, CI.O_VL_IPI / COALESCE(NULLIF(IP.PS_MAQUINA,0), IP.QT_MAQUINA) VL_IPIUNIT, CI.O_VL_SUBSTITUICAO, CI.O_VL_SUBSTITUICAO / COALESCE(NULLIF(IP.PS_MAQUINA,0), IP.QT_MAQUINA) VL_STUNIT, CAST( ((IP.VL_TOTAL + COALESCE(CI.O_VL_SUBSTITUICAO ,0) + COALESCE(CI.O_VL_IPI ,0) - COALESCE(IP.VL_DESCONTO,0)) / COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA)) AS DOM_NUMERIC15_4) VL_UNITARIOCOMIMPOSTO, CAST( (IP.VL_TOTAL + COALESCE(CI.O_VL_SUBSTITUICAO ,0) + COALESCE(CI.O_VL_IPI ,0) - COALESCE(IP.VL_DESCONTO,0)) AS DOM_NUMERIC15_4) VL_LIQUIDO, ((COALESCE(IP.VL_DESCONTO,0) * 100.00) / IP.VL_TOTAL) PC_DESC_ITEM, (COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) * COALESCE(I.PS_LIQUIDOEMB,1)) PS_LIQUIDO, (COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) * (COALESCE(I.PS_LIQUIDOEMB,1) + COALESCE(I.PS_EMBALAGEM,0))) PS_BRUTO, CAST((COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) * (I.QT_VOLUME)) AS DOM_NUMERIC15_4) QT_VOLUME, COALESCE(CAST(NULL AS DOM_NUMERIC15_2),0) VL_FATOR, COALESCE(CAST(NULL AS DOM_NUMERIC3_2),0) PC_FATOR, COALESCE(IP.DS_OBSERVACAO, '') DS_OBSMASTER --IP.VL_DESPESA, COALESCE(IP.PC_COMISSAO, 0) PC_COMISSAO,
FROM ORCAMENTO N
INNER JOIN MAQUINAORCAMENTO IP ON (N.CD_EMPRESA = IP.CD_EMPRESA
  AND N.NR_ORCAMENTO = IP.NR_ORCAMENTO)
LEFT JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
LEFT JOIN ITEMTABPRECO ITP ON (ITP.CD_TABPRECO = IP.CD_TABPRECO
  AND ITP.CD_ITEM = IP.CD_ITEM)
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)
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT MIN(CD_ENDERECO)
FROM ENDERECOPESSOA ENDER
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA))
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO)
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN TABPRECO TPP ON (TPP.CD_TABPRECO = IP.CD_TABPRECO)
LEFT JOIN CALCULA_IMPOSTOORCAMENTOLOR044(N.CD_EMPRESA, N.NR_ORCAMENTO, IP.NR_MAQUINA, :PC_FATOR, :VL_FATOR) CI ON (1 = 1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_ORCAMENTO = :NR_ORCAMENTO PC_FATOR VL_FATOR CD_EMPRESA NR_ORCAMENTO CD_EMPRESA "ORCAMENTO"."CD_EMPRESA" NM_EMPRESA "EMPRESA"."NM_EMPRESA" CODBARRA ST_PEDIDO "ORCAMENTO"."ST_ORCAMENTO" NR_PEDIDO "ORCAMENTO"."NR_ORCAMENTO" TP_PEDIDO "ORCAMENTO"."TP_ORCAMENTO" DT_PEDIDO "ORCAMENTO"."DT_ORCAMENTO" DT_ENTREGA "ORCAMENTO"."DT_ENTREGA" CD_PESSOA "ORCAMENTO"."CD_PESSOA" NM_PESSOA NR_CNPJCPF "PESSOA"."NR_CNPJCPF" NR_CEP "ENDERECOPESSOA"."NR_CEP" CD_CONDPAGTO "ORCAMENTO"."CD_CONDPAGTO" DT_VENCIMENTO "ORCAMENTO"."DT_VENCIMENTO" CD_VENDEDOR "ORCAMENTO"."CD_VENDEDOR" NM_VENDEDOR CD_FORMAPAGTO "ORCAMENTO"."CD_FORMAPAGTO" DS_FORMAPAGTO "FORMAPAGTO"."DS_FORMAPAGTO" DS_CONTABANCARIA DS_MUNIC "MUNICIPIO"."DS_MUNICIPIO" SG_ESTADO "MUNICIPIO"."SG_ESTADO" DS_OBSERVACAO NR_DIASVALIDADE "ORCAMENTO"."NR_DIASVALIDADE" DS_VALIDADE DS_ENDEREMP DS_MUNICEMP NR_FONEEMP NR_CEPEMP "ENDERECOPESSOA"."NR_CEP" DS_ENDERECO DS_BAIRRO DS_MUNICIPIO NR_INSCEST "ENDERECOPESSOA"."NR_INSCEST" NR_FONE DS_CONDPAGTO "CONDPAGTO"."DS_CONDPAGTO" PS_PEDIDO SG_UNIDMED "ITEM"."SG_UNIDMED" CD_ITEM "MAQUINAORCAMENTO"."CD_ITEM" DS_ITEM "ITEM"."DS_ITEM" NR_NCM "ITEM"."NR_NCM" VL_UNITARIO "MAQUINAORCAMENTO"."VL_UNITARIO" VL_DESCONTO VL_TOTAL "MAQUINAORCAMENTO"."VL_TOTAL" O_VL_IPI "CALCULA_IMPOSTOORCAMENTOLOR044"."O_VL_IPI" O_VL_SUBSTITUICAO "CALCULA_IMPOSTOORCAMENTOLOR044"."O_VL_SUBSTITUICAO" VL_UNITARIOCOMIMPOSTO VL_LIQUIDO PC_DESC_ITEM PS_LIQUIDO PS_BRUTO QT_VOLUME VL_FATOR PC_FATOR DS_OBSMASTER NR_ORCAMENTO "ORCAMENTO"."NR_ORCAMENTO" VL_UNITARIOTABELA VL_DESCUNIT VL_IPIUNIT VL_STUNIT
SELECT N.DT_PEDIDO + C.NR_DIAS DT_VENCTO, N.DT_VENCIMENTO, N.DT_PEDIDO
FROM PEDIDO N
LEFT JOIN CONDPARCELA C ON (C.CD_CONDPAGTO = N.CD_CONDPAGTO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_PEDIDO = :NR_PEDIDO
  AND N.TP_PEDIDO = :TP_PEDIDO
SELECT --Vilas Boas, Chamado 285481; SQL para LOR044 baseado na LPD128 para Chocolates Roma. N.CD_EMPRESA, E.NM_EMPRESA, LPAD(N.NR_ORCAMENTO,7,'0') CODBARRA, N.NR_ORCAMENTO NR_ORCAMENTO, --NR_ORCAMENTO duplicado para atender o fonte do relatório. N.ST_ORCAMENTO ST_PEDIDO, N.NR_ORCAMENTO NR_PEDIDO, N.TP_ORCAMENTO TP_PEDIDO, N.DT_ORCAMENTO DT_PEDIDO, N.DT_ENTREGA, N.CD_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||P.CD_PESSOA NM_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, N.CD_CONDPAGTO, N.DT_VENCIMENTO, N.CD_VENDEDOR, V.NM_PESSOA||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, CASE N.CD_FORMAPAGTO WHEN 'DB' THEN 'BANCO DO BRASIL, Agência: 587-8, Conta: 26430-X' END DS_CONTABANCARIA, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGORCAMENTO,'') DS_OBSERVACAO, N.NR_DIASVALIDADE, 'Este Orçamento é Válido por '||N.NR_DIASVALIDADE||' Dias.' DS_VALIDADE, --DS_OBSALTERACAO N.DS_OBSALTERACAO EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_CEP NR_CEPEMP, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, EP.NR_INSCEST, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, C.DS_CONDPAGTO, COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) PS_PEDIDO, I.SG_UNIDMED, IP.CD_ITEM, I.DS_ITEM, I.NR_NCM, IP.VL_UNITARIO, COALESCE(ITP.VL_PRECO, (IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0)) / COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA)) VL_UNITARIOTABELA, COALESCE(IP.VL_DESCONTO,0) VL_DESCONTO, COALESCE(COALESCE(IP.VL_DESCONTO,0) / COALESCE(NULLIF(IP.PS_MAQUINA,0), IP.QT_MAQUINA),0) VL_DESCUNIT, IP.VL_TOTAL, CI.O_VL_IPI, CI.O_VL_IPI / COALESCE(NULLIF(IP.PS_MAQUINA,0), IP.QT_MAQUINA) VL_IPIUNIT, CI.O_VL_SUBSTITUICAO, CI.O_VL_SUBSTITUICAO / COALESCE(NULLIF(IP.PS_MAQUINA,0), IP.QT_MAQUINA) VL_STUNIT, CAST( ((IP.VL_TOTAL + COALESCE(CI.O_VL_SUBSTITUICAO ,0) + COALESCE(CI.O_VL_IPI ,0) - COALESCE(IP.VL_DESCONTO,0)) / COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA)) AS DOM_NUMERIC15_4) VL_UNITARIOCOMIMPOSTO, CAST( (IP.VL_TOTAL + COALESCE(CI.O_VL_SUBSTITUICAO ,0) + COALESCE(CI.O_VL_IPI ,0) - COALESCE(IP.VL_DESCONTO,0)) AS DOM_NUMERIC15_4) VL_LIQUIDO, ((COALESCE(IP.VL_DESCONTO,0) * 100.00) / IP.VL_TOTAL) PC_DESC_ITEM, (COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) * COALESCE(I.PS_LIQUIDOEMB,1)) PS_LIQUIDO, (COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) * (COALESCE(I.PS_LIQUIDOEMB,1) + COALESCE(I.PS_EMBALAGEM,0))) PS_BRUTO, CAST((COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) * (I.QT_VOLUME)) AS DOM_NUMERIC15_4) QT_VOLUME, COALESCE(CAST(NULL AS DOM_NUMERIC15_2),0) VL_FATOR, COALESCE(CAST(NULL AS DOM_NUMERIC3_2),0) PC_FATOR, COALESCE(IP.DS_OBSERVACAO, '') DS_OBSMASTER --IP.VL_DESPESA, COALESCE(IP.PC_COMISSAO, 0) PC_COMISSAO,
FROM ORCAMENTO N
INNER JOIN MAQUINAORCAMENTO IP ON (N.CD_EMPRESA = IP.CD_EMPRESA
  AND N.NR_ORCAMENTO = IP.NR_ORCAMENTO)
LEFT JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
LEFT JOIN ITEMTABPRECO ITP ON (ITP.CD_TABPRECO = IP.CD_TABPRECO
  AND ITP.CD_ITEM = IP.CD_ITEM)
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)
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT MIN(CD_ENDERECO)
FROM ENDERECOPESSOA ENDER
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA))
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO)
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN TABPRECO TPP ON (TPP.CD_TABPRECO = IP.CD_TABPRECO)
LEFT JOIN CALCULA_IMPOSTOORCAMENTOLOR044(N.CD_EMPRESA, N.NR_ORCAMENTO, IP.NR_MAQUINA, :PC_FATOR, :VL_FATOR) CI ON (1 = 1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_ORCAMENTO = :NR_ORCAMENTO PC_FATOR VL_FATOR CD_EMPRESA NR_ORCAMENTO CD_EMPRESA "ORCAMENTO"."CD_EMPRESA" NM_EMPRESA "EMPRESA"."NM_EMPRESA" CODBARRA ST_PEDIDO "ORCAMENTO"."ST_ORCAMENTO" NR_PEDIDO "ORCAMENTO"."NR_ORCAMENTO" TP_PEDIDO "ORCAMENTO"."TP_ORCAMENTO" DT_PEDIDO "ORCAMENTO"."DT_ORCAMENTO" DT_ENTREGA "ORCAMENTO"."DT_ENTREGA" CD_PESSOA "ORCAMENTO"."CD_PESSOA" NM_PESSOA NR_CNPJCPF "PESSOA"."NR_CNPJCPF" NR_CEP "ENDERECOPESSOA"."NR_CEP" CD_CONDPAGTO "ORCAMENTO"."CD_CONDPAGTO" DT_VENCIMENTO "ORCAMENTO"."DT_VENCIMENTO" CD_VENDEDOR "ORCAMENTO"."CD_VENDEDOR" NM_VENDEDOR CD_FORMAPAGTO "ORCAMENTO"."CD_FORMAPAGTO" DS_FORMAPAGTO "FORMAPAGTO"."DS_FORMAPAGTO" DS_CONTABANCARIA DS_MUNIC "MUNICIPIO"."DS_MUNICIPIO" SG_ESTADO "MUNICIPIO"."SG_ESTADO" DS_OBSERVACAO NR_DIASVALIDADE "ORCAMENTO"."NR_DIASVALIDADE" DS_VALIDADE DS_ENDEREMP DS_MUNICEMP NR_FONEEMP NR_CEPEMP "ENDERECOPESSOA"."NR_CEP" DS_ENDERECO DS_BAIRRO DS_MUNICIPIO NR_INSCEST "ENDERECOPESSOA"."NR_INSCEST" NR_FONE DS_CONDPAGTO "CONDPAGTO"."DS_CONDPAGTO" PS_PEDIDO SG_UNIDMED "ITEM"."SG_UNIDMED" CD_ITEM "MAQUINAORCAMENTO"."CD_ITEM" DS_ITEM "ITEM"."DS_ITEM" NR_NCM "ITEM"."NR_NCM" VL_UNITARIO "MAQUINAORCAMENTO"."VL_UNITARIO" VL_DESCONTO VL_TOTAL "MAQUINAORCAMENTO"."VL_TOTAL" O_VL_IPI "CALCULA_IMPOSTOORCAMENTOLOR044"."O_VL_IPI" O_VL_SUBSTITUICAO "CALCULA_IMPOSTOORCAMENTOLOR044"."O_VL_SUBSTITUICAO" VL_UNITARIOCOMIMPOSTO VL_LIQUIDO PC_DESC_ITEM PS_LIQUIDO PS_BRUTO QT_VOLUME VL_FATOR PC_FATOR DS_OBSMASTER NR_ORCAMENTO "ORCAMENTO"."NR_ORCAMENTO" VL_UNITARIOTABELA VL_DESCUNIT VL_IPIUNIT VL_STUNIT
SELECT CAST(NULL AS DOM_NUMERIC15_2)VL_FATOR, CAST(NULL AS DOM_NUMERIC3_2)PC_FATOR
FROM EMPRESA E
WHERE E.CD_EMPRESA = -1 VL_FATOR PC_FATOR q q q
SELECT I.NR_NCM, CI.O_VL_SUBSTITUICAO, N.ST_ORCAMENTO, N.CD_EMPRESA, E.NM_EMPRESA, LPAD(N.NR_ORCAMENTO,7,'0') CODBARRA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_CEP NR_CEPEMP, N.NR_ORCAMENTO, N.TP_ORCAMENTO, N.DT_ORCAMENTO, N.DT_ENTREGA, N.CD_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||P.CD_PESSOA NM_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, EP.NR_INSCEST, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, C.DS_CONDPAGTO, N.CD_CONDPAGTO, N.DT_VENCIMENTO, N.CD_VENDEDOR, V.NM_PESSOA||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, --TRA.NM_PESSOA NM_TRANSPORTADOR, CASE N.CD_FORMAPAGTO WHEN 'DB' THEN 'BANCO DO BRASIL, Agência: 587-8, Conta: 26430-X' END DS_CONTABANCARIA, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, --RED.NM_PESSOA NM_REDESPACHANTE, IP.CD_ITEM, I.DS_ITEM, /* COALESCE( IP.QT_CAIXAMASTER||' Caixa(s) com '||CAST(I.PS_MINIMO AS INTEGER)||' unidades'||' - '|| I.NR_CAIXAMASTER||' - '|| (
SELECT CEM.DS_CAIXA|| CEM.QT_COMPRIMENTO||'x'||CEM.QT_LARGURA||'x'||CEM.QT_ALTURA
FROM CAIXAEMBARQUE CEM
WHERE CEM.NR_CAIXA = I.NR_CAIXAMASTER)||' ', '')||COALESCE(IP.DS_OBSERVACAO,'') DS_OBSITEM, */ IP.VL_DESCONTO, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) VL_TOTAL, IP.VL_TOTAL VL_TOTALBRUTO, (IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0)) / COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) VL_UNITARIO, COALESCE(I.CD_FORNECEDOR1, I.CD_FORNECEDOR2) CD_FORNECEDOR, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + /*COALESCE(IP.VL_DESPESA,0) +*/ COALESCE(CI.O_VL_SUBSTITUICAO,0) + COALESCE(CI.O_VL_IPI,0) VL_LIQUIDO, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(CI.O_VL_SUBSTITUICAO,0) + COALESCE(CI.O_VL_IPI,0) VL_LIQUIDO_SEM_DESP, COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) PS_PEDIDO, I.SG_UNIDMED, CAST((COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) * (I.QT_ALTURA * I.QT_LARGURA * I.QT_COMPRIMENTO)) AS DOM_NUMERIC15_4) QT_VOLUME, (COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) * COALESCE(I.PS_LIQUIDOEMB,1)) PS_LIQUIDO, (COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA) * (COALESCE(I.PS_LIQUIDOEMB,1) + COALESCE(I.PS_EMBALAGEM,0))) PS_BRUTO, --IP.VL_DESPESA, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGORCAMENTO,'') DS_OBSERVACAO, CI.O_VL_IPI, N.NR_DIASVALIDADE, CASE WHEN N.NR_DIASVALIDADE IS NOT NULL THEN 'Este Orçamento é Válido por '||N.NR_DIASVALIDADE||' Dias.' ELSE NULL END DS_VALIDADE, ((COALESCE(IP.VL_DESCONTO,0) * 100.00) / IP.VL_TOTAL) PC_DESC_ITEM, --N.DS_OBSALTERACAO, IP.VL_UNITARIO VL_UNITARIOBRUTO, (IP.VL_DESCONTO / COALESCE(IP.PS_MAQUINA, IP.QT_MAQUINA)) VL_DESCBRUTO, /* NULLIF(COALESCE( CASE WHEN I.NR_CAIXAMASTER IS NOT NULL THEN IP.QT_CAIXAMASTER||' Caixa(s) com '||CAST(I.PS_MINIMO AS INTEGER)||' unidades' ELSE '' END, '')||' '||IP.DS_OBSERVACAO, '') DS_OBSMASTER, */ COALESCE(CAST(NULL AS DOM_NUMERIC15_2),0) VL_FATOR, COALESCE(CAST(NULL AS DOM_NUMERIC3_2),0) PC_FATOR
FROM ORCAMENTO N
INNER JOIN MAQUINAORCAMENTO IP ON (N.NR_ORCAMENTO = IP.NR_ORCAMENTO
  AND N.CD_EMPRESA = IP.CD_EMPRESA)
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)
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT MIN(CD_ENDERECO)
FROM ENDERECOPESSOA ENDER
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA))
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO)
LEFT JOIN CALCULA_IMPOSTOORCAMENTO(N.CD_EMPRESA, N.NR_ORCAMENTO, IP.NR_MAQUINA) CI ON (1 = 1)
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO)
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_ORCAMENTO = :NR_ORCAMENTO

`Consulta #1`

SELECT S.CD_MODULO {#10}
FROM SESSAO S {#10}
WHERE S.NR_CONEXAO = CURRENT_CONNECTION

`Consulta #2`

SELECT {#10} P.CD_MOVIMENTACAOPED, P.CD_CONDPAGTOPED, P.CD_FORMAPAGTOPED, {#10} P.CD_TIPOPEDIDO, P.CD_ITEMSTPED, P.CD_MOVSTPED, P.ST_SOLICITAFATOR, P.ST_IMPOSTOPEDIDO {#10}
FROM PARMFATUR P {#10}
WHERE P.CD_EMPRESA = {IntToStr(sessao.empresa.cd_empresa)}

Tabelas Utilizadas

Tabela	Uso
`CAIXAEMBARQUE`	referenciada nas queries do layout
`CALCULA_IMPOSTOORCAMENTO`	referenciada nas queries do layout
[[CALCULA_IMPOSTOORCAMENTOLOR044]]	referenciada nas queries do layout
`CONDPAGTO`	referenciada nas queries do layout
`CONDPARCELA`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`ENDERECOPESSOA`	referenciada nas queries do layout
`FORMAPAGTO`	referenciada nas queries do layout
`ITEM`	referenciada nas queries do layout
`ITEMTABPRECO`	referenciada nas queries do layout
`MAQUINAORCAMENTO`	referenciada nas queries do layout
`MUNICIPIO`	referenciada nas queries do layout
`ORCAMENTO`	referenciada nas queries do layout
`PARMFATUR`	referenciada nas queries do layout
`PEDIDO`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`SESSAO`	referenciada nas queries do layout
`TABPRECO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LOR044/ULOR044.pas
DFM: source/LOR044/ULOR044.dfm
Package: source/LOR044/LOR044.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

tabPEDIDO​

Consulta #1​

Consulta #2​

Tabelas Utilizadas​

Shared Units​

Fonte​