CT390AFIL - Replaces the display of the standard browse

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.

User Function CT390AFIL()
Local afilpad :={}
Local cFilPad:=""
Local nx
afilpad :={}
If MsgYesNo("Do you want to show records with the "open" status?")
aAdd( aFilPad, "CV2_STATUS ='1'" )
Endif
If MsgYesNo("Do you want to show records with the "balance generated" status?")
aAdd( aFilPad, "CV2_STATUS ='2'" )
Endif
If MsgYesNo("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

Portuguese(Brazil)

Previous_Versions

All

All

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

If !lCt390AFil

Ctb390IniVar() //Initializes logical variables of the additional entities.

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ 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