Pessoal, estou com um get criado retornando informações das ordens de produção (SC2) a partir da consulta do número da OP. Fiz toda a operação usando dbseek e outras funções que deixarei abaixo. Gostaria de saber se tem como trazer o mesmo conteúdo mas por uma query sql ? Ao invés de fazer validações com o dbseek relacionando as tabelas. Costumo usar begin sql em endpoints GET que não precisam usar parâmetros.
Código abaixo do get criado sem query:
WsMethod GET DETALHE WsService RELATOP1
Local oJson := JsonObject():New() Local oJsonItem := Nil Local lRet := .T.
SC2->(DbSetOrder(1))
If SC2->( DbSeek( cFilAnt + self:aUrlParms[1] ) )
oJson['Filial'] := SC2->C2_FILIAL oJson['Num.Op'] := SC2->C2_NUM oJson['Cod.Produto'] := SC2->C2_PRODUTO oJson['Quantidade'] :=SC2->C2_QUANT oJson['Uni.Medida'] := SC2->C2_UM oJson['Item'] := SC2->C2_ITEM oJson['Entrega'] := SC2->C2_DATPRF oJson['Fabril'] := {}
SB1->(DbSetOrder(1)) SB1->( DbSeek(xFilial('SB1') + SC2->C2_PRODUTO) )
While SB1->(!Eof()) .And. SB1->B1_COD == SC2->C2_PRODUTO
oJsonItem := JsonObject():New() oJsonItem['Descrição'] := SB1->B1_DESC oJsonItem['Proc.Fabril'] := SB1->B1_XDOP
Aadd(oJson['Fabril'], oJsonItem)
SB1->(DbSkip())
EndDo
self:SetResponse(oJson:ToJson())
Else
SetRestFault(400, 'Ordem não foi encontrado!') lRet := .F.
EndIF Return lRet
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.