WsMethod GET DETALHE WsService RELATOP1

    Local oJson   := JsonObject():New()
    Local oJsonItem := Nil
    Local lRet := .T.
   // Local cAlias := GetNextAlias()
    
    

        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