LCH020 — Layout LCH020

Visão Geral

Layout de impressão da família LCH (Cheque). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição

Consulta baseada em CAST, com junção em CONTAS, CHEQUE, VALOR_EXTENSO, EMPRESA, RETORNA_DADOSCADASTRAIS, MES_EXTENSO.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Valor do Cheque
  // 3 - Nominal
  // 4 - Data do Cheque
  // 5 - Impressora
  // 6 - Data de Vencimento
  // 7 - Observação
  // 8 - Banco
  // 9 - Agencia
  // 10 - Conta
  // 11 - Numero Cheque
  // 12 - PathServidor
  // 13 - Código Pessoa
  // 14 - Código Pessoa
  // 15 - Avulso
]);

SQL Base

`Consulta #1`

SELECT /*1*/ {#10} C.CD_BANCO, C.CD_AGENCIA, C.NR_DOCUMENTO, C.VL_DOCUMENTO, {#10}Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145, 'x') O_VALOR, {#10}substring(Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145, 'x')
FROM 1 for 75) O_VALORP1, {#10}substring(Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145, 'x')
FROM 76 for 70) O_VALORP2, {#10}RDE.DS_MUNICIPIO, CAST(C.CD_PESSOA||' - '||X.O_NOMINAL AS VARCHAR(85)) NM_PESSOA, {#10}CAST(X.O_NOMINAL AS VARCHAR(85)) NM_PESSOA_SEM_COD, EXTRACT(DAY
FROM CAST({Nulo(iParametros[4],}D{)} AS DATE)) DIA, ME.O_DS_MES MES, ME.O_DS_ABREVIACAOMES MES_ABREV, {#10}EXTRACT(YEAR
FROM CAST({Nulo(iParametros[4],}D{)} AS DATE)) ANO, EXTRACT(DAY
FROM C.DT_VENCIMENTO) DIA_VENCIMENTO, {#10}MEV.O_DS_MES MES_VENCIMENTO, MEV.O_DS_ABREVIACAOMES MES_ABREV_VENCIMENTO, {#10}EXTRACT(YEAR
FROM C.DT_VENCIMENTO) ANO_VENCIMENTO, E.NM_EMPRESA, {#10}IIF( {Nulo(iParametros[6],}D{)} IS NOT NULL, 'Vencimento p/ ' || FORMATA_DATA(C.DT_VENCIMENTO, '%d/%m/%Y') , NULL) VENCTOPARA, {#10+ //}IIF(C.DT_VENCIMENTO > C.DT_LANCAMENTO, 'Vencimento p/ ' || FORMATA_DATA(C.DT_VENCIMENTO, '%d/%m/%Y') , NULL) VENCTOPARA, {CAST(NULL AS VARCHAR(120)) DS_OBSERVACAO}#10+ {
FROM RETORNA_IN(} + Nulo(iParametros[15], {S}) + {,}{C}{) X}#10+ {
INNER JOIN CONTAS C ON (C.CD_EMPRESA = X.O_CD_EMPRESA}#10+ {AND C.NR_LANCAMENTO = X.O_NR_LANCAMENTO}#10+ {AND C.CD_PESSOA = X.O_CD_PESSOA}#10+ {AND C.CD_TIPOCONTA = X.O_CD_TIPOCONTA}#10+ {AND C.NR_PARCELA = X.O_NR_PARCELA )}#10+ {
INNER JOIN CHEQUE CH ON (CH.CD_EMPRESA = C.CD_EMPRESA}#10+ {AND CH.NR_LANCAMENTO = C.NR_LANCAMENTO}#10+ {AND CH.CD_PESSOA = C.CD_PESSOA}#10+ {AND CH.CD_TIPOCONTA = C.CD_TIPOCONTA}#10+ {AND CH.NR_PARCELA = C.NR_PARCELA)}#10+ {
LEFT JOIN VALOR_EXTENSO(C.VL_DOCUMENTO) VE ON (1 = 1)}#10+ {
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA)}#10+ {
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) RDE ON (1 = 1)}#10+ {
LEFT JOIN MES_EXTENSO(} + Nulo(iParametros[4], {D}) + {) ME ON (1=1)}#10+ {
LEFT JOIN MES_EXTENSO(C.DT_VENCIMENTO) MEV ON (1=1)}

`Consulta #2`

SELECT /*2*/ {#10} {Nulo(iParametros[8],}I{)} CD_BANCO, {Nulo(iParametros[9],}I{)} CD_AGENCIA, {#10} {Nulo(iParametros[11],}I{)} NR_DOCUMENTO, Cast(REPLACE({Nulo(iParametros[2],}S{)},',', '.') as numeric(15,2)) VL_DOCUMENTO, {#10} Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145,'x') O_VALOR, {#10} substring(Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145,'x')
FROM 1 for 75) O_VALORP1, {#10} substring(Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145,'x')
FROM 76 for 70) O_VALORP2, {#10} RDE.DS_MUNICIPIO, {Nulo(iParametros[3],}S{)} NM_PESSOA, {#10+ Nulo(iParametros[3],}S{)} NM_PESSOA_SEM_COD, {#10}EXTRACT(DAY
FROM CAST(({Nulo(iParametros[4],}D{)}) AS DATE)) DIA, ME.O_DS_MES MES, ME.O_DS_ABREVIACAOMES MES_ABREV, {#10}EXTRACT(YEAR
FROM CAST(({Nulo(iParametros[4],}D{)}) AS DATE)) ANO, EXTRACT(DAY
FROM CAST(({Nulo(iParametros[6],}D{)}) AS DATE)) DIA_VENCIMENTO, {#10}MEV.O_DS_MES MES_VENCIMENTO, MEV.O_DS_ABREVIACAOMES MES_ABREV_VENCIMENTO, {#10}EXTRACT(YEAR
FROM CAST(({Nulo(iParametros[6],}D{)}) AS DATE)) ANO_VENCIMENTO, E.NM_EMPRESA, {#10}IIF( {Nulo(iParametros[6],}D{)} IS NOT NULL, 'Vencimento p/ ' || FORMATA_DATA({Nulo(iParametros[6],}D{)}, '%d/%m/%Y') , NULL) VENCTOPARA, {#10+ //}IIF({Nulo(iParametros[6],}D{)} > {Nulo(iParametros[4],}D{)},'Vencimento p/ ' || FORMATA_DATA(CAST({Nulo(iParametros[6],}D{)} AS DATE),'%d/%m/%Y') , NULL) VENCTOPARA, {#10} {Nulo(iParametros[7],}S{)} DS_OBSERVACAO {#10}
FROM RDB$DATABASE {#10}
LEFT JOIN VALOR_EXTENSO({Nulo(iParametros[2],}F{)}) VE ON (1 = 1) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = {Nulo(iParametros[1],}I{)}) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) RDE ON (1 = 1) {#10}
LEFT JOIN MES_EXTENSO({Nulo(iParametros[4],}D{)}) ME ON (1=1) {#10}
LEFT JOIN MES_EXTENSO({Nulo(iParametros[6],}D{)}) MEV ON (1=1)

`Consulta #3`

SELECT /*3*/{#10} {Nulo(iParametros[8],}I{)} CD_BANCO, {Nulo(iParametros[9],}I{)} CD_AGENCIA, {#10} X.O_NR_LANCAMENTO NR_DOCUMENTO, {#10} CAST(X.O_VALOR AS NUMERIC(15,2)) VL_DOCUMENTO, {#10} Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145,'x') O_VALOR, {#10} substring(Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145,'x')
FROM 1 for 75) O_VALORP1, {#10} substring(Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145,'x')
FROM 76 for 70) O_VALORP2, {#10} RDE.DS_MUNICIPIO, X.O_NOMINAL NM_PESSOA, X.O_NOMINAL NM_PESSOA_SEM_COD, {#10}EXTRACT(DAY
FROM CAST(({Nulo(iParametros[4],}D{)}) AS DATE)) DIA, ME.O_DS_MES MES, ME.O_DS_ABREVIACAOMES MES_ABREV, {#10}EXTRACT(YEAR
FROM CAST(({Nulo(iParametros[4],}D{)}) AS DATE)) ANO, EXTRACT(DAY
FROM CAST((X.O_DT_VENCIMENTO) AS DATE)) DIA_VENCIMENTO, {#10}MEV.O_DS_MES MES_VENCIMENTO, MEV.O_DS_ABREVIACAOMES MES_ABREV_VENCIMENTO, {#10}EXTRACT(YEAR
FROM CAST((X.O_DT_VENCIMENTO) AS DATE)) ANO_VENCIMENTO, E.NM_EMPRESA, {#10}IIF( {Nulo(iParametros[6],}D{)} IS NOT NULL, 'Vencimento p/ ' || REPLACE(X.O_DT_VENCIMENTO, '.', '/'), NULL) VENCTOPARA, {#10}X.O_DS_OBSERVACAO DS_OBSERVACAO {#10}
FROM RETORNA_IN({Nulo(iParametros[16],}S{)}, 'A') X {#10+ //}
FROM RDB$DATABASE {#10}
LEFT JOIN VALOR_EXTENSO(CAST(X.O_VALOR AS DOM_NUMERIC15_2)) VE ON (1 = 1) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = {Nulo(iParametros[1],}I{)}) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) RDE ON (1 = 1) {#10}
LEFT JOIN MES_EXTENSO({Nulo(iParametros[4],}D{)}) ME ON (1=1) {#10}
LEFT JOIN MES_EXTENSO(CAST(X.O_DT_VENCIMENTO AS DATE)) MEV ON (1=1)

`Consulta #4`

SELECT /*4*/ {#10} C.CD_BANCO, C.CD_AGENCIA, C.NR_DOCUMENTO, C.VL_DOCUMENTO, {#10}Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145, 'x') O_VALOR, {#10}substring(Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145, 'x')
FROM 1 for 75) O_VALORP1, {#10}substring(Rpad({Nulo(} {,}S{)}||VE.O_VALOR||{Nulo(} {,}S{)}, 145, 'x')
FROM 76 for 70) O_VALORP2, {#10} RDE.DS_MUNICIPIO, C.CD_PESSOA||' - '||X.O_NOMINAL NM_PESSOA, X.O_NOMINAL NM_PESSOA_SEM_COD, {#10}EXTRACT(DAY
FROM CAST({Nulo(iParametros[4],}D{)} AS DATE)) DIA, ME.O_DS_MES MES, ME.O_DS_ABREVIACAOMES MES_ABREV, {#10}EXTRACT(YEAR
FROM CAST({Nulo(iParametros[4],}D{)} AS DATE)) ANO, EXTRACT(DAY
FROM C.DT_VENCIMENTO) DIA_VENCIMENTO, {#10}MEV.O_DS_MES MES_VENCIMENTO, MEV.O_DS_ABREVIACAOMES MES_ABREV_VENCIMENTO, {#10}EXTRACT(YEAR
FROM C.DT_VENCIMENTO) ANO_VENCIMENTO, E.NM_EMPRESA, {#10}IIF(C.DT_VENCIMENTO IS NOT NULL, 'Vencimento p/ ' || FORMATA_DATA(C.DT_VENCIMENTO, '%d/%m/%Y') , NULL) VENCTOPARA, {#10} CAST(NULL AS VARCHAR(120)) DS_OBSERVACAO {#10}
FROM RETORNA_IN({Nulo(iParametros[16],}S{)}, 'C') X {#10}
INNER JOIN MOVTOCAIXA MX ON (MX.CD_EMPRESA = X.O_CD_EMPRESA {#10}
  AND MX.NR_LANCCAIXA = X.O_NR_LANCAMENTO) {#10}
INNER JOIN CHEQUE CH ON (CH.CD_EMPRESA = X.O_CD_EMPRESA {#10}
  AND CH.NR_LANCCAIXA = MX.NR_LANCCAIXA) {#10}
INNER JOIN CONTAS C ON (C.CD_EMPRESA = X.O_CD_EMPRESA {#10}
  AND C.NR_LANCAMENTO = CH.NR_LANCAMENTO {#10}
  AND C.CD_PESSOA = X.O_CD_PESSOA {#10}
  AND C.CD_TIPOCONTA = X.O_CD_TIPOCONTA {#10}
  AND C.NR_PARCELA = X.O_NR_PARCELA) {#10}
LEFT JOIN VALOR_EXTENSO(C.VL_DOCUMENTO) VE ON (1 = 1) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA) {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) RDE ON (1 = 1) {#10}
LEFT JOIN MES_EXTENSO( {Nulo(iParametros[4],}D{)}) ME ON (1=1) {#10}
LEFT JOIN MES_EXTENSO(C.DT_VENCIMENTO) MEV ON (1=1)

Tabelas Utilizadas

Tabela	Uso
`C`	referenciada nas queries do layout
`CAST`	referenciada nas queries do layout
`CHEQUE`	referenciada nas queries do layout
`CONTAS`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`MES_EXTENSO`	referenciada nas queries do layout
`MOVTOCAIXA`	referenciada nas queries do layout
`RDB`	referenciada nas queries do layout
`RETORNA_DADOSCADASTRAIS`	referenciada nas queries do layout
`RETORNA_IN`	referenciada nas queries do layout
`VALOR_EXTENSO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LCH020/ULCH020.pas
DFM: source/LCH020/ULCH020.dfm
Package: source/LCH020/LCH020.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Consulta #1​

Consulta #2​

Consulta #3​

Consulta #4​

Tabelas Utilizadas​

Shared Units​

Fonte​