CT390AFIL - Substitui a exibição do browse padrão

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 ?")
aAdd( aFilPad, "CV2_STATUS ='1'" )
Endif
If MsgYesNo("Deseja Mostrar registros com a situação saldo gerado ?")
aAdd( aFilPad, "CV2_STATUS ='2'" )
Endif
If MsgYesNo("Deseja Mostrar registros com a situação 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)

Versões_Anteriores

Todos

Todas

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

If !lCt390AFil

Ctb390IniVar() //Inicializa variaveis logicas das entidades adicionais

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