LCH015 — Layout LCH015

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 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

SELECT {#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} {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)

Tabelas Utilizadas

Tabela	Uso
CAST	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
MES_EXTENSO	referenciada nas queries do layout
RDB	referenciada nas queries do layout
RETORNA_DADOSCADASTRAIS	referenciada nas queries do layout
VALOR_EXTENSO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LCH015/ULCH015.pas
• DFM: source/LCH015/ULCH015.dfm
• Package: source/LCH015/LCH015.dpk