From 290e66e2ed986ae5c6fe3f78f7203a0988657e21 Mon Sep 17 00:00:00 2001
From: rislai <risheng.lai@capgemini.com>
Date: 星期四, 25 七月 2024 10:32:36 +0800
Subject: [PATCH] Merge branch 'dev' of http://47.101.211.7:10101/r/VWED into dev

---
 _Main/BL/Type_InterfaceLoginfo/StaticMethod_CallToken.qbl |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/_Main/BL/Type_InterfaceLoginfo/StaticMethod_CallToken.qbl b/_Main/BL/Type_InterfaceLoginfo/StaticMethod_CallToken.qbl
index 864c257..a186eae 100644
--- a/_Main/BL/Type_InterfaceLoginfo/StaticMethod_CallToken.qbl
+++ b/_Main/BL/Type_InterfaceLoginfo/StaticMethod_CallToken.qbl
@@ -1,6 +1,8 @@
 Quintiq file version 2.0
 #parent: #root
-StaticMethod CallToken () as String
+StaticMethod CallToken (
+  String secret
+) as String
 {
   TextBody:
   [*
@@ -8,13 +10,14 @@
     address       := Translations::InterfaceDataset_Address(); 
     httpinterface := HTTPInterface::Create( address,80);
     
-    httpinterface.URL( Translations::InterfaceDataset_Token_URL() );
+    httpinterface.URL( Translations::InterfaceDataset_Token_URL() + secret );
     httpinterface.MediaType( Translations::InterfaceDataset_ContentType() );
+    httpinterface.PostMethod( false );
     httpinterface.Call();
     result := httpinterface.Result();
     
     resultJson     := JSON::Parse( result );
-    token          := resultJson.Get( "access_token" ).AsString();
+    token          := resultJson.Get( "access_token" ).GetString();
     
     return token;
   *]

--
Gitblit v1.9.3