...
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 |
---|