LPD108 — Listagem LPD108

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, AS, NR_L (+13).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Pedido
  // 3 - Tp Pedido
  // 4 - Path Servidor
  // 5 - Tipo
  // 6 - Usuario
  // 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, CASE L.TP_LOCACAO WHEN 'L' THEN COALESCE(LI.VL_LOCACAO, 0) WHEN 'V' THEN COALESCE(LI.VL_VENDA, 0) ELSE COALESCE(LI.VL_UNITARIO, 0) END - COALESCE(LI.VL_DESCONTO,0) VL_LIQUIDO, LI.DS_OBSITEM DS_OBSITEM, LI.VL_VENDA, 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, CASE C.ST_CONDPAGTO WHEN 'D' THEN 'VENCTO.: '||FORMATA_DATA(N.DT_VENCIMENTO,'%d/%M/%Y') ELSE C.DS_CONDPAGTO END DS_CONDPAGTO, CASE L.TP_LOCACAO WHEN 'L' THEN COALESCE(LI.VL_LOCACAO, 0) WHEN 'V' THEN COALESCE(LI.VL_VENDA, 0) ELSE COALESCE(LI.VL_UNITARIO, 0) END VL_ITEM, --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, CAST(:QT_PRODUTOS AS INTEGER), CAST(:NR_LINHA AS INTEGER), '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 (I.CD_ITEM = LI.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)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_PEDIDO = :NR_PEDIDO
  AND N.TP_PEDIDO = :TP_PEDIDO
ORDER BY RL.O_NR_LINHA, L.NR_LOCACAO, I.DS_ITEM QT_PRODUTOS NR_LINHA linha CD_EMPRESA NR_PEDIDO TP_PEDIDO
SELECT CASE C.DT_VENCIMENTO WHEN C.DT_LANCAMENTO THEN 0 ELSE C.NR_PARCELA END NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO VL_PARCELA
FROM CONTAS C
INNER JOIN PEDIDO P ON (P.CD_EMPRESA = C.CD_EMPRESA
  AND 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

`Pedido #2`

SELECT{#10} CASE LI.ST_BRINDE {#10} WHEN 'S' THEN 'Brinde'{#10} 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} CASE L.TP_LOCACAO {#10} WHEN 'L' {#10} THEN COALESCE(LI.VL_LOCACAO, 0) {#10} WHEN 'V' {#10} THEN COALESCE(LI.VL_VENDA, 0) {#10} ELSE COALESCE(LI.VL_UNITARIO, 0) {#10} END - COALESCE(LI.VL_DESCONTO,0) VL_LIQUIDO, {#10} 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}CASE L.TP_LOCACAO {#10} WHEN 'L' {#10} THEN COALESCE(LI.VL_LOCACAO, 0) {#10} WHEN 'V' {#10} THEN COALESCE(LI.VL_VENDA, 0) {#10}ELSE COALESCE(LI.VL_UNITARIO, 0) END VL_ITEM, {#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 {#10} ) QTD_OBSITEM,{#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, CAST(:QT_PRODUTOS AS INTEGER), CAST(:NR_LINHA AS INTEGER), 'L' NR_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 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 = :CD_EMPRESA{#10}
  AND N.NR_PEDIDO = :NR_PEDIDO{#10}
  AND N.TP_PEDIDO = :TP_PEDIDO{#10}{#10}
GROUP BY CASE LI.ST_BRINDE{#10}WHEN 'S' THEN 'Brinde' {#10}END , L.TP_LOCACAO,{#10}RL.O_NR_LINHA , L.DS_PACOTE,{#10}--EMPRESA{#10}N.CD_EMPRESA,E.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 ,{#10}COALESCE(EE.NR_FONE,'') , EE.NR_CEP , PE.DS_EMAIL, PE.DS_SITE, PE.NR_CNPJCPF, EE.NR_INSCEST, PE.NM_PESSOA ,{#10}--CLIENTE{#10}N.CD_PESSOA, P.CD_PESSOA||' - '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') ,{#10}P.NR_CNPJCPF , EP.NR_CEP,{#10}EP.DS_ENDERECO||COALESCE(' - '||EP.DS_BAIRRO, '')||COALESCE(', '||EP.NR_ENDERECO,' ') ,{#10}COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) ,{#10}MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO , COALESCE(EP.NR_INSCEST,PF.NR_RG) ,{#10}COALESCE(EP.NR_FONE, EP.NR_FAX) , EP.NR_CELULAR ,{#10}LO.CD_VENDEDOR||' - '||V.NM_PESSOA ,LO.DT_RETIRADA, LO.DT_DEVOLUCAO,{#10}P.DS_EMAIL , COALESCE(EP.NR_FONE, EP.NR_CELULAR) ,{#10}--ITEM{#10}I.CD_GRUPO||' . '||I.CD_FORNECEDOR1 , I.DS_ITEM,{#10}LI.VL_UNITARIO, LI.VL_DESCONTO,{#10}CASE L.TP_LOCACAO{#10}WHEN 'L'{#10}THEN COALESCE(LI.VL_LOCACAO, 0){#10}WHEN 'V'{#10}THEN COALESCE(LI.VL_VENDA, 0){#10} ELSE COALESCE(LI.VL_UNITARIO, 0){#10} END - COALESCE(LI.VL_DESCONTO,0) ,{#10} LI.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 ,{#10} CASE L.TP_LOCACAO{#10} WHEN 'L'{#10} THEN COALESCE(LI.VL_LOCACAO, 0){#10} WHEN 'V'{#10} THEN COALESCE(LI.VL_VENDA, 0){#10} ELSE COALESCE(LI.VL_UNITARIO, 0) END ,{#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{#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 ,COALESCE(LOR.DT_REGISTRO,L.DT_REGISTRO) , LO.DT_REGISTRO ,{#10} --USUARIO{#10} PEU.NM_PESSOA

`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}CASE L.TP_LOCACAO {#10} WHEN 'L' {#10} THEN COALESCE(LI.VL_LOCACAO, 0) {#10} WHEN 'V' {#10} THEN COALESCE(LI.VL_VENDA, 0) {#10}ELSE COALESCE(LI.VL_UNITARIO, 0) END VL_ITEM, {#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 CHAR_LENGTH(ITEMPED.ds_observacao) > 0) QTD_OBSITEM, {#10}--LOCACAO {#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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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, 'L' NR_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 = :CD_EMPRESA {#10}
  AND N.NR_PEDIDO = :NR_PEDIDO {#10}
  AND N.TP_PEDIDO = :TP_PEDIDO {#10}
GROUP BY LO.CD_EMPRESA, LO.NR_LOCACAO,{#10}LTC.ST_BRINDE , L.TP_LOCACAO,RL.o_nr_linha , IP.VL_UNITARIO, N.CD_EMPRESA, E.NM_EMPRESA , PARM.DS_LOGOTIPO,{#10}EE.DS_ENDERECO,EE.NR_ENDERECO,EE.DS_BAIRRO, EE.DS_COMPLEMENTO,ME.DS_MUNICIPIO,ME.SG_ESTADO ,{#10}EE.NR_FONE,EE.NR_FAX,EE.NR_CEP , PE.DS_EMAIL, PE.DS_SITE, PE.NR_CNPJCPF, EE.NR_INSCEST,{#10}N.CD_PESSOA, P.CD_PESSOA,P.NM_PESSOA,P.NM_FANTASIA,P.NR_CNPJCPF , EP.NR_CEP,{#10}EP.DS_ENDERECO,EP.DS_BAIRRO, EP.NR_ENDERECO, EP.DS_BAIRRO, EP.DS_COMPLEMENTO,{#10}MP.DS_MUNICIPIO,MP.SG_ESTADO , EP.NR_INSCEST,PF.NR_RG,EP.NR_FONE, EP.NR_FAX, EP.NR_CELULAR ,{#10}LO.CD_VENDEDOR,V.NM_PESSOA ,L.DT_RETIRADA, L.DT_DEVOLUCAO,P.DS_EMAIL , EP.NR_FONE, EP.NR_CELULAR,{#10}I.CD_GRUPO,I.CD_FORNECEDOR1 , I.DS_ITEM, IP.QT_PEDIDA, IP.PS_PEDIDO,{#10}C.ST_CONDPAGTO , C.DS_CONDPAGTO,N.NR_PEDIDO, N.TP_PEDIDO, L.DT_REGISTRO, N.DT_ENTREGA, LTC.DT_REGISTRO ,{#10}N.CD_CONDPAGTO, LTC.DT_VENCTO , L.NR_LOCACAO, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO,LI.CD_EMPRESA,LI.NR_LOCACAO,{#10}L.DS_OBSERVACAO,L.DS_PACOTE,L.NR_MANGA, L.NR_BARRA, L.NR_BUSTO, L.NR_GOLA, L.NR_CINTURA,{#10}L.NR_QUADRIL, L.DS_OBSPRIMALUGUEL, L.NR_COMPRIMENTO, L.TP_LOCACAO, L.DT_EVENTO ,{#10}VL_DIFTROCADESC2, PEU.NM_PESSOA , PE.NM_PESSOA , C.ST_CONDPAGTO,LO.NR_TROCA,{#10}LO.NR_MANGA, LO.NR_BARRA, LO.NR_BUSTO, LO.NR_GOLA, LO.NR_CINTURA, {#10}LO.NR_QUADRIL, LO.DS_OBSPRIMALUGUEL, LO.NR_COMPRIMENTO,LO.CD_CONDPAGTO, LO.CD_FORMAPAGTO,LTC.TP_TROCA, LO.CD_USUARIO,{#10}LO.DT_RETIRADA,LO.DT_DEVOLUCAO,LO.DT_EVENTO,LO.DT_REGISTRO,LOR.DT_REGISTRO,LO.DS_OBSERVACAO,LTC.VL_VENDA,LTC.QT_ITEM, VL_ITEM {#10}
ORDER BY RL.o_nr_linha, L.NR_LOCACAO, I.ds_item

`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 {#10} WHEN 'S' THEN 'Brinde'{#10} 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} CASE L.TP_LOCACAO {#10} WHEN 'L' {#10} THEN COALESCE(LI.VL_LOCACAO, 0) {#10} WHEN 'V' {#10} THEN COALESCE(LI.VL_VENDA, 0) {#10} ELSE COALESCE(LI.VL_UNITARIO, 0) {#10} END - COALESCE(LI.VL_DESCONTO,0) VL_LIQUIDO, {#10} 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}CASE L.TP_LOCACAO {#10} WHEN 'L' {#10} THEN COALESCE(LI.VL_LOCACAO, 0) {#10} WHEN 'V' {#10} THEN COALESCE(LI.VL_VENDA, 0) {#10}ELSE COALESCE(LI.VL_UNITARIO, 0) END VL_ITEM, {#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 {#10} ) QTD_OBSITEM,{#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, CAST(:QT_PRODUTOS AS INTEGER), CAST(:NR_LINHA AS INTEGER), 'L' NR_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 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 = :CD_EMPRESA{#10}
  AND N.NR_PEDIDO = :NR_PEDIDO{#10}
  AND N.TP_PEDIDO = :TP_PEDIDO{#10}{#10}
GROUP BY CASE LI.ST_BRINDE{#10}WHEN 'S' THEN 'Brinde' {#10}END , L.TP_LOCACAO,{#10}RL.O_NR_LINHA , L.DS_PACOTE,{#10}--EMPRESA{#10}N.CD_EMPRESA,E.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 ,{#10}COALESCE(EE.NR_FONE,'') , EE.NR_CEP , PE.DS_EMAIL, PE.DS_SITE, PE.NR_CNPJCPF, EE.NR_INSCEST, PE.NM_PESSOA ,{#10}--CLIENTE{#10}N.CD_PESSOA, P.CD_PESSOA||' - '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') ,{#10}P.NR_CNPJCPF , EP.NR_CEP,{#10}EP.DS_ENDERECO||COALESCE(' - '||EP.DS_BAIRRO, '')||COALESCE(', '||EP.NR_ENDERECO,' ') ,{#10}COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) ,{#10}MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO , COALESCE(EP.NR_INSCEST,PF.NR_RG) ,{#10}COALESCE(EP.NR_FONE, EP.NR_FAX) , EP.NR_CELULAR ,{#10}LO.CD_VENDEDOR||' - '||V.NM_PESSOA ,LO.DT_RETIRADA, LO.DT_DEVOLUCAO,{#10}P.DS_EMAIL , COALESCE(EP.NR_FONE, EP.NR_CELULAR) ,{#10}--ITEM{#10}I.CD_GRUPO||' . '||I.CD_FORNECEDOR1 , I.DS_ITEM,{#10}LI.VL_UNITARIO, LI.VL_DESCONTO,{#10}CASE L.TP_LOCACAO{#10}WHEN 'L'{#10}THEN COALESCE(LI.VL_LOCACAO, 0){#10}WHEN 'V'{#10}THEN COALESCE(LI.VL_VENDA, 0){#10} ELSE COALESCE(LI.VL_UNITARIO, 0){#10} END - COALESCE(LI.VL_DESCONTO,0) ,{#10} LI.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 ,{#10} CASE L.TP_LOCACAO{#10} WHEN 'L'{#10} THEN COALESCE(LI.VL_LOCACAO, 0){#10} WHEN 'V'{#10} THEN COALESCE(LI.VL_VENDA, 0){#10} ELSE COALESCE(LI.VL_UNITARIO, 0) END ,{#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{#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 ,COALESCE(LOR.DT_REGISTRO,L.DT_REGISTRO) , LO.DT_REGISTRO ,{#10} --USUARIO{#10} PEU.NM_PESSOA

`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}CASE L.TP_LOCACAO {#10} WHEN 'L' {#10} THEN COALESCE(LI.VL_LOCACAO, 0) {#10} WHEN 'V' {#10} THEN COALESCE(LI.VL_VENDA, 0) {#10}ELSE COALESCE(LI.VL_UNITARIO, 0) END VL_ITEM, {#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 CHAR_LENGTH(ITEMPED.ds_observacao) > 0) QTD_OBSITEM, {#10}--LOCACAO {#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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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(QT_ITEM * VL_UNITARIO),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, 'L' NR_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 = :CD_EMPRESA {#10}
  AND N.NR_PEDIDO = :NR_PEDIDO {#10}
  AND N.TP_PEDIDO = :TP_PEDIDO {#10}
GROUP BY LO.CD_EMPRESA, LO.NR_LOCACAO,{#10}LTC.ST_BRINDE , L.TP_LOCACAO,RL.o_nr_linha , IP.VL_UNITARIO, N.CD_EMPRESA, E.NM_EMPRESA , PARM.DS_LOGOTIPO,{#10}EE.DS_ENDERECO,EE.NR_ENDERECO,EE.DS_BAIRRO, EE.DS_COMPLEMENTO,ME.DS_MUNICIPIO,ME.SG_ESTADO ,{#10}EE.NR_FONE,EE.NR_FAX,EE.NR_CEP , PE.DS_EMAIL, PE.DS_SITE, PE.NR_CNPJCPF, EE.NR_INSCEST,{#10}N.CD_PESSOA, P.CD_PESSOA,P.NM_PESSOA,P.NM_FANTASIA,P.NR_CNPJCPF , EP.NR_CEP,{#10}EP.DS_ENDERECO,EP.DS_BAIRRO, EP.NR_ENDERECO, EP.DS_BAIRRO, EP.DS_COMPLEMENTO,{#10}MP.DS_MUNICIPIO,MP.SG_ESTADO , EP.NR_INSCEST,PF.NR_RG,EP.NR_FONE, EP.NR_FAX, EP.NR_CELULAR ,{#10}LO.CD_VENDEDOR,V.NM_PESSOA ,L.DT_RETIRADA, L.DT_DEVOLUCAO,P.DS_EMAIL , EP.NR_FONE, EP.NR_CELULAR,{#10}I.CD_GRUPO,I.CD_FORNECEDOR1 , I.DS_ITEM, IP.QT_PEDIDA, IP.PS_PEDIDO,{#10}C.ST_CONDPAGTO , C.DS_CONDPAGTO,N.NR_PEDIDO, N.TP_PEDIDO, L.DT_REGISTRO, N.DT_ENTREGA, LTC.DT_REGISTRO ,{#10}N.CD_CONDPAGTO, LTC.DT_VENCTO , L.NR_LOCACAO, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO,LI.CD_EMPRESA,LI.NR_LOCACAO,{#10}L.DS_OBSERVACAO,L.DS_PACOTE,L.NR_MANGA, L.NR_BARRA, L.NR_BUSTO, L.NR_GOLA, L.NR_CINTURA,{#10}L.NR_QUADRIL, L.DS_OBSPRIMALUGUEL, L.NR_COMPRIMENTO, L.TP_LOCACAO, L.DT_EVENTO ,{#10}VL_DIFTROCADESC2, PEU.NM_PESSOA , PE.NM_PESSOA , C.ST_CONDPAGTO,LO.NR_TROCA,{#10}LO.NR_MANGA, LO.NR_BARRA, LO.NR_BUSTO, LO.NR_GOLA, LO.NR_CINTURA, {#10}LO.NR_QUADRIL, LO.DS_OBSPRIMALUGUEL, LO.NR_COMPRIMENTO,LO.CD_CONDPAGTO, LO.CD_FORMAPAGTO,LTC.TP_TROCA, LO.CD_USUARIO,{#10}LO.DT_RETIRADA,LO.DT_DEVOLUCAO,LO.DT_EVENTO,LO.DT_REGISTRO,LOR.DT_REGISTRO,LO.DS_OBSERVACAO,LTC.VL_VENDA,LTC.QT_ITEM, VL_ITEM {#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/LPD108/ULPD108.pas
DFM: source/LPD108/ULPD108.dfm
Package: source/LPD108/LPD108.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Pedido #1​

Pedido #2​

Pedido #3​

Contas #1​

Contas #2​

Contas #3​

Consulta #1​

Text #1​

Text #2​

Consulta #2​

Consulta #3​

Consulta #4​

Consulta #5​

Text #3​

Text #4​

Text #5​

Tabelas Utilizadas​

Shared Units​

Fonte​