LTL001 — Layout LTL001

Visão Geral

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

Descrição

Consulta baseada em TRANSFERENCIALEITE, com junção em MOVTOLEITE, CONTRATOLEITE, PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA, filtrada por CD_PESSOA, JO, CD_MUNICIPIO, CD_EMPRESA, NR_TRANSFERENCIA.

Chamada

ExecLayout(Connection, [
  // parametros nao documentados no .pas
]);

SQL Base

tabTransferencia

SELECT SUM(T.QT_TRANSFERENCIA) QT_TRANSFERENCIA, EMPRESA.NM_EMPRESA, PO.NM_PESSOA NM_PESSOAORIGEM, EPO.DS_ENDERECO||' - '||COALESCE(EPO.DS_BAIRRO, ' ') DS_ENDERECOORIGEM, MO.DS_MUNICIPIO||' - '||MO.SG_ESTADO DS_CIDADEORIGEM, EPO.NR_CEP NR_CEPORIGEM, EPO.NR_INSCEST NR_INSCESTORIGEM, COALESCE(EPO.NR_FONE, EPO.NR_FAX, EPO.NR_CELULAR) NR_FONEORIGEM, CO.NR_CONTRATO NR_CONTRATOORIGEM, PO.NR_CNPJCPF NR_CNPJCPFORIGEM, PD.NM_PESSOA NM_PESSOADESTINO, EPD.DS_ENDERECO||' - '||COALESCE(EPD.DS_BAIRRO, ' ') DS_ENDERECODESTINO, MD.DS_MUNICIPIO||' - '||MD.SG_ESTADO DS_CIDADEDESTINO, EPD.NR_CEP NR_CEPDESTINO, EPD.NR_INSCEST NR_INSCESTDESTINO, COALESCE(EPD.NR_FONE, EPD.NR_FAX, EPD.NR_CELULAR) NR_FONEDESTINO, CD.NR_CONTRATO NR_CONTRATODESTINO, PD.NR_CNPJCPF NR_CNPJCPFDESTINO, EPE.DS_ENDERECO||', '||COALESCE(CAST(EPE.NR_ENDERECO AS VARCHAR(4)), 'S/N')||' - '|| EPE.DS_BAIRRO DS_ENDERECOEMPRESA, MEP.DS_MUNICIPIO||' - '||MEP.SG_ESTADO DS_CIDADEEMPRESA, EPE.NR_CEP NR_CEPEMPRESA, COALESCE(EPE.NR_FONE, EPE.NR_FAX, EPE.NR_CELULAR) NR_FONEEMPRESA, 'Transferência '||T.NR_TRANSFERENCIA DS_TRANSF,T.DT_TRANSFERENCIA
FROM TRANSFERENCIALEITE T
INNER JOIN MOVTOLEITE O ON (T.CD_EMPRMOVSAIDA = O.CD_EMPRESA
  AND T.NR_MOVTOLEITESAIDA = O.NR_MOVTOLEITE)
INNER JOIN MOVTOLEITE D ON (T.CD_EMPRMOVENTRADA = D.CD_EMPRESA
  AND T.NR_MOVTOLEITENTRADA = D.NR_MOVTOLEITE)
INNER JOIN CONTRATOLEITE CO ON (CO.CD_EMPRESA = O.CD_EMPRCONTRATO
  AND CO.NR_CONTRATO = O.NR_CONTRATO)
INNER JOIN CONTRATOLEITE CD ON (CD.CD_EMPRESA = D.CD_EMPRCONTRATO
  AND CD.NR_CONTRATO = D.NR_CONTRATO)
INNER JOIN PESSOA PO ON (PO.CD_PESSOA = CO.CD_PESSOA)
INNER JOIN PESSOA PD ON (PD.CD_PESSOA = CD.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EPO ON (EPO.CD_PESSOA = PO.CD_PESSOA
  AND EPO.CD_ENDERECO = CO.CD_ENDERECO)
INNER JOIN ENDERECOPESSOA EPD ON (EPD.CD_PESSOA = PD.CD_PESSOA
  AND EPD.CD_ENDERECO = CD.CD_ENDERECO)
INNER JOIN MUNICIPIO MO ON (MO.CD_MUNICIPIO = EPO.CD_MUNICIPIO)
INNER JOIN MUNICIPIO MD ON (MD.CD_MUNICIPIO = EPD.CD_MUNICIPIO)
INNER JOIN EMPRESA ON (EMPRESA.CD_EMPRESA = T.CD_EMPRESA)
INNER JOIN ENDERECOPESSOA EPE ON (EPE.CD_PESSOA = EMPRESA.CD_PESSOA
  AND EPE.CD_ENDERECO = (
SELECT MIN(CD_ENDERECO)
FROM ENDERECOPESSOA
WHERE CD_PESSOA = EMPRESA.CD_PESSOA))
INNER JOIN MUNICIPIO MEP ON (MEP.CD_MUNICIPIO = EPE.CD_MUNICIPIO)
WHERE T.CD_EMPRESA = :empresa
  AND T.NR_TRANSFERENCIA = :transferencia
GROUP BY EMPRESA.NM_EMPRESA, PO.NM_PESSOA, EPO.DS_ENDERECO, EPO.DS_BAIRRO, MO.DS_MUNICIPIO, MO.SG_ESTADO, EPO.NR_CEP, EPO.NR_INSCEST, CO.NR_CONTRATO, PO.NR_CNPJCPF, PD.NM_PESSOA, EPD.DS_ENDERECO, EPD.DS_BAIRRO, MD.DS_MUNICIPIO, MD.SG_ESTADO, EPD.NR_CEP, EPD.NR_INSCEST, CD.NR_CONTRATO, PD.NR_CNPJCPF, EPE.DS_ENDERECO, EPE.NR_ENDERECO, EPE.DS_BAIRRO, MEP.DS_MUNICIPIO, MEP.SG_ESTADO, EPE.NR_CEP, EPE.NR_FONE, EPE.NR_FAX, EPE.NR_CELULAR, EPD.NR_FONE, EPD.NR_FAX, EPD.NR_CELULAR, EPO.NR_FONE, EPO.NR_FAX, EPO.NR_CELULAR, T.NR_TRANSFERENCIA,T.DT_TRANSFERENCIA empresa transferencia

Tabelas Utilizadas

Tabela	Uso
CONTRATOLEITE	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
MOVTOLEITE	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
TRANSFERENCIALEITE	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LTL001/ULTL001.pas
• DFM: source/LTL001/ULTL001.dfm
• Package: source/LTL001/LTL001.dpk