[RESOLVIDO] Trabalhando com appserver

Pessoal,

Alguém trabalha ou já trabalhou com appserver ?

Eu sei que existe apenas mas queria saber como funciona, alguém teria algum documento ou fonte para me ajudar ?

Obrigado.

Cara é fácil você define o appserver e manda as rotinas pra lá.... mas o fonte q vc quiser executar lá tem que estar compilado....

segue abaixo exemplo....

Código:

DEFINE VARIABLE lAppService   AS LOGICAL                 NO-UNDO.
DEFINE VARIABLE hAppSrv       AS HANDLE                  NO-UNDO.

CREATE SERVER happsrv.
ASSIGN lAppService = hAppSrv:CONNECT("-AppService datasul-progress-8280 -H 10.1.1.1 ").
IF NOT lAppService THEN
DO:
   MESSAGE "Erro de Conexao com AppService"  VIEW-AS ALERT-BOX ERROR.
   RETURN ERROR.
END.

run esp\teste2.p on server happsrv.

MESSAGE "Deu certo".

Olha diretamente chamar uma procedure dentro de um programa no appserver eu nunca tentei, na verdade nunca precisei também, mas você pode criar uma rotina que recebe parâmetros, ai nesses parâmetros você pode definir se você no caso vai incluir, deletar, etc... não necessariamente criar um .p pra cada isso também é bem simples de fazer só colocar os inputs depois da chamada do appserver.

Exemplo..:

Código:

RUN esp/testeAppServer.p ON SERVER happsrv (INPUT  "Inclui",
                                                  INPUT  "emitente",
                                                  INPUT TABLE tt-emit,
                                                  OUTPUT TABLE tt-erros).