Skip to content

K
KGOrders
Commit 55ffb9ae by Cam Hayes
Options

Starting point for the QB API implementation 

added logs to memo for debug purposes this issue is 100% caused by an error when converting into delphi
parent 987a8f03
Showing with 352 additions and 104 deletions
kgOrdersServer/Source/Data.dfm
......@@ -633,7 +633,7 @@ object FData: TFData
ColCount = 22
DrawingStyle = gdsClassic
FixedColor = clWhite
RowCount = 101
RowCount = 2
FixedRows = 1
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goFixedRowDefAlign]
TabOrder = 3
......@@ -1500,105 +1500,6 @@ object FData: TFData
64)
RowHeights = (
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22
22)
end
object edtUsername: TEdit
......@@ -1675,6 +1576,15 @@ object FData: TFData
TabOrder = 12
OnClick = Button1Click
end
object Button2: TButton
Left = 772
Top = 206
Width = 89
Height = 25
Caption = 'Company Info'
TabOrder = 13
OnClick = Button2Click
end
object dsUsers: TDataSource
DataSet = uqUsers
Left = 482
......@@ -2034,7 +1944,6 @@ object FData: TFData
Database = 'kg_order_entry'
Username = 'root'
Server = '192.168.159.132'
Connected = True
LoginPrompt = False
Left = 855
Top = 457
......
kgOrdersServer/Source/Data.pas
......@@ -124,11 +124,14 @@ type
uqWebupc_distortion_percent: TStringField;
uqWebupc_distortion_amount: TStringField;
uqWebstaff_fields_art_location: TStringField;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure btnFindClick(Sender: TObject);
procedure btnPDFClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure getCompanyInfo();
private
kgDB: TApiDatabase;
accountSID: string;
......@@ -185,6 +188,93 @@ begin
end;
procedure TFData.Button2Click(Sender: TObject);
begin
getCompanyInfo();
end;
procedure TFData.getCompanyInfo();
var
restClient: TRESTClient;
restRequest: TRESTRequest;
restResponse: TRESTResponse;
param: TRESTRequestParameter;
res: string;
sid: string;
jsValue: TJSONValue;
jsObj, companyInfo: TJSONObject;
jaCalls: TJSONArray;
joCall: TJSONObject;
row: integer;
i: integer;
uri, temp: string;
sql: string;
companyID, client, secret: string;
pair: TJSONPair;
begin
client := 'ABgO14uvjh8XqLud7spQ8lkb98AUpcdA7HbyMJfCAtl65sQ5yy';
secret := 'bQ06TRemHeAGFzVHRaTUvUoBU9jpU9itK6MOMgqN';
companyID := '9341454272655710';
restClient := TRESTClient.Create(nil);
restClient.BaseURL := 'https://sandbox-quickbooks.api.intuit.com';
restRequest := TRESTRequest.Create(nil);
restRequest.Client := restClient;
restResponse := TRESTResponse.Create(nil);
restRequest.Response := restResponse;
restRequest.Method := rmPOST;
res := '/oauth2/v1/tokens/bearer?grant_type=authorization_code&code=AB11742573412i7SYPPW9vHldmI4XCtmx7JcE5NIhNfilZZBZy&redirect_uri=https://developer.intuit.com/v2/OAuth2Playground/RedirectUrl';
restRequest.Resource := res;
param := restRequest.Params.AddItem;
param.Name := 'Authorization';
param.Kind := pkHTTPHEADER;
param.Options := param.Options + [TRESTRequestParameterOption.poDoNotEncode];
param.Value := 'Basic QUJnTzE0dXZqaDhYcUx1ZDdzcFE4bGtiOThBVXBjZEE3SGJ5TUpmQ0F0bDY1c1E1eXk6YlEwNlRSZW1IZUFHRnpWSFJhVFV2VW9CVTlqcFU5aXRLNk1PTWdxTg==';
{ restRequest.Method := rmGET;
res := '/v3/company/9341454272655710/companyinfo/9341454272655710';
restRequest.Resource := res;
param := restRequest.Params.AddItem;
param.Name := 'Authorization';
param.Kind := pkHTTPHEADER;
param.Options := param.Options + [TRESTRequestParameterOption.poDoNotEncode];
param.Value := 'Bearer eyJlbmMiOiJBMTI4Q0JDLUhTMjU2IiwiYWxnIjoiZGlyIn0..prbB1u9_TEEgFL7vPdoA3Q.MvrAJIADv5v7RpGaKh3rNNauO5E-aTy4EUK-wA4ye1iiBk7qTe97z7yGYrXBISxve_c2DbKcGwzf1CKXKXrafSLXHH-1vj8X2UGMcwnQBSZeHV2xPbcp5Un4Gcm3vt7cb9yTp-ge1D9CdAJ1KRanrrvhPxGY7aDqXio2DAPjqv8iXMdrpjPkSPiwYTImR0Y-dzK9w1hK75wu559Z39YKxuI4YeQMIlFE2V6uMqFKwKsE36HkRfoN7LO_DDkT8tNral3M3UNBcZcoXymZmCgxvyhDm7hY-zIK50V72kumopZ_Coul2-X88AL73hFUp2t1u12C2b57vjkvFrOBLm81Y07JX5rlvT91l0QGQjWf3HioWnVooucotT7rSyhKBfa5WogQSfRCf8g3wBT8Wd6zefgUZP8gsdcmg6W7cwsTmS1K290OmCf2UN93aDXruiOxY-BdXKYQGSAuFupr9-ZQ6OXhcPJQ7OSMJpml3hvGmlsECs0z-NxqUuoPDEYLrYjTL0T5CaF2yYNS2ZAsLthaJmwGivbpO2lt-liCgPS9HDZJ46lbJJYU2M2i40uZf0YC53XIO1Z_d-IqNgTDLzY7gcsocCL6kYgphWjJOpwDwIjFU7GsWAPbc450zssP7RG0_Y-ZNLlGNxO2CpyLioePy2GbQZijZCynfJAhQtzi8o6djUTziPvr0oAaRihJ5SQDZihntO19G2vMszJBk7jrfPhhXbAE25HuskLYjMuakAd7TNuqw-ZWU-8GGPiu6OJG.bTsj8SL_ud2Q3I31T4LICg'; }
restRequest.Execute;
//restresponse.Content
//jsValue := restResponse.JSONValue;
jsObj := TJSONObject.ParseJSONValue(restresponse.Content) as TJSONObject;
companyInfo := TJSONObject(jsObj.GetValue('CompanyInfo'));
{for pair in companyInfo do
begin
// Get the value as string
if pair.JsonValue is TJSONString then
temp := TJSONString(pair.JsonValue).Value
else
temp := pair.JsonValue.ToString; // For non-string values
// Add the key-value pair to the Memo
Memo1.Lines.Add(pair.JsonString.Value + ': ' + temp);
end;
//temp := companyInfo.Values['CompanyName'].Value;
//Memo1.Lines.Add(temp);
i := 1;}
restClient.Free;
restRequest.Free;
restResponse.Free;
end;
procedure TFData.btnFindClick(Sender: TObject);
// Retrieves calls from a specific number from the database.
// SQL: SQL statement to retrieve calls from the database
......
kgOrdersServer/Source/Main.dfm
......@@ -66,6 +66,15 @@ object FMain: TFMain
TabOrder = 4
OnClick = btnAuthSwaggerUIClick
end
object btnQB: TButton
Left = 444
Top = 8
Width = 75
Height = 25
Caption = 'QB'
TabOrder = 5
OnClick = btnQBClick
end
object initTimer: TTimer
OnTimer = initTimerTimer
Left = 58
......
kgOrdersServer/Source/Main.pas
......@@ -19,6 +19,7 @@ type
btnExit: TButton;
initTimer: TTimer;
btnAuthSwaggerUI: TButton;
btnQB: TButton;
procedure btnApiSwaggerUIClick(Sender: TObject);
procedure btnDataClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
......@@ -26,6 +27,7 @@ type
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure initTimerTimer(Sender: TObject);
procedure btnAuthSwaggerUIClick(Sender: TObject);
procedure btnQBClick(Sender: TObject);
strict private
procedure StartServers;
......@@ -42,7 +44,7 @@ uses
Common.Config,
Sparkle.Utils,
Api.Database,
Data;
Data, qbAPI;
{$R *.dfm}
......@@ -74,6 +76,13 @@ begin
Close;
end;
procedure TFMain.btnQBClick(Sender: TObject);
begin
FQB := TfQB.Create( self );
FQB.ShowModal;
FQB.Free;
end;
procedure TFMain.btnAuthSwaggerUIClick(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar(TSparkleUtils.CombineUrlFast(AuthServerModule.XDataServer.BaseUrl, 'swaggerui')), nil, nil, SW_SHOWNORMAL);
......
kgOrdersServer/Source/qbAPI.dfm 0 → 100644
object fQB: TfQB
Left = 0
Top = 0
Caption = 'fQB'
ClientHeight = 441
ClientWidth = 624
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
TextHeight = 15
object Memo1: TMemo
Left = 0
Top = 142
Width = 623
Height = 299
Lines.Strings = (
'Memo1')
TabOrder = 0
end
object Button1: TButton
Left = 18
Top = 54
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
end
kgOrdersServer/Source/qbAPI.pas 0 → 100644
unit qbAPI;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, AdvUtil, Data.DB, Vcl.Grids, AdvObj,
BaseGrid, AdvGrid, DBAdvGrid, MemDS, DBAccess, Uni, Vcl.StdCtrls, Vcl.Mask,
vcl.wwdbedit, vcl.wwdotdot, vcl.wwdbcomb, REST.Client, REST.Types, System.JSON,
System.Generics.Collections, AdvEdit, vcl.wwdblook, vcl.wwdbdatetimepicker,
System.Hash, Api.Database, Vcl.ExtCtrls, WEBLib.Forms, WEBLib.Controls, WEBLib.StdCtrls,
WEBLib.ExtCtrls, WEBLib.REST, WEBLib.WebTools,System.Net.HttpClient,
System.Net.URLClient, System.Net.HttpClientComponent;
type
TfQB = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
httpReqTokenRefresh: TWebHttpRequest;
public
{ Public declarations }
procedure getCompanyInfo();
procedure getAccessToken();
end;
var
fQB: TfQB;
implementation
{$R *.dfm}
procedure TfQB.Button1Click(Sender: TObject);
begin
getAccessToken();
//getCompanyInfo();
end;
procedure TfQB.getAccessToken();
var
restClient: TRESTClient;
restRequest: TRESTRequest;
restResponse: TRESTResponse;
param: TRESTRequestParameter;
res: string;
sid, EncodedAuth, RefreshToken: string;
jsValue: TJSONValue;
jsObj, companyInfo: TJSONObject;
jaCalls: TJSONArray;
joCall: TJSONObject;
row: integer;
i: integer;
uri, temp, body: string;
sql: string;
companyID, client, secret: string;
pair: TJSONPair;
item: TRestRequestParameter;
begin
client := 'ABgO14uvjh8XqLud7spQ8lkb98AUpcdA7HbyMJfCAtl65sQ5yy';
secret := 'bQ06TRemHeAGFzVHRaTUvUoBU9jpU9itK6MOMgqN';
companyID := '9341454272655710';
RefreshToken := 'AB11751305638q5pAyQI2MPvhkIGjH1ur3PRsas2zSKGGcC4vs';
EncodedAuth := 'QUJnTzE0dXZqaDhYcUx1ZDdzcFE4bGtiOThBVXBjZEE3SGJ5TUpmQ0F0bDY1c1E1eXk6YlEwNlRSZW1IZUFHRnpWSFJhVFV2VW9CVTlqcFU5aXRLNk1PTWdxTg==';
// Prepare the REST client and request
restClient := TRESTClient.Create('https://oauth.platform.intuit.com/oauth2/v1/tokens/bearer');
restRequest := TRESTRequest.Create(nil);
restRequest.Client := restClient;
restResponse := TRESTResponse.Create(nil);
restRequest.Response := restResponse;
restRequest.Method := rmPOST;
// Set the Accept header (application/json)
restRequest.Params.Clear;
// Add Content-Type and Accept headers
restRequest.AddParameter('Content-Type', 'application/x-www-form-urlencoded', pkHTTPHEADER);
restRequest.AddParameter('Accept', 'application/json', pkHTTPHEADER);
restRequest.AddParameter('Authorization', 'Basic ' + EncodedAuth, pkHTTPHEADER);
// Construct body content like -d "grant_type=refresh_token&refresh_token=AB11751305638q5pAyQI2MPvhkIGjH1ur3PRsas2zSKGGcC4vs"
body := 'grant_type=refresh_token&refresh_token=' + RefreshToken;
// Add body parameters as form-urlencoded data
restRequest.AddBody(body, TRESTContentType.ctAPPLICATION_X_WWW_FORM_URLENCODED);
// Log the request URL and method
Memo1.Lines.Add('Request URL: ' + restRequest.Client.BaseURL + restRequest.Resource);
// Log headers
Memo1.Lines.Add('Headers:');
for item in restRequest.Params do
begin
Memo1.Lines.Add(item.Value);
end;
// Log body (raw form data)
Memo1.Lines.Add('Body:');
Memo1.Lines.Add(body);
Memo1.Lines.Add('--- Request Logged ---');
restRequest.Execute;
// Log response for debugging
Memo1.Lines.Add('Status Code: ' + IntToStr(restResponse.StatusCode));
Memo1.Lines.Add('Response: ' + restResponse.Content);
Memo1.Lines.Add('Response Headers: ' + restResponse.Headers.Text);
restClient.Free;
restRequest.Free;
restResponse.Free;
end;
procedure TfQB.getCompanyInfo();
var
restClient: TRESTClient;
restRequest: TRESTRequest;
restResponse: TRESTResponse;
param: TRESTRequestParameter;
res: string;
sid: string;
jsValue: TJSONValue;
jsObj, companyInfo: TJSONObject;
jaCalls: TJSONArray;
joCall: TJSONObject;
row: integer;
i: integer;
uri, temp: string;
sql: string;
companyID, client, secret: string;
pair: TJSONPair;
begin
client := 'ABgO14uvjh8XqLud7spQ8lkb98AUpcdA7HbyMJfCAtl65sQ5yy';
secret := 'bQ06TRemHeAGFzVHRaTUvUoBU9jpU9itK6MOMgqN';
companyID := '9341454272655710';
restClient := TRESTClient.Create(nil);
restClient.BaseURL := 'https://sandbox-quickbooks.api.intuit.com';
restRequest := TRESTRequest.Create(nil);
restRequest.Client := restClient;
restResponse := TRESTResponse.Create(nil);
restRequest.Response := restResponse;
restRequest.Method := rmGET;
res := '/v3/company/9341454272655710/companyinfo/9341454272655710';
restRequest.Resource := res;
param := restRequest.Params.AddItem;
param.Name := 'Authorization';
param.Kind := pkHTTPHEADER;
param.Options := param.Options + [TRESTRequestParameterOption.poDoNotEncode];
param.Value := 'Bearer eyJlbmMiOiJBMTI4Q0JDLUhTMjU2IiwiYWxnIjoiZGlyIn0..jQN6f8KqIOzuz9vUug_-pQ.EmzmjomzD8h1L3jLN2-LnwbeegkYJw2WSqm5FFhXCTBGfaK9Hc16l_NuoKgesfYUNBMFuAO59wgc7bKni6QoCZmA6R40_RuC-fq7aSLms_JHLCvaWe-TiIY0iEDgtCgFP7Bfnw7VAP8QL-A8vkG0wVqFhrjLSbpZWIDMo9n_WG5U_tobHt052YKczM4A-wLtmouLnRNewvjk4YqU36867Z4fOZQ4c2AHm5yhA1CRfYNiKflT4Wv_ERMEG_A1U5FCj_vTs3njbjCrSxooKeW6yJy3pzbAv0eVH_0KFsAi5LjTfyDXPRfVa2XMjtJcfEKnFYvnFw4owOYP8z4TPVB2vNSeYSimHivOWlaWLFQzc1jbGgUpdeMdMqA9Wmpt0JgYZxCSMxDfTmSdYhDOR0ng6osf0qTaeSLsbweYMZRFZTZ1Ob8MNiAhTEPARTrJYgJ3YHdY1G_nX4-LhTJetkduiNzjK_LekBplwy0NnLAujqaiL0D6Wrwc-LNrYgQ4Qc3j46U4jGkOLJ88CIg85pDSAeFtZk5-vL8mRDpZ7s6KX62mIOpzdx_nTTeQgsTDhvUfusQcBshoEw93Tmv5s-tr96pSHXcCq4WLp6bRMsay65cEapQVE4GnZrXoWBwBh0cnpE6DdmXS2GQXXvW6fFsQcq8eTPyLGs-qR6nJL-yybGwI_XTmEsaYzbdT4cFFRRqTstbN_UWnv2BtIYOwgDPcOsBg8CKPa5ZZfJFunkrRI8HDLckgkSoLVMqXKzmMQleu.-tUa8rbIzo9JQylw3T_f1g';
restRequest.Execute;
//restresponse.Content
//jsValue := restResponse.JSONValue;
jsObj := TJSONObject.ParseJSONValue(restresponse.Content) as TJSONObject;
companyInfo := TJSONObject(jsObj.GetValue('CompanyInfo'));
for pair in companyInfo do
begin
// Get the value as string
if pair.JsonValue is TJSONString then
temp := TJSONString(pair.JsonValue).Value
else
temp := pair.JsonValue.ToString; // For non-string values
// Add the key-value pair to the Memo
Memo1.Lines.Add(pair.JsonString.Value + ': ' + temp);
end;
//temp := companyInfo.Values['CompanyName'].Value;
//Memo1.Lines.Add(temp);
i := 1;
restClient.Free;
restRequest.Free;
restResponse.Free;
end;
end.
kgOrdersServer/kgOrdersServer.dpr
......@@ -25,7 +25,8 @@ uses
rOrderList in 'Source\rOrderList.pas' {rptOrderList: TDataModule},
rOrderCorrugated in 'Source\rOrderCorrugated.pas' {rptOrderCorrugated: TDataModule},
rOrderWeb in 'Source\rOrderWeb.pas' {rptOrderWeb: TDataModule},
rOrderCutting in 'Source\rOrderCutting.pas' {rptOrderCutting: TDataModule};
rOrderCutting in 'Source\rOrderCutting.pas' {rptOrderCutting: TDataModule},
qbAPI in 'Source\qbAPI.pas' {fQB};
type
TMemoLogAppender = class( TInterfacedObject, ILogAppender )
......
kgOrdersServer/kgOrdersServer.dproj
......@@ -185,6 +185,10 @@
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="Source\qbAPI.pas">
<Form>fQB</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
......
kgOrdersServer/kgOrdersServer.ini
[Settings]
MemoLogLevel=4
FileLogLevel=5
LogFileNum=304
LogFileNum=354
webClientVersion=1.0.0
[Database]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment