CT390AFIL - Sustituye la exhibición del browse estándar

User Function CT390AFIL()
Local afilpad :={}
Local cFilPad:=""
Local nx
afilpad :={}
If MsgYesNo("¿Desea mostrar registros con la situación pendiente?")
aAdd( aFilPad, "CV2_STATUS ='1'" )
Endif
If MsgYesNo("¿Desea mostrar registros con la situación saldo generado?")
aAdd( aFilPad, "CV2_STATUS ='2'" )
Endif
If MsgYesNo("D¿Desea mostrar registros con la situación revisado?")
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és(Brasil)

Versiones_Anteriores

Todos

Todas

Antes de la exhibición de los datos es así que se activa la rutina:

If !lCt390AFil

Ctb390IniVar() //Inicia variables lógicas de los entes adicionales

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Envía la función de BROWSE ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
mBrowse(6,1,22,75,"CV2",,,,,, CtbLegenda("CV2")/*,cFilIni,cFilFim*/)
dbSelectArea("CV2")
Set Filter To
Else
ExecBlock("CT390AFIL",.F.,.F.)
Endif

CTBA390.PRW