PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 25
→
Api asaas.com v3 payment boleto online
Api asaas.com v3 payment boleto online
Started by Boller, Nov., 28 2023 10:17 PM - 1 reply
Connect yourself…
Boller
#1
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on November, 28 2023 - 10:17 PM
Exemplo da Api asaas.com v3 payment boleto online
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
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Report
0
0
stark78q
#2
Registered member
2 messages
Posted on December, 14 2023 - 2:02 PM
Stripe, PayPal, and Square all have the same commission rate. Like Stripe, Square also has a pretty complicated setup for the average non-company user, so PayPal might be a good option. Though with PayPal, the recipient will need to own a PayPal account and the sender also needs to know the account email address.
Report
0
0
→ Go back to WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text