LCT003 — Layout LCT003

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 CONTRATO, com junção em TIPOCONTRATO, CLAUSULACONTRATO, PESSOAFISICA, EMPRESA, RETORNA_DADOSCADASTRAIS, PARMFATUR, filtrada por CD_EMPRESA, NR_CONTRATO.

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, 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, C.CD_TIPOCONTRATO
FROM CONTRATO 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)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.NR_CONTRATO = :NR_CONTRATO
ORDER BY CC.NR_CLAUSULA CD_EMPRESA NR_CONTRATO
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 C.NR_CONTRATO, C.DT_EMISSAO, EXTRACT(DAY
FROM C.DT_VENCIMENTO) DT_DIA, E.NM_PESSOA, E.NR_CNPJCPF, CHAR_LENGTH(E.NR_CNPJCPF) ST_FISICA, E.DS_ENDCOMPLETO DS_ENDERECO, E.DS_MUNICIPIO, E.SG_ESTADO, E.NR_RG, E.NR_INSCEST, COALESCE(E.NR_RG,E.NR_INSCEST) NR_RGINSCMUN, R.NM_PESSOA NM_REPRESENTANTE, R.NR_CNPJCPF NR_CPFREPRESENTANTE, CHAR_LENGTH(R.NR_CNPJCPF) ST_FISICAREPRESENTANTE, R.DS_ENDCOMPLETO DS_ENDERECOREPRESENTANTE, C.DS_EVENTO, C.DS_LOCALEVENTO, C.NM_LOCALEVENTO, C.DT_EVENTO, C.HR_INICIOEVENTO, C.HR_FIMEVENTO, C.DT_VENCIMENTO, C.VL_MENSALIDADE, C.VL_CONTRATO, C.VL_TAXAS, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_MENSALIDADE)) VL_EXTENSO, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_CONTRATO)) VL_CONTRATOEXTENSO, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_TAXAS)) VL_TAXASEXTENSO, (
SELECT O_NUMERO
FROM NUMERO_EXTENSO(EXTRACT(DAY
FROM C.DT_VENCIMENTO))) DT_EXTENSO, C.NR_VALIDADE||' '||CASE WHEN C.TP_VALIDADE = 'D' THEN 'dia(s)' WHEN C.TP_VALIDADE = 'M' THEN 'mes(es)' WHEN C.TP_VALIDADE = 'A' THEN 'ano(s)' END NR_VALIDADE
FROM CONTRATO C
LEFT JOIN RETORNA_DADOSCADASTRAIS(C.CD_PESSOA, NULL) E ON (1 = 1)
LEFT JOIN RETORNA_DADOSCADASTRAIS(C.CD_REPRESENTANTE, NULL) R ON (1 = 1)
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 = {frmLCT003}

Text #1

SELECT C.NR_CONTRATO, C.DT_EMISSAO, EXTRACT(DAY
FROM C.DT_VENCIMENTO) DT_DIA, E.NM_PESSOA, E.NR_CNPJCPF, CHAR_LENGTH(E.NR_CNPJCPF) ST_FISICA, E.DS_ENDCOMPLETO DS_ENDERECO, E.DS_MUNICIPIO, E.SG_ESTADO, E.NR_RG, E.NR_INSCEST, COALESCE(E.NR_RG,E.NR_INSCEST) NR_RGINSCMUN, R.NM_PESSOA NM_REPRESENTANTE, R.NR_CNPJCPF NR_CPFREPRESENTANTE, CHAR_LENGTH(R.NR_CNPJCPF) ST_FISICAREPRESENTANTE, R.DS_ENDCOMPLETO DS_ENDERECOREPRESENTANTE, C.DS_EVENTO, C.DS_LOCALEVENTO, C.NM_LOCALEVENTO, C.DT_EVENTO, C.HR_INICIOEVENTO, C.HR_FIMEVENTO, C.DT_VENCIMENTO, C.VL_MENSALIDADE, C.VL_CONTRATO, C.VL_TAXAS, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_MENSALIDADE)) VL_EXTENSO, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_CONTRATO)) VL_CONTRATOEXTENSO, (
SELECT O_VALOR
FROM VALOR_EXTENSO(C.VL_TAXAS)) VL_TAXASEXTENSO, (
SELECT O_NUMERO
FROM NUMERO_EXTENSO(EXTRACT(DAY
FROM C.DT_VENCIMENTO))) DT_EXTENSO, C.NR_VALIDADE||' '||CASE WHEN C.TP_VALIDADE = 'D' THEN 'dia(s)' WHEN C.TP_VALIDADE = 'M' THEN 'mes(es)' WHEN C.TP_VALIDADE = 'A' THEN 'ano(s)' END NR_VALIDADE
FROM CONTRATO C
LEFT JOIN RETORNA_DADOSCADASTRAIS(C.CD_PESSOA, NULL) E ON (1 = 1)
LEFT JOIN RETORNA_DADOSCADASTRAIS(C.CD_REPRESENTANTE, NULL) R ON (1 = 1)
WHERE C.CD_EMPRESA = {Parametros[1]}
  AND C.NR_CONTRATO = {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 = {frmLCT003.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

Tabelas Utilizadas

Tabela	Uso
C	referenciada nas queries do layout
CLAUSULACONTRATO	referenciada nas queries do layout
CONTRATO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
LICENCA	referenciada nas queries do layout
MACROCONTRATO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
NUMERO_EXTENSO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PESSOAFISICA	referenciada nas queries do layout
RETORNA_DADOSCADASTRAIS	referenciada nas queries do layout
TIPOCONTRATO	referenciada nas queries do layout
VALOR_EXTENSO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LCT003/ULCT003.pas
• DFM: source/LCT003/ULCT003.dfm
• Package: source/LCT003/LCT003.dpk