Executa um programa no sistema operacional no servidor da aplicação
Exemplo da Rotina:
1 | WaitRunSrv([Programa / Instrução], [Esperar o término ou não], [Diretório do Servidor]) |
Exemplo 1- Executando um programa no Servidor do Appserver:
1 2 3 4 5 6 7 8 9 10 | //Chama a montagem dos gráficoslWait := .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 |
Exemplo em Vídeo:
Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;