LTC001 — Layout LTC001

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 HABILITA_PESOQTDE, com junção em ITEMTROCA, PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA, ITEM (+1), filtrada por CD_EMPRESA, NR_TROCA.

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

Pedido

SELECT N.CD_EMPRESA, E.NM_EMPRESA, 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_TROCA, CAST(N.DT_TROCA ||' '|| CURRENT_TIME AS TIMESTAMP) DT_EMISSAO, N.CD_PESSOA, P.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, CASE IP.TP_TROCA WHEN 'E' THEN 'PRODUTOS DEVOLVIDOS' ELSE 'PRODUTOS PARA TROCA' END DS_TROCA, IP.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, I.SG_UNIDALT, IP.TP_TROCA, IP.VL_UNITARIO, IP.VL_TOTAL, IP.QT_ITEMTROCA, IP.PS_ITEMTROCA, CASE IP.TP_TROCA WHEN 'E' THEN IP.VL_TOTAL * -1 ELSE IP.VL_TOTAL END VL_LIQUIDO, COALESCE(N.VL_SAIDA,0) - COALESCE(N.VL_ENTRADA,0) - COALESCE(N.VL_DESCONTO,0) VL_LIQ, (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) TIPO, N.VL_DESCONTO, N.CD_VENDEDOR, V.NM_PESSOA NM_VENDEDOR, N.DS_OBSERVACAO, EP.DS_COMPLEMENTO
FROM TROCA N
INNER JOIN ITEMTROCA IP ON (N.NR_TROCA = IP.NR_TROCA
  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 EP.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(N.CD_PESSOA, NULL)))
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 O_CD_ENDERECO
FROM RETORNA_ENDERECO(EE.CD_PESSOA, NULL)))
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO)
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
LEFT JOIN PESSOA V ON (N.CD_VENDEDOR = V.CD_PESSOA)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_TROCA = :NR_TROCA
ORDER BY IP.TP_TROCA DESC CD_EMPRESA 1 NR_TROCA
SELECT CONTAS.DT_VENCIMENTO, CONTAS.VL_DOCUMENTO, CONTAS.NR_PARCELA, F.DS_FORMAPAGTO
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

Tabelas Utilizadas

Tabela	Uso
CONTAS	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
FORMAPAGTO	referenciada nas queries do layout
HABILITA_PESOQTDE	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMTROCA	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_ENDERECO	referenciada nas queries do layout
TROCA	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LTC001/ULTC001.pas
• DFM: source/LTC001/ULTC001.dfm
• Package: source/LTC001/LTC001.dpk