Versão atual:

Autenticação de usuário em WSRESTFUL

Olá a todos,

Estou criando uma API para realizar o cadastro de Pedido de Compras no Protheus 12.

Porém, ao enviar dados para esta API, recebo a mensagem de erro A120COMP - (AJUDA:A120COMP - Usuário não tem permissao para incluir pedidos de compras).

Criei um usuário para ser utilizado pela API que possui permissão para incluir Pedido de Compra, porém, como faço para utilizar suas credenciais em uma WSRESTFUL?

Tentei utilizar Prepare Environment da seguinte forma:

Static function mvcPedidoNovo ( oWS, oJson )
    Local cDoc
    private lMsErroAuto := .F.
    private lAutoErrNoFile := .T. // .T. para retornar erro pela API

    PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" USER "REST.USER" PASSWORD "Test3@" TABLES "SC7"
    dbSelectArea(cTable)
    dbSetOrder(1)
    MsSeek(xFilial(cTable)+"zzzzzz", .T.)

    // resgatando o DOC
    dbSkip(-1)
    cDoc := SC7->C7_NUM
    If Empty(cDoc)
        cDoc := StrZero(1,Len(SC7->C7_NUM))
    Else
        cDoc := Soma1(cDoc)
    EndIf

    /*
    // aqui eu preencho as variáveis aCabec e aItens
    */

    // incluindo no sistema
    MATA120(1,aCabec,aItens,3,,/*aRatCC */)

    // verificando se ocorreu algum erro
    If !lMsErroAuto
        oWS:SetResponse("Incluido com sucesso! "+cDoc)
    Else
        oWS:SetResponse(GetAutoGRLog())

    EndIf

return !lMsErroAuto

porém o erro persiste.

Deste já agraço a ajuda.

Versão (1):

Ver a versão formatada

Autenticação de usuário em WSRESTFUL

Comentário

new question