Histórico da Página

User function TSTSCHD()

Pergunte("ACA070", .F.)    

If IsBlind() 

BatchProcess("Teste","Teste",,{ || TSTExec() })

EndIf

Return

Static Function TSTExec()

conout("MV_PAR01 " +  MV_PAR01)

conout("MV_PAR02 " +  MV_PAR02)

conout("MV_PAR03 " +  MV_PAR03)

Return        

Static Function Scheddef()

Local aParam

Local aOrd     := {OemToAnsi(" Por Codigo         "),OemToAnsi(" Alfabetica         ")}

aParam := { "P",;                      //Tipo R para relatorio P para processo   

"ACA070",;// Pergunte do relatorio, caso nao use passar ParamDef            

"SA1",;  // Alias            

aOrd,;   //Array de ordens   

"Teste SchedDef"}    

Return aParam