Skip to content

K
KGOrders
Commit d9a45297 by Elias Sarraf
Options

Merge remote-tracking branch 'origin/cam2'

parents d39dc485 650efac4
Showing with 289 additions and 214 deletions
kgOrdersClient/View.Orders.pas
......@@ -118,7 +118,7 @@ var
implementation
uses
XData.Model.Classes, View.Main, View.AddOrder, View.Search;
XData.Model.Classes, View.Main, View.AddOrder, View.Search, View.PDF;
{$R *.dfm}
......@@ -129,13 +129,27 @@ end;
[async] procedure TFViewOrders.GenerateReportPDF;
var
searchOptions: string;
xdcResponse: TXDataClientResponse;
searchOptions, pdfURL: string;
jsObject: TJSObject;
ShowPDFForm: TFViewPDF;
procedure AfterCreate(AForm: TObject);
begin
ShowPDFForm.LoadPDF(pdfUrl);
ShowPDFForm.ShowModal;
end;
begin
searchOptions := GenerateSearchOptions;
// Call the server method to generate the PDF
await(XDataWebClient1.RawInvokeAsync('ILookupService.GenerateReportPDF', [searchOptions]));
ShowMessage('PDF Report Generated Successfully');
xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GenerateReportPDF', [searchOptions]));
jsObject := JS.TJSObject(xdcResponse.Result);
pdfUrl := JS.toString(jsObject.Properties['value']);
//ShowMessage('PDF Report Generated Successfully');
console.log(pdfURL);
//application.Navigate( pdfUrl, ntblank );
ShowPDFForm := TFViewPDF.CreateNew(@AfterCreate);
end;
......@@ -641,22 +655,45 @@ begin
'&orderby=' + OrderBy +
//Status 1
'&startDate1=' + startDate1 +
'&endDate1=' + endDate1 +
'&filterType1=' + filterType1 +
'&null1=' + BoolToStr(null1) +
'&filterType1=' + filterType1;
if ( (filterType1 <> '') and (filterType1 <> 'NONE') ) then
begin
searchOptions := searchOptions +
'&null1=' + BoolToStr(null1);
if (not (null1)) then
begin
searchOptions := searchOptions +
'&startDate1=' + startDate1 +
'&endDate1=' + endDate1;
end;
end;
// Status2
'&startDate2=' + startDate2 +
'&endDate2=' + endDate2 +
'&filterType2=' + filterType2 +
'&null2=' + BoolToStr(null2) +
'&orderType=' + orderType +
'&jobName=' + jobName +
'&companyID=' + companyID +
'&orderID=' + orderID;
searchOptions := searchOptions +
'&filterType2=' + filterType2;
if ( (filterType2 <> '') and (filterType2 <> 'NONE') ) then
begin
searchOptions := searchOptions + '&null2=' + BoolToStr(null2);
if (not (null2)) then
begin
searchOptions := searchOptions +
'&startDate2=' + startDate2 +
'&endDate2=' + endDate2;
end;
end;
if ( ( orderType <> '' ) AND ( orderType <> 'ANY' ) ) then
searchOptions := searchOptions + '&orderType=' + orderType;
if jobName <> '' then
searchOptions := searchOptions + '&jobName=' + jobName;
if companyID <> '' then
searchOptions := searchOptions + '&companyID=' + companyID;
if orderID <> '' then
searchOptions := searchOptions + '&orderID=' + orderID;
Result := searchOptions;
end;
......
kgOrdersClient/View.PDF.dfm 0 → 100644
object FViewPDF: TFViewPDF
Width = 1062
Height = 780
object wbcPDFPreview: TWebBrowserControl
Left = 0
Top = 0
Width = 1062
Height = 780
Align = alClient
Sandbox = []
ExplicitTop = 39
ExplicitWidth = 640
ExplicitHeight = 588
end
object btnClose: TWebButton
Left = 826
Top = 17
Width = 96
Height = 25
Margins.Top = 10
Anchors = [akTop, akRight]
Caption = 'Close'
ChildOrder = 1
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnCloseClick
end
end
kgOrdersClient/View.PDF.html 0 → 100644
<html>
<head>
<meta http-equiv="Content-type" content="text/html; charset=utf-8" />
<title>TMS Web Project</title>
<style>
</style>
</head>
<body>
</body>
</html>
\ No newline at end of file
kgOrdersClient/View.PDF.pas 0 → 100644
unit View.PDF;
interface
uses
System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.WebCtrls, Vcl.StdCtrls,
WEBLib.StdCtrls;
type
TFViewPDF = class(TWebForm)
wbcPDFPreview: TWebBrowserControl;
btnClose: TWebButton;
procedure btnCloseClick(Sender: TObject);
private
{ Private declarations }
public
procedure LoadPDF(const AUrl: string);
end;
var
FViewPDF: TFViewPDF;
implementation
{$R *.dfm}
procedure TFViewPDF.btnCloseClick(Sender: TObject);
begin
Close;
end;
procedure TFViewPDF.LoadPDF(const AUrl: string);
begin
if Assigned(wbcPDFPreview) then
wbcPDFPreview.URL := AUrl
else
ShowMessage('wbcPDFPreview is not initialized');
end;
end.
\ No newline at end of file
kgOrdersClient/View.Search.dfm
......@@ -204,6 +204,21 @@ object FSearch: TFSearch
ParentFont = False
WidthPercent = 100.000000000000000000
end
object WebLabel5: TWebLabel
Left = 338
Top = 56
Width = 89
Height = 14
Caption = 'Company Name:'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
HeightPercent = 100.000000000000000000
ParentFont = False
WidthPercent = 100.000000000000000000
end
object pnlMessage: TWebPanel
Left = 92
Top = 637
......@@ -315,7 +330,6 @@ object FSearch: TFSearch
Top = 462
Width = 127
Height = 22
ElementClassName = 'custom-select'
HeightStyle = ssAuto
BorderStyle = bsSingle
ChildOrder = 7
......@@ -338,7 +352,6 @@ object FSearch: TFSearch
Top = 462
Width = 135
Height = 22
ElementClassName = 'custom-select'
HeightStyle = ssAuto
BorderStyle = bsSingle
ChildOrder = 7
......@@ -365,6 +378,7 @@ object FSearch: TFSearch
ChildOrder = 6
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = cbNull1Click
end
object wcbOrderType: TWebComboBox
Left = 174
......@@ -411,7 +425,6 @@ object FSearch: TFSearch
Top = 536
Width = 127
Height = 22
ElementClassName = 'custom-select'
HeightStyle = ssAuto
BorderStyle = bsSingle
ChildOrder = 7
......@@ -428,7 +441,6 @@ object FSearch: TFSearch
Top = 536
Width = 135
Height = 22
ElementClassName = 'custom-select'
HeightStyle = ssAuto
BorderStyle = bsSingle
ChildOrder = 7
......@@ -449,11 +461,12 @@ object FSearch: TFSearch
ChildOrder = 6
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = cbNull2Click
end
object TMSFNCGrid1: TTMSFNCGrid
Left = 20
Top = 112
Width = 865
Width = 620
Height = 233
ParentDoubleBuffered = False
DoubleBuffered = True
......@@ -484,7 +497,7 @@ object FSearch: TFSearch
Font.Name = 'Segoe UI'
Font.Style = []
ID = ''
Width = 70.000000000000000000
Width = 40.000000000000000000
end
item
BorderWidth = 1
......@@ -499,7 +512,7 @@ object FSearch: TFSearch
Font.Name = 'Segoe UI'
Font.Style = []
ID = ''
Width = 250.000000000000000000
Width = 120.000000000000000000
end
item
BorderWidth = 1
......@@ -514,7 +527,7 @@ object FSearch: TFSearch
Font.Name = 'Segoe UI'
Font.Style = []
ID = ''
Width = 100.000000000000000000
Width = 200.000000000000000000
end
item
BorderWidth = 1
......@@ -529,7 +542,7 @@ object FSearch: TFSearch
Font.Name = 'Segoe UI'
Font.Style = []
ID = ''
Width = 426.000000000000000000
Width = 241.000000000000000000
end
item
BorderWidth = 1
......@@ -703,6 +716,28 @@ object FSearch: TFSearch
WidthPercent = 100.000000000000000000
OnClick = btnClearClick
end
object edtCompanyName: TWebEdit
Left = 338
Top = 76
Width = 239
Height = 22
HelpType = htKeyword
TabStop = False
ChildOrder = 8
ElementClassName = 'form-control'
ElementFont = efCSS
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -8
Font.Name = 'Arial'
Font.Style = []
HeightPercent = 100.000000000000000000
HideSelection = False
ParentFont = False
TabOrder = 1
WidthPercent = 100.000000000000000000
end
object XDataWebClient1: TXDataWebClient
Connection = DMConnection.ApiConnection
Left = 738
......@@ -710,8 +745,8 @@ object FSearch: TFSearch
end
object xdwdsCustomers: TXDataWebDataSet
Connection = DMConnection.ApiConnection
Left = 608
Top = 63
Left = 666
Top = 73
object xdwdsCustomersID: TIntegerField
FieldName = 'ID'
end
......@@ -721,14 +756,13 @@ object FSearch: TFSearch
object xdwdsCustomersSHORT_NAME: TStringField
FieldName = 'SHORT_NAME'
end
object xdwdsCustomersADDRESS: TStringField
FieldName = 'ADDRESS'
Size = 100
object xdwdsCustomersstaff_fields_invoice_to: TStringField
FieldName = 'staff_fields_invoice_to'
end
end
object wdsCustomers: TWebDataSource
DataSet = xdwdsCustomers
Left = 476
Top = 61
Left = 650
Top = 23
end
end
kgOrdersClient/View.Search.pas
......@@ -48,19 +48,23 @@ type
xdwdsCustomersID: TIntegerField;
xdwdsCustomersNAME: TStringField;
xdwdsCustomersSHORT_NAME: TStringField;
xdwdsCustomersADDRESS: TStringField;
wdsCustomers: TWebDataSource;
WebLabel3: TWebLabel;
edtJobName: TWebEdit;
WebLabel4: TWebLabel;
btnCancel: TWebButton;
btnClear: TWebButton;
xdwdsCustomersstaff_fields_invoice_to: TStringField;
WebLabel5: TWebLabel;
edtCompanyName: TWebEdit;
procedure btnConfirmClick(Sender: TObject);
procedure WebFormShow(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure edtSearchChange(Sender: TObject);
procedure TMSFNCGrid1CellClick(Sender: TObject; ACol, ARow: Integer);
procedure btnClearClick(Sender: TObject);
procedure cbNull1Click(Sender: TObject);
procedure cbNull2Click(Sender: TObject);
private
//FJSONProc: TJSONProc;
[async] procedure getCustomers;
......@@ -139,7 +143,14 @@ begin
dtpEndDate1.Date := StrToDateTime(params.Values['endDate1'], DateFormatSettings);
if params.values['null1'] <> '' then
begin
cbNull1.Checked := StrToBool(params.Values['null1']);
if StrToBool(params.Values['null1']) then
begin
dtpStartDate1.Visible := false;
dtpEndDate1.Visible := false;
end;
end;
// Status 2
if params.Values['filterType2'] <> '' then
......@@ -147,18 +158,26 @@ begin
else
wcbFilterType2.Text := 'NONE';
if params.Values['startDate2'] = '1899/12/30' then
console.log(params.Values['startDate2']);
if params.Values['startDate2'] = '' then
dtpStartDate2.Date := 0
else
dtpStartDate2.Date := StrToDateTime(params.Values['startDate2'], DateFormatSettings);
if params.Values['endDate2'] = '1899/12/30' then
if params.Values['endDate2'] = '' then
dtpEndDate2.Date := 0
else
dtpEndDate2.Date := StrToDateTime(params.Values['endDate2'], DateFormatSettings);
if params.values['null2'] <> '' then
begin
cbNull1.Checked := StrToBool(params.Values['null2']);
if StrToBool(params.Values['null2']) then
begin
dtpStartDate2.Visible := false;
dtpEndDate2.Visible := false;
end;
end;
params.Free;
......@@ -193,6 +212,34 @@ begin
Close;
end;
procedure TFSearch.cbNull1Click(Sender: TObject);
begin
if cbNull1.Checked then
begin
dtpStartDate1.Visible := false;
dtpEndDate1.Visible := false;
end
else
begin
dtpStartDate1.Visible := true;
dtpEndDate1.Visible := true;
end;
end;
procedure TFSearch.cbNull2Click(Sender: TObject);
begin
if cbNull2.Checked then
begin
dtpStartDate2.Visible := false;
dtpEndDate2.Visible := false;
end
else
begin
dtpStartDate2.Visible := true;
dtpEndDate2.Visible := true;
end;
end;
[async] procedure TFSearch.getCustomers();
var
xdcResponse: TXDataClientResponse;
......@@ -214,6 +261,7 @@ end;
procedure TFSearch.TMSFNCGrid1CellClick(Sender: TObject; ACol, ARow: Integer);
begin
edtCompanyID.Text := TMSFNCGrid1.Cells[0, ARow];
edtCompanyName.Text := TMSFNCGrid1.Cells[2, ARow];
end;
procedure TFSearch.PopulateGridManually;
......@@ -247,7 +295,7 @@ begin
TMSFNCGrid1.Cells[0, RowIndex] := xdwdsCustomers.FieldByName('ID').AsString;
TMSFNCGrid1.Cells[1, RowIndex] := xdwdsCustomers.FieldByName('SHORT_NAME').AsString;
TMSFNCGrid1.Cells[2, RowIndex] := xdwdsCustomers.FieldByName('NAME').AsString;
TMSFNCGrid1.Cells[3, RowIndex] := xdwdsCustomers.FieldByName('ADDRESS').AsString;
TMSFNCGrid1.Cells[3, RowIndex] := xdwdsCustomers.FieldByName('staff_fields_invoice_to').AsString;
Inc(RowIndex);
xdwdsCustomers.Next;
......
kgOrdersClient/webKGOrders.dpr
......@@ -19,7 +19,8 @@ uses
View.Orders in 'View.Orders.pas' {FViewOrders: TWebForm} {*.html},
View.OrderEntryCorrugated in 'View.OrderEntryCorrugated.pas' {FOrderEntry: TWebForm} {*.html},
View.AddOrder in 'View.AddOrder.pas' {FAddOrder: TWebForm} {*.html},
View.Search in 'View.Search.pas' {FSearch: TWebForm} {*.html};
View.Search in 'View.Search.pas' {FSearch: TWebForm} {*.html},
View.PDF in 'View.PDF.pas' {FViewPDF: TWebForm} {*.html};
{$R *.res}
......
kgOrdersClient/webKGOrders.dproj
......@@ -180,6 +180,11 @@
<FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass>
</DCCReference>
<DCCReference Include="View.PDF.pas">
<Form>FViewPDF</Form>
<FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass>
</DCCReference>
<None Include="index.html"/>
<None Include="css\app.css"/>
<None Include="config\config.json"/>
......
kgOrdersServer/Source/Common.Config.pas
......@@ -15,12 +15,14 @@ type
FJWTTokenSecret: string;
FAdminPassword: string;
FWebAppFolder: string;
FReportsFolder: string;
public
constructor Create;
property url: string read FUrl write FUrl;
property jwtTokenSecret: string read FJWTTokenSecret write FJWTTokenSecret;
property adminPassword: string read FAdminPassword write FAdminPassword;
property webAppFolder: string read FWebAppFolder write FWebAppFolder;
property reportsFolder: string read FReportsFolder write FReportsFolder;
end;
procedure LoadServerConfig;
......@@ -76,6 +78,7 @@ begin
adminPassword := 'whatisthisusedfor';
jwtTokenSecret := 'super_secret0123super_secret4567';
webAppFolder := 'static';
reportsFolder := '..\kgOrdersClient\TMSWeb\Debug\';
// ServerConfigStr := Bcl.Json.TJson.Serialize( ServerConfig );
// ConfigFile := 'serverconfig.json';
// TFile.WriteAllText( ConfigFile, ServerConfigStr );
......
kgOrdersServer/Source/Lookup.Service.pas
......@@ -230,7 +230,7 @@ type
[HttpGet] function GetOrder(orderInfo: string): TFullOrder;
[HttpGet] function GetCustomers(): TCustomerList;
[HttpGet] function GetCustomer(ID: string): TCustomerItem;
[HttpGet] procedure GenerateReportPDF(searchOptions: string);
[HttpGet] function GenerateReportPDF(searchOptions: string): string;
function AddUser(userInfo: string): string;
......
kgOrdersServer/Source/Lookup.ServiceImpl.pas
......@@ -35,20 +35,20 @@ type
function GetCustomer(ID: string): TCustomerItem;
function EditUser(const editOptions: string): string;
function Search(phoneNum: string): TOrderList;
procedure GenerateReportPDF(searchOptions: string);
function GenerateReportPDF(searchOptions: string): string;
function AddUser(userInfo: string): string;
function AddItem(itemInfo: string): string;
function DelUser(username: string): string;
function generateSelectSQL(filterType, startDate, endDate: string): string;
function generateSubQuery(currStatus: string): string;
function GenerateSelectSQL(filterType, startDate, endDate: string): string;
function GenerateSubQuery(currStatus: string): string;
function AddCorrugatedOrder(orderInfo: string): TJSONObject;
function AddStatusSchedule(StatusType: string; order: TJSONObject; ORDER_ID: integer): string;
function EditStatusSchedule(StatusType: string; order: TJSONObject; ORDER_ID: string): string;
function generateOrdersSQL(searchOptions: string): TSQLQuery;
function getColorCount(colors: string): string;
function generateStatusSelectSQL(statusTableShort, statusTableLong, startDate, endDate, statusType: string): string;
function generateStatusWhereSQL(status: TStatusSearchInfo): string;
function createStatusSearchInfo(params: TStringList; statusNum: string): TStatusSearchInfo;
function GenerateOrdersSQL(searchOptions: string): TSQLQuery;
function GetColorCount(colors: string): string;
function GenerateStatusSelectSQL(statusTableShort, statusTableLong, startDate, endDate, statusType: string): string;
function GenerateStatusWhereSQL(status: TStatusSearchInfo): string;
function CreateStatusSearchInfo(params: TStringList; statusNum: string): TStatusSearchInfo;
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
end;
......@@ -74,7 +74,7 @@ end;
function TLookupService.GetCustomers: TCustomerList;
var
SQL, ADDRESS: string;
SQL: string;
customer: TCustomerItem;
begin
SQL := 'select NAME, CUSTOMER_ID, SHORT_NAME, BILL_ADDRESS, BILL_CITY, BILL_STATE, BILL_ZIP from customers';
......@@ -168,7 +168,7 @@ begin
end;
procedure TLookupService.GenerateReportPDF(searchOptions: string);
function TLookupService.GenerateReportPDF(searchOptions: string): string;
var
SQL: string;
rptOrders: TrptOrders; // Local instance of rptOrders
......@@ -180,13 +180,13 @@ begin
SQL := GenerateOrdersSQL(searchOptions).SQL;
// Prepare the report dataset
rptOrders.PrepareReport(SQL);
result := rptOrders.PrepareReport(SQL);
// Generate the PDF report
rptOrders.GeneratePDF;
//rptOrders.GeneratePDF;
// Optionally, log success
Logger.log(5, 'PDF Report successfully generated for searchOptions: ' + searchOptions);
Logger.log(5, 'PDF Report successfully generated for searchOptions: ' + searchOptions);
finally
rptOrders.Free;
end;
......@@ -213,10 +213,14 @@ begin
result := 'exists ( select 1 from ' + statusTableLong + ' ' +
statusTableShort + ' where ' + statusTableShort + '.ORDER_ID = ' +
'o.ORDER_ID AND ' + statusTableShort + '.ORDER_STATUS = ' +
quotedStr(statusType) + ' AND ' + quotedStr(startDate) +
' <= STATUS_DATE';
quotedStr(statusType);
if startDate <> '' then
begin
result := result + ' AND ' + quotedStr(endDate) + ' <= STATUS_DATE';
end;
if endDate <> '1899/12/30' then
if ( ( endDate <> '1899/12/30' ) AND ( endDate <> '' ) ) then
begin
result := result + ' AND ' + quotedStr(endDate) + ' >= STATUS_DATE';
end;
......@@ -231,7 +235,8 @@ begin
result := TStatusSearchInfo.Create;
result.startDate := params.Values['startDate' + statusNum];
result.endDate := params.Values['endDate' + statusNum];
result.null := StrToBool(params.Values['null' + statusNum]);
if params.Values['null' + statusNum] <> '' then
result.null := StrToBool(params.Values['null' + statusNum]);
result.statusType := '';
result.filterType := '';
......
kgOrdersServer/Source/rOrders.dfm
......@@ -3,7 +3,7 @@ object rptOrders: TrptOrders
Height = 480
Width = 640
object frxOrders: TfrxReport
Version = '2025.1.3'
Version = '2024.2.1'
DotMatrixReport = False
IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick, pbCopy, pbSelection]
......
kgOrdersServer/Source/rOrders.pas
......@@ -38,14 +38,11 @@ type
procedure uqOrdersCalcFields(DataSet: TDataSet);
private
function BuildOrderQuery(searchOptions: string): string;
function generateSubQuery(filterType, statusType,
currStatus: string): string;
function getColorCount(colors: string): string;
public
procedure PrepareReport(searchOptions: string);
procedure GeneratePDF;
function PrepareReport(SQL: string): string;
function GeneratePDF: string;
end;
var
......@@ -54,7 +51,7 @@ var
implementation
uses
uLibrary;
uLibrary, Common.Config;
{%CLASSGROUP 'Vcl.Controls.TControl'}
......@@ -75,11 +72,8 @@ begin
end;
procedure TrptOrders.PrepareReport(searchOptions: string);
var
SQL: string;
function TrptOrders.PrepareReport(SQL: string): string;
begin
SQL := BuildOrderQuery(searchOptions);
Logger.Log(5, 'Generated SQL for Prepare Report: ' + SQL);
uqOrders.Close;
......@@ -87,7 +81,7 @@ begin
uqOrders.Open;
GeneratePDF;
result := GeneratePDF;
Logger.Log(5, 'Report preparation complete.');
end;
......@@ -124,8 +118,7 @@ begin
end;
end;
//create new field called color count
function TrptOrders.getColorCount(colors: string): string;
var
colorObject: TJSONObject;
......@@ -145,168 +138,35 @@ begin
end;
end;
// Builds a dynamic SQL query based on the search options
function TrptOrders.BuildOrderQuery(searchOptions: string): string;
var
params: TStringList;
PageNum, PageSize: Integer;
startDate, endDate, filterType, statusType, statusSuffix: string;
statusTableShort, statusTableLong, whereSQL, SQL: string;
begin
params := TStringList.Create;
try
params.StrictDelimiter := True;
params.Delimiter := '&';
params.DelimitedText := searchOptions;
// Parse parameters
PageNum := StrToIntDef(params.Values['pagenumber'], 1);
PageSize := StrToIntDef(params.Values['pagesize'], 50);
startDate := params.Values['startDate'];
endDate := params.Values['endDate'];
filterType := params.Values['filterType'];
statusType := '';
statusSuffix := '';
if filterType <> '' then
begin
statusType := filterType.Split(['_'])[0];
statusSuffix := filterType.Split(['_'])[1];
filterType := statusType + '_' + statusSuffix;
end;
// Determine which status table to use
if statusSuffix = 'DUE' then
begin
statusTableShort := 'oss';
statusTableLong := 'orders_status_schedule';
end
else
begin
statusTableShort := 'os';
statusTableLong := 'orders_status';
end;
SQL := 'SELECT o.ORDER_ID, ';
if filterType <> '' then
SQL := SQL + statusTableShort + '.STATUS_DATE AS ' + filterType.ToUpper + ', ';
SQL := SQL +
'o.LOCATION AS Loc, c.NAME AS COMPANY_NAME, o.JOB_NAME, o.ORDER_DATE, o.ORDER_TYPE, ';
SQL := SQL + generateSubQuery(filterType, statusType, 'PROOF');
SQL := SQL + generateSubQuery(filterType, statusType, 'ART');
SQL := SQL + generateSubQuery(filterType, statusType, 'PLATE');
SQL := SQL + generateSubQuery(filterType, statusType, 'MOUNT');
SQL := SQL + generateSubQuery(filterType, statusType, 'SHIP');
SQL := SQL + 'o.PRICE, qb.QB_REF_NUM ' +
'FROM orders o ' +
'JOIN ' + statusTableLong + ' ' + statusTableShort +
' ON ' + statusTableShort + '.ORDER_ID = o.ORDER_ID ' +
'JOIN customers c ON c.CUSTOMER_ID = o.COMPANY_ID ' +
'LEFT JOIN qb_sales_orders qb ON qb.ORDER_ID = o.ORDER_ID ';
whereSQL := 'WHERE 1=1 ';
if startDate <> '' then
whereSQL := whereSQL + ' AND o.ORDER_DATE >= ' + QuotedStr(startDate);
if endDate <> '' then
whereSQL := whereSQL + ' AND o.ORDER_DATE <= ' + QuotedStr(endDate);
if statusType <> '' then
whereSQL := whereSQL + ' AND ' + statusTableShort + '.ORDER_STATUS = ' + QuotedStr(statusType);
SQL := SQL + whereSQL;
SQL := SQL + ' ORDER BY o.ORDER_DATE DESC ' +
'LIMIT ' + IntToStr(PageSize) + ' OFFSET ' + IntToStr((PageNum - 1) * PageSize);
Result := SQL;
finally
params.Free;
end;
end;
function TrptOrders.generateSubQuery(filterType, statusType, currStatus: string): string;
var
statusSuffix: string;
begin
Result := '';
statusSuffix := '';
if filterType <> '' then
statusSuffix := filterType.Split(['_'])[1];
if statusType <> currStatus then
begin
if (statusSuffix = 'DUE') or (statusSuffix = '') then
begin
Result := Result +
'(SELECT oss.STATUS_DATE FROM orders_status_schedule oss ' +
'WHERE oss.ORDER_ID = o.ORDER_ID AND oss.ORDER_STATUS = ' + QuotedStr(currStatus) + ') AS ' + currStatus + '_DUE, ';
end
else
begin
Result := Result +
'(SELECT os.STATUS_TIMESTAMP FROM orders_status os ' +
'WHERE os.ORDER_ID = o.ORDER_ID AND os.ORDER_STATUS = ' + QuotedStr(currStatus) +
' ORDER BY os.STATUS_TIMESTAMP DESC LIMIT 1) AS ' + currStatus + '_DONE, ';
end;
end;
if (statusSuffix = 'DUE') or (statusSuffix = '') then
begin
Result := Result +
'(SELECT os.STATUS_TIMESTAMP FROM orders_status os ' +
'WHERE os.ORDER_ID = o.ORDER_ID AND os.ORDER_STATUS = ' + QuotedStr(currStatus) +
' ORDER BY os.STATUS_TIMESTAMP DESC LIMIT 1) AS ' + currStatus + '_DONE, ';
end
else
begin
Result := Result +
'(SELECT oss.STATUS_DATE FROM orders_status_schedule oss ' +
'WHERE oss.ORDER_ID = o.ORDER_ID AND oss.ORDER_STATUS = ' + QuotedStr(currStatus) + ') AS ' + currStatus + '_DUE, ';
end;
end;
//create new field called color count
procedure TrptOrders.GeneratePDF;
function TrptOrders.GeneratePDF: string;
var
ReportDir, ReportFileName: string;
reportURL: string;
begin
ReportDir := 'C:\Projects\KGOrders\Reports';
ReportDir := ServerConfig.reportsFolder;
if not DirectoryExists(ReportDir) then
begin
ForceDirectories(ReportDir);
Logger.Log(5, 'Reports directory created: ' + ReportDir);
end;
reportURL := 'reports\' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.pdf';
ReportFileName := TPath.Combine(ReportDir, 'OrderReport_' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.pdf');
ReportFileName := reportDir + reportUrl;
frxPDFExport1.FileName := ReportFileName;
frxPDFExport1.ShowDialog := False;
try
frxOrders.PrepareReport;
frxOrders.Export(frxPDFExport1);
frxOrders.ShowPreparedReport;
//frxOrders.ShowPreparedReport;
finally
frxOrders.Clear; // Clear the report to avoid memory bloat
end;
Logger.Log(5, 'PDF saved to: ' + ReportFileName);
result := reportURL;
end;
end.
kgOrdersServer/kgOrdersServer.ini
[Settings]
MemoLogLevel=4
FileLogLevel=5
LogFileNum=35
LogFileNum=55
webClientVersion=1.0.0
[Database]
--Server=192.168.159.132
Server=192.168.100.130
Server=192.168.159.132
--Server=192.168.100.130
--Server=192.168.75.133
--Database=
--Username=
Password=emsys!012
--Password=emsys!012
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