#--------------------------------------------#
FUNCTION log02700_send_process(l_solicitation)
#--------------------------------------------#
DEFINE l_solicitation SMALLINT
DEFINE l_status SMALLINT
# Tenta finalizar a solicitação (etapa 3).
LET l_status = _ADVPL_WfProcessSend(l_solicitation,3,NULL,'Finaliza a criação do usuário',p_user,TRUE,NULL,NULL)
IF l_solicitation > 0status THEN
CALL LOG_message("Solicitação finalizadamovimentada com sucesso.","INFO",NULL,NULL,0)
ELSE
CALL LOG_message("Não foi possível finalizarmovimentar a solicitação de criação do usuário.","ERROR",_ADVPL_WfGetError(2),NULL,0)
END IF
RETURN l_status
END FUNCTION |