LTC004 — Layout LTC004

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 TROCA, com junção em PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA, ITEM, filtrada por CD_EMPRESA, NR_TROCA, IP, JO, CD_ITEM, TP_TROCA (+4).

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

tabNota

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, N.DT_TROCA 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, N.VL_DESCONTO, COALESCE(N.VL_SAIDA,0) - COALESCE(N.VL_ENTRADA,0) - COALESCE(N.VL_DESCONTO,0) VL_LIQ, PV.CD_PESSOA||' - '||PV.NM_PESSOA NM_VENDEDOR
FROM TROCA N
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)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = N.CD_VENDEDOR)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_TROCA = :NR_TROCA
SELECT 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, (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) TIPO, COALESCE(IP.QT_ITEMTROCA, IP.PS_ITEMTROCA) QTDE
FROM ITEMTROCA IP
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
WHERE IP.CD_EMPRESA = :CD_EMPRESA
  AND IP.NR_TROCA = :NR_TROCA
  AND IP.TP_TROCA = 'E'
SELECT CONTAS.DT_VENCIMENTO, CONTAS.VL_DOCUMENTO, CONTAS.NR_PARCELA, CONTAS.CD_FORMAPAGTO, CONTAS.NR_DOCUMENTO
FROM CONTAS
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
SELECT 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, (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) TIPO, COALESCE(IP.QT_ITEMTROCA, IP.PS_ITEMTROCA) QTDE
FROM ITEMTROCA IP
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
WHERE IP.CD_EMPRESA = :CD_EMPRESA
  AND IP.NR_TROCA = :NR_TROCA
  AND IP.TP_TROCA = 'S'

Consulta

SELECT O_CD_EMPRESA, O_DS_IMPRESSORA, O_CD_IMPRESSORA
FROM RETORNA_IMPRESSORAUSUARIO({ IntToStr(sessao.empresa.cd_empresa)}, {QuotedStr(sessao.usuario.cd_usuario)}, 'D', 'D' )

Tabelas Utilizadas

Tabela	Uso
CONTAS	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	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
RETORNA_IMPRESSORAUSUARIO	referenciada nas queries do layout
TROCA	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LTC004/ULTC004.pas
• DFM: source/LTC004/ULTC004.dfm
• Package: source/LTC004/LTC004.dpk