LTC003 — Layout LTC003

Visão Geral

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

Descrição

Consulta baseada em ITEMTROCA, com junção em PESSOA, ITEM, MARCA, GRADE, RETORNA_DADOSCADASTRAIS, MUNICIPIO (+9), filtrada por CD_EMPRESA, NR_TROCA, JO, CD_PESSOA, CD_ITEM, CD_MARCA (+5).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout da Nota Fiscal
  // 1 - Cod Empresa
  // 2 - Nr Troca
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
]);

SQL Base

`tabPedido`

SELECT DISTINCT --EMPRESA-- N.CD_EMPRESA, PE.NM_PESSOA NM_EMPRESA, PE.NM_FANTASIA , PE.NR_CNPJCPF NR_CNPJEMPRESA, EE.NR_INSCEST NR_INSCESTEMPRESA, EE.NR_INSCMUN NR_INSCMUNEMPRESA, PE.DS_SITE DS_SITEEMPRESA, PE.DS_EMAIL DS_EMAILEMPRESA, EE.DS_ENDERECO DS_ENDEMPRESA, EE.NR_ENDERECO NR_ENDEMPRESA, EE.NR_CEP NR_CEPEMPRESA, EE.DS_BAIRRO DS_BAIRROEMPRESA, EE.DS_COMPLEMENTO DS_COMPEMPRESA, ME.DS_MUNICIPIO DS_MUNEMPRESA, EE.NR_FONE NR_FONEEMPRESA, EE.NR_FAX NR_FAXEMPRESA, PARM.DS_LOGOTIPO, --CLIENTE-- P.NM_PESSOA, P.CD_PESSOA, P.NR_CNPJCPF, P.DS_EMAIL, EP.DS_ENDERECO DS_ENDPESSOA, EP.NR_ENDERECO NR_ENDPESSOA, EP.NR_CEP NR_CEPPESSOA, EP.DS_BAIRRO DS_BAIRROPESSOA, EP.DS_COMPLEMENTO DS_COMPPESSOA, MP.DS_MUNICIPIO DS_MUNPESSOA, EP.NR_FONE , EP.NR_FAX, --NOTA-- N.NR_TROCA NR_DOCUMENTO, N.DS_OBSERVACAO, N.DT_REGISTRO DT_DOCUMENTO, N.DT_REGISTRO HR_DOCUMENTO, V.CD_PESSOA||' - '||V.NM_PESSOA NM_VENDEDOR, --PRODUTO-- CASE ITN.TP_TROCA WHEN 'E' THEN 'PRODUTOS DEVOLVIDOS' ELSE 'PRODUTOS PARA TROCA' END DS_TROCA, I.CD_ITEM,I.DS_ITEM, I.SG_UNIDMED, M.DS_MARCA, I.CD_GRADE, G.DS_GRADE, COALESCE(ITN.PS_ITEMTROCA,ITN.QT_ITEMTROCA) QT_ITEM , RP.O_VL_PRECO VL_PRECO, ITN.VL_UNITARIO, ITN.VL_TOTAL, I.DS_ESPECIFICACAO DS_OBSERVACAOPROD, I.CD_CODIGOBARRA, I.CD_FORNECEDOR1, COALESCE(I.PS_LIQUIDOEMB,0) + COALESCE(I.PS_EMBALAGEM,0) PS_ITEM, --RODAPÉ-- N.CD_CONDPAGTO, C.DS_CONDPAGTO, PA.DS_MENSAGEM, (
SELECT SUM(CASE ITEMTROCA.TP_TROCA WHEN 'E' THEN ITEMTROCA.VL_TOTAL * -1 ELSE ITEMTROCA.VL_TOTAL END)
FROM ITEMTROCA
WHERE ITEMTROCA.CD_EMPRESA = N.CD_EMPRESA
  AND ITEMTROCA.NR_TROCA = N.NR_TROCA) - N.VL_DESCONTO VL_TROCALIQUIDO, CASE ITN.TP_TROCA WHEN 'E' THEN ITN.VL_TOTAL * -1 ELSE ITN.VL_TOTAL END VL_TROCA, SUM(COALESCE(ITN.PS_ITEMTROCA,ITN.QT_ITEMTROCA)) QT_TOTAL , RDC.DS_ENDCOMPLETO DS_ENDCOBRANCA, RDE.DS_ENDCOMPLETO DS_ENDENTREGA, ITN.TP_TROCA, N.VL_DESCONTO
FROM TROCA N
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ITEMTROCA ITN ON (ITN.CD_EMPRESA = N.CD_EMPRESA
  AND ITN.NR_TROCA = N.NR_TROCA)
INNER JOIN ITEM I ON (I.CD_ITEM = ITN.CD_ITEM)
INNER JOIN MARCA M ON (M.CD_MARCA = I.CD_MARCA)
LEFT JOIN GRADE G ON (G.CD_GRADE = I.CD_GRADE)
LEFT JOIN RETORNA_DADOSCADASTRAIS(P.CD_PESSOA,NULL) EP ON (1 = 1)
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 PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
INNER JOIN PARMFATUR PA ON (PA.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(N.CD_PESSOA,'B') RDC ON (1 = 1)
LEFT JOIN RETORNA_DADOSCADASTRAIS(N.CD_PESSOA,'E') RDE ON (1 = 1)
LEFT JOIN RETORNA_PRECOITEM(N.CD_EMPRESA,PA.CD_TABPRECO,ITN.CD_ITEM,CURRENT_DATE,N.CD_CONDPAGTO,N.DT_TROCA) RP ON (1 = 1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_TROCA = :NR_TROCA
GROUP BY N.CD_EMPRESA, PE.NM_PESSOA , PE.NM_FANTASIA , PE.NR_CNPJCPF , EE.NR_INSCEST ,EE.NR_INSCMUN , PE.DS_SITE , PE.DS_EMAIL , EE.DS_ENDERECO , EE.NR_ENDERECO , EE.NR_CEP, EE.DS_BAIRRO , EE.DS_COMPLEMENTO , ME.DS_MUNICIPIO ,P.NM_PESSOA, P.CD_PESSOA, P.NR_CNPJCPF, P.DS_EMAIL, EP.DS_ENDERECO , EP.NR_ENDERECO , EP.NR_CEP , EP.DS_BAIRRO , EP.DS_COMPLEMENTO , MP.DS_MUNICIPIO , EP.NR_FONE , EP.NR_FAX, N.NR_TROCA, N.DT_TROCA , N.DT_REGISTRO , V.CD_PESSOA,V.NM_PESSOA,I.CD_ITEM,I.DS_ITEM, I.SG_UNIDMED, M.DS_MARCA, I.CD_GRADE, G.DS_GRADE,ITN.PS_ITEMTROCA,ITN.QT_ITEMTROCA, RP.O_VL_PRECO ,ITN.VL_UNITARIO, ITN.VL_TOTAL, I.DS_ESPECIFICACAO , I.CD_CODIGOBARRA, I.CD_FORNECEDOR1, I.PS_LIQUIDOEMB, I.PS_EMBALAGEM,N.CD_CONDPAGTO, C.DS_CONDPAGTO, PA.DS_MENSAGEM, RDC.DS_ENDCOMPLETO, RDE.DS_ENDCOMPLETO,EE.NR_FONE, EE.NR_FAX,ITN.TP_TROCA, PARM.DS_LOGOTIPO, N.VL_DESCONTO, N.DS_OBSERVACAO CD_EMPRESA 1 NR_TROCA CD_EMPRESA
SELECT CONTAS.DT_VENCIMENTO, CONTAS.VL_DOCUMENTO, CONTAS.NR_PARCELA
FROM CONTAS
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = CONTAS.CD_FORMAPAGTO)
WHERE CONTAS.CD_EMPRESA = :CD_EMPRESA
  AND CONTAS.NR_DOCUMENTO = :NR_TROCA
  AND CONTAS.TP_DOCUMENTO = 'TC'
  AND CONTAS.TP_CONTAS = 'S'
  AND CONTAS.DT_VENCIMENTO > CONTAS.DT_LANCAMENTO
ORDER BY CONTAS.DT_VENCIMENTO CD_EMPRESA 1 NR_TROCA CD_EMPRESA;TP_TROCA;CD_ITEM
SELECT L.DS_LINHA, C.DS_COLUNA, G.QT_GRADE
FROM ITEMTROCAGRADE G
INNER JOIN LINHAGRADE L ON (L.CD_GRADE = G.CD_GRADE
  AND L.NR_LINHA = G.NR_LINHA)
INNER JOIN COLUNAGRADE C ON (C.CD_GRADE = G.CD_GRADE
  AND C.NR_COLUNA = G.NR_COLUNA)
WHERE G.CD_EMPRESA = :CD_EMPRESA
  AND G.NR_TROCA = :NR_TROCA
  AND G.TP_TROCA = :TP_TROCA
  AND G.CD_ITEM = :CD_ITEM CD_EMPRESA 1 NR_TROCA TP_TROCA CD_ITEM

Tabelas Utilizadas

Tabela	Uso
`COLUNAGRADE`	referenciada nas queries do layout
`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
`GRADE`	referenciada nas queries do layout
`ITEM`	referenciada nas queries do layout
`ITEMTROCA`	referenciada nas queries do layout
`ITEMTROCAGRADE`	referenciada nas queries do layout
`LINHAGRADE`	referenciada nas queries do layout
`MARCA`	referenciada nas queries do layout
`MUNICIPIO`	referenciada nas queries do layout
`PARMFATUR`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`PESSOAFISICA`	referenciada nas queries do layout
`RETORNA_DADOSCADASTRAIS`	referenciada nas queries do layout
`RETORNA_PRECOITEM`	referenciada nas queries do layout
`TROCA`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LTC003/ULTC003.pas
DFM: source/LTC003/ULTC003.dfm
Package: source/LTC003/LTC003.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

tabPedido​

Tabelas Utilizadas​

Shared Units​

Fonte​