LCT016 — Layout LCT016

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 CLAUSULACONTRATO, com junção em TIPOCONTRATO, filtrada por CD_TIPOCONTRATO.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Ordem Serviço
  // 3 - Cd Tipo Contrato
  // 5 - Path Servidor
  // 6 - Visualiza -> V  ou  Imprime -> I
  // 7 - Tela
]);

SQL Base

`Contrato`

SELECT CL.CD_TIPOCONTRATO, CL.NR_CLAUSULA, CL.DS_TITULO, CL.DS_CLAUSULA, CL.DT_REGISTRO, T.DS_CONTRATO, T.DS_TIPOCONTRATO
FROM CLAUSULACONTRATO CL
INNER JOIN TIPOCONTRATO T ON (T.CD_TIPOCONTRATO = CL.CD_TIPOCONTRATO)
WHERE CL.CD_TIPOCONTRATO = :CD_TIPOCONTRATO
ORDER BY CL.NR_CLAUSULA CD_TIPOCONTRATO
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 DISTINCT {#10} P.NM_PESSOA||' - '||COALESCE(P.NM_FANTASIA, 'Sem Nome Fantasia') NM_CLIENTE, {#10} COALESCE(EP.DS_ENDERECO, '')||', '||COALESCE('N° '||EP.NR_ENDERECO, 'Sem Número') DS_ENDERECO, {#10} EP.DS_BAIRRO, {#10} EP.NR_CEP, {#10} M.DS_MUNICIPIO, {#10} M.SG_ESTADO, {#10} P.NR_CNPJCPF, {#10} EP.NR_INSCEST, {#10} PF.NR_RG, {#10} EP.NR_FONE NR_TELEFONE, {#10} EP.NR_CELULAR, {#10} LCT.O_DS_NOMES DS_OBSMAQUINA, {#10} LCT.O_VL_TOTALNUMERICO VL_TOTALNUMERICO, LCT.O_VL_TOTALEXTENSO VL_TOTALEXTENSO, {#10} EXTRACT(DAY
FROM OS.DT_ENTREGA) || '/' || EXTRACT(MONTH
FROM OS.DT_ENTREGA) || '/' || SUBSTRING(EXTRACT(YEAR
FROM OS.DT_ENTREGA)
FROM 3 FOR 2) DT_ENTREGA, {#10} EXTRACT(DAY
FROM OS.DT_RETORNO) || '/' || EXTRACT(MONTH
FROM OS.DT_RETORNO) || '/' || SUBSTRING(EXTRACT(YEAR
FROM OS.DT_RETORNO)
FROM 3 FOR 2) DT_RETORNO, {#10} ROUND(COALESCE((OS.DT_RETORNO - (OS.DT_ENTREGA-1)), 0)) QT_DIASNUMERICO, {#10} (
SELECT O_NUMERO
FROM NUMERO_EXTENSO(ROUND(ABS(COALESCE((OS.DT_RETORNO - (OS.DT_ENTREGA-1)), 0))))) QT_DIASEXTENSO, {#10} {#10} (
SELECT SUM(IL.VL_TOTAL) VL_TOTAL
FROM ITEMLOCACAO IL {#10}
WHERE IL.CD_EMPRESA = ITL.CD_EMPRESA {#10}
  AND IL.NR_ORDEMSERVICO = ITL.NR_ORDEMSERVICO {#10}
  AND IL.ST_ITEMLOCACAO <> 'C') VL_TOTALEQ, {#10} {#10} (
SELECT O_VALOR
FROM VALOR_EXTENSO( {#10} (
SELECT SUM(COALESCE(IL.VL_TOTAL, 0)) VL_TOTAL
FROM ITEMLOCACAO IL {#10}
WHERE IL.CD_EMPRESA = ITL.CD_EMPRESA {#10}
  AND IL.NR_ORDEMSERVICO = ITL.NR_ORDEMSERVICO {#10}
  AND IL.ST_ITEMLOCACAO <> 'C'))) VL_TOTALEQEXTENSO, {#10} {#10} OS.DS_LOCALENTREGA, {#10} LCT.O_DS_OBSSERVICO DS_OBSSERVICO, {#10} OS.NR_ORDEMSERVICO||'/'||EXTRACT(YEAR
FROM OS.DT_EMISSAO) ORDEM_ANO {#10}
FROM ORDEMSERVICO OS {#10}
LEFT JOIN SERVICOLOCACAO SLC ON (SLC.CD_EMPRESA = OS.CD_EMPRESA {#10}
  AND SLC.NR_ORDEMSERVICO = OS.NR_ORDEMSERVICO) {#10}
LEFT JOIN ITEMLOCACAO ITL ON (ITL.CD_EMPRESA = OS.CD_EMPRESA {#10}
  AND ITL.NR_ORDEMSERVICO = OS.NR_ORDEMSERVICO) {#10}
LEFT JOIN PECAITEMLOCACAO PIL ON (PIL.CD_EMPRESA = ITL.CD_EMPRESA {#10}
  AND PIL.NR_ORDEMSERVICO = ITL.NR_ORDEMSERVICO {#10}
  AND PIL.CD_ITEMLOCACAO = ITL.CD_ITEMLOCACAO {#10}
  AND PIL.NR_ITEMLOCACAO = ITL.NR_ITEMLOCACAO) {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = OS.CD_PESSOA) {#10}
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = OS.CD_PESSOA {#10}
  AND EP.CD_ENDERECO = OS.CD_ENDERECO) {#10}
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = EP.CD_MUNICIPIO) {#10}

`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 = {frmLCT016}

`Text #1`

SELECT DISTINCT {#10} P.NM_PESSOA||' - '||COALESCE(P.NM_FANTASIA, 'Sem Nome Fantasia') NM_CLIENTE, {#10} COALESCE(EP.DS_ENDERECO, '')||', '||COALESCE('N° '||EP.NR_ENDERECO, 'Sem Número') DS_ENDERECO, {#10} EP.DS_BAIRRO, {#10} EP.NR_CEP, {#10} M.DS_MUNICIPIO, {#10} M.SG_ESTADO, {#10} P.NR_CNPJCPF, {#10} EP.NR_INSCEST, {#10} PF.NR_RG, {#10} EP.NR_FONE NR_TELEFONE, {#10} EP.NR_CELULAR, {#10} LCT.O_DS_NOMES DS_OBSMAQUINA, {#10} LCT.O_VL_TOTALNUMERICO VL_TOTALNUMERICO, LCT.O_VL_TOTALEXTENSO VL_TOTALEXTENSO, {#10} EXTRACT(DAY
FROM OS.DT_ENTREGA) || '/' || EXTRACT(MONTH
FROM OS.DT_ENTREGA) || '/' || SUBSTRING(EXTRACT(YEAR
FROM OS.DT_ENTREGA)
FROM 3 FOR 2) DT_ENTREGA, {#10} EXTRACT(DAY
FROM OS.DT_RETORNO) || '/' || EXTRACT(MONTH
FROM OS.DT_RETORNO) || '/' || SUBSTRING(EXTRACT(YEAR
FROM OS.DT_RETORNO)
FROM 3 FOR 2) DT_RETORNO, {#10} ROUND(COALESCE((OS.DT_RETORNO - (OS.DT_ENTREGA-1)), 0)) QT_DIASNUMERICO, {#10} (
SELECT O_NUMERO
FROM NUMERO_EXTENSO(ROUND(ABS(COALESCE((OS.DT_RETORNO - (OS.DT_ENTREGA-1)), 0))))) QT_DIASEXTENSO, {#10} {#10} (
SELECT SUM(IL.VL_TOTAL) VL_TOTAL
FROM ITEMLOCACAO IL {#10}
WHERE IL.CD_EMPRESA = ITL.CD_EMPRESA {#10}
  AND IL.NR_ORDEMSERVICO = ITL.NR_ORDEMSERVICO {#10}
  AND IL.ST_ITEMLOCACAO <> 'C') VL_TOTALEQ, {#10} {#10} (
SELECT O_VALOR
FROM VALOR_EXTENSO( {#10} (
SELECT SUM(COALESCE(IL.VL_TOTAL, 0)) VL_TOTAL
FROM ITEMLOCACAO IL {#10}
WHERE IL.CD_EMPRESA = ITL.CD_EMPRESA {#10}
  AND IL.NR_ORDEMSERVICO = ITL.NR_ORDEMSERVICO {#10}
  AND IL.ST_ITEMLOCACAO <> 'C'))) VL_TOTALEQEXTENSO, {#10} {#10} OS.DS_LOCALENTREGA, {#10} LCT.O_DS_OBSSERVICO DS_OBSSERVICO, {#10} OS.NR_ORDEMSERVICO||'/'||EXTRACT(YEAR
FROM OS.DT_EMISSAO) ORDEM_ANO {#10}
FROM ORDEMSERVICO OS {#10}
LEFT JOIN SERVICOLOCACAO SLC ON (SLC.CD_EMPRESA = OS.CD_EMPRESA {#10}
  AND SLC.NR_ORDEMSERVICO = OS.NR_ORDEMSERVICO) {#10}
LEFT JOIN ITEMLOCACAO ITL ON (ITL.CD_EMPRESA = OS.CD_EMPRESA {#10}
  AND ITL.NR_ORDEMSERVICO = OS.NR_ORDEMSERVICO) {#10}
LEFT JOIN PECAITEMLOCACAO PIL ON (PIL.CD_EMPRESA = ITL.CD_EMPRESA {#10}
  AND PIL.NR_ORDEMSERVICO = ITL.NR_ORDEMSERVICO {#10}
  AND PIL.CD_ITEMLOCACAO = ITL.CD_ITEMLOCACAO {#10}
  AND PIL.NR_ITEMLOCACAO = ITL.NR_ITEMLOCACAO) {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = OS.CD_PESSOA) {#10}
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = OS.CD_PESSOA {#10}
  AND EP.CD_ENDERECO = OS.CD_ENDERECO) {#10}
INNER JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = EP.CD_MUNICIPIO) {#10+ //}
LEFT JOIN VIEW_LOCACAOITEMPEDIDO (OS.CD_EMPRESA, OS.NR_ORDEMSERVICO, ITL.CD_ITEMLOCACAO, 'SEP') TOT ON (1=1) {#10}
LEFT JOIN VIEW_LCT016VLTOTAL (OS.CD_EMPRESA, OS.NR_ORDEMSERVICO, OS.TP_ORDEMSERVICO) LCT ON (1=1) {#10}
WHERE OS.CD_EMPRESA = {Parametros[1]+#10}
  AND OS.NR_ORDEMSERVICO = {Parametros[2]+#10}
  AND OS.TP_ORDEMSERVICO = 'L' {#10}
GROUP BY {#10} NM_CLIENTE, DS_ENDERECO, EP.DS_BAIRRO, EP.NR_CEP, M.DS_MUNICIPIO, M.SG_ESTADO, {#10} P.NR_CNPJCPF, EP.NR_INSCEST, PF.NR_RG, EP.NR_FONE, EP.NR_CELULAR, LCT.O_DS_NOMES, {#10} LCT.O_VL_TOTALNUMERICO, LCT.O_VL_TOTALEXTENSO, OS.DT_ENTREGA, OS.DT_RETORNO, {#10} QT_DIASNUMERICO, OS.DS_LOCALENTREGA, SLC.DS_OBSERVACAO, ORDEM_ANO, {#10} ITL.CD_EMPRESA, ITL.NR_ORDEMSERVICO, ITL.CD_ITEMLOCACAO, LCT.O_DS_OBSSERVICO

`Consulta #1`

SELECT P.NM_PESSOA||CHAR_LENGTH(10)||R.DS_ENDCOMPLETO||CHAR_LENGTH(10)|| COALESCE('Email.: '||R.DS_EMAIL||CHAR_LENGTH(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 = {frmLCT016.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
`CLAUSULACONTRATO`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`ENDERECOPESSOA`	referenciada nas queries do layout
`ITEMLOCACAO`	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
`ORDEMSERVICO`	referenciada nas queries do layout
`OS`	referenciada nas queries do layout
`PECAITEMLOCACAO`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`PESSOAFISICA`	referenciada nas queries do layout
`RETORNA_DADOSCADASTRAIS`	referenciada nas queries do layout
`SERVICOLOCACAO`	referenciada nas queries do layout
`TIPOCONTRATO`	referenciada nas queries do layout
`VALOR_EXTENSO`	referenciada nas queries do layout
[[VIEW_LCT016VLTOTAL]]	referenciada nas queries do layout
`VIEW_LOCACAOITEMPEDIDO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LCT016/ULCT016.pas
DFM: source/LCT016/ULCT016.dfm
Package: source/LCT016/LCT016.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Contrato​

tabDADOS​

tabMACRO​

Text #1​

Consulta #1​

Text #2​

Consulta #2​

Tabelas Utilizadas​

Shared Units​

Fonte​