BeginForm(HttpSample) ClearScreen() Set(@ResrService,"192.168.1.23") Set(@ResrServicePort,"32001") Set(@authToken, "") Http("POST","http://@ResrService:@ResrServicePort/api/v1/token",{"Authorization":"Basic TG9nb1lhemlsaW1PY2VhbjppamJLVlhEb3BpZlBBdFcxL1VmN3VOTHE3RXFlQi94aVhWbmdJODZ4cDhsUWFFUVFsbkNvckpWeHI4OGJKaUorVEI2WXNkay8zaksvalhxV1YxWUp2UT09", "username":"1", "Content-Type":"application/x-www-form-urlencoded"},{"grant_type":"password","username":"LOGO","firmno":"001","password":"123"},@sonuc) text(1,1,"@sonuc.access_token") //Input(1,7,"wait... ",{"type":"text","max":"10","min":"1"},@temp) // Tiger Rest Servis api ucundan referansı verilen malzeme okuma. Http("GET","http://@ResrService:@ResrServicePort/api/v1/items/1",{"Authorization":"Bearer @sonuc.access_token"}, {},@sonuc) If(@Response.Status="-1") ShowMessage({"title":"HATA","message":"@Response.Message ","buttons":"TAMAM"},@secim) EndIf() text(1,2,"@sonuc.CARD_TYPE") Input(1,7,"wait... ",{"type":"text","max":"10","min":"1"},@temp) // Tiger Rest Servis api ucundan referansı verilen cari okuma. Http("GET","http://http://@ResrService:@ResrServicePort/api/v1/Arps/1/?ExpandLevel=full",{"Authorization":"Bearer @sonuc.access_token"}, {},@sonuc) If(@Response.Status="-1") ShowMessage({"title":"HATA","message":"@Response.Message ","buttons":"TAMAM"},@secim) EndIf() text(1,2,"@sonuc.CARD_TYPE") Input(1,7,"wait... ",{"type":"text","max":"10","min":"1"},@temp) //Tiger Rest sevis api ucundam sql query çalıştırma. Http("GET","http://http://@ResrService:@ResrServicePort/api/v1/queries/unsafe?tsql=SELECT CONCAT(FORMAT(NR, 'd3') ,',', NAME) AS NRNAME, FORMAT(NR, 'd3') NR, PERNR FROM L_CAPIFIRM",{"Authorization":"Bearer @sonuc.access_token"}, {},@sonuc) text(1,2,"firma sayısı: @sonuc.count") text(1,3,"ilk firma adı: @sonuc.items.1.NR") Input(1,7,"wait... ",{"type":"text","max":"10","min":"1"},@temp) Http("PUT","https://jsonplaceholder.typicode.com/posts/1",{"Content-Type": "application/json"},{"id":"1","title":"foo","body":"bar","userId":"1"},@sonyc) text(1,4,"@sonyc.id") text(1,5,"@sonyc.title") text(1,6,"@sonyc.body") Input(1,7,"wait... ",{"type":"text","max":"10","min":"1"},@temp) // EndForm()