gabriel.rissattiBom dia Tiago, tudo bem?
Desculpa a demora, estava de férias, segue fonte de web service que retorna dados do usuário atual
/*
Consultor:Gabriel Rissatti
Data de criação:22/10/2018
*/
DEFINIR ALFA CUSU;
DEFINIR ALFA ASQL;
DEFINIR NUMERO NNUMEMP;
DEFINIR NUMERO NTIPCOL;
DEFINIR NUMERO NNUMCAD;
DEFINIR ALFA ANOMFUN;
DEFINIR ALFA ANOMUSU;
ASQL= “SELECT N.NUMEMP, N.TIPCOL, N.NUMCAD, N.NOMFUN, LOWER(E.NOMENT) NOMUSU \
FROM R034USU U, R034FUN N, R910ENT E \
WHERE CODUSU = :CODUSU \
AND N.NUMEMP = U.NUMEMP \
AND N.TIPCOL = U.TIPCOL \
AND N.NUMCAD =U.NUMCAD \
AND N.SITAFA <> 7 \
AND E.TIPENT = ‘U’ \
AND E.CODENT = U.CODUSU “;
SQL_CRIAR(CUSU);
SQL_USARABRANGENCIA(CUSU,0);
SQL_USARSQLSENIOR2(CUSU,0);
SQL_DEFINIRCOMANDO(CUSU,ASQL);
SQL_DEFINIRINTEIRO(CUSU,”CODUSU”,CODUSU);
SQL_ABRIRCURSOR(CUSU);
SE(SQL_EOF(CUSU) = 0)
{
SQL_RETORNARINTEIRO(CUSU,”NUMEMP”,NNUMEMP);
SQL_RETORNARINTEIRO(CUSU,”TIPCOL”,NTIPCOL);
SQL_RETORNARINTEIRO(CUSU,”NUMCAD”,NNUMCAD);
SQL_RETORNARALFA(CUSU,”NOMFUN”,ANOMFUN);
SQL_RETORNARALFA(CUSU,”NOMUSU”,ANOMUSU);
getUsuario.snumemp = NNUMEMP;
getUsuario.stipcol = NTIPCOL;
getUsuario.snumcad = NNUMCAD;
getUsuario.snomfun = ANOMFUN;
getUsuario.snomusu = ANOMUSU;
}
SQL_FECHARCURSOR(CUSU);
SQL_DESTRUIR(CUSU);
DEFINIR DATA DDATHOJE;
DATAHOJE(DDATHOJE);
DEFINIR ALFA ADATHOJE;
CONVERTEMASCARA(3,DDATHOJE,ADATHOJE,”DD/MM/YYYY”);
getUsuario.sdata = ADATHOJE;
Este web service eu criei no g5, em resumo no BPM vc deverá pegar a variável ANOMUSU que ele retorna e alimentar uma variável no BPM, assim terá sempre este valor quando precisar.
Ele não tem nenhuma entrada, todas as variáveis dele são de saída:
getUsuario.snumemp
getUsuario.stipcol
getUsuario.snumcad
getUsuario.snomfun
getUsuario.snomusu
getUsuario.sdata
Obs – coloquei a data, pois as vezes precisamos ter a data em variável no BPM para realizar tratamentos.
Se tiver dificuldades pode me enviar e-mail: gabriel.rissatti@senior-rp.com.br