Pular para o conteúdo principal

LCT009 — Layout LCT009

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 CONTRATOLOCACAO, com junção em TIPOCONTRATO, PESSOA, PESSOAFISICA, EMPRESA, RETORNA_DADOSCADASTRAIS, PARMFATUR, filtrada por NR_CONTRATO, CD_EMPRESA, USER_NAME, PASSWORD, DATABASE, SERVER (+3).

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, C.DS_CONTRATO DS_CLAUSULAS, C.NR_CONTRATO, 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, CHAR_LENGTH(A.NR_CNPJCPF) ST_FISICA, PE.NM_PESSOA NM_EMPRESA
FROM CONTRATOLOCACAO C
INNER JOIN TIPOCONTRATO T on (T.CD_TIPOCONTRATO = C.CD_TIPOCONTRATO)
INNER JOIN PESSOA A ON (A.CD_PESSOA = C.CD_PESSOA)
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)
WHERE C.NR_CONTRATO = :NR_CONTRATO
  AND C.CD_EMPRESA = :CD_EMPRESA NR_CONTRATO CD_EMPRESA
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 CONTRATO C
INNER JOIN TIPOCONTRATO T ON (T.CD_TIPOCONTRATO = C.CD_TIPOCONTRATO)
INNER JOIN MACROCONTRATO M ON (M.TP_TIPOCONTRATO = T.TP_TIPOCONTRATO)
WHERE C.CD_EMPRESA = {Parametros}

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||' - '||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

Text​

SELECT M.DS_MACROCONTRATO, M.NM_COLUNA
FROM CONTRATO C
INNER JOIN TIPOCONTRATO T ON (T.CD_TIPOCONTRATO = C.CD_TIPOCONTRATO)
INNER JOIN MACROCONTRATO M ON (M.TP_TIPOCONTRATO = T.TP_TIPOCONTRATO)
WHERE C.CD_EMPRESA = {Parametros[1]}
  AND C.NR_CONTRATO = {Parametros[2]}

Tabelas Utilizadas​

TabelaUso
CONTRATOreferenciada nas queries do layout
CONTRATOLOCACAOreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
LICENCAreferenciada nas queries do layout
MACROCONTRATOreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PESSOAFISICAreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
TIPOCONTRATOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LCT009/ULCT009.pas
  • DFM: source/LCT009/ULCT009.dfm
  • Package: source/LCT009/LCT009.dpk