Boa noite, tudo bom com vocês? Estou aprendendo um pouco de advpl mas travei em relação ao que estava fazendo. Tentei criar uma API que ela pega os itens do pedido de vendas SC6, porém apenas está retornando o primeiro da lista, e não estou conseguindo colocar pra ler o array corretamente ( No exemplo não estou tentando usar for pois não estava conseguindo), quem puder me ajudar e explicar detalhado para eu aprender também, fico agradecido.
User Function REST02PW()
Return
WSRESTFUL VENDAS1 DESCRIPTION "Serviço REST para retorno de itens de pedido de venda."
WSDATA VENDAS As String
WSMETHOD GET DESCRIPTION "Retorna itens do pedido de venda." WSSYNTAX "/VENDAS1" // MÉTODO GET
END WSRESTFUL
WSMETHOD GET WSRECEIVE VENDAS WSSERVICE VENDASBBR
Local cUserAD := ""
//Local cStatus := ""
Private cJson := ""
Private lContinua := .T.
cUserAD := Self:VENDAS
::SetContentType("application/json")
DbSelectArea("SC6")
If SC6->(DbSeek(xFilial("SC6") + cUserAD)) .And. !Empty(cUserAD)
cJson := MNTJSON(AllTrim(SC6->C6_NUM),cValToChar(SC6->C6_ITEM),cValToChar(SC6->C6_PRODUTO),cValToChar(SC6->C6_DESCRI),cValToChar(SC6->C6_VALOR),cValToChar(SC6->C6_QTDVEN))
Else
cJson := '{'
cJson += '"error":' + '"Pedido ' + AllTrim(cUserAD) + ' Nao localizado no pedidos de venda."'
cJson += '}'
EndIf
::SetResponse(cJson)
Return(.T.)
Static Function MNTJSON(cNum,cItem,cProduto,cDescri,cValor,cQuant)
cJson := '{'
cJson += '"Item":' + '"'+cNum+'",'
cJson += '"Item":' + '"'+cItem+'",'
cJson += '"Produto":' + '"'+cProduto+'",'
cJson += '"Descricao":' + '"'+cDescri+'",'
cJson += '"Valor":' + '"'+cValor+'",'
// cJson += '"PW":' + '"'+cPWFunc+'",'
cJson += '"Quantidade":' + '"'+cQuant+'"'
cJson += '}'
Return cJson