WaitRunSrv

Executa um programa no sistema operacional no servidor da aplicação

Exemplo da Rotina:

WaitRunSrv([Programa / Instrução], [Esperar o término ou não], [Diretório do Servidor])

Exemplo 1- Executando um programa no Servidor do Appserver:

//Chama a montagem dos gráficos
lWait       := .T.
cPasta      := "C:\totvs\temp\"
cCommand    := "programa_cria_grafico.bat"

If ! WaitRunSrv( cPasta + cCommand, lWait , "C:\" )
	ConOut("WaitRunSRV - Erro na geracao do gráfico: " + Time())
Else
	ConOut("WaitRunSRV - Grafico OK: " + Time())
EndIf

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;