LCT013 — Layout LCT013

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 NR_CLAUSULA, NR_CONTRATO, CD_EMPRESA, JO, CD_PESSOA.

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

`tabContrato`

SELECT T.DS_TIPOCONTRATO, T.DS_CONTRATO, CC.NR_CLAUSULA, CC.DS_TITULO, CC.DS_CLAUSULA,CCS.DS_CLAUSULA DS_CLAUSULA2, C.NR_CONTRATO||' PSA: '||C.CD_PESSOA 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, C.DT_VENCTOCONTRATO DT_DIA
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)
INNER JOIN(
SELECT CCT.DS_CLAUSULA, CT.NR_CONTRATO, CT.CD_EMPRESA
FROM CONTRATO CT
INNER JOIN TIPOCONTRATO TT ON (TT.CD_TIPOCONTRATO = CT.CD_TIPOCONTRATO)
INNER JOIN CLAUSULACONTRATO CCT ON (CCT.CD_TIPOCONTRATO = TT.CD_TIPOCONTRATO)
WHERE CCT.NR_CLAUSULA = 2) CCS ON (CCS.NR_CONTRATO = C.NR_CONTRATO
  AND CCS.CD_EMPRESA = C.CD_EMPRESA)
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
  AND CC.NR_CLAUSULA = 1
ORDER BY CC.NR_CLAUSULA CD_EMPRESA NR_CONTRATO 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" NR_CONTRATO 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 "CONTRATO"."CD_TIPOCONTRATO" DT_DIA "CONTRATO"."DT_VENCTOCONTRATO" DS_CLAUSULA2 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 DB1 O_DS_PRODUTO O_DS_PRODUTO O_DS_HORAS O_DS_HORAS O_DS_VALOR O_DS_VALOR
SELECT R.O_DS_PRODUTO, R.O_DS_HORAS, R.O_DS_VALOR
FROM RETORNA_PRODUTOCONTRATO(:CD_EMPRESA, :NR_CONTRATO) R CD_EMPRESA NR_CONTRATO O_DS_PRODUTO "RETORNA_PRODUTOCONTRATO"."O_DS_PRODUTO" O_DS_HORAS "RETORNA_PRODUTOCONTRATO"."O_DS_HORAS" O_DS_VALOR "RETORNA_PRODUTOCONTRATO"."O_DS_VALOR" User_Name=SYSDBA Password=masterkey Database=/database/DESENV3.FDB Server=serverDesenv Port=3050 CharacterSet=ISO8859_1 DriverID=FB

`tabDADOS`

SELECT {#10} /* DADOS DO CONTRATANTE */ {#10} P.NM_PESSOA NM_PESSOA, P.NR_CNPJCPF , {#10} COALESCE(ECT.DS_ENDERECO,'')||''||COALESCE('N° '||ECT.NR_ENDERECO,'')||', '||COALESCE(ECT.DS_BAIRRO,'')||' no município de '||COALESCE(ECT.DS_MUNICIPIO,'') {#10} ||', no estado de '||COALESCE(ECT.DS_ESTADO,'')||', CEP:'||COALESCE(ECT.NR_CEP,'') DS_ENDERECO {#10} , CS.NM_RESPONSAVEL NM_REPRESENTANTE, {#10} /* DADOS DA CONTRATADA */ {#10} PE.NM_PESSOA NM_EMPRESA, PE.NR_CNPJCPF CNPJ, {#10} COALESCE(ECTA.DS_ENDERECO,'')||''||COALESCE('N° '||ECTA.NR_ENDERECO,'')||', '||COALESCE(ECTA.DS_BAIRRO,'')||' no município de '||COALESCE(ECTA.DS_MUNICIPIO,''){#10} ||', no estado de '||COALESCE(ECTA.DS_ESTADO,'')||', CEP:'||COALESCE(ECTA.NR_CEP,'') DS_ENDERECOEMP,{#10} /*DADOS DO CONTRATO */{#10} C.DS_CNPJ, C.HR_INSTALACAO, CP.DSEMAIL DS_EMAILLGPD, {#10} CASE WHEN COALESCE(C.CD_REPRESENTANTE,1) <> 1
  AND C.CD_FORMAPAGTO IN ('RO','OR','IR','RI') THEN 'LICENCIADORA' ELSE 'CONTRATADA' END DS_FINANCEIRO, {#10} (
SELECT FIRST 1 I.DS_ITEM {#10}
FROM CONTRATOITEM CI {#10}
INNER JOIN ITEM I ON (I.CD_ITEM = CI.CD_ITEM) {#10}
WHERE CI.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND CI.NR_CONTRATO = C.NR_CONTRATO) DS_ESPECIFICACAO, {#10} (
SELECT LIST(DISTINCT O_DS_FORNECEDOR, ', ')
FROM RETORNA_FORNECEDORCONTRATO(C.CD_EMPRESA, C.NR_CONTRATO)) DS_FORNECEDORES, {#10} (
SELECT LIST(DISTINCT O_DS_INTEGRACAO, ', ')
FROM RETORNA_INTEGRACAOCONTRATO(C.CD_EMPRESA, C.NR_CONTRATO)) DS_INTEGRACOES, {#10} C.VL_LICENCIAMENTO, C.VL_CONTRATO, C.VL_MENSALIDADE VL_TAXAS, EX.O_VALOR VL_TAXASEXTENSO {#10}
FROM CONTRATO C {#10}
LEFT JOIN CONTRATOSOFTWARE CS ON (CS.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND CS.NR_CONTRATO = C.NR_CONTRATO) {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(P.CD_PESSOA, NULL) ECT ON ( 1=1 ) {#10}
LEFT JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA) {#10}
LEFT JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(Pe.CD_PESSOA, NULL) ECTA ON ( 1=1 ) {#10}
LEFT JOIN CONTATOPESSOA CP ON (CP.CD_PESSOA = C.CD_PESSOA
  AND CP.IDTIPOCONTATO = 30) {#10}
LEFT JOIN VALOR_EXTENSO(C.VL_MENSALIDADE) EX ON (1 = 1) {#10}
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 = {frmLCT013}

`Text #1`

SELECT {#10} /* DADOS DO CONTRATANTE */ {#10} P.NM_PESSOA NM_PESSOA, P.NR_CNPJCPF , {#10} COALESCE(ECT.DS_ENDERECO,'')||''||COALESCE('N° '||ECT.NR_ENDERECO,'')||', '||COALESCE(ECT.DS_BAIRRO,'')||' no município de '||COALESCE(ECT.DS_MUNICIPIO,'') {#10} ||', no estado de '||COALESCE(ECT.DS_ESTADO,'')||', CEP:'||COALESCE(ECT.NR_CEP,'') DS_ENDERECO {#10} , CS.NM_RESPONSAVEL NM_REPRESENTANTE, {#10} /* DADOS DA CONTRATADA */ {#10} PE.NM_PESSOA NM_EMPRESA, PE.NR_CNPJCPF CNPJ, {#10} COALESCE(ECTA.DS_ENDERECO,'')||''||COALESCE('N° '||ECTA.NR_ENDERECO,'')||', '||COALESCE(ECTA.DS_BAIRRO,'')||' no município de '||COALESCE(ECTA.DS_MUNICIPIO,''){#10} ||', no estado de '||COALESCE(ECTA.DS_ESTADO,'')||', CEP:'||COALESCE(ECTA.NR_CEP,'') DS_ENDERECOEMP,{#10} /*DADOS DO CONTRATO */{#10} C.DS_CNPJ, C.HR_INSTALACAO, CP.DSEMAIL DS_EMAILLGPD, {#10} CASE WHEN COALESCE(C.CD_REPRESENTANTE,1) <> 1
  AND C.CD_FORMAPAGTO IN ('RO','OR','IR','RI') THEN 'LICENCIADORA' ELSE 'CONTRATADA' END DS_FINANCEIRO, {#10} (
SELECT FIRST 1 I.DS_ITEM {#10}
FROM CONTRATOITEM CI {#10}
INNER JOIN ITEM I ON (I.CD_ITEM = CI.CD_ITEM) {#10}
WHERE CI.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND CI.NR_CONTRATO = C.NR_CONTRATO) DS_ESPECIFICACAO, {#10} (
SELECT LIST(DISTINCT O_DS_FORNECEDOR, ', ')
FROM RETORNA_FORNECEDORCONTRATO(C.CD_EMPRESA, C.NR_CONTRATO)) DS_FORNECEDORES, {#10} (
SELECT LIST(DISTINCT O_DS_INTEGRACAO, ', ')
FROM RETORNA_INTEGRACAOCONTRATO(C.CD_EMPRESA, C.NR_CONTRATO)) DS_INTEGRACOES, {#10} C.VL_LICENCIAMENTO, C.VL_CONTRATO, C.VL_MENSALIDADE VL_TAXAS, EX.O_VALOR VL_TAXASEXTENSO {#10}
FROM CONTRATO C {#10}
LEFT JOIN CONTRATOSOFTWARE CS ON (CS.CD_EMPRESA = C.CD_EMPRESA {#10}
  AND CS.NR_CONTRATO = C.NR_CONTRATO) {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(P.CD_PESSOA, NULL) ECT ON ( 1=1 ) {#10}
LEFT JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA) {#10}
LEFT JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(Pe.CD_PESSOA, NULL) ECTA ON ( 1=1 ) {#10}
LEFT JOIN CONTATOPESSOA CP ON (CP.CD_PESSOA = C.CD_PESSOA
  AND CP.IDTIPOCONTATO = 30) {#10}
LEFT JOIN VALOR_EXTENSO(C.VL_MENSALIDADE) EX ON (1 = 1) {#10}
WHERE C.CD_EMPRESA = {Parametros[1] + #10}
  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 = {frmLCT013.tabContrato.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
`CLAUSULACONTRATO`	referenciada nas queries do layout
`CONTATOPESSOA`	referenciada nas queries do layout
`CONTRATO`	referenciada nas queries do layout
`CONTRATOITEM`	referenciada nas queries do layout
`CONTRATOSOFTWARE`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`ENDERECOPESSOA`	referenciada nas queries do layout
`ITEM`	referenciada nas queries do layout
`LICENCA`	referenciada nas queries do layout
`MACROCONTRATO`	referenciada nas queries do layout
`MUNICIPIO`	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
`RETORNA_FORNECEDORCONTRATO`	referenciada nas queries do layout
`RETORNA_INTEGRACAOCONTRATO`	referenciada nas queries do layout
`RETORNA_PRODUTOCONTRATO`	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/LCT013/ULCT013.pas
DFM: source/LCT013/ULCT013.dfm
Package: source/LCT013/LCT013.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

tabContrato​

tabDADOS​

tabMACRO​

Text #1​

Consulta #1​

Text #2​

Consulta #2​

Tabelas Utilizadas​

Shared Units​

Fonte​