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 !lMsErroAutoporém o erro persiste.
Deste já agraço a ajuda.
