LPD064 — Listagem LPD064

Visão Geral

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

Descrição

Consulta baseada em ITEMPEDIDO, com junção em LOCACAO, LOCACAOORIGINAL, PARMFATUR, LOCACAOORIGINALITEM, LOCACAOITEM, PESSOA (+10), filtrada por CD_EMPRESA, NR_PEDIDO, TP_PEDIDO, NR_C, JO, NR_LOCACAO (+12).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Pedido
  // 3 - Tp Pedido
  // 4 - Path Servidor
  // 5 - Tipo
  // 6 - Ususario
  // 7 - Parametro para nao sair grupo das medidas
  // 8 - se é trocaaa
  // 9 - Qt troca (numero da troca para ser impresso)
  // 10 - Se a troca é de produtos ou de datas
]);

SQL Base

Pedido #1

SELECT CASE LI.ST_BRINDE WHEN 'S' THEN 'Brinde' END TP_BRINDE, L.TP_LOCACAO, RL.O_NR_LINHA DS_QUEBRA, L.DS_PACOTE, --EMPRESA N.CD_EMPRESA,E.NM_EMPRESA NM_EMPRESA, PARM.DS_LOGOTIPO, ee.NR_FONE FONE_EMPRESA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ')||' - '||ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_ENDEREMP, COALESCE(EE.NR_FONE,'') NR_FONEEMP, EE.NR_CEP NR_CEPEMP, PE.DS_EMAIL, PE.DS_SITE, PE.NR_CNPJCPF, EE.NR_INSCEST, PE.NM_PESSOA RAZAO_SOCIAL , --CLIENTE N.CD_PESSOA, P.CD_PESSOA||' - '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA, P.NR_CNPJCPF CNPJCPF_CLI, EP.NR_CEP, EP.DS_ENDERECO||COALESCE(' - '||EP.DS_BAIRRO, '')||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, COALESCE(EP.NR_INSCEST,PF.NR_RG) NR_INSCESTCLI, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE_CLI, EP.NR_CELULAR NR_CEL_CLI, LO.CD_VENDEDOR||' - '||V.NM_PESSOA NM_VENDEDOR,LO.DT_RETIRADA, LO.DT_DEVOLUCAO, P.DS_EMAIL EMAIL_CLI, COALESCE(EP.NR_FONE, EP.NR_CELULAR) FONECLIENTE, --ITEM I.CD_GRUPO||' . '||I.CD_FORNECEDOR1 CD_ITEM, I.DS_ITEM, LI.VL_UNITARIO, LI.VL_DESCONTO,LI.QT_ITEM, CASE l.TP_LOCACAO WHEN 'L' THEN (LI.QT_ITEM * COALESCE(LI.VL_LOCACAO,0)) WHEN 'V' THEN (LI.QT_ITEM * COALESCE(LI.VL_VENDA,0) ) END VL_TOTAL, CASE l.TP_LOCACAO WHEN 'L' THEN (LI.QT_ITEM * COALESCE(LI.VL_LOCACAO,0) )- COALESCE(LI.VL_DESCONTO,0) + COALESCE(LI.VL_AVARIA,0) WHEN 'V' THEN (LI.QT_ITEM * COALESCE(LI.VL_VENDA,0) )- COALESCE(LI.VL_DESCONTO,0) + COALESCE(LI.VL_AVARIA,0) END VL_TOTALLIQUIDO, LI.VL_UNITARIO - COALESCE(LI.VL_DESCONTO,0) VL_LIQUIDO, LI.DS_OBSITEM DS_OBSITEM, LI.VL_VENDA, CASE C.ST_CONDPAGTO WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(N.DT_VENCIMENTO,'%d/%m/%Y') ELSE C.DS_CONDPAGTO END DS_CONDPAGTO, --PEDIDO N.NR_PEDIDO, N.TP_PEDIDO, COALESCE(LO.DT_REGISTRO, L.DT_REGISTRO) DT_PEDIDO, N.DT_ENTREGA, N.DT_VENCIMENTO, L.NR_LOCACAO, (
SELECT COUNT(ITEMPED.cd_item)
FROM ITEMPEDIDO ITEMPED
WHERE ITEMPED.CD_EMPRESA = N.CD_EMPRESA
  AND ITEMPED.NR_PEDIDO = N.NR_PEDIDO
  AND ITEMPED.TP_PEDIDO = N.tp_pedido
  AND CHAR_LENGTH(ITEMPED.ds_observacao) > 0 )QTD_OBSITEM, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,'') DS_OBSERVACAO, --LOCACAO LO.NR_MANGA,LO.NR_BARRA,LO.NR_BUSTO,LO.NR_GOLA,LO.NR_CINTURA,LO.NR_QUADRIL,LO.DS_OBSPRIMALUGUEL, LO.NR_COMPRIMENTO,L.TP_LOCACAO, LO.DT_EVENTO, LO.CD_CONDPAGTO, LO.CD_FORMAPAGTO,F.DS_FORMAPAGTO, --USUARIO PEU.NM_PESSOA NM_USUARIO , C.ST_CONDPAGTO, 'L' NR_TROCA
FROM PEDIDO N
INNER JOIN LOCACAO L ON (L.CD_EMPRESA = N.CD_EMPRESA
  AND L.NR_LOCACAO = N.NR_LOCACAO)
INNER JOIN LOCACAOORIGINAL LO ON (LO.CD_EMPRESA = L.CD_EMPRESA
  AND LO.NR_LOCACAO = L.NR_LOCACAO
  AND LO.NR_PEDIDO = N.NR_PEDIDO)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA) /*
INNER JOIN ITEMPEDIDO IP ON (N.NR_PEDIDO = IP.NR_PEDIDO
  AND N.CD_EMPRESA = IP.CD_EMPRESA
  AND N.TP_PEDIDO = IP.TP_PEDIDO)*/
INNER JOIN LOCACAOORIGINALITEM LRI ON (LRI.CD_EMPRESA = L.CD_EMPRESA
  AND LRI.NR_LOCACAO = L.NR_LOCACAO
  AND LRI.NR_PEDIDO = N.NR_PEDIDO)
INNER JOIN LOCACAOITEM LI ON (LI.CD_EMPRESA = L.CD_EMPRESA
  AND LI.NR_LOCACAO = L.NR_LOCACAO
  AND LI.CD_ITEM = LRI.CD_ITEM)
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA
  AND EP.CD_ENDERECO = (
SELECT MIN(CD_ENDERECO)
FROM ENDERECOPESSOA ENDERPE
WHERE ENDERPE.CD_PESSOA = EP.CD_PESSOA))
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 ITEM I ON (LRI.CD_ITEM = I.CD_ITEM)
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN RETORNA_LINHAS(:LINHA) RL ON (1 = 1)
LEFT JOIN USUARIO U ON (U.CD_USUARIO = LO.CD_USUARIO)
LEFT JOIN PESSOA PEU ON (PEU.CD_PESSOA = U.CD_PESSOA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = LO.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = LO.CD_FORMAPAGTO)
INNER JOIN CONDPAGTO C ON (LO.CD_CONDPAGTO = C.CD_CONDPAGTO) linha
SELECT C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO VL_PARCELA
FROM CONTAS C
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = c.NR_LOCACAO)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND P.NR_PEDIDO = :NR_PEDIDO
  AND C.NR_TROCA = :NR_TROCA
  AND P.TP_PEDIDO = :TP_PEDIDO CD_EMPRESA NR_PEDIDO NR_TROCA TP_PEDIDO NR_PARCELA "PARCELAPEDIDO"."NR_PARCELA" DT_VENCIMENTO "PARCELAPEDIDO"."DT_VENCIMENTO" VL_PARCELA "PARCELAPEDIDO"."VL_PARCELA"

Pedido #2

SELECT{#10}CASE LI.ST_BRINDE WHEN 'S' THEN 'Brinde' END TP_BRINDE, L.TP_LOCACAO,{#10}RL.o_nr_linha DS_QUEBRA, L.DS_PACOTE,{#10}--EMPRESA{#10}N.CD_EMPRESA,E.NM_EMPRESA NM_EMPRESA, PARM.DS_LOGOTIPO,{#10}EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ')||' - '||ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_ENDEREMP,{#10}COALESCE(EE.NR_FONE,'') NR_FONEEMP, EE.NR_CEP NR_CEPEMP, PE.DS_EMAIL, PE.DS_SITE, PE.NR_CNPJCPF, EE.NR_INSCEST, PE.NM_PESSOA RAZAO_SOCIAL ,{#10}--CLIENTE{#10}N.CD_PESSOA, P.CD_PESSOA||' - '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA,{#10}P.NR_CNPJCPF CNPJCPF_CLI, EP.NR_CEP,{#10}EP.DS_ENDERECO||COALESCE(' - '||EP.DS_BAIRRO, '')||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO,{#10}COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO,{#10}MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, COALESCE(EP.NR_INSCEST,PF.NR_RG) NR_INSCESTCLI,{#10}COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE_CLI, EP.NR_CELULAR NR_CEL_CLI,{#10}LO.CD_VENDEDOR||' - '||V.NM_PESSOA NM_VENDEDOR,LO.DT_RETIRADA, Lo.DT_DEVOLUCAO,{#10}P.DS_EMAIL EMAIL_CLI, COALESCE(EP.NR_FONE, EP.NR_CELULAR) FONECLIENTE,{#10}--ITEM{#10}I.CD_GRUPO||' . '||I.CD_FORNECEDOR1 CD_ITEM, I.DS_ITEM,{#10}LI.VL_UNITARIO, LI.VL_DESCONTO,SUM(LI.VL_DESCONTO) TOT_DESC, 0 VL_RATEADO, 0 VL_DIFTROCADESC,{#10}LI.VL_UNITARIO - COALESCE(LI.VL_DESCONTO,0) VL_LIQUIDO, SUM(LI.VL_UNITARIO - COALESCE(LI.VL_DESCONTO,0)) TOT_LIQ,{#10} LI.DS_OBSITEM DS_OBSITEM, LI.VL_VENDA,{#10}CASE C.ST_CONDPAGTO{#10} WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(N.DT_VENCIMENTO,'%d/%m/%Y'){#10} ELSE C.DS_CONDPAGTO{#10}END DS_CONDPAGTO,{#10}--PEDIDO{#10}N.NR_PEDIDO, N.TP_PEDIDO, N.DT_ENTREGA,{#10}N.DT_VENCIMENTO, L.NR_LOCACAO,{#10}(
SELECT COUNT(ITEMPED.cd_item){#10}
FROM ITEMPEDIDO ITEMPED{#10}
WHERE ITEMPED.CD_EMPRESA = N.cd_empresa{#10}
  AND ITEMPED.NR_PEDIDO = N.nr_pedido{#10}
  AND ITEMPED.TP_PEDIDO = N.tp_pedido{#10}AND CHAR_LENGTH(ITEMPED.ds_observacao) > 0) QTD_OBSITEM,{#10}{#10}LO.DS_OBSERVACAO,{#10}--LOCACAO{#10}LO.NR_MANGA,LO.NR_BARRA,LO.NR_BUSTO,LO.NR_GOLA,LO.NR_CINTURA,LO.NR_QUADRIL,LO.DS_OBSPRIMALUGUEL,{#10}LO.NR_COMPRIMENTO,L.TP_LOCACAO, Lo.DT_EVENTO, LO.CD_CONDPAGTO, LO.CD_FORMAPAGTO,F.DS_FORMAPAGTO,{#10}--TROCA{#10}LO.NR_TROCA QT_TROCA,COALESCE(LOR.DT_REGISTRO,L.DT_REGISTRO) DT_PEDIDO, LO.DT_REGISTRO DT_TROCA,{#10}--USUARIO{#10}PEU.NM_PESSOA NM_USUARIO{#10}
FROM PEDIDO N{#10}
INNER JOIN LOCACAO L ON (L.CD_EMPRESA = N.CD_EMPRESA{#10}
  AND L.NR_LOCACAO = N.NR_LOCACAO){#10}
INNER JOIN LOCACAOTROCA LO ON (LO.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LO.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND LO.NR_TROCA = {auxTrocaData}){#10}
INNER JOIN LOCACAOORIGINAL LOR ON (LOR.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LOR.NR_LOCACAO = L.NR_LOCACAO){#10}
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA){#10}
INNER JOIN LOCACAOORIGINALITEM LRI ON (LRI.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LRI.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND LRI.NR_PEDIDO = N.NR_PEDIDO){#10}
INNER JOIN LOCACAOITEM LI ON (LI.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LI.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND LI.CD_ITEM = LRI.CD_ITEM){#10}
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA){#10}
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA{#10}
  AND EP.CD_ENDERECO ={#10} (
SELECT MIN(CD_ENDERECO) {#10}
FROM ENDERECOPESSOA ENDERPE{#10}
WHERE ENDERPE.CD_PESSOA = EP.CD_PESSOA)){#10}
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO){#10}
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA){#10}
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA){#10}
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA{#10}
  AND EE.CD_ENDERECO ={#10} (
SELECT MIN(CD_ENDERECO){#10}
FROM ENDERECOPESSOA ENDER{#10}
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA)){#10}
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO){#10}{#10}
INNER JOIN ITEM I ON (LRI.CD_ITEM = I.CD_ITEM){#10}
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA){#10}
LEFT JOIN retorna_linhas(:LINHA) RL ON (1 = 1){#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = LO.CD_USUARIO){#10}
LEFT JOIN PESSOA PEU ON (PEU.CD_PESSOA = U.CD_PESSOA){#10}
LEFT JOIN PESSOA V ON (V.CD_PESSOA = LO.CD_VENDEDOR){#10}
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = LO.CD_FORMAPAGTO){#10}
LEFT JOIN CONDPAGTO C ON (LO.CD_CONDPAGTO = C.CD_CONDPAGTO){#10}
WHERE N.CD_EMPRESA = {iParametros}

Pedido #3

SELECT DISTINCT {#10}CASE LTC.ST_BRINDE WHEN 'S' THEN 'Brinde' end TP_BRINDE, L.TP_LOCACAO, {#10}RL.o_nr_linha DS_QUEBRA, {#10}--EMPRESA {#10}N.CD_EMPRESA, E.NM_EMPRESA NM_EMPRESA, PARM.DS_LOGOTIPO, {#10}EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ')||' - '||ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_ENDEREMP, {#10}COALESCE(EE.NR_FONE,'') NR_FONEEMP, EE.NR_CEP NR_CEPEMP, PE.DS_EMAIL, PE.DS_SITE, PE.NR_CNPJCPF, EE.NR_INSCEST, {#10}--CLIENTE {#10}N.CD_PESSOA, P.CD_PESSOA||' - '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA, {#10}P.NR_CNPJCPF CNPJCPF_CLI, EP.NR_CEP, {#10}EP.DS_ENDERECO||COALESCE(' - '||EP.DS_BAIRRO, '')||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, {#10}COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, {#10}MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, COALESCE(EP.NR_INSCEST,PF.NR_RG) NR_INSCESTCLI, {#10}COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE_CLI, EP.NR_CELULAR NR_CEL_CLI, {#10}LO.CD_VENDEDOR||' - '||V.NM_PESSOA NM_VENDEDOR,LO.DT_RETIRADA, LO.DT_DEVOLUCAO, {#10}P.DS_EMAIL EMAIL_CLI, COALESCE(EP.NR_FONE, EP.NR_CELULAR) FONECLIENTE, {#10}--ITEM {#10}I.CD_GRUPO||' . '||I.CD_FORNECEDOR1 CD_ITEM, I.DS_ITEM, LTC.QT_ITEM, {#10}-- IP.VL_DESCONTO,IP.VL_TOTAL,{#10}--IP.VL_UNITARIO, {#10}--IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) VL_LIQUIDO, {#10}COALESCE(IP.QT_PEDIDA, IP.PS_PEDIDO) PS_PEDIDO, {#10}--IP.VL_DESPESA, COALESCE(IP.ds_observacao, LI.DS_OBSITEM) DS_OBSITEM, {#10}LTC.VL_VENDA,CASE C.ST_CONDPAGTO {#10} WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(LTC.DT_VENCTO,'%d/%m/%Y') {#10} ELSE C.DS_CONDPAGTO {#10}END DS_CONDPAGTO, {#10}--PEDIDO {#10}N.NR_PEDIDO, N.TP_PEDIDO,COALESCE(LOR.DT_REGISTRO, L.DT_REGISTRO) DT_PEDIDO, N.DT_ENTREGA,COALESCE(LO.DT_REGISTRO, LTC.DT_REGISTRO) DT_TROCA, {#10}LO.CD_CONDPAGTO, LTC.DT_VENCTO DT_VENCIMENTO, L.NR_LOCACAO, {#10}LO.CD_FORMAPAGTO, F.DS_FORMAPAGTO, {#10}(
SELECT COUNT(ITEMPED.cd_item) {#10}
FROM ITEMPEDIDO ITEMPED {#10}
WHERE ITEMPED.CD_EMPRESA = N.cd_empresa {#10}
  AND ITEMPED.NR_PEDIDO = N.nr_pedido {#10}
  AND ITEMPED.TP_PEDIDO = N.tp_pedido {#10}
  AND B_TOTAL_LENGTH(ITEMPED.ds_observacao) > 0) QTD_OBSITEM, {#10}--CHAR_LENGTH {#10}LO.NR_MANGA,LO.NR_BARRA,LO.NR_BUSTO, {#10}LO.NR_GOLA,LO.NR_CINTURA,LO.NR_QUADRIL,LO.DS_OBSPRIMALUGUEL,{#10}LO.NR_COMPRIMENTO, L.TP_LOCACAO, LO.DT_EVENTO, LO.DS_OBSERVACAO,L.DS_PACOTE,{#10}LO.NR_TROCA QT_TROCA, {#10}(
SELECT COALESCE(SUM(VL_UNITARIO * QT_ITEM),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM(VL_UNITARIO * QT_ITEM),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}){#10} VL_DIFTROCA , {#10}((
SELECT COALESCE(SUM(VL_UNITARIO * QT_ITEM),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM(VL_UNITARIO * QT_ITEM),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}))* -1 {#10} VL_DIFTROCA2 , {#10}(
SELECT COALESCE(SUM(VL_DESCONTO),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} + {#10}(
SELECT COALESCE(SUM(VL_DESCONTO),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}){#10}VL_DESCTROCA, {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM) - COALESCE(VL_DESCONTO,0)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM) - COALESCE(VL_DESCONTO,0)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}){#10} VL_DIFTROCADESC ,{#10}((
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM) - COALESCE(VL_DESCONTO,0)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM) - COALESCE(VL_DESCONTO,0)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}))* -1{#10} VL_DIFTROCADESC2, PEU.NM_PESSOA NM_USUARIO, PE.NM_PESSOA RAZAO_SOCIAL, C.ST_CONDPAGTO, {#10}CASE WHEN LTC.TP_TROCA = 'E' THEN {#10}CASE WHEN{#10}((
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca})) < 0 THEN{#10}((
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca})) * -1 ELSE{#10}((
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca})) END ELSE 0 END / (CAST(:QT_PRODUTOS AS INTEGER)/CAST(:LINHA AS INTEGER)) VL_RATEADO, LTC.TP_TROCA{#10}
FROM PEDIDO N {#10}
INNER JOIN LOCACAO L ON (L.CD_EMPRESA = N.CD_EMPRESA {#10}
  AND L.NR_LOCACAO = N.NR_LOCACAO) {#10}
INNER JOIN LOCACAOORIGINAL LOR ON (LOR.CD_EMPRESA = N.CD_EMPRESA {#10}
  AND LOR.NR_LOCACAO = N.NR_LOCACAO) {#10}
INNER JOIN LOCACAOTROCA LO ON (LO.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LO.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND LO.NR_TROCA = {auxTrocaData}){#10}
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA) {#10}
INNER JOIN ITEMPEDIDO IP ON (N.NR_PEDIDO = IP.NR_PEDIDO {#10}
  AND N.CD_EMPRESA = IP.CD_EMPRESA {#10}
  AND N.TP_PEDIDO = IP.TP_PEDIDO) {#10}
INNER JOIN LOCACAOITEM LI ON (LI.CD_EMPRESA = L.CD_EMPRESA {#10}
  AND LI.NR_LOCACAO = L.NR_LOCACAO {#10}
  AND LI.CD_ITEM = IP.CD_ITEM) {#10+ valtroca}
JOIN LOCACAOITEMTROCA LTC ON (LTC.CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND LTC.NR_LOCACAO = LI.NR_LOCACAO {#10+ aux + #10 + qttroca}){#10}
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA {#10}
  AND EP.CD_ENDERECO = {#10} (
SELECT MIN(CD_ENDERECO) {#10}
FROM ENDERECOPESSOA ENDERPE {#10}
WHERE ENDERPE.CD_PESSOA = EP.CD_PESSOA)) {#10}
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO) {#10}
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA {#10}
  AND EE.CD_ENDERECO = {#10} (
SELECT MIN(CD_ENDERECO) {#10}
FROM ENDERECOPESSOA ENDER {#10}
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA)) {#10}
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO) {#10}
LEFT JOIN CONDPAGTO C ON (LO.CD_CONDPAGTO = C.CD_CONDPAGTO) {#10}
INNER JOIN ITEM I ON (I.CD_ITEM = LTC.CD_ITEM) {#10}
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA) {#10}
LEFT JOIN PESSOA V ON (V.CD_PESSOA = LO.CD_VENDEDOR) {#10}
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = LO.CD_FORMAPAGTO) {#10}
LEFT JOIN retorna_linhas(:LINHA) RL ON (1 = 1) {#10}
INNER JOIN USUARIO U ON (U.CD_USUARIO = LO.CD_USUARIO) {#10}
LEFT JOIN PESSOA PEU ON (PEU.CD_PESSOA = U.CD_PESSOA) {#10}
WHERE N.CD_EMPRESA = {iParametros}

Pedido #4

{frmLPD064}

Contas #1

SELECT C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO VL_PARCELA {#10}
FROM CONTAS C{#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = C.NR_LOCACAO){#10}
WHERE P.CD_EMPRESA = {iParametros}

Contas #2

SELECT C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO VL_PARCELA {#10}
FROM CONTAS C{#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = c.NR_LOCACAO){#10}
WHERE P.CD_EMPRESA = {iParametros}

Contas #3

SELECT C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO VL_PARCELA {#10}
FROM CONTAS C{#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = C.NR_LOCACAO){#10}
WHERE P.CD_EMPRESA = {iParametros}

Consulta #1

SELECT COUNT(LTC.CD_EMPRESA) {#10}
FROM LOCACAOITEMTROCA LTC{#10}
INNER JOIN LOCACAO L ON (L.CD_EMPRESA = LTC.CD_EMPRESA{#10}
  AND L.NR_LOCACAO = LTC.NR_LOCACAO){#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND P.CD_EMPRESA = L.CD_EMPRESA){#10}
WHERE LTC.CD_EMPRESA = {iParametros[1]+ #10}AND P.NR_PEDIDO = {iParametros[2]+ #10}AND QT_TROCA = (
SELECT MAX(QT_TROCA){#10}
FROM LOCACAOITEMTROCA{#10}
WHERE CD_EMPRESA = 1{#10}AND NR_LOCACAO = L.NR_LOCACAO)

Text #1

SELECT{#10}CASE LI.ST_BRINDE WHEN 'S' THEN 'Brinde' END TP_BRINDE, L.TP_LOCACAO,{#10}RL.o_nr_linha DS_QUEBRA, L.DS_PACOTE,{#10}--EMPRESA{#10}N.CD_EMPRESA,E.NM_EMPRESA NM_EMPRESA, PARM.DS_LOGOTIPO,{#10}EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ')||' - '||ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_ENDEREMP,{#10}COALESCE(EE.NR_FONE,'') NR_FONEEMP, EE.NR_CEP NR_CEPEMP, PE.DS_EMAIL, PE.DS_SITE, PE.NR_CNPJCPF, EE.NR_INSCEST, PE.NM_PESSOA RAZAO_SOCIAL ,{#10}--CLIENTE{#10}N.CD_PESSOA, P.CD_PESSOA||' - '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA,{#10}P.NR_CNPJCPF CNPJCPF_CLI, EP.NR_CEP,{#10}EP.DS_ENDERECO||COALESCE(' - '||EP.DS_BAIRRO, '')||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO,{#10}COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO,{#10}MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, COALESCE(EP.NR_INSCEST,PF.NR_RG) NR_INSCESTCLI,{#10}COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE_CLI, EP.NR_CELULAR NR_CEL_CLI,{#10}LO.CD_VENDEDOR||' - '||V.NM_PESSOA NM_VENDEDOR,LO.DT_RETIRADA, Lo.DT_DEVOLUCAO,{#10}P.DS_EMAIL EMAIL_CLI, COALESCE(EP.NR_FONE, EP.NR_CELULAR) FONECLIENTE,{#10}--ITEM{#10}I.CD_GRUPO||' . '||I.CD_FORNECEDOR1 CD_ITEM, I.DS_ITEM,{#10}LI.VL_UNITARIO, LI.VL_DESCONTO,SUM(LI.VL_DESCONTO) TOT_DESC, 0 VL_RATEADO, 0 VL_DIFTROCADESC,{#10}LI.VL_UNITARIO - COALESCE(LI.VL_DESCONTO,0) VL_LIQUIDO, SUM(LI.VL_UNITARIO - COALESCE(LI.VL_DESCONTO,0)) TOT_LIQ,{#10} LI.DS_OBSITEM DS_OBSITEM, LI.VL_VENDA,{#10}CASE C.ST_CONDPAGTO{#10} WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(N.DT_VENCIMENTO,'%d/%m/%Y'){#10} ELSE C.DS_CONDPAGTO{#10}END DS_CONDPAGTO,{#10}--PEDIDO{#10}N.NR_PEDIDO, N.TP_PEDIDO, N.DT_ENTREGA,{#10}N.DT_VENCIMENTO, L.NR_LOCACAO,{#10}(
SELECT COUNT(ITEMPED.cd_item){#10}
FROM ITEMPEDIDO ITEMPED{#10}
WHERE ITEMPED.CD_EMPRESA = N.cd_empresa{#10}
  AND ITEMPED.NR_PEDIDO = N.nr_pedido{#10}
  AND ITEMPED.TP_PEDIDO = N.tp_pedido{#10}AND CHAR_LENGTH(ITEMPED.ds_observacao) > 0) QTD_OBSITEM,{#10}{#10}LO.DS_OBSERVACAO,{#10}--LOCACAO{#10}LO.NR_MANGA,LO.NR_BARRA,LO.NR_BUSTO,LO.NR_GOLA,LO.NR_CINTURA,LO.NR_QUADRIL,LO.DS_OBSPRIMALUGUEL,{#10}LO.NR_COMPRIMENTO,L.TP_LOCACAO, Lo.DT_EVENTO, LO.CD_CONDPAGTO, LO.CD_FORMAPAGTO,F.DS_FORMAPAGTO,{#10}--TROCA{#10}LO.NR_TROCA QT_TROCA,COALESCE(LOR.DT_REGISTRO,L.DT_REGISTRO) DT_PEDIDO, LO.DT_REGISTRO DT_TROCA,{#10}--USUARIO{#10}PEU.NM_PESSOA NM_USUARIO{#10}
FROM PEDIDO N{#10}
INNER JOIN LOCACAO L ON (L.CD_EMPRESA = N.CD_EMPRESA{#10}
  AND L.NR_LOCACAO = N.NR_LOCACAO){#10}
INNER JOIN LOCACAOTROCA LO ON (LO.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LO.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND LO.NR_TROCA = {auxTrocaData}){#10}
INNER JOIN LOCACAOORIGINAL LOR ON (LOR.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LOR.NR_LOCACAO = L.NR_LOCACAO){#10}
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA){#10}
INNER JOIN LOCACAOORIGINALITEM LRI ON (LRI.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LRI.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND LRI.NR_PEDIDO = N.NR_PEDIDO){#10}
INNER JOIN LOCACAOITEM LI ON (LI.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LI.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND LI.CD_ITEM = LRI.CD_ITEM){#10}
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA){#10}
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA{#10}
  AND EP.CD_ENDERECO ={#10} (
SELECT MIN(CD_ENDERECO) {#10}
FROM ENDERECOPESSOA ENDERPE{#10}
WHERE ENDERPE.CD_PESSOA = EP.CD_PESSOA)){#10}
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO){#10}
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA){#10}
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA){#10}
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA{#10}
  AND EE.CD_ENDERECO ={#10} (
SELECT MIN(CD_ENDERECO){#10}
FROM ENDERECOPESSOA ENDER{#10}
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA)){#10}
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO){#10}{#10}
INNER JOIN ITEM I ON (LRI.CD_ITEM = I.CD_ITEM){#10}
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA){#10}
LEFT JOIN retorna_linhas(:LINHA) RL ON (1 = 1){#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = LO.CD_USUARIO){#10}
LEFT JOIN PESSOA PEU ON (PEU.CD_PESSOA = U.CD_PESSOA){#10}
LEFT JOIN PESSOA V ON (V.CD_PESSOA = LO.CD_VENDEDOR){#10}
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = LO.CD_FORMAPAGTO){#10}
LEFT JOIN CONDPAGTO C ON (LO.CD_CONDPAGTO = C.CD_CONDPAGTO){#10}
WHERE N.CD_EMPRESA = {iParametros[1] + #10}
  AND N.NR_PEDIDO = {iParametros[2] + #10}
  AND N.TP_PEDIDO = {Nulo(iParametros[3],}S{) + #10}{#10}
ORDER BY RL.o_nr_linha, L.NR_LOCACAO, I.ds_item

Text #2

SELECT DISTINCT {#10}CASE LTC.ST_BRINDE WHEN 'S' THEN 'Brinde' end TP_BRINDE, L.TP_LOCACAO, {#10}RL.o_nr_linha DS_QUEBRA, {#10}--EMPRESA {#10}N.CD_EMPRESA, E.NM_EMPRESA NM_EMPRESA, PARM.DS_LOGOTIPO, {#10}EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ')||' - '||ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_ENDEREMP, {#10}COALESCE(EE.NR_FONE,'') NR_FONEEMP, EE.NR_CEP NR_CEPEMP, PE.DS_EMAIL, PE.DS_SITE, PE.NR_CNPJCPF, EE.NR_INSCEST, {#10}--CLIENTE {#10}N.CD_PESSOA, P.CD_PESSOA||' - '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA, {#10}P.NR_CNPJCPF CNPJCPF_CLI, EP.NR_CEP, {#10}EP.DS_ENDERECO||COALESCE(' - '||EP.DS_BAIRRO, '')||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, {#10}COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, {#10}MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, COALESCE(EP.NR_INSCEST,PF.NR_RG) NR_INSCESTCLI, {#10}COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE_CLI, EP.NR_CELULAR NR_CEL_CLI, {#10}LO.CD_VENDEDOR||' - '||V.NM_PESSOA NM_VENDEDOR,LO.DT_RETIRADA, LO.DT_DEVOLUCAO, {#10}P.DS_EMAIL EMAIL_CLI, COALESCE(EP.NR_FONE, EP.NR_CELULAR) FONECLIENTE, {#10}--ITEM {#10}I.CD_GRUPO||' . '||I.CD_FORNECEDOR1 CD_ITEM, I.DS_ITEM, LTC.QT_ITEM, {#10}-- IP.VL_DESCONTO,IP.VL_TOTAL,{#10}--IP.VL_UNITARIO, {#10}--IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) VL_LIQUIDO, {#10}COALESCE(IP.QT_PEDIDA, IP.PS_PEDIDO) PS_PEDIDO, {#10}--IP.VL_DESPESA, COALESCE(IP.ds_observacao, LI.DS_OBSITEM) DS_OBSITEM, {#10}LTC.VL_VENDA,CASE C.ST_CONDPAGTO {#10} WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(LTC.DT_VENCTO,'%d/%m/%Y') {#10} ELSE C.DS_CONDPAGTO {#10}END DS_CONDPAGTO, {#10}--PEDIDO {#10}N.NR_PEDIDO, N.TP_PEDIDO,COALESCE(LOR.DT_REGISTRO, L.DT_REGISTRO) DT_PEDIDO, N.DT_ENTREGA,COALESCE(LO.DT_REGISTRO, LTC.DT_REGISTRO) DT_TROCA, {#10}LO.CD_CONDPAGTO, LTC.DT_VENCTO DT_VENCIMENTO, L.NR_LOCACAO, {#10}LO.CD_FORMAPAGTO, F.DS_FORMAPAGTO, {#10}(
SELECT COUNT(ITEMPED.cd_item) {#10}
FROM ITEMPEDIDO ITEMPED {#10}
WHERE ITEMPED.CD_EMPRESA = N.cd_empresa {#10}
  AND ITEMPED.NR_PEDIDO = N.nr_pedido {#10}
  AND ITEMPED.TP_PEDIDO = N.tp_pedido {#10}
  AND B_TOTAL_LENGTH(ITEMPED.ds_observacao) > 0) QTD_OBSITEM, {#10}--CHAR_LENGTH {#10}LO.NR_MANGA,LO.NR_BARRA,LO.NR_BUSTO, {#10}LO.NR_GOLA,LO.NR_CINTURA,LO.NR_QUADRIL,LO.DS_OBSPRIMALUGUEL,{#10}LO.NR_COMPRIMENTO, L.TP_LOCACAO, LO.DT_EVENTO, LO.DS_OBSERVACAO,L.DS_PACOTE,{#10}LO.NR_TROCA QT_TROCA, {#10}(
SELECT COALESCE(SUM(VL_UNITARIO * QT_ITEM),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM(VL_UNITARIO * QT_ITEM),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}){#10} VL_DIFTROCA , {#10}((
SELECT COALESCE(SUM(VL_UNITARIO * QT_ITEM),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM(VL_UNITARIO * QT_ITEM),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}))* -1 {#10} VL_DIFTROCA2 , {#10}(
SELECT COALESCE(SUM(VL_DESCONTO),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} + {#10}(
SELECT COALESCE(SUM(VL_DESCONTO),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}){#10}VL_DESCTROCA, {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM) - COALESCE(VL_DESCONTO,0)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM) - COALESCE(VL_DESCONTO,0)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}){#10} VL_DIFTROCADESC ,{#10}((
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM) - COALESCE(VL_DESCONTO,0)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM) - COALESCE(VL_DESCONTO,0)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca}))* -1{#10} VL_DIFTROCADESC2, PEU.NM_PESSOA NM_USUARIO, PE.NM_PESSOA RAZAO_SOCIAL, C.ST_CONDPAGTO, {#10}CASE WHEN LTC.TP_TROCA = 'E' THEN {#10}CASE WHEN{#10}((
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca})) < 0 THEN{#10}((
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca})) * -1 ELSE{#10}((
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'S' {#10+ qttroca}){#10} - {#10}(
SELECT COALESCE(SUM((VL_UNITARIO * QT_ITEM)),0) {#10}
FROM LOCACAOITEMTROCA {#10}
WHERE CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND NR_LOCACAO = LI.NR_LOCACAO {#10}
  AND TP_TROCA = 'E' {#10+ qttroca})) END ELSE 0 END / (CAST(:QT_PRODUTOS AS INTEGER)/CAST(:LINHA AS INTEGER)) VL_RATEADO, LTC.TP_TROCA{#10}
FROM PEDIDO N {#10}
INNER JOIN LOCACAO L ON (L.CD_EMPRESA = N.CD_EMPRESA {#10}
  AND L.NR_LOCACAO = N.NR_LOCACAO) {#10}
INNER JOIN LOCACAOORIGINAL LOR ON (LOR.CD_EMPRESA = N.CD_EMPRESA {#10}
  AND LOR.NR_LOCACAO = N.NR_LOCACAO) {#10}
INNER JOIN LOCACAOTROCA LO ON (LO.CD_EMPRESA = L.CD_EMPRESA{#10}
  AND LO.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND LO.NR_TROCA = {auxTrocaData}){#10}
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA) {#10}
INNER JOIN ITEMPEDIDO IP ON (N.NR_PEDIDO = IP.NR_PEDIDO {#10}
  AND N.CD_EMPRESA = IP.CD_EMPRESA {#10}
  AND N.TP_PEDIDO = IP.TP_PEDIDO) {#10}
INNER JOIN LOCACAOITEM LI ON (LI.CD_EMPRESA = L.CD_EMPRESA {#10}
  AND LI.NR_LOCACAO = L.NR_LOCACAO {#10}
  AND LI.CD_ITEM = IP.CD_ITEM) {#10+ valtroca}
JOIN LOCACAOITEMTROCA LTC ON (LTC.CD_EMPRESA = LI.CD_EMPRESA {#10}
  AND LTC.NR_LOCACAO = LI.NR_LOCACAO {#10+ aux + #10 + qttroca}){#10}
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA {#10}
  AND EP.CD_ENDERECO = {#10} (
SELECT MIN(CD_ENDERECO) {#10}
FROM ENDERECOPESSOA ENDERPE {#10}
WHERE ENDERPE.CD_PESSOA = EP.CD_PESSOA)) {#10}
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO) {#10}
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA {#10}
  AND EE.CD_ENDERECO = {#10} (
SELECT MIN(CD_ENDERECO) {#10}
FROM ENDERECOPESSOA ENDER {#10}
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA)) {#10}
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO) {#10}
LEFT JOIN CONDPAGTO C ON (LO.CD_CONDPAGTO = C.CD_CONDPAGTO) {#10}
INNER JOIN ITEM I ON (I.CD_ITEM = LTC.CD_ITEM) {#10}
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA) {#10}
LEFT JOIN PESSOA V ON (V.CD_PESSOA = LO.CD_VENDEDOR) {#10}
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = LO.CD_FORMAPAGTO) {#10}
LEFT JOIN retorna_linhas(:LINHA) RL ON (1 = 1) {#10}
INNER JOIN USUARIO U ON (U.CD_USUARIO = LO.CD_USUARIO) {#10}
LEFT JOIN PESSOA PEU ON (PEU.CD_PESSOA = U.CD_PESSOA) {#10}
WHERE N.CD_EMPRESA = {iParametros[1] +#10}
  AND N.NR_PEDIDO = {iParametros[2] +#10}
  AND N.TP_PEDIDO = {Nulo(iParametros[3],}S{) +#10}
ORDER BY RL.o_nr_linha, L.NR_LOCACAO, I.ds_item

Consulta #2

SELECT COUNT(LTC.CD_EMPRESA){#10}
FROM LOCACAOITEMTROCA LTC{#10}
INNER JOIN LOCACAO L ON (L.CD_EMPRESA = LTC.CD_EMPRESA{#10}
  AND L.NR_LOCACAO = LTC.NR_LOCACAO){#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND P.CD_EMPRESA = L.CD_EMPRESA){#10}
WHERE LTC.CD_EMPRESA = {iParametros[1] + #10}AND P.NR_PEDIDO = {iParametros[2] + #10}AND QT_TROCA = {iParametros[9]}

Consulta #3

SELECT MAX(QT_TROCA)
FROM LOCACAOITEMTROCA T {#10}
INNER JOIN LOCACAO L ON (L.NR_LOCACAO = T.NR_LOCACAO {#10}
  AND L.CD_EMPRESA = T.CD_EMPRESA) {#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = L.NR_LOCACAO) {#10}
WHERE P.CD_EMPRESA = {iParametros[1] + #10}AND P.NR_PEDIDO = {iParametros[2] + #10}AND P.TP_PEDIDO = {QuotedStr(iParametros[3]) + #10}AND T.QT_TROCA < {iParametros[9]}

Consulta #4

SELECT COUNT(LTC.CD_EMPRESA){#10}
FROM LOCACAOITEMTROCA LTC{#10}
INNER JOIN LOCACAO L ON (L.CD_EMPRESA = LTC.CD_EMPRESA{#10}
  AND L.NR_LOCACAO = LTC.NR_LOCACAO){#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = L.NR_LOCACAO{#10}
  AND P.CD_EMPRESA = L.CD_EMPRESA){#10}
WHERE LTC.CD_EMPRESA = {iParametros[1] + #10}AND P.NR_PEDIDO = {iParametros[2] + #10}AND QT_TROCA = CAST((
SELECT MAX(NR_TROCA)
FROM LOCACAOTROCA L
WHERE L.NR_LOCACAO = LTC.NR_LOCACAO) AS VARCHAR(2))

Consulta #5

SELECT COUNT(NR_TROCA)
FROM LOCACAOTROCA T
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = T.NR_LOCACAO
  AND P.CD_EMPRESA = T.CD_EMPRESA )
WHERE T.CD_EMPRESA = {iParametros[1]}
  AND P.NR_PEDIDO = {iParametros[2]}

Text #3

SELECT C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO VL_PARCELA {#10}
FROM CONTAS C{#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = C.NR_LOCACAO){#10}
WHERE P.CD_EMPRESA = {iParametros[1] + #10}AND P.NR_PEDIDO = {iParametros[2] + #10}AND P.TP_PEDIDO = {Nulo(iParametros[3],}S{) + #10}AND C.NR_TROCA = 'L'

Text #4

SELECT C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO VL_PARCELA {#10}
FROM CONTAS C{#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = c.NR_LOCACAO){#10}
WHERE P.CD_EMPRESA = {iParametros[1] + #10}AND P.NR_PEDIDO = {iParametros[2] + #10}AND P.TP_PEDIDO = {Nulo(iParametros[3],}S{) + #10}AND C.NR_TROCA = CAST((
SELECT MAX(QT_TROCA)
FROM LOCACAOITEMTROCA T {#10}
INNER JOIN LOCACAO L ON (L.NR_LOCACAO = T.NR_LOCACAO {#10}
  AND L.CD_EMPRESA = T.CD_EMPRESA) {#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = L.NR_LOCACAO) {#10}
WHERE P.CD_EMPRESA = {iParametros[1] + #10}AND P.NR_PEDIDO = {iParametros[2] + #10}AND P.TP_PEDIDO = {QuotedStr(iParametros[3]) + #10}AND T.QT_TROCA < CAST((
SELECT MAX(NR_TROCA)
FROM LOCACAOTROCA L
WHERE L.NR_LOCACAO = C.NR_LOCACAO) AS VARCHAR(2))) AS VARCHAR(2))

Text #5

SELECT C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO VL_PARCELA {#10}
FROM CONTAS C{#10}
INNER JOIN PEDIDO P ON (P.NR_LOCACAO = C.NR_LOCACAO){#10}
WHERE P.CD_EMPRESA = {iParametros[1] + #10}AND P.NR_PEDIDO = {iParametros[2] + #10}AND P.TP_PEDIDO = {Nulo(iParametros[3],}S{) + #10}AND C.NR_TROCA = CAST((
SELECT MAX(NR_TROCA)
FROM LOCACAOTROCA L
WHERE L.NR_LOCACAO = C.NR_LOCACAO) AS VARCHAR(2))

Tabelas Utilizadas

Tabela	Uso
CONDPAGTO	referenciada nas queries do layout
CONTAS	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
ITEMPEDIDO	referenciada nas queries do layout
LOCACAO	referenciada nas queries do layout
LOCACAOITEM	referenciada nas queries do layout
LOCACAOITEMTROCA	referenciada nas queries do layout
LOCACAOORIGINAL	referenciada nas queries do layout
LOCACAOORIGINALITEM	referenciada nas queries do layout
LOCACAOTROCA	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PEDIDO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PESSOAFISICA	referenciada nas queries do layout
RETORNA_LINHAS	referenciada nas queries do layout
USUARIO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LPD064/ULPD064.pas
• DFM: source/LPD064/ULPD064.dfm
• Package: source/LPD064/LPD064.dpk