F090BRW - Manipula Colunas da rotina Controle de Cheques Emitidos e Cadastro de Talonário.

Criado ponto de entrada F090BRW que manipula as colunas do browse na rotina de Controle de Cheques Emitidos e Cadastro de Talonário (FINA095).

User Function F090BRW()
Local aCpoOrig := ParamIxb[1]
Local aCpoRetur := {}
Local nCount := 1
While nCount <= len(aCpoOrig)
If len(aCpoRetur)=3
Aadd(aCpoRetur,{"Primeiro campo de usuario","EF_USU1" ,"",00,00,""})
Loop
Endif
Aadd(aCpoRetur,aCampos[nCount])
nCount++
Enddo
Aadd(aCpoRetur,{"Segundo campo de usuario","EF_USU2" ,"",00,00,""})

Return aCpoRetur

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

aCampos

aCampos

SetKey (VK_F12,{|a,b| AcessaPerg("FIN090",.T.)})
Pergunte("FIN090",.F.)

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Variaveis utilizadas para parƒmetros ³
//³ mv_par01 Mostra Lan‡ Contabil ³
//³ mv_par02 Aglutina Lancamentos ³
//³ mv_par03 Contabiliza On-Line ³
//³ mv_par04 Gera Cheque automaticamente ³
//³ mv_par05 Ctb Bordero - Total/Por Bordero ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
//Chama a função pra verificar se o SXB está correto
//fa095AjSXB()
If (ExistBlock("F090BRW"))
aCampos := ExecBlock("F090BRW",.F.,.F.,{aCampos})
Endif


dbSelectArea("SEF")
SEF->(dbSetOrder(1))

FINA095.PRW