Private Sub resumRegistrarDispositivo As ResumableSub
Dim post As HttpJob
Dim root, jsonMap As Map
Dim parser As JSONParser
If fbcmToken <> "" Then
jsonMap.Initialize
jsonMap.Put("fcmToken", REST.API.FirebaseCloudMessagingToken)
post.Initialize("Insert", Me)
post.PostMultipart($"${REST.API.URL}/aus/fcmToken"$,jsonMap,Null)
post.GetRequest.SetHeader("Authorization",$"Bearer ${REST.API.AccessToken}"$)
post.GetRequest.SetHeader("Grants",$"${REST.API.Grants.Trim}"$)
Wait For (post) JobDone (post As HttpJob)
If UTILS.IsTrue(post.Success) = True Then
Log(post.GetString)
parser.Initialize(post.GetString)
root = parser.NextObject
Message = root.Get("message")
idFCMToken = root.Get("idFCMToken")
APPCODE = root.Get("app_code")
Else
Message = "Error al intentar acceder al servidor"
APPCODE = REST.API.APPCODE_ExceptionError
End If
post.Release
Else
Message = "El dispositivo no puede recibir notificaciones."
APPCODE = REST.API.APPCODE_Ok
End If
Return APPCODE
End Sub