xreserva is int = EDT_RESERVA1
ComandoJSONUAsaas is JSON
asaastoken is string = "$aact_YTU5YTE0M2M2N2

MontaJSon is Variant
MontaJSon.name = xreserva
MontaJSon.description = "Reserva Live nº"+xreserva
MontaJSon.endDate = DateSys()
MontaJSon.value = fvlrpix
MontaJSon.billingType = "CREDIT_CARD"
MontaJSon.chargeType = "INSTALLMENT"
MontaJSon.maxInstallmentCount = xnparcelas
ComandoJSONUAsaas = VariantToJSON(MontaJSon)


MyRequest is restRequest
MyRequest..URL = "https://www.asaas.com/api/v3/paymentLinks"
MyRequest..Method = httpPost
//MyRequest..IgnoreError = 63 //Ignora o erro de SSL 100138 que impedia o consumo da API
MyRequest..ConnectionTimeout = 15s
MyRequest..ContentType = typeMimeJSON
MyRequest..Content = ComandoJSONUAsaas
MyRequest..Header["access_token"] = asaastoken
MyResponse is restResponse = RESTSend(MyRequest)
CodigoRetorno is int = MyResponse.StatusCode
JsonResponse is JSON = MyResponse..Content
fid is string = JsonResponse.id
fname is int = JsonResponse.name
furl is string = JsonResponse.url
ftipo is string = JsonResponse.billingType


IF CodigoRetorno = 200 THEN
IF HReadSeek(T020_ReservaProdutos,T020_ReservaProduto_ID,xreserva,hIdentical) = True THEN
T020_ReservaProdutos.T020_LVOrderPay = fid
T020_ReservaProdutos.T020_Status = "Na Fila"
HModify(T020_ReservaProdutos)
IF HReadSeek(T030_Titulo,T020_ReservaProduto_ID,xreserva,hIdentical) = True THEN
T030_Titulo.t030_LVDtRetorno = DateSys()
T030_Titulo.t030_LVHrRetorno = TimeSys()
T030_Titulo.t030_LVidAsaas = fid
T030_Titulo.t030_LVurl = furl
T030_Titulo.t030_LVTipo = ftipo
T030_Titulo.T030_Status = "Na Fila"
HModify(T030_Titulo)
END
END
amsg is string = "Prezada *"+nomecliente+"* sua reserva de Nº*"+EDT_RESERVA1+"* foi gerado com sucesso."
amsg = amsg+" Abaixo você recebará o Link de pagamento. *Lembre-se: você tem no máximo cinco minutos para efetuar o pagamento,"
amsg = amsg+" sendo que para isso, basta clicar no link abaixo. "
whatsapp_mensagemsimples(whatscliente,amsg)
whatsapp_mensagemsimples(whatscliente,furl)
END