Fórum

gabriel.rissatti
Participante
# 3 anos, 6 meses atrás

Boa tarde, fiz o ws com a seguinte regra e deu certo:

/*
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;

ASQL= “SELECT N.NUMEMP, N.TIPCOL, N.NUMCAD, N.NOMFUN \
FROM R034USU U, R034FUN N \
WHERE CODUSU = 6\
AND N.NUMEMP = U.NUMEMP \
AND N.TIPCOL = U.TIPCOL \
AND N.NUMCAD =U.NUMCAD \
AND N.SITAFA <> 7″;

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);
getUsuario.snumemp = NNUMEMP;
getUsuario.stipcol = NTIPCOL;
getUsuario.snumcad = NNUMCAD;
getUsuario.snomfun = ANOMFUN;

}
SQL_FECHARCURSOR(CUSU);
SQL_DESTRUIR(CUSU);

Muito obrigado!