Histórico da Página

Entry point that allows the user to define the way to display and manipulate budget data based on the CV2 table, thus replacing the standard browse.

Ponto de entrada que permite que o usuario defina a forma de exibição e manipulação dos dados de orçamentos com base na tabela CV2 substituindo assim o browse padrão

User Function CT390AFIL()
Local afilpad :={}
Local cFilPad:=""
Local nx
afilpad :={}
If MsgYesNo("Deseja Mostrar registros com a situação aberto "Do you want to show records with the "open" status?")
aAdd( aFilPad, "CV2_STATUS ='1'" )
Endif
If MsgYesNo("Deseja Mostrar registros com a situação saldo gerado "Do you want to show records with the "balance generated" status?")
aAdd( aFilPad, "CV2_STATUS ='2'" )
Endif
If MsgYesNo("Deseja Mostrar registros com a situação revisado "Do you want to show records with the "revised" status?")
aAdd( aFilPad, "CV2_STATUS ='3'" )
Endif
FOR nX := 1 to Len( aFilPad )
cFilPad +=aFilPad[nx]
If nx+1 <= Len( aFilPad )
cFilPad +=" or "
Endif
NEXT
mBrowse(6,1,22,75,"CV2",,,,,,CtbLegenda("CV2"),,,,,,,,cFilPad)
Return

PortuguêsPortuguese(BrasilBrazil)

VersõesPrevious_Anteriores

Todos

Todas

Versions

All

All

Before the data is displayed as soon as the routine is triggered

Antes da exibição dos dados assim que é acionada a rotina :

If !lCt390AFil

Ctb390IniVar() //Inicializa variaveis logicas das entidades adicionaisInitializes logical variables of the additional entities.

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Endereca a funcao de BROWSE Points the BROWSE function ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
mBrowse(6,1,22,75,"CV2",,,,,, CtbLegenda("CV2")/*,cFilIni,cFilFim*/)
dbSelectArea("CV2")
Set Filter To
Else
ExecBlock("CT390AFIL",.F.,.F.)
Endif

EP CTBA390.PRW