LCT015 — Layout LCT015

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 C, com junção em EMPRESA, PARMFATUR, RETORNA_DADOSCADASTRAIS, PESSOA, TIPOPESSOA, FORMAPAGTO (+4), filtrada por CD_EMPRESA, NR_CONTRATO, O_NR_L, RETORNA_L, JO, CD_PESSOASOCIO (+13).

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 --FIRST 1 /*DADOS EMPRESA*/ P.DS_LOGOTIPO, 'Fone: '||COALESCE(PE.NR_FONE, PE.NR_FAX, PE.NR_CELULAR) NR_FONEMP, PE.DS_ENDERECO||COALESCE(', '||PE.NR_ENDERECO, TRIM(''))||COALESCE(' - '||PE.DS_BAIRRO, TRIM(''))|| COALESCE(' - CEP '||PE.NR_CEP, TRIM(''))||COALESCE(' - '||PE.DS_MUNICIPIO, TRIM(''))|| COALESCE(' - '||PE.DS_ESTADO, TRIM('')) DS_ENDEREMP, 'E-mail: '||PE.DS_EMAIL||COALESCE(' - '||PE.DS_SITE, TRIM('')) DS_EMASITEMP, PE.NM_PESSOA NM_EMPRESA, /*CLIENTE DO CONTRATO*/ TP.DS_TIPOPESSOA DS_TIPOCLIENTE, PS.CD_PESSOA CD_CLIENTE, PC.NM_PESSOA NM_CLIENTE, PC.DS_ENDERECO DS_ENDCLIENTE, PC.DS_BAIRRO DS_BAICLIENTE, PC.NR_CEP NR_CEPCLIENTE, PC.DS_MUNICIPIO DS_MUNCLIENTE, PC.DS_ESTADO DS_ESTCLIENTE, PC.NR_CNPJCPF NR_CPFCLIENTE, PC.NR_RG NR_RGCLIENTE, COALESCE('Fone: '||PC.NR_FONE, TRIM(''))|| COALESCE(' - Celular: '||PC.NR_CELULAR, TRIM('')) NR_FONECLIENTE, /*CONTRATO*/ F.DS_FORMAPAGTO, C.VL_CONTRATO, C.CD_TIPOCONTRATO, 'Toledo, '||EXTRACT(DAY
FROM C.DT_EMISSAO)||' de '||(
SELECT M.O_DS_MES
FROM MES_EXTENSO(C.DT_EMISSAO) M)||' de '|| EXTRACT(YEAR
FROM C.DT_EMISSAO) DT_CONTRATO, T.DS_TIPOCONTRATO, T.DS_CONTRATO, L.O_NR_LINHA, PS.BI_FOTO FOTO_PESSOACONTRATO
FROM CONTRATO C /*DADOS EMPRESA*/
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA)
INNER JOIN PARMFATUR P ON (P.CD_EMPRESA = E.CD_EMPRESA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) PE ON (1 = 1) /*CLIENTE DO CONTRATO*/
INNER JOIN PESSOA PS ON (PS.CD_PESSOA = C.CD_PESSOA)
INNER JOIN TIPOPESSOA TP ON (TP.CD_TIPOPESSOA = PS.CD_TIPOPESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(PS.CD_PESSOA, NULL) PC ON (1 = 1) /*CONTRATO*/
INNER JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = C.CD_FORMAPAGTO)
INNER JOIN TIPOCONTRATO T ON (T.CD_TIPOCONTRATO = C.CD_TIPOCONTRATO)
LEFT JOIN RETORNA_LINHAS(2) L ON (1 = 1)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.NR_CONTRATO = :NR_CONTRATO CD_EMPRESA NR_CONTRATO DS_LOGOTIPO "PARMFATUR"."DS_LOGOTIPO" NR_FONEMP DS_ENDEREMP DS_EMASITEMP NM_EMPRESA "RETORNA_DADOSCADASTRAIS"."NM_PESSOA" DS_TIPOCLIENTE "TIPOPESSOA"."DS_TIPOPESSOA" CD_CLIENTE "PESSOA"."CD_PESSOA" NM_CLIENTE "RETORNA_DADOSCADASTRAIS"."NM_PESSOA" DS_ENDCLIENTE "RETORNA_DADOSCADASTRAIS"."DS_ENDERECO" DS_BAICLIENTE "RETORNA_DADOSCADASTRAIS"."DS_BAIRRO" NR_CEPCLIENTE "RETORNA_DADOSCADASTRAIS"."NR_CEP" DS_MUNCLIENTE "RETORNA_DADOSCADASTRAIS"."DS_MUNICIPIO" DS_ESTCLIENTE "RETORNA_DADOSCADASTRAIS"."DS_ESTADO" NR_CPFCLIENTE "RETORNA_DADOSCADASTRAIS"."NR_CNPJCPF" NR_RGCLIENTE "RETORNA_DADOSCADASTRAIS"."NR_RG" NR_FONECLIENTE DS_FORMAPAGTO "FORMAPAGTO"."DS_FORMAPAGTO" VL_CONTRATO "CONTRATO"."VL_CONTRATO" CD_TIPOCONTRATO "CONTRATO"."CD_TIPOCONTRATO" DT_CONTRATO DS_TIPOCONTRATO "TIPOCONTRATO"."DS_TIPOCONTRATO" DS_CONTRATO "TIPOCONTRATO"."DS_CONTRATO" O_NR_LINHA "RETORNA_LINHAS"."O_NR_LINHA" FOTO_PESSOACONTRATO "PESSOA"."BI_FOTO" DBSub2 NM_PESSOA NM_PESSOA DT_NASCIMENTO DT_NASCIMENTO NM_FANTASIA NM_FANTASIA
SELECT P.NM_PESSOA, P.DT_NASCIMENTO, P.NM_FANTASIA
FROM CONTRATO C
INNER JOIN DEPENDENTESOCIO D ON (D.CD_PESSOASOCIO = C.CD_PESSOA)
INNER JOIN PESSOA P ON (P.CD_PESSOA = D.CD_PESSOADEPENDENTE)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.NR_CONTRATO = :NR_CONTRATO
  AND P.ST_ATIVA = 'S' CD_EMPRESA NR_CONTRATO NM_PESSOA "PESSOA"."NM_PESSOA" DT_NASCIMENTO "PESSOA"."DT_NASCIMENTO" NM_FANTASIA "PESSOA"."NM_FANTASIA" DB1 NR_CLAUSULA NR_CLAUSULA DS_TITULO DS_TITULO DS_CLAUSULA DS_CLAUSULA
SELECT CC.NR_CLAUSULA, CC.DS_TITULO, CC.DS_CLAUSULA
FROM CONTRATO C
INNER JOIN CLAUSULACONTRATO CC ON (CC.CD_TIPOCONTRATO = C.CD_TIPOCONTRATO)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.NR_CONTRATO = :NR_CONTRATO CD_EMPRESA NR_CONTRATO NR_CLAUSULA "CLAUSULACONTRATO"."NR_CLAUSULA" DS_TITULO "CLAUSULACONTRATO"."DS_TITULO" DS_CLAUSULA "CLAUSULACONTRATO"."DS_CLAUSULA"
INSERT INTO EMPRESA (CD_EMPRESA, NM_EMPRESA)
VALUES (:CD_EMPRESA, :NM_EMPRESA)
UPDATE EMPRESA
SET CD_EMPRESA = :CD_EMPRESA, NM_EMPRESA = :NM_EMPRESA
WHERE CD_EMPRESA = :OLD_CD_EMPRESA
DELETE FROM EMPRESA
WHERE CD_EMPRESA = :OLD_CD_EMPRESA
SELECT CD_EMPRESA, NM_EMPRESA
FROM EMPRESA
WHERE CD_EMPRESA = :CD_EMPRESA
INSERT INTO EMPRESA (CD_EMPRESA, NM_EMPRESA)
VALUES (:CD_EMPRESA, :NM_EMPRESA)
UPDATE EMPRESA
SET CD_EMPRESA = :CD_EMPRESA, NM_EMPRESA = :NM_EMPRESA
WHERE CD_EMPRESA = :OLD_CD_EMPRESA
DELETE FROM EMPRESA
WHERE CD_EMPRESA = :OLD_CD_EMPRESA
SELECT CD_EMPRESA, NM_EMPRESA
FROM EMPRESA
WHERE CD_EMPRESA = :CD_EMPRESA 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 {#10}
FROM TIPOCONTRATO T {#10}
INNER JOIN MACROCONTRATO M ON (M.TP_TIPOCONTRATO = T.TP_TIPOCONTRATO) {#10}
WHERE T.CD_TIPOCONTRATO = {frmLCT015}

`Text`

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

Tabelas Utilizadas

Tabela	Uso
`C`	referenciada nas queries do layout
`CLAUSULACONTRATO`	referenciada nas queries do layout
`CONTRATO`	referenciada nas queries do layout
`DEPENDENTESOCIO`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`FORMAPAGTO`	referenciada nas queries do layout
`MACROCONTRATO`	referenciada nas queries do layout
`MES_EXTENSO`	referenciada nas queries do layout
`PARMFATUR`	referenciada nas queries do layout
`PESSOA`	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
`TIPOPESSOA`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LCT015/ULCT015.pas
DFM: source/LCT015/ULCT015.dfm
Package: source/LCT015/LCT015.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Contrato​

tabMACRO​

Text​

Tabelas Utilizadas​

Shared Units​

Fonte​