...
No novo Schedule existe uma forma para a definição dos Perguntes para o botão Parâmetros, além do cadastro das funções no SXD.
...
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 |
---|
...