LCT012 — Layout LCT012

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 Contrato
  // 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
LEFT JOIN TIPOCONTRATO T ON (T.CD_TIPOCONTRATO = C.CD_TIPOCONTRATO)
LEFT 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(1) RL ON (1 = 1)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.NR_LOCACAO = :NR_LOCACAO
ORDER BY CC.NR_CLAUSULA CD_EMPRESA NR_LOCACAO DS_TIPOCONTRATO "TIPOCONTRATO"."DS_TIPOCONTRATO" DS_CONTRATO "TIPOCONTRATO"."DS_CONTRATO" NR_CLAUSULA "CLAUSULACONTRATO"."NR_CLAUSULA" DS_TITULO "CLAUSULACONTRATO"."DS_TITULO" DS_CLAUSULA "CLAUSULACONTRATO"."DS_CLAUSULA" DS_LOGOTIPO "PARMFATUR"."DS_LOGOTIPO" NR_CNPJCPF "RETORNA_DADOSCADASTRAIS"."NR_CNPJCPF" NR_INSCEST "RETORNA_DADOSCADASTRAIS"."NR_INSCEST" NR_CNPJ "RETORNA_DADOSCADASTRAIS"."NR_CNPJCPF" NR_RGINSCMUN NM_CONTRATANTE "RETORNA_DADOSCADASTRAIS"."NM_PESSOA" NM_CONTRATADA "RETORNA_DADOSCADASTRAIS"."NM_PESSOA" CD_TIPOCONTRATO "LOCACAO"."CD_TIPOCONTRATO" DS_QUEBRA "RETORNA_LINHAS"."O_NR_LINHA"
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

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 = {frmLCT012}

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}

Text #1

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 = {frmLCT012.Contrato.FieldByName(}CD_TIPOCONTRATO{).AsString}

Text #2

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 R.DS_ENDCOMPLETO||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]}

Consulta #2

SELECT FIRST 1 M.DS_MUNICIPIO||','
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 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

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

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LCT012/ULCT012.pas
• DFM: source/LCT012/ULCT012.dfm
• Package: source/LCT012/LCT012.dpk