[RESOLVIDO] Autenticação Web no Datasul 11

Bom dia, pessoal.

Possuo uma especifico web rodando no webspeed para inserir pedidos de vendas.

Mas estou tento problemas na autenticação de login.

No datasul 206 eu usava o seguinte Código para o processo de login:

Código:

/*------------------------------------------------------------------------------
  Purpose:     
  Parameters:  <none>
  Notes:       
------------------------------------------------------------------------------*/

    define variable h-prog          as handle    no-undo.
    define variable h-un004         as handle    no-undo.
    define variable h-un006         as handle    no-undo.
    define variable h-un175         as handle    no-undo.
    define variable h-un178         as handle    no-undo.
    define variable h-un182         as handle    no-undo.
    define variable c-token         as character no-undo.
    define variable c-return        as character no-undo.
    define variable c-pais          as character no-undo.
    define variable c-cod_empresa   as character no-undo.
    define variable c-cod_senha     as character no-undo.
    define variable i-cod-internacional-pais as integer no-undo.
    define variable i-int-1         as integer no-undo.
    define variable c-char-1        as character no-undo.
    define variable c-ind_tip_usuar as character no-undo.
    define variable c-cod_idiom_orig as character no-undo.

    DEFINE OUTPUT PARAMETER c-out-retorno AS CHARACTER  NO-UNDO.

    run unbo/boun178.p persistent set h-un178. /* usuar_mestre */
    run findSrmstr_id in h-un178 (input v_cod_usuario, output c-return).

    if c-return = "" then do:
        run web/wutp/wu-sessao.p persistent set h-prog.
        run getToken in h-prog ( output c-token ).
        run getCharField in h-un178 (input "cod_senha", output c-cod_senha).
        
        if  encode(lc(v_cod_senha)) = c-cod_senha then do:
            run unbo/boun182.p persistent set h-un182. /* usuar_univ */
            run findUsrnv_id in h-un182 (input v_cod_usuario, output c-return).
            
            ASSIGN c-out-retorno = c-out-retorno + " " + c-return.
            if c-return = "" then do:
                assign l-login = true.
                
                run getCharField in h-un182 (input "cod_empresa", output c-cod_empresa).
                run unbo/boun004.p persistent set h-un004. /* empresa */
                run findcodigo in h-un004 (input int(c-cod_empresa), output c-return).
                ASSIGN c-out-retorno = c-out-retorno + " " + c-return.
                if c-return = "" then do:
                    run getCharField in h-un004 (input "pais", output c-pais).
                    run setContext /* createNewContext */ in h-prog ( input "empresa.pais", input c-pais).
                    run unbo/boun006.p persistent set h-un006. /* pais */
                    run findCh_nome in h-un006 (input c-pais, output c-return).
                    ASSIGN c-out-retorno = c-out-retorno + " " + c-return.
                    if c-return = "" then do:
                        run getIntField in h-un006 (input "cod-internacional-pais", output i-cod-internacional-pais).
                        run setContext /* createNewContext */ in h-prog ( input "pais.cod-internacional-pais", input string( i-cod-internacional-pais ) ).
                    end.
                    delete procedure h-un006.
                end.
                else do:
                    run setContext /* createNewContext */ in h-prog ( input "empresa.pais"               , input ?).
                    run setContext /* createNewContext */ in h-prog ( input "pais.cod-internacional-pais", input ?).

                end.    
                delete procedure h-un004.
                /* Seta variavel com grupo de usu rio */ 
                run unbo/boun175.p persistent set h-un175.
                run getGrpUsuarLst in h-un175   ( input v_cod_usuario, output v_cod_grp_usuar_lst).
                delete procedure h-un175.

                run setContext /* createNewContext */ in h-prog  ( input "usuar_univ.cod_empresa"          , input c-cod_empresa                   ).
                run getIntField in h-un178  ( input "int-1", output i-int-1).
                run setContext /* createNewContext */ in h-prog  ( input "usuar_mestre.indPerfilUsuario"   , input string(i-int-1,"999")           ).
                run getCharField in h-un178 ( input "char-1", output c-char-1).
                run setContext /* createNewContext */ in h-prog  ( input "usuar_mestre.codExtPerfilUsuario", input c-char-1                        ).
                run setContext /* createNewContext */ in h-prog  ( input "v_cod_usuario"                   , input v_cod_usuario                   ).
                run setContext /* createNewContext */ in h-prog  ( input "v_cod_usuar_corren_criptog"      , input encode(v_cod_usuario)           ).
                run getCharField in h-un178 ( input "ind_tip_usuar", output c-ind_tip_usuar).
                run setContext /* createNewContext */ in h-prog  ( input "usuar_mestre.ind_tip_usuar"      , input c-ind_tip_usuar      ).
                run getCharField in h-un178 ( input "cod_idiom_orig", output c-cod_idiom_orig).
                run setContext /* createNewContext */ in h-prog  ( input "usuar_mestre.cod_idiom_orig"     , input c-cod_idiom_orig     ).
                run setContext /* createNewContext */ in h-prog  ( input "usuar_grp_usuar.cod_grp_usuar"   , input v_cod_grp_usuar_lst             ).

                set-cookie("SessionContextToken", c-token, ?, ?, ?, ?, ?).


            end.
            ELSE
                ASSIGN l-usuar-univ = NO.
            delete procedure h-un182.
        end.

        ASSIGN c_token_senha_expirada = c-token.
        
        /*L¢gica para Ativa‡Æo e Inicializa‡Æo do EAI*/
        /*
        IF {&EAI_inst} = YES THEN DO:
            IF SEARCH("xmlutp/eai_active.r") <> ? OR SEARCH("xmlutp/eai_active.p") <> ? THEN
                    RUN xmlutp/eai_active.p.
            END.
        */

        run destroy in h-prog.
    end.
    delete procedure h-un178.

Acontece o modelo de autenticação do datasul 11 mudou e gostaria de saber se alguém saberia me dizer o novo modelo de atenticação.

boa tarde,

estou precisando fazer a mesma coisa, conseguiu resolver a questão da conexão?