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 ...@@ -633,7 +633,7 @@ object FData: TFData
ColCount = 22 ColCount = 22
DrawingStyle = gdsClassic DrawingStyle = gdsClassic
FixedColor = clWhite FixedColor = clWhite
RowCount = 101 RowCount = 2
FixedRows = 1 FixedRows = 1
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goFixedRowDefAlign] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goFixedRowDefAlign]
TabOrder = 3 TabOrder = 3
...@@ -1500,105 +1500,6 @@ object FData: TFData ...@@ -1500,105 +1500,6 @@ object FData: TFData
64) 64)
RowHeights = ( 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
22) 22)
end end
object edtUsername: TEdit object edtUsername: TEdit
...@@ -1675,6 +1576,15 @@ object FData: TFData ...@@ -1675,6 +1576,15 @@ object FData: TFData
TabOrder = 12 TabOrder = 12
OnClick = Button1Click OnClick = Button1Click
end end
object Button2: TButton
Left = 772
Top = 206
Width = 89
Height = 25
Caption = 'Company Info'
TabOrder = 13
OnClick = Button2Click
end
object dsUsers: TDataSource object dsUsers: TDataSource
DataSet = uqUsers DataSet = uqUsers
Left = 482 Left = 482
...@@ -2034,7 +1944,6 @@ object FData: TFData ...@@ -2034,7 +1944,6 @@ object FData: TFData
Database = 'kg_order_entry' Database = 'kg_order_entry'
Username = 'root' Username = 'root'
Server = '192.168.159.132' Server = '192.168.159.132'
Connected = True
LoginPrompt = False LoginPrompt = False
Left = 855 Left = 855
Top = 457 Top = 457
......
kgOrdersServer/Source/Data.pas
...@@ -124,11 +124,14 @@ type ...@@ -124,11 +124,14 @@ type
uqWebupc_distortion_percent: TStringField; uqWebupc_distortion_percent: TStringField;
uqWebupc_distortion_amount: TStringField; uqWebupc_distortion_amount: TStringField;
uqWebstaff_fields_art_location: TStringField; uqWebstaff_fields_art_location: TStringField;
Button2: TButton;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure btnFindClick(Sender: TObject); procedure btnFindClick(Sender: TObject);
procedure btnPDFClick(Sender: TObject); procedure btnPDFClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject); procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure getCompanyInfo();
private private
kgDB: TApiDatabase; kgDB: TApiDatabase;
accountSID: string; accountSID: string;
...@@ -185,6 +188,93 @@ begin ...@@ -185,6 +188,93 @@ begin
end; 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); procedure TFData.btnFindClick(Sender: TObject);
// Retrieves calls from a specific number from the database. // Retrieves calls from a specific number from the database.
// SQL: SQL statement to retrieve calls from the database // SQL: SQL statement to retrieve calls from the database
......
kgOrdersServer/Source/Main.dfm
...@@ -66,6 +66,15 @@ object FMain: TFMain ...@@ -66,6 +66,15 @@ object FMain: TFMain
TabOrder = 4 TabOrder = 4
OnClick = btnAuthSwaggerUIClick OnClick = btnAuthSwaggerUIClick
end end
object btnQB: TButton
Left = 444
Top = 8
Width = 75
Height = 25
Caption = 'QB'
TabOrder = 5
OnClick = btnQBClick
end
object initTimer: TTimer object initTimer: TTimer
OnTimer = initTimerTimer OnTimer = initTimerTimer
Left = 58 Left = 58
......
kgOrdersServer/Source/Main.pas
...@@ -19,6 +19,7 @@ type ...@@ -19,6 +19,7 @@ type
btnExit: TButton; btnExit: TButton;
initTimer: TTimer; initTimer: TTimer;
btnAuthSwaggerUI: TButton; btnAuthSwaggerUI: TButton;
btnQB: TButton;
procedure btnApiSwaggerUIClick(Sender: TObject); procedure btnApiSwaggerUIClick(Sender: TObject);
procedure btnDataClick(Sender: TObject); procedure btnDataClick(Sender: TObject);
procedure btnExitClick(Sender: TObject); procedure btnExitClick(Sender: TObject);
...@@ -26,6 +27,7 @@ type ...@@ -26,6 +27,7 @@ type
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure initTimerTimer(Sender: TObject); procedure initTimerTimer(Sender: TObject);
procedure btnAuthSwaggerUIClick(Sender: TObject); procedure btnAuthSwaggerUIClick(Sender: TObject);
procedure btnQBClick(Sender: TObject);
strict private strict private
procedure StartServers; procedure StartServers;
...@@ -42,7 +44,7 @@ uses ...@@ -42,7 +44,7 @@ uses
Common.Config, Common.Config,
Sparkle.Utils, Sparkle.Utils,
Api.Database, Api.Database,
Data; Data, qbAPI;
{$R *.dfm} {$R *.dfm}
...@@ -74,6 +76,13 @@ begin ...@@ -74,6 +76,13 @@ begin
Close; Close;
end; end;
procedure TFMain.btnQBClick(Sender: TObject);
begin
FQB := TfQB.Create( self );
FQB.ShowModal;
FQB.Free;
end;
procedure TFMain.btnAuthSwaggerUIClick(Sender: TObject); procedure TFMain.btnAuthSwaggerUIClick(Sender: TObject);
begin begin
ShellExecute(Handle, 'open', PChar(TSparkleUtils.CombineUrlFast(AuthServerModule.XDataServer.BaseUrl, 'swaggerui')), nil, nil, SW_SHOWNORMAL); 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 ...@@ -25,7 +25,8 @@ uses
rOrderList in 'Source\rOrderList.pas' {rptOrderList: TDataModule}, rOrderList in 'Source\rOrderList.pas' {rptOrderList: TDataModule},
rOrderCorrugated in 'Source\rOrderCorrugated.pas' {rptOrderCorrugated: TDataModule}, rOrderCorrugated in 'Source\rOrderCorrugated.pas' {rptOrderCorrugated: TDataModule},
rOrderWeb in 'Source\rOrderWeb.pas' {rptOrderWeb: 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 type
TMemoLogAppender = class( TInterfacedObject, ILogAppender ) TMemoLogAppender = class( TInterfacedObject, ILogAppender )
......
kgOrdersServer/kgOrdersServer.dproj
...@@ -185,6 +185,10 @@ ...@@ -185,6 +185,10 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Source\qbAPI.pas">
<Form>fQB</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Base"> <BuildConfiguration Include="Base">
<Key>Base</Key> <Key>Base</Key>
</BuildConfiguration> </BuildConfiguration>
......
kgOrdersServer/kgOrdersServer.ini
[Settings] [Settings]
MemoLogLevel=4 MemoLogLevel=4
FileLogLevel=5 FileLogLevel=5
LogFileNum=304 LogFileNum=354
webClientVersion=1.0.0 webClientVersion=1.0.0
[Database] [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