LCT004 — Layout LCT004

Visão Geral

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

Descrição

Consulta baseada em LOCACAO, com junção em TIPOCONTRATO, CLAUSULACONTRATO, PESSOAFISICA, EMPRESA, RETORNA_DADOSCADASTRAIS, PARMFATUR (+1), filtrada por CD_EMPRESA, NR_LOCACAO.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr LOCACAO
  // 5 - Path Servidor
  // 6 - Visualiza -> V  ou  Imprime -> I
  // 7 - Impressora do Parametro
]);

SQL Base

Contrato

SELECT T.DS_TIPOCONTRATO, T.DS_CONTRATO, CC.NR_CLAUSULA, CC.DS_TITULO, CC.DS_CLAUSULA, P.DS_LOGOTIPO, PC.NR_CNPJCPF, PC.NR_INSCEST, PE.NR_CNPJCPF NR_CNPJ, COALESCE(PC.NR_RG,PC.NR_INSCEST) NR_RGINSCMUN, PC.NM_PESSOA NM_CONTRATANTE, PE.NM_PESSOA NM_CONTRATADA, C.CD_TIPOCONTRATO, RL.o_nr_linha DS_QUEBRA
FROM LOCACAO C
INNER JOIN TIPOCONTRATO T on (T.CD_TIPOCONTRATO = C.CD_TIPOCONTRATO)
INNER JOIN CLAUSULACONTRATO CC on (CC.CD_TIPOCONTRATO = T.CD_TIPOCONTRATO)
LEFT JOIN PESSOAFISICA PF on (PF.CD_PESSOA = C.CD_PESSOA)
INNER JOIN EMPRESA E on (E.CD_EMPRESA = C.CD_EMPRESA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(C.CD_PESSOA,null) PC on (1 = 1)
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA,null) PE on (1 = 1)
LEFT JOIN PARMFATUR P on (P.CD_EMPRESA = C.CD_EMPRESA)
LEFT JOIN retorna_linhas(2) RL ON (1 = 1)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.NR_LOCACAO = :NR_LOCACAO
ORDER BY RL.o_nr_linha, CC.NR_CLAUSULA CD_EMPRESA NR_LOCACAO
SELECT CD_EMPRESA, NR_CONTRATO, CD_CHAVE, DT_EXPREG, NM_REPRESENTANTE, DS_MODULOS, ST_ATIVA, DT_REGISTRO
FROM LICENCA
WHERE CD_EMPRESA = :CD_EMPRESA
  AND NR_CONTRATO = :NR_CONTRATO CD_EMPRESA NR_CONTRATO User_Name=SYSDBA Password=masterkey Database=/database/DESENV3.FDB Server=serverDesenv Port=3050 CharacterSet=ISO8859_1 DriverID=FB

tabDADOS

SELECT DISTINCT P.NM_PESSOA NM_EMPRESA, PE.DS_MUNICIPIO||' Estado do '||ES.DS_ESTADO||', à '||PE.DS_ENDERECO|| COALESCE(', '||PE.NR_ENDERECO,'')||coalesce(', '||PE.DS_BAIRRO, '') DS_ENDERECOEMP, PE.NR_CNPJCPF CNPJ, CHAR_LENGTH(PC.NR_CNPJCPF) ST_FISICA, COALESCE(PC.NR_RG,'') RG_CLIENTE, PC.NR_CNPJCPF CPF_CLIENTE, PED.NR_PEDIDO NR_LOCACAO, DPC.NM_PESSOA , PC.DS_ENDERECO||COALESCE(', '||PC.NR_ENDERECO,'')||coalesce(', '||PC.DS_BAIRRO, '') DS_ENDERECO
FROM LOCACAO C
INNER JOIN PEDIDO PED ON (PED.CD_EMPRESA = C.CD_EMPRESA
  AND PED.NR_LOCACAO = C.NR_LOCACAO)
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = C.CD_PESSOA)
LEFT JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA)
INNER JOIN PESSOA p ON (p.CD_PESSOA = E.CD_PESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(C.CD_PESSOA,NULL) PC ON (1 = 1)
INNER JOIN ESTADO ESC ON (ESC.SG_ESTADO = PC.SG_ESTADO)
INNER JOIN PESSOA DPC ON (DPC.CD_PESSOA = C.CD_PESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA,NULL) PE ON (1 = 1)
INNER JOIN ESTADO ES ON (ES.SG_ESTADO = PE.SG_ESTADO)
WHERE C.CD_EMPRESA = {Parametros}

tabMACRO

SELECT M.DS_MACROCONTRATO, M.NM_COLUNA
FROM TIPOCONTRATO T
INNER JOIN MACROCONTRATO M ON (M.TP_TIPOCONTRATO = T.TP_TIPOCONTRATO)
WHERE T.CD_TIPOCONTRATO = {frmLCT004}

Text #1

SELECT DISTINCT P.NM_PESSOA NM_EMPRESA, PE.DS_MUNICIPIO||' Estado do '||ES.DS_ESTADO||', à '||PE.DS_ENDERECO|| COALESCE(', '||PE.NR_ENDERECO,'')||coalesce(', '||PE.DS_BAIRRO, '') DS_ENDERECOEMP, PE.NR_CNPJCPF CNPJ, CHAR_LENGTH(PC.NR_CNPJCPF) ST_FISICA, COALESCE(PC.NR_RG,'') RG_CLIENTE, PC.NR_CNPJCPF CPF_CLIENTE, PED.NR_PEDIDO NR_LOCACAO, DPC.NM_PESSOA , PC.DS_ENDERECO||COALESCE(', '||PC.NR_ENDERECO,'')||coalesce(', '||PC.DS_BAIRRO, '') DS_ENDERECO
FROM LOCACAO C
INNER JOIN PEDIDO PED ON (PED.CD_EMPRESA = C.CD_EMPRESA
  AND PED.NR_LOCACAO = C.NR_LOCACAO)
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = C.CD_PESSOA)
LEFT JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA)
INNER JOIN PESSOA p ON (p.CD_PESSOA = E.CD_PESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(C.CD_PESSOA,NULL) PC ON (1 = 1)
INNER JOIN ESTADO ESC ON (ESC.SG_ESTADO = PC.SG_ESTADO)
INNER JOIN PESSOA DPC ON (DPC.CD_PESSOA = C.CD_PESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA,NULL) PE ON (1 = 1)
INNER JOIN ESTADO ES ON (ES.SG_ESTADO = PE.SG_ESTADO)
WHERE C.CD_EMPRESA = {Parametros[1]}
  AND C.NR_LOCACAO = {Parametros[2]}

Consulta #1

SELECT P.NM_PESSOA||ASCII_CHAR(10)||R.DS_ENDCOMPLETO||ASCII_CHAR(10)||COALESCE('Email.: '||R.DS_EMAIL||ASCII_CHAR(10),'')||'FONE: '||R.NR_TELEFONE||' - CNPJ '||R.NR_CNPJCPF
FROM EMPRESA E
INNER JOIN PESSOA P ON (P.CD_PESSOA = E.CD_PESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(P.CD_PESSOA, null) R ON (1 = 1)
WHERE E.CD_EMPRESA = {Parametros[1]}

Text #2

SELECT M.DS_MACROCONTRATO, M.NM_COLUNA
FROM TIPOCONTRATO T
INNER JOIN MACROCONTRATO M ON (M.TP_TIPOCONTRATO = T.TP_TIPOCONTRATO)
WHERE T.CD_TIPOCONTRATO = {frmLCT004.Contrato.FieldByName(}CD_TIPOCONTRATO{).AsString}

Consulta #2

SELECT FIRST 1 M.DS_MUNICIPIO||' - '||M.SG_ESTADO||','
FROM PESSOA P
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = {Parametros[1]})
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA)
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = EP.CD_MUNICIPIO)
WHERE P.CD_PESSOA = E.CD_PESSOA
ORDER BY EP.CD_ENDERECO

Consulta #3

SELECT P.NM_PESSOA
FROM USUARIO U
INNER JOIN PESSOA P ON (P.CD_PESSOA = U.CD_PESSOA)
WHERE u.CD_USUARIO = {QuotedStr(sessao.usuario.cd_Usuario)}

Tabelas Utilizadas

Tabela	Uso
CLAUSULACONTRATO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
ESTADO	referenciada nas queries do layout
LICENCA	referenciada nas queries do layout
LOCACAO	referenciada nas queries do layout
MACROCONTRATO	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_DADOSCADASTRAIS	referenciada nas queries do layout
RETORNA_LINHAS	referenciada nas queries do layout
TIPOCONTRATO	referenciada nas queries do layout
USUARIO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LCT004/ULCT004.pas
• DFM: source/LCT004/ULCT004.dfm
• Package: source/LCT004/LCT004.dpk