Skip to content

K
KGOrders
Commit 0565250e by Mac Stephens
Options

Working on adding fast report pdf

parent 1e7d3289
Showing with 1966 additions and 70 deletions
Reports/OrderReport_20241216_185416.pdf 0 → 100644
No preview for this file type
Reports/OrderReport_20241216_191026.pdf 0 → 100644
No preview for this file type
kgOrdersClient/View.Orders.dfm
......@@ -208,7 +208,7 @@ object FViewOrders: TFViewOrders
WidthPercent = 100.000000000000000000
end
object btnPDF: TWebButton
Left = 328
Left = 332
Top = 79
Width = 96
Height = 25
......
kgOrdersClient/View.Orders.pas
......@@ -83,6 +83,7 @@ type
[async] procedure GetOrders(searchOptions: string);
[async] procedure getUser();
procedure GeneratePDF(OrderID: string);
[async] procedure GenerateReportPDF;
var
PageNumber: integer;
PageSize: integer;
......@@ -109,33 +110,19 @@ uses
{$R *.dfm}
procedure TFViewOrders.btnPDFClick(Sender: TObject);
begin
GenerateReportPDF;
end;
[async] procedure TFViewOrders.GenerateReportPDF;
var
SelectedOrderID: string;
PDFButton: TJSHTMLElement;
searchOptions: string;
begin
PDFButton := TJSHTMLElement(document.getElementById('btngeneratepdf'));
searchOptions := GenerateSearchOptions;
// Check if an order is selected
if not xdwdsOrders.IsEmpty then
begin
SelectedOrderID := xdwdsOrdersID.Value;
if SelectedOrderID <> '' then
begin
GeneratePDF(SelectedOrderID);
// Remove invalid state if it exists
PDFButton.classList.remove('is-invalid');
end
else
begin
// Add the 'is-invalid' class to trigger Bootstrap validation styling
PDFButton.classList.add('is-invalid');
end;
end
else
begin
// Add the 'is-invalid' class to trigger Bootstrap validation styling
PDFButton.classList.add('is-invalid');
end;
// Call the server method to generate the PDF
await(XDataWebClient1.RawInvokeAsync('ILookupService.GenerateReportPDF', [searchOptions]));
ShowMessage('PDF Report Generated Successfully');
end;
......
kgOrdersServer/Source/Data.dfm
......@@ -47,7 +47,7 @@ object FData: TFData
object DBAdvGrid1: TDBAdvGrid
Left = 6
Top = 84
Width = 632
Width = 689
Height = 154
ColCount = 11
DrawingStyle = gdsClassic
......@@ -628,7 +628,7 @@ object FData: TFData
object DBAdvGrid2: TDBAdvGrid
Left = 6
Top = 237
Width = 631
Width = 985
Height = 199
ColCount = 20
DrawingStyle = gdsClassic
......@@ -1495,6 +1495,15 @@ object FData: TFData
TabOrder = 10
TextHint = 'Email Address'
end
object btnPDF: TButton
Left = 330
Top = 38
Width = 75
Height = 25
Caption = 'Preview PDF'
TabOrder = 11
OnClick = btnPDFClick
end
object dsUsers: TDataSource
DataSet = uqUsers
Left = 482
......
kgOrdersServer/Source/Data.pas
......@@ -34,14 +34,15 @@ type
edtFullName: TEdit;
edtPhoneNumber: TEdit;
edtEmailAddress: TEdit;
btnPDF: TButton;
procedure FormCreate(Sender: TObject);
procedure btnFindClick(Sender: TObject);
procedure btnPDFClick(Sender: TObject);
private
{ Private declarations }
accountSID: string;
authHeader: string;
public
{ Public declarations }
function GetReportPDF(OrderID: string): string;
end;
var
......@@ -51,7 +52,13 @@ implementation
{$R *.dfm}
uses KGOrders.Database, uLibrary;
uses KGOrders.Database, uLibrary, rOrders;
procedure TFData.btnPDFClick(Sender: TObject);
begin
GetReportPDF('');
end;
procedure TFData.FormCreate(Sender: TObject);
begin
......@@ -76,4 +83,30 @@ begin
end;
function TFData.GetReportPDF(OrderID: string): string;
var
rptOrders: TrptOrders; // Local instance
OrderIDList: TStringList;
begin
rptOrders := TrptOrders.Create(nil); // Always create locally
try
// Create a list of hardcoded OrderIDs for testing
OrderIDList := TStringList.Create;
try
OrderIDList.Add('18995');
OrderIDList.Add('18994');
OrderIDList.Add('18993'); // Add more OrderIDs as needed
// Generate the PDF Report with the list of OrderIDs
rptOrders.GenerateSimpleReport(350);
finally
OrderIDList.Free; // Free the TStringList
end;
finally
rptOrders.Free; // Ensure rptOrders is freed
end;
end;
end.
kgOrdersServer/Source/Lookup.Service.pas
......@@ -209,6 +209,8 @@ type
[HttpGet] function GetOrder(orderInfo: string): TFullOrder;
[HttpGet] function GetCustomers(): TCustomerList;
[HttpGet] function GetCustomer(ID: string): TCustomerItem;
[HttpGet] procedure GenerateReportPDF(searchOptions: string);
function AddUser(userInfo: string): string;
function AddItem(itemInfo: string): string;
......@@ -216,7 +218,6 @@ type
function EditUser(const editOptions: string): string;
function AddCorrugatedOrder(orderInfo: string): TJSONObject;
function AddStatusSchedule(StatusType: string; order: TJSONObject; ORDER_ID: integer): string;
function GenerateOrderPDF(OrderID: string): string;
end;
implementation
......
kgOrdersServer/Source/Lookup.ServiceImpl.pas
......@@ -12,7 +12,13 @@ uses
XData.Server.Module,
XData.Service.Common,
KGOrders.Database, Data.DB, frxClass, frxExportPDF,
Lookup.Service, System.Hash, System.Classes, System.JSON;
Lookup.Service, System.Hash, System.JSON, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, MemDS, DBAccess, Uni,
hyiedefs, hyieutils, iexBitmaps, iesettings, iexLayers, iexRulers,
iexToolbars, iexUserInteractions, imageenio, imageenproc, QuickRpt, QRCtrls,
dbimageen, Vcl.ExtCtrls, ieview, imageenview, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP,
iexProcEffects, frxDBSet, frxExportBaseDialog, frCoreClasses, rOrders, Common.Logging;
type
......@@ -29,6 +35,8 @@ type
function GetCustomer(ID: string): TCustomerItem;
function EditUser(const editOptions: string): string;
function Search(phoneNum: string): TOrderList;
procedure GenerateReportPDF(searchOptions: string);
function BuildOrderQuery(searchOptions: string): string;
function AddUser(userInfo: string): string;
function AddItem(itemInfo: string): string;
function DelUser(username: string): string;
......@@ -39,13 +47,11 @@ type
function EditStatusSchedule(StatusType: string; order: TJSONObject; ORDER_ID: string): string;
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
function GenerateOrderPDF(OrderID: string): string;
end;
implementation
uses
System.SysUtils,
System.Generics.Collections,
XData.Sys.Exceptions, uLibrary;
......@@ -157,6 +163,113 @@ begin
end;
procedure TLookupService.GenerateReportPDF(searchOptions: string);
var
SQL: string;
rptOrders: TrptOrders; // Local instance of rptOrders
begin
// Create instance of rptOrders
rptOrders := TrptOrders.Create(nil);
try
// Generate SQL dynamically using the existing GetOrders logic
SQL := BuildOrderQuery(searchOptions);
// Prepare the report dataset
rptOrders.PrepareReport(SQL);
// Generate the PDF report
rptOrders.GeneratePDF;
// Optionally, log success
Logger.log(5, 'PDF Report successfully generated for searchOptions: ' + searchOptions);
finally
rptOrders.Free; // Ensure proper cleanup
end;
end;
function TLookupService.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 status table
if statusSuffix = 'DUE' then
begin
statusTableShort := 'oss';
statusTableLong := 'orders_status_schedule';
end
else
begin
statusTableShort := 'os';
statusTableLong := 'orders_status';
end;
// Build the SELECT query with dynamically generated subqueries
SQL := 'SELECT o.ORDER_ID, c.NAME AS COMPANY_NAME, o.JOB_NAME, o.ORDER_DATE, o.ORDER_TYPE, ';
// Add dynamically generated subqueries
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');
// Include additional static fields
SQL := SQL + 'o.PRICE, qb.QB_REF_NUM ';
// FROM clause
SQL := SQL + 'FROM orders o ' +
'JOIN customers c ON o.COMPANY_ID = c.CUSTOMER_ID ' +
'LEFT JOIN qb_sales_orders qb ON qb.ORDER_ID = o.ORDER_ID ';
// WHERE clause
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);
// Add WHERE and ORDER clauses
SQL := SQL + whereSQL +
' ORDER BY o.ORDER_DATE DESC ' +
' LIMIT ' + IntToStr(PageSize) +
' OFFSET ' + IntToStr((PageNum - 1) * PageSize);
Result := SQL;
Logger.log(5, 'Generated SQL in Build order Query: ' + SQL);
finally
params.Free;
end;
end;
function TLookupService.generateSelectSQL(filterType, startDate, endDate: string): string;
begin
......@@ -521,11 +634,9 @@ begin
result.general_special_instructions := ordersDB.UniQuery1.FieldByName('general_special_instructions').AsString
else
//result.specialInstructions := ordersDB.UniQuery1.FieldByName('general_comments').AsString
end;
function TLookupService.GetItems(searchOptions: string): TItemList;
var
params: TStringList;
......@@ -990,37 +1101,6 @@ begin
end;
function TLookupService.GenerateOrderPDF(OrderID: string): string;
var
ReportFileName: string;
Stream: TMemoryStream;
Base64PDF: string;
begin
// try
// // Create an instance of the rptOrders DataModule
// rptOrders := TrptOrders.Create(nil);
// Stream := TMemoryStream.Create;
//
// // Prepare the report using the rptOrders DataModule
// rptOrders.PrepareReport(OrderID);
//
// // Export the report to a PDF file in memory
// rptOrders.frxReport.Export(rptOrders.frxReport.FindComponent('frxPDFExport') as TfrxPDFExport, Stream);
//
// // Optionally save PDF to a file (optional)
// ReportFileName := TPath.Combine('C:\Reports\', 'Order_' + OrderID + '.pdf');
// Stream.SaveToFile(ReportFileName);
//
// // Convert to Base64 if you want to send it back as a string
// Stream.Position := 0;
// Base64PDF := TNetEncoding.Base64.EncodeBytesToString(Stream.Memory, Stream.Size);
// Result := Base64PDF;
// finally
// rptOrders.Free;
// Stream.Free;
// end;
end;
initialization
RegisterServiceType(TLookupService);
......
kgOrdersServer/Source/rOrders.dfm 0 → 100644
object rptOrders: TrptOrders
OnCreate = DataModuleCreate
Height = 480
Width = 640
object frxOrders: TfrxReport
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]
PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 45642.449265416670000000
ReportOptions.LastChange = 45642.798259189820000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'begin'
''
'end.')
Left = 288
Top = 222
Datasets = <
item
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
end>
Variables = <>
Style = <>
object Data: TfrxDataPage
Height = 1000.000000000000000000
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
Orientation = poLandscape
PaperWidth = 279.400000000000000000
PaperHeight = 215.900000000000000000
PaperSize = 1
LeftMargin = 10.000000000000000000
RightMargin = 10.000000000000000000
TopMargin = 10.000000000000000000
BottomMargin = 10.000000000000000000
Frame.Typ = []
MirrorMode = []
object ttlMain: TfrxReportTitle
FillType = ftBrush
FillGap.Top = 0
FillGap.Left = 0
FillGap.Bottom = 0
FillGap.Right = 0
Frame.Typ = []
Height = 22.677180000000000000
Top = 18.897650000000000000
Width = 980.410082000000000000
object Memo1: TfrxMemoView
AllowVectorExport = True
Left = 7.559059670000000000
Top = -0.000000230000000000
Width = 102.047313590000000000
Height = 18.897649770000000000
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = []
Memo.UTF8W = (
'Order Schedule')
end
object frxDBDataset1COMPANY_NAME: TfrxMemoView
IndexTag = 1
AllowVectorExport = True
Left = 313.700990000000000000
Width = 343.937230000000000000
Height = 18.897650000000000000
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = []
Memo.UTF8W = (
'Company Name - [frxDBDataset1."COMPANY_NAME"]')
end
end
object MasterData1: TfrxMasterData
FillType = ftBrush
FillGap.Top = 0
FillGap.Left = 0
FillGap.Bottom = 0
FillGap.Right = 0
Frame.Typ = []
Height = 612.283860000000000000
Top = 102.047310000000000000
Width = 980.410082000000000000
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
RowCount = 0
object TableObject1: TfrxTableObject
AllowVectorExport = True
Top = -0.000002780000000001
object TableColumn1: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn2: TfrxTableColumn
Width = 30.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn3: TfrxTableColumn
Width = 62.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn4: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn5: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn6: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn7: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn8: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn9: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn10: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn11: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn12: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn13: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn14: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn15: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn16: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn17: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableColumn18: TfrxTableColumn
Width = 54.383237222222220000
MaxWidth = 75.590600000000000000
end
object TableRow1: TfrxTableRow
Height = 125.732364666666700000
object TableCell1: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Order ID')
end
object TableCell2: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Loc')
end
object TableCell3: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Company Name')
end
object TableCell4: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Job Name')
end
object TableCell5: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Order Date')
end
object TableCell26: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Proof Due')
end
object TableCell31: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Proof Done')
end
object TableCell36: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Art Due')
end
object TableCell41: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Art Done')
end
object TableCell46: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Plate Due')
end
object TableCell51: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Plate Done')
end
object TableCell56: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Mount Due')
end
object TableCell61: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Mount Done')
end
object TableCell66: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Ship Due')
end
object TableCell71: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Ship Done')
end
object TableCell76: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Price')
end
object TableCell81: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'QB Ref Num')
end
object TableCell86: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'Colors')
end
end
object TableRow2: TfrxTableRow
AutoSize = True
Height = 125.732364666666700000
object TableCell6: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
DataField = 'ORDER_ID'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."ORDER_ID"]')
end
object TableCell7: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
DataField = 'LOCATION'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."LOCATION"]')
end
object TableCell8: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
DataField = 'COMPANY_NAME'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."COMPANY_NAME"]')
end
object TableCell9: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'JOB_NAME'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."JOB_NAME"]')
end
object TableCell10: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'ORDER_DATE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."ORDER_DATE"]')
end
object TableCell27: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'PROOF_DUE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."PROOF_DUE"]')
end
object TableCell32: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'PROOF_DONE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."PROOF_DONE"]')
end
object TableCell37: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'ART_DUE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."ART_DUE"]')
end
object TableCell42: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'ART_DONE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."ART_DONE"]')
end
object TableCell47: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'PLATE_DUE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."PLATE_DUE"]')
end
object TableCell52: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'PLATE_DONE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."PLATE_DONE"]')
end
object TableCell57: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
DataField = 'MOUNT_DUE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."MOUNT_DUE"]')
end
object TableCell62: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'MOUNT_DONE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."MOUNT_DONE"]')
end
object TableCell67: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'SHIP_DUE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."SHIP_DUE"]')
end
object TableCell72: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'SHIP_DONE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."SHIP_DONE"]')
end
object TableCell77: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'PRICE'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."PRICE"]')
end
object TableCell82: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'QB_REF_NUM'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."QB_REF_NUM"]')
end
object TableCell87: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
DataField = 'COLORS'
DataSet = frxDBOrders
DataSetName = 'frxDBOrders'
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrders."COLORS"]')
end
end
object TableRow3: TfrxTableRow
Height = 51.653576666666670000
object TableCell38: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell39: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell40: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell43: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell44: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell45: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell48: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell49: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell50: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell53: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell54: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell55: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell58: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell59: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell60: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell63: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell64: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell65: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
end
object TableRow4: TfrxTableRow
Height = 51.653576666666670000
object TableCell68: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell69: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell70: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell73: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell74: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell75: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell78: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell79: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell80: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell83: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell84: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell85: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell88: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell89: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell90: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell91: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell92: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell93: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
end
object TableRow5: TfrxTableRow
Height = 51.653576666666670000
object TableCell94: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell95: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell96: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell97: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell98: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell99: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell100: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell101: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell102: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell103: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell104: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell105: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell106: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell107: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell108: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell109: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell110: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell111: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
end
object TableRow6: TfrxTableRow
Height = 51.653576666666670000
object TableCell112: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell113: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell114: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell115: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell116: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell117: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell118: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell119: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell120: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell121: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell122: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell123: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell124: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell125: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell126: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell127: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell128: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell129: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
end
object TableRow7: TfrxTableRow
Height = 51.653576666666670000
object TableCell130: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell131: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell132: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell133: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell134: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell135: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell136: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell137: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell138: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell139: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell140: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell141: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell142: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell143: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell144: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell145: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell146: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell147: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
end
object TableRow8: TfrxTableRow
Height = 51.653576666666670000
object TableCell148: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell149: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell150: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell151: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell152: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell153: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell154: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell155: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell156: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell157: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell158: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell159: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell160: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell161: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell162: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell163: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell164: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell165: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
end
object TableRow9: TfrxTableRow
Height = 51.653576666666670000
object TableCell166: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell167: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell168: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell169: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell170: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell171: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell172: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell173: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell174: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell175: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell176: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell177: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell178: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell179: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell180: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell181: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell182: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
object TableCell183: TfrxTableCell
AllowVectorExport = True
Restrictions = [rfDontDelete]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
end
end
end
end
end
object frxPDFExport1: TfrxPDFExport
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
DataOnly = False
EmbedFontsIfProtected = False
InteractiveFormsFontSubset = 'A-Z,a-z,0-9,#43-#47 '
OpenAfterExport = False
PrintOptimized = False
Outline = False
Background = False
HTMLTags = True
Quality = 95
Author = 'FastReport'
Subject = 'FastReport PDF export'
Creator = 'FastReport'
ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
HideToolbar = False
HideMenubar = False
HideWindowUI = False
FitWindow = False
CenterWindow = False
PrintScaling = False
PdfA = False
PDFStandard = psNone
PDFVersion = pv17
Left = 288
Top = 166
end
object ucKG: TUniConnection
ProviderName = 'MySQL'
Database = 'kg_order_entry'
Username = 'root'
Server = '192.168.102.130'
Connected = True
LoginPrompt = False
Left = 289
Top = 99
EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
end
object uqOrders: TUniQuery
Connection = ucKG
SQL.Strings = (
'SELECT '
' 18947 AS ORDER_ID,'
' '#39'B'#39' AS LOCATION,'
' '#39'CHOICE CANNING'#39' AS COMPANY_NAME,'
' '#39'TYOGA CONTAINER'#39' AS JOB_NAME,'
' '#39'2024-12-16'#39' AS ORDER_DATE,'
' '#39'2024-12-03 04:35'#39' AS PROOF_DUE,'
' '#39'2024-11-27 14:17'#39' AS PROOF_DONE,'
' '#39'2024-11-29'#39' AS ART_DUE,'
' '#39'2024-11-26 15:00'#39' AS ART_DONE,'
' '#39'2024-12-02 06:12'#39' AS PLATE_DUE,'
' '#39'2024-12-03 08:58'#39' AS PLATE_DONE,'
' '#39'2024-12-23 08:00'#39' AS MOUNT_DUE,'
' '#39'2024-12-23 15:00'#39' AS MOUNT_DONE,'
' '#39'2024-12-24 08:00'#39' AS SHIP_DUE,'
' '#39'2024-12-24 15:00'#39' AS SHIP_DONE, '
' 323.0 AS PRICE,'
' 1 AS QB_REF_NUM,'
' 3 AS COLORS'
'FROM DUAL'
'')
Active = True
Left = 415
Top = 136
end
object frxReportTableObject1: TfrxReportTableObject
Left = 300
Top = 312
end
object frxDBOrders: TfrxDBDataset
UserName = 'frxDBOrders'
CloseDataSource = False
DataSet = uqOrders
BCDToCurrency = False
DataSetOptions = []
Left = 424
Top = 224
FieldDefs = <
item
FieldName = 'ORDER_ID'
end
item
FieldName = 'COMPANY_ID'
end
item
FieldName = 'USER_ID'
end
item
FieldName = 'ORDER_DATE'
FieldType = fftString
end
item
FieldName = 'START_DATE'
FieldType = fftDateTime
end
item
FieldName = 'END_DATE'
FieldType = fftDateTime
end
item
FieldName = 'ORDER_STATUS'
FieldType = fftString
end
item
FieldName = 'SCHED_JSON'
FieldType = fftString
Size = 4096
end
item
FieldName = 'LOCATION'
FieldType = fftString
end
item
FieldName = 'JOB_NAME'
FieldType = fftString
Size = 15
end
item
FieldName = 'COMPANY_NAME'
FieldType = fftString
Size = 14
end
item
FieldName = 'PROOF_DUE'
FieldType = fftString
Size = 16
end
item
FieldName = 'PROOF_DONE'
FieldType = fftString
Size = 16
end
item
FieldName = 'ART_DUE'
FieldType = fftString
end
item
FieldName = 'ART_DONE'
FieldType = fftString
Size = 16
end
item
FieldName = 'PLATE_DUE'
FieldType = fftString
Size = 16
end
item
FieldName = 'PLATE_DONE'
FieldType = fftString
Size = 16
end
item
FieldName = 'PRICE'
end
item
FieldName = 'QB_REF_NUM'
end
item
FieldName = 'MOUNT_DUE'
FieldType = fftString
Size = 16
end
item
FieldName = 'MOUNT_DONE'
FieldType = fftString
Size = 16
end
item
FieldName = 'SHIP_DUE'
FieldType = fftString
Size = 16
end
item
FieldName = 'SHIP_DONE'
FieldType = fftString
Size = 16
end
item
FieldName = 'COLORS'
end>
end
end
kgOrdersServer/Source/rOrders.pas 0 → 100644
unit rOrders;
interface
uses
System.SysUtils, System.Classes, frxClass, frxExportBaseDialog, frxExportPDF,
Data.DB, DBAccess, Uni, UniProvider, MySQLUniProvider, System.IniFiles, Vcl.Forms,
MemDS, frxDBSet, frxTableObject, frCoreClasses, Common.Logging, System.IOUtils;
type
TrptOrders = class(TDataModule)
frxOrders: TfrxReport;
frxPDFExport1: TfrxPDFExport;
ucKG: TUniConnection;
uqOrders: TUniQuery;
frxReportTableObject1: TfrxReportTableObject;
frxDBOrders: TfrxDBDataset;
procedure DataModuleCreate(Sender: TObject);
private
public
procedure GenerateSimpleReport(OrderID: Integer);
procedure PrepareReport(const SQL: string);
procedure GeneratePDF;
end;
var
rptOrders: TrptOrders;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
procedure TrptOrders.DataModuleCreate(Sender: TObject);
var
iniFile: TIniFile;
begin
// Load database connection settings from INI file
iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'kgOrdersServer.ini');
try
ucKG.Server := iniFile.ReadString('Database', 'Server', '');
ucKG.Connect;
finally
iniFile.Free;
end;
end;
procedure TrptOrders.GenerateSimpleReport(OrderID: Integer);
begin
try
Logger.Log(5, 'Generating Report for Order ID: ' + OrderID.ToString);
uqOrders.Close;
uqOrders.SQL.Text := 'SELECT ORDER_ID FROM corrugated_plate_orders WHERE ORDER_ID = :OrderID';
uqOrders.ParamByName('OrderID').AsInteger := OrderID;
try
uqOrders.Open;
except
on E: Exception do
begin
Logger.Log(1, 'Error executing query: ' + E.Message);
Exit;
end;
end;
frxOrders.PrepareReport;
frxOrders.ShowReport;
finally
uqOrders.Close;
frxOrders.Clear;
Logger.Log(5, 'Report generation complete for Order ID: ' + OrderID.ToString);
end;
end;
procedure TrptOrders.PrepareReport(const SQL: string);
begin
// Prepare and load data into the query
uqOrders.Close;
uqOrders.SQL.Text := SQL;
uqOrders.Open;
end;
procedure TrptOrders.GeneratePDF;
var
ReportDir, ReportFileName: string;
begin
ReportDir := 'C:\Projects\KGOrders\Reports';
// Define output file
ReportFileName := TPath.Combine(ReportDir, 'OrderReport_' + FormatDateTime('yyyymmdd_hhnnss', Now) + '.pdf');
// Prepare and export the report
frxOrders.PrepareReport;
frxPDFExport1.FileName := ReportFileName;
frxPDFExport1.ShowDialog := False;
frxOrders.Export(frxPDFExport1);
frxOrders.ShowPreparedReport;
Logger.Log(5, 'PDF saved to: ' + ReportFileName);
end;
end.
kgOrdersServer/Source/rptOrders.fr3 0 → 100644
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="2024.2.1" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="167935" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="45642.4492654167" ReportOptions.Description.Text="" ReportOptions.LastChange="45642.8021125694" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end.">
<Datasets>
<item DataSet="frxDBOrders" DataSetName="frxDBOrders"/>
</Datasets>
<TfrxDataPage Name="Data" HGuides.Text="" VGuides.Text="" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" HGuides.Text="" VGuides.Text="" Orientation="poLandscape" PaperWidth="279.4" PaperHeight="215.9" PaperSize="1" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" Frame.Typ="0" MirrorMode="0">
<TfrxReportTitle Name="ttlMain" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="22.67718" Left="0" Top="18.89765" Width="980.410082">
<TfrxMemoView Name="Memo1" AllowVectorExport="True" Left="7.55905967" Top="-2.3E-7" Width="102.04731359" Height="18.89764977" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="0" Text="Order Schedule"/>
</TfrxReportTitle>
<TfrxMasterData Name="MasterData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="612.28386" Left="0" Top="102.04731" Width="980.410082" ColumnWidth="0" ColumnGap="0" DataSet="frxDBOrders" DataSetName="frxDBOrders" RowCount="0">
<TfrxTableObject Name="TableObject1" AllowVectorExport="True" Left="0" Top="-2.78000000000084E-6">
<TfrxTableColumn Name="TableColumn1" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn2" Width="30.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn3" Width="62.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn4" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn5" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn6" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn7" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn8" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn9" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn10" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn11" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn12" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn13" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn14" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn15" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn16" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn17" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn18" Width="54.3832372222222" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableRow Name="TableRow1" MinHeight="0" MaxHeight="0" Height="125.732364666667">
<TfrxTableCell Name="TableCell1" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Order ID"/>
<TfrxTableCell Name="TableCell2" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Loc"/>
<TfrxTableCell Name="TableCell3" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Company Name"/>
<TfrxTableCell Name="TableCell4" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Job Name"/>
<TfrxTableCell Name="TableCell5" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Order Date"/>
<TfrxTableCell Name="TableCell26" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Proof Due"/>
<TfrxTableCell Name="TableCell31" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Proof Done"/>
<TfrxTableCell Name="TableCell36" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Art Due"/>
<TfrxTableCell Name="TableCell41" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Art Done"/>
<TfrxTableCell Name="TableCell46" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Plate Due"/>
<TfrxTableCell Name="TableCell51" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Plate Done"/>
<TfrxTableCell Name="TableCell56" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Mount Due"/>
<TfrxTableCell Name="TableCell61" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Mount Done"/>
<TfrxTableCell Name="TableCell66" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Ship Due"/>
<TfrxTableCell Name="TableCell71" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Ship Done"/>
<TfrxTableCell Name="TableCell76" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Price"/>
<TfrxTableCell Name="TableCell81" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="QB Ref Num"/>
<TfrxTableCell Name="TableCell86" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Frame.Typ="15" Text="Colors"/>
</TfrxTableRow>
<TfrxTableRow Name="TableRow2" AutoSize="True" MinHeight="0" MaxHeight="0" Height="125.732364666667">
<TfrxTableCell Name="TableCell6" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="ORDER_ID" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;ORDER_ID&#34;]"/>
<TfrxTableCell Name="TableCell7" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="LOCATION" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;LOCATION&#34;]"/>
<TfrxTableCell Name="TableCell8" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="COMPANY_NAME" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;COMPANY_NAME&#34;]"/>
<TfrxTableCell Name="TableCell9" AllowVectorExport="True" Restrictions="8" DataField="JOB_NAME" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;JOB_NAME&#34;]"/>
<TfrxTableCell Name="TableCell10" AllowVectorExport="True" Restrictions="8" DataField="ORDER_DATE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;ORDER_DATE&#34;]"/>
<TfrxTableCell Name="TableCell27" AllowVectorExport="True" Restrictions="8" DataField="PROOF_DUE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;PROOF_DUE&#34;]"/>
<TfrxTableCell Name="TableCell32" AllowVectorExport="True" Restrictions="8" DataField="PROOF_DONE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;PROOF_DONE&#34;]"/>
<TfrxTableCell Name="TableCell37" AllowVectorExport="True" Restrictions="8" DataField="ART_DUE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;ART_DUE&#34;]"/>
<TfrxTableCell Name="TableCell42" AllowVectorExport="True" Restrictions="8" DataField="ART_DONE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;ART_DONE&#34;]"/>
<TfrxTableCell Name="TableCell47" AllowVectorExport="True" Restrictions="8" DataField="PLATE_DUE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;PLATE_DUE&#34;]"/>
<TfrxTableCell Name="TableCell52" AllowVectorExport="True" Restrictions="8" DataField="PLATE_DONE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;PLATE_DONE&#34;]"/>
<TfrxTableCell Name="TableCell57" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="MOUNT_DUE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;MOUNT_DUE&#34;]"/>
<TfrxTableCell Name="TableCell62" AllowVectorExport="True" Restrictions="8" DataField="MOUNT_DONE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;MOUNT_DONE&#34;]"/>
<TfrxTableCell Name="TableCell67" AllowVectorExport="True" Restrictions="8" DataField="SHIP_DUE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;SHIP_DUE&#34;]"/>
<TfrxTableCell Name="TableCell72" AllowVectorExport="True" Restrictions="8" DataField="SHIP_DONE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;SHIP_DONE&#34;]"/>
<TfrxTableCell Name="TableCell77" AllowVectorExport="True" Restrictions="8" DataField="PRICE" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;PRICE&#34;]"/>
<TfrxTableCell Name="TableCell82" AllowVectorExport="True" Restrictions="8" DataField="QB_REF_NUM" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;QB_REF_NUM&#34;]"/>
<TfrxTableCell Name="TableCell87" AllowVectorExport="True" Restrictions="8" DataField="COLORS" DataSet="frxDBOrders" DataSetName="frxDBOrders" Frame.Typ="15" Text="[frxDBOrders.&#34;COLORS&#34;]"/>
</TfrxTableRow>
<TfrxTableRow Name="TableRow3" MinHeight="0" MaxHeight="0" Height="51.6535766666667">
<TfrxTableCell Name="TableCell38" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell39" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell40" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell43" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell44" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell45" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell48" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell49" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell50" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell53" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell54" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell55" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell58" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell59" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell60" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell63" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell64" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell65" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
</TfrxTableRow>
<TfrxTableRow Name="TableRow4" MinHeight="0" MaxHeight="0" Height="51.6535766666667">
<TfrxTableCell Name="TableCell68" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell69" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell70" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell73" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell74" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell75" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell78" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell79" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell80" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell83" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell84" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell85" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell88" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell89" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell90" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell91" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell92" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell93" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
</TfrxTableRow>
<TfrxTableRow Name="TableRow5" MinHeight="0" MaxHeight="0" Height="51.6535766666667">
<TfrxTableCell Name="TableCell94" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell95" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell96" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell97" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell98" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell99" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell100" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell101" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell102" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell103" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell104" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell105" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell106" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell107" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell108" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell109" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell110" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell111" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
</TfrxTableRow>
<TfrxTableRow Name="TableRow6" MinHeight="0" MaxHeight="0" Height="51.6535766666667">
<TfrxTableCell Name="TableCell112" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell113" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell114" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell115" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell116" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell117" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell118" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell119" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell120" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell121" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell122" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell123" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell124" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell125" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell126" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell127" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell128" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell129" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
</TfrxTableRow>
<TfrxTableRow Name="TableRow7" MinHeight="0" MaxHeight="0" Height="51.6535766666667">
<TfrxTableCell Name="TableCell130" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell131" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell132" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell133" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell134" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell135" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell136" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell137" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell138" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell139" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell140" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell141" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell142" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell143" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell144" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell145" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell146" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell147" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
</TfrxTableRow>
<TfrxTableRow Name="TableRow8" MinHeight="0" MaxHeight="0" Height="51.6535766666667">
<TfrxTableCell Name="TableCell148" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell149" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell150" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell151" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell152" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell153" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell154" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell155" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell156" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell157" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell158" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell159" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell160" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell161" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell162" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell163" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell164" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell165" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
</TfrxTableRow>
<TfrxTableRow Name="TableRow9" MinHeight="0" MaxHeight="0" Height="51.6535766666667">
<TfrxTableCell Name="TableCell166" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell167" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell168" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell169" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell170" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell171" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell172" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell173" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell174" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell175" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell176" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell177" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell178" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell179" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell180" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell181" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell182" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
<TfrxTableCell Name="TableCell183" AllowVectorExport="True" Restrictions="8" Frame.Typ="15" Text=""/>
</TfrxTableRow>
</TfrxTableObject>
</TfrxMasterData>
</TfrxReportPage>
</TfrxReport>
kgOrdersServer/kgOrdersServer.dpr
......@@ -20,7 +20,8 @@ uses
Auth.ServiceImpl in 'Source\Auth.ServiceImpl.pas',
Lookup.ServiceImpl in 'Source\Lookup.ServiceImpl.pas',
App.Server.Module in 'Source\App.Server.Module.pas' {AppServerModule: TDataModule},
Data in 'Source\Data.pas' {FData};
Data in 'Source\Data.pas' {FData},
rOrders in 'Source\rOrders.pas' {rptOrders: TDataModule};
type
TMemoLogAppender = class( TInterfacedObject, ILogAppender )
......
kgOrdersServer/kgOrdersServer.dproj
......@@ -164,6 +164,11 @@
<Form>FData</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="Source\rOrders.pas">
<Form>rptOrders</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
......
kgOrdersServer/kgOrdersServer.ini
[Settings]
MemoLogLevel=5
FileLogLevel=5
LogFileNum=28
LogFileNum=69
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