Skip to content

K
KGOrders
Commit 738e0705 by cam
Options

OrderEntry autofills information 

Currently this is hard coded when pressing  add order but I will fix it later
parent f2c46524
Showing with 1138 additions and 389 deletions
kgOrdersClient/View.Main.pas
...@@ -64,7 +64,7 @@ uses ...@@ -64,7 +64,7 @@ uses
View.Users, View.Users,
View.EditUser, View.EditUser,
View.Orders, View.Orders,
View.ReportRequirements; View.OrderEntry;
{$R *.dfm} {$R *.dfm}
...@@ -175,7 +175,7 @@ procedure TFViewMain.ViewOrderEntry( orderInfo: string); ...@@ -175,7 +175,7 @@ procedure TFViewMain.ViewOrderEntry( orderInfo: string);
begin begin
if Assigned(FChildForm) then if Assigned(FChildForm) then
FChildForm.Free; FChildForm.Free;
FChildForm := TFReportRequirements.CreateForm(WebPanel1.ElementID, orderInfo); FChildForm := TFOrderEntry.CreateForm(WebPanel1.ElementID, orderInfo);
end; end;
procedure TFViewMain.ShowUserForm(Info: string); procedure TFViewMain.ShowUserForm(Info: string);
......
kgOrdersClient/View.ReportRequirements.dfm → kgOrdersClient/View.OrderEntry.dfm
object FReportRequirements: TFReportRequirements object FOrderEntry: TFOrderEntry
Width = 1018 Width = 1018
Height = 764 Height = 764
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
...@@ -8,6 +8,7 @@ object FReportRequirements: TFReportRequirements ...@@ -8,6 +8,7 @@ object FReportRequirements: TFReportRequirements
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
OnCreate = WebFormCreate OnCreate = WebFormCreate
OnShow = WebFormShow
object WebLabel1: TWebLabel object WebLabel1: TWebLabel
Left = 34 Left = 34
Top = 188 Top = 188
...@@ -210,116 +211,6 @@ object FReportRequirements: TFReportRequirements ...@@ -210,116 +211,6 @@ object FReportRequirements: TFReportRequirements
Role = '' Role = ''
Text = '' Text = ''
end end
object cbBWCopy: TWebCheckBox
Left = 316
Top = 212
Width = 113
Height = 22
Caption = 'B/W Copy'
ChildOrder = 22
ElementID = 'cbbwcopy'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbColorCopy: TWebCheckBox
Left = 316
Top = 236
Width = 113
Height = 22
Caption = 'Color Copy'
ChildOrder = 22
ElementID = 'cbcolorcopy'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbPlates: TWebCheckBox
Left = 316
Top = 258
Width = 113
Height = 22
Caption = 'Plates'
ChildOrder = 22
ElementID = 'cbplates'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbDiskOrCD: TWebCheckBox
Left = 316
Top = 340
Width = 113
Height = 22
Caption = 'Disk or CD'
ChildOrder = 22
ElementID = 'cbdiskorcd'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbSampleCarton: TWebCheckBox
Left = 316
Top = 286
Width = 113
Height = 22
Caption = 'Sample Carton'
ChildOrder = 22
ElementID = 'cbsimpleCarton'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbExcaliburDie: TWebCheckBox
Left = 496
Top = 235
Width = 113
Height = 22
Caption = 'Excalibur Die'
ChildOrder = 43
ElementID = 'cbexcaliburdie'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbLoose: TWebCheckBox
Left = 496
Top = 309
Width = 113
Height = 22
Caption = 'Loose'
ChildOrder = 45
ElementID = 'cbloose'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbStickyBak: TWebCheckBox
Left = 496
Top = 355
Width = 113
Height = 22
Caption = 'Sticky Bak'
ChildOrder = 45
ElementID = 'cbstickybak'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbFullMount: TWebCheckBox
Left = 496
Top = 378
Width = 113
Height = 22
Caption = 'Full Mount'
ChildOrder = 45
ElementID = 'cbfullmount'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbStripMount: TWebCheckBox
Left = 496
Top = 406
Width = 113
Height = 22
Caption = 'Strip Mount'
ChildOrder = 45
ElementID = 'cbstripmount'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebButton1: TWebButton object WebButton1: TWebButton
Left = 658 Left = 658
Top = 150 Top = 150
...@@ -330,61 +221,7 @@ object FReportRequirements: TFReportRequirements ...@@ -330,61 +221,7 @@ object FReportRequirements: TFReportRequirements
ElementID = 'btnaddcolor' ElementID = 'btnaddcolor'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
end OnClick = WebButton1Click
object cbFullSizePanel: TWebCheckBox
Left = 662
Top = 365
Width = 113
Height = 22
Caption = 'Full Size Panel'
ChildOrder = 67
ElementID = 'cbfullsizepanel'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbPrintCard: TWebCheckBox
Left = 662
Top = 385
Width = 113
Height = 22
Caption = 'Print Card'
ChildOrder = 67
ElementID = 'cbprintcard'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbWideFormat: TWebCheckBox
Left = 662
Top = 410
Width = 113
Height = 22
Caption = 'Wide Format'
ChildOrder = 67
ElementID = 'cbwideformat'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbPDFFile: TWebCheckBox
Left = 662
Top = 434
Width = 113
Height = 22
Caption = 'PDF File'
ChildOrder = 67
ElementID = 'cbpdffile'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbArtApprovedAsIs: TWebCheckBox
Left = 666
Top = 486
Width = 113
Height = 22
Caption = 'Art Approved As Is'
ChildOrder = 67
ElementID = 'cbartapprovedasis'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end end
object dtpApprovedDate: TWebDateTimePicker object dtpApprovedDate: TWebDateTimePicker
Left = 662 Left = 662
...@@ -407,7 +244,10 @@ object FReportRequirements: TFReportRequirements ...@@ -407,7 +244,10 @@ object FReportRequirements: TFReportRequirements
ChildOrder = 79 ChildOrder = 79
ElementID = 'edtcompanyname' ElementID = 'edtcompanyname'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
MaxLength = 90
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'companyName'
DataSource = WebDataSource1
end end
object edtCompanyAccountName: TWebDBEdit object edtCompanyAccountName: TWebDBEdit
Left = 24 Left = 24
...@@ -418,6 +258,8 @@ object FReportRequirements: TFReportRequirements ...@@ -418,6 +258,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtaccountcompanyname' ElementID = 'edtaccountcompanyname'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'accountCompanyName'
DataSource = WebDataSource1
end end
object edtInQuickBooks: TWebDBEdit object edtInQuickBooks: TWebDBEdit
Left = 26 Left = 26
...@@ -428,6 +270,8 @@ object FReportRequirements: TFReportRequirements ...@@ -428,6 +270,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtinquickbooks' ElementID = 'edtinquickbooks'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'inQuickBooks'
DataSource = WebDataSource1
end end
object edtShipVia: TWebDBEdit object edtShipVia: TWebDBEdit
Left = 24 Left = 24
...@@ -438,6 +282,8 @@ object FReportRequirements: TFReportRequirements ...@@ -438,6 +282,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtshipvia' ElementID = 'edtshipvia'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'shipVia'
DataSource = WebDataSource1
end end
object edtQuantity: TWebDBEdit object edtQuantity: TWebDBEdit
Left = 24 Left = 24
...@@ -448,6 +294,8 @@ object FReportRequirements: TFReportRequirements ...@@ -448,6 +294,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtquantity' ElementID = 'edtquantity'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'Quantity'
DataSource = WebDataSource1
end end
object edtPrice: TWebDBEdit object edtPrice: TWebDBEdit
Left = 24 Left = 24
...@@ -458,6 +306,8 @@ object FReportRequirements: TFReportRequirements ...@@ -458,6 +306,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtprice' ElementID = 'edtprice'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'price'
DataSource = WebDataSource1
end end
object edtInvoiceTo: TWebDBEdit object edtInvoiceTo: TWebDBEdit
Left = 26 Left = 26
...@@ -468,6 +318,8 @@ object FReportRequirements: TFReportRequirements ...@@ -468,6 +318,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtinvoiceto' ElementID = 'edtinvoiceto'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'invoiceTo'
DataSource = WebDataSource1
end end
object edtShipTo: TWebDBEdit object edtShipTo: TWebDBEdit
Left = 26 Left = 26
...@@ -478,6 +330,8 @@ object FReportRequirements: TFReportRequirements ...@@ -478,6 +330,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtshipto' ElementID = 'edtshipto'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'shipTo'
DataSource = WebDataSource1
end end
object edtPONumber: TWebDBEdit object edtPONumber: TWebDBEdit
Left = 26 Left = 26
...@@ -488,6 +342,8 @@ object FReportRequirements: TFReportRequirements ...@@ -488,6 +342,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtponumber' ElementID = 'edtponumber'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'poNumber'
DataSource = WebDataSource1
end end
object edtJobName: TWebDBEdit object edtJobName: TWebDBEdit
Left = 26 Left = 26
...@@ -498,6 +354,8 @@ object FReportRequirements: TFReportRequirements ...@@ -498,6 +354,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtjobname' ElementID = 'edtjobname'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'jobName'
DataSource = WebDataSource1
end end
object edtQuickBooksItem: TWebDBEdit object edtQuickBooksItem: TWebDBEdit
Left = 26 Left = 26
...@@ -508,6 +366,8 @@ object FReportRequirements: TFReportRequirements ...@@ -508,6 +366,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtquickbooksitem' ElementID = 'edtquickbooksitem'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'quickBooksItem'
DataSource = WebDataSource1
end end
object edtArtLocation: TWebDBEdit object edtArtLocation: TWebDBEdit
Left = 26 Left = 26
...@@ -518,6 +378,8 @@ object FReportRequirements: TFReportRequirements ...@@ -518,6 +378,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtartlocation' ElementID = 'edtartlocation'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'artLocation'
DataSource = WebDataSource1
end end
object edtDimensionalLayout: TWebDBEdit object edtDimensionalLayout: TWebDBEdit
Left = 316 Left = 316
...@@ -528,6 +390,8 @@ object FReportRequirements: TFReportRequirements ...@@ -528,6 +390,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtdimensionallayout' ElementID = 'edtdimensionallayout'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'dimensionalLayout'
DataSource = WebDataSource1
end end
object edtEmail: TWebDBEdit object edtEmail: TWebDBEdit
Left = 316 Left = 316
...@@ -538,6 +402,8 @@ object FReportRequirements: TFReportRequirements ...@@ -538,6 +402,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtemail' ElementID = 'edtemail'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'email'
DataSource = WebDataSource1
end end
object edtFTP: TWebDBEdit object edtFTP: TWebDBEdit
Left = 316 Left = 316
...@@ -548,6 +414,8 @@ object FReportRequirements: TFReportRequirements ...@@ -548,6 +414,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtftp' ElementID = 'edtftp'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'ftp'
DataSource = WebDataSource1
end end
object edtOther: TWebDBEdit object edtOther: TWebDBEdit
Left = 316 Left = 316
...@@ -558,6 +426,8 @@ object FReportRequirements: TFReportRequirements ...@@ -558,6 +426,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtother' ElementID = 'edtother'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'other'
DataSource = WebDataSource1
end end
object edtExistingCuttingDie: TWebDBEdit object edtExistingCuttingDie: TWebDBEdit
Left = 316 Left = 316
...@@ -568,6 +438,8 @@ object FReportRequirements: TFReportRequirements ...@@ -568,6 +438,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtexistingcuttingdie' ElementID = 'edtexistingcuttingdie'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'existingCuttingDie'
DataSource = WebDataSource1
end end
object edtRefArtPrintCard: TWebDBEdit object edtRefArtPrintCard: TWebDBEdit
Left = 316 Left = 316
...@@ -578,6 +450,8 @@ object FReportRequirements: TFReportRequirements ...@@ -578,6 +450,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtrefartprintcard' ElementID = 'edtrefartprintcard'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'refArtPrintCard'
DataSource = WebDataSource1
end end
object edtRefArtAPDF: TWebDBEdit object edtRefArtAPDF: TWebDBEdit
Left = 316 Left = 316
...@@ -588,6 +462,8 @@ object FReportRequirements: TFReportRequirements ...@@ -588,6 +462,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtrefartapdf' ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end end
object edtCADFile: TWebDBEdit object edtCADFile: TWebDBEdit
Left = 496 Left = 496
...@@ -598,6 +474,8 @@ object FReportRequirements: TFReportRequirements ...@@ -598,6 +474,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtcadfile' ElementID = 'edtcadfile'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'cadFile'
DataSource = WebDataSource1
end end
object edtAroundNo: TWebDBEdit object edtAroundNo: TWebDBEdit
Left = 496 Left = 496
...@@ -608,6 +486,8 @@ object FReportRequirements: TFReportRequirements ...@@ -608,6 +486,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtaroundno' ElementID = 'edtaroundno'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'aroundNo'
DataSource = WebDataSource1
end end
object edtAcrossNo: TWebDBEdit object edtAcrossNo: TWebDBEdit
Left = 496 Left = 496
...@@ -618,6 +498,8 @@ object FReportRequirements: TFReportRequirements ...@@ -618,6 +498,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtacrossno' ElementID = 'edtacrossno'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'acrossNo'
DataSource = WebDataSource1
end end
object edtDieCutNo: TWebDBEdit object edtDieCutNo: TWebDBEdit
Left = 496 Left = 496
...@@ -628,6 +510,8 @@ object FReportRequirements: TFReportRequirements ...@@ -628,6 +510,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtdiecutno' ElementID = 'edtdiecutno'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'dieCutNo'
DataSource = WebDataSource1
end end
object edtRSCD: TWebDBEdit object edtRSCD: TWebDBEdit
Left = 496 Left = 496
...@@ -638,6 +522,8 @@ object FReportRequirements: TFReportRequirements ...@@ -638,6 +522,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtrscd' ElementID = 'edtrscd'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'rscd'
DataSource = WebDataSource1
end end
object edtRSCW: TWebDBEdit object edtRSCW: TWebDBEdit
Left = 496 Left = 496
...@@ -648,6 +534,8 @@ object FReportRequirements: TFReportRequirements ...@@ -648,6 +534,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtrscw' ElementID = 'edtrscw'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'rscw'
DataSource = WebDataSource1
end end
object edtRSCL: TWebDBEdit object edtRSCL: TWebDBEdit
Left = 496 Left = 496
...@@ -658,6 +546,8 @@ object FReportRequirements: TFReportRequirements ...@@ -658,6 +546,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtrscl' ElementID = 'edtrscl'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'rscl'
DataSource = WebDataSource1
end end
object edtCustomAdhesive: TWebDBEdit object edtCustomAdhesive: TWebDBEdit
Left = 496 Left = 496
...@@ -668,6 +558,8 @@ object FReportRequirements: TFReportRequirements ...@@ -668,6 +558,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtcustomadhesive' ElementID = 'edtcustomadhesive'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'customAdhesive'
DataSource = WebDataSource1
end end
object edtCustomBacking: TWebDBEdit object edtCustomBacking: TWebDBEdit
Left = 496 Left = 496
...@@ -678,16 +570,20 @@ object FReportRequirements: TFReportRequirements ...@@ -678,16 +570,20 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtcustombacking' ElementID = 'edtcustombacking'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'customBacking'
DataSource = WebDataSource1
end end
object edtStandardSetup: TWebDBEdit object edtStandardSetup: TWebDBEdit
Left = 496 Left = 496
Top = 452 Top = 450
Width = 121 Width = 121
Height = 22 Height = 22
ChildOrder = 79 ChildOrder = 79
ElementID = 'edtstandardsetup' ElementID = 'edtstandardsetup'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'standardSetup'
DataSource = WebDataSource1
end end
object edtStripMount: TWebDBEdit object edtStripMount: TWebDBEdit
Left = 496 Left = 496
...@@ -698,6 +594,8 @@ object FReportRequirements: TFReportRequirements ...@@ -698,6 +594,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtstripmount' ElementID = 'edtstripmount'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'stripMount'
DataSource = WebDataSource1
end end
object edtLoose: TWebDBEdit object edtLoose: TWebDBEdit
Left = 496 Left = 496
...@@ -708,6 +606,8 @@ object FReportRequirements: TFReportRequirements ...@@ -708,6 +606,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtloose' ElementID = 'edtloose'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'loose'
DataSource = WebDataSource1
end end
object edtRSCStyle: TWebDBEdit object edtRSCStyle: TWebDBEdit
Left = 496 Left = 496
...@@ -717,8 +617,9 @@ object FReportRequirements: TFReportRequirements ...@@ -717,8 +617,9 @@ object FReportRequirements: TFReportRequirements
ChildOrder = 79 ChildOrder = 79
ElementID = 'edtrscstyle' ElementID = 'edtrscstyle'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
Text = 'WebDBEdit1'
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'rscStyle'
DataSource = WebDataSource1
end end
object edtProofOther: TWebDBEdit object edtProofOther: TWebDBEdit
Left = 666 Left = 666
...@@ -729,6 +630,8 @@ object FReportRequirements: TFReportRequirements ...@@ -729,6 +630,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtproofother' ElementID = 'edtproofother'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofOther'
DataSource = WebDataSource1
end end
object edtProofShipTo: TWebDBEdit object edtProofShipTo: TWebDBEdit
Left = 658 Left = 658
...@@ -739,6 +642,8 @@ object FReportRequirements: TFReportRequirements ...@@ -739,6 +642,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtproofshipto' ElementID = 'edtproofshipto'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofShipTo'
DataSource = WebDataSource1
end end
object edtEmailAttn: TWebDBEdit object edtEmailAttn: TWebDBEdit
Left = 658 Left = 658
...@@ -749,6 +654,8 @@ object FReportRequirements: TFReportRequirements ...@@ -749,6 +654,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtemailattn' ElementID = 'edtemailattn'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'emailAttn'
DataSource = WebDataSource1
end end
object edtProofEmail: TWebDBEdit object edtProofEmail: TWebDBEdit
Left = 658 Left = 658
...@@ -759,6 +666,8 @@ object FReportRequirements: TFReportRequirements ...@@ -759,6 +666,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtproofemail' ElementID = 'edtproofemail'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'proofEmail'
DataSource = WebDataSource1
end end
object edtFaxAttn: TWebDBEdit object edtFaxAttn: TWebDBEdit
Left = 658 Left = 658
...@@ -769,6 +678,8 @@ object FReportRequirements: TFReportRequirements ...@@ -769,6 +678,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtfaxattn' ElementID = 'edtfaxattn'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'faxAttn'
DataSource = WebDataSource1
end end
object edtFax: TWebDBEdit object edtFax: TWebDBEdit
Left = 658 Left = 658
...@@ -779,6 +690,8 @@ object FReportRequirements: TFReportRequirements ...@@ -779,6 +690,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtfax' ElementID = 'edtfax'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'fax'
DataSource = WebDataSource1
end end
object edtClemson: TWebDBEdit object edtClemson: TWebDBEdit
Left = 658 Left = 658
...@@ -789,6 +702,8 @@ object FReportRequirements: TFReportRequirements ...@@ -789,6 +702,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtclemson' ElementID = 'edtclemson'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'clemson'
DataSource = WebDataSource1
end end
object edtCrossHairs: TWebDBEdit object edtCrossHairs: TWebDBEdit
Left = 658 Left = 658
...@@ -799,6 +714,8 @@ object FReportRequirements: TFReportRequirements ...@@ -799,6 +714,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtcrosshairs' ElementID = 'edtcrosshairs'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'crossHairs'
DataSource = WebDataSource1
end end
object edtMachineIndent: TWebDBEdit object edtMachineIndent: TWebDBEdit
Left = 658 Left = 658
...@@ -809,6 +726,8 @@ object FReportRequirements: TFReportRequirements ...@@ -809,6 +726,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtmachineindent' ElementID = 'edtmachineindent'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'machineIdent'
DataSource = WebDataSource1
end end
object edtCylinderSize: TWebDBEdit object edtCylinderSize: TWebDBEdit
Left = 658 Left = 658
...@@ -819,16 +738,8 @@ object FReportRequirements: TFReportRequirements ...@@ -819,16 +738,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtcylindersize' ElementID = 'edtcylindersize'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
end DataField = 'cylinderSize'
object TWebDBEdit DataSource = WebDataSource1
Left = 856
Top = 179
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtspecialinstructions'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end end
object edtJobNumber: TWebDBEdit object edtJobNumber: TWebDBEdit
Left = 852 Left = 852
...@@ -839,6 +750,8 @@ object FReportRequirements: TFReportRequirements ...@@ -839,6 +750,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtjobnumber' ElementID = 'edtjobnumber'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'jobNumber'
DataSource = WebDataSource1
end end
object edtPlateMaterial: TWebDBEdit object edtPlateMaterial: TWebDBEdit
Left = 852 Left = 852
...@@ -849,6 +762,8 @@ object FReportRequirements: TFReportRequirements ...@@ -849,6 +762,8 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtplatematerial' ElementID = 'edtplatematerial'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'plateMaterial'
DataSource = WebDataSource1
end end
object edtThickness: TWebDBEdit object edtThickness: TWebDBEdit
Left = 852 Left = 852
...@@ -859,10 +774,433 @@ object FReportRequirements: TFReportRequirements ...@@ -859,10 +774,433 @@ object FReportRequirements: TFReportRequirements
ElementID = 'edtThickness' ElementID = 'edtThickness'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
DataField = 'thickness'
DataSource = WebDataSource1
end
object cbArtApprovedAsIs: TWebDBCheckBox
Left = 662
Top = 480
Width = 113
Height = 22
Caption = 'Art Approved As Is'
ChildOrder = 79
ElementID = 'cbartapprovedasis'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'artApprovedAsIs'
DataSource = WebDataSource1
end
object cbPDFFile: TWebDBCheckBox
Left = 662
Top = 430
Width = 113
Height = 22
Caption = 'PDF File'
ChildOrder = 79
ElementID = 'cbpdffile'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'pdfFile'
DataSource = WebDataSource1
end
object cbWideFormat: TWebDBCheckBox
Left = 658
Top = 406
Width = 113
Height = 22
Caption = 'Wide Format'
ChildOrder = 79
ElementID = 'cbwideformat'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'wideFormat'
DataSource = WebDataSource1
end
object cbPrintCard: TWebDBCheckBox
Left = 658
Top = 382
Width = 113
Height = 22
Caption = 'Print Card'
ChildOrder = 79
ElementID = 'cbprintcard'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'printCard'
DataSource = WebDataSource1
end
object cbFullSizePanel: TWebDBCheckBox
Left = 658
Top = 356
Width = 113
Height = 22
Caption = 'Full Size Panel'
ChildOrder = 79
ElementID = 'cbfullsizepanel'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'fullSizePanel'
DataSource = WebDataSource1
end
object cbStripMount: TWebDBCheckBox
Left = 496
Top = 407
Width = 113
Height = 22
Caption = 'Strip Mount'
ChildOrder = 79
ElementID = 'cbstripmount'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object cbFullMount: TWebDBCheckBox
Left = 496
Top = 386
Width = 113
Height = 20
Caption = 'Full Mount'
ChildOrder = 79
ElementID = 'cbfullmount'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'fullMount'
DataSource = WebDataSource1
end
object cbStickyBak: TWebDBCheckBox
Left = 496
Top = 362
Width = 113
Height = 22
Caption = 'Sticky Bak'
ChildOrder = 79
ElementID = 'cbstickybak'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'stickyBak'
DataSource = WebDataSource1
end
object WebDBCheckBox9: TWebDBCheckBox
Left = 496
Top = 306
Width = 113
Height = 22
Caption = 'Loose'
ChildOrder = 79
ElementID = 'cbloose'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataSource = WebDataSource1
end
object cbExcaliburDie: TWebDBCheckBox
Left = 496
Top = 233
Width = 113
Height = 22
Caption = 'Excalibur Die'
ChildOrder = 79
ElementID = 'cbexcaliburdie'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'excaliburDie'
DataSource = WebDataSource1
end
object cbDiskorCD: TWebDBCheckBox
Left = 320
Top = 342
Width = 113
Height = 22
Caption = 'Disk or CD'
ChildOrder = 79
ElementID = 'cbdiskorcd'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'diskOrCD'
DataSource = WebDataSource1
end
object cbSampleCarton: TWebDBCheckBox
Left = 316
Top = 286
Width = 113
Height = 22
Caption = 'Sample Carton'
ChildOrder = 79
ElementID = 'cbsimpleCarton'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'sampleCarton'
DataSource = WebDataSource1
end
object cbPlate: TWebDBCheckBox
Left = 316
Top = 255
Width = 113
Height = 22
Caption = 'Plates'
ChildOrder = 79
ElementID = 'cbplates'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'plates'
DataSource = WebDataSource1
end
object cbColorCopy: TWebDBCheckBox
Left = 316
Top = 230
Width = 113
Height = 22
Caption = 'Color Copy'
ChildOrder = 79
ElementID = 'cbcolorcopy'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'colorCopy'
DataSource = WebDataSource1
end
object cbBWCopy: TWebDBCheckBox
Left = 316
Top = 207
Width = 113
Height = 22
Caption = 'B/W Copy'
ChildOrder = 79
ElementID = 'cbbwcopy'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'bwCopy'
DataSource = WebDataSource1
end
object edtSpecialInstructions: TWebDBEdit
Left = 852
Top = 185
Width = 121
Height = 22
ChildOrder = 78
ElementID = 'edtspecialinstructions'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'specialInstructions'
DataSource = WebDataSource1
end end
object clntReportRequirements: TXDataWebClient object XDataWebClient1: TXDataWebClient
Connection = DMConnection.ApiConnection Connection = DMConnection.ApiConnection
Left = 255 Left = 244
Top = 7 Top = 44
end
object tmrScrollTop: TWebTimer
Interval = 100
OnTimer = tmrScrollTopTimer
Left = 240
Top = 8
end
object XDataWebDataSet1: TXDataWebDataSet
Connection = DMConnection.ApiConnection
Left = 324
Top = 104
object XDataWebDataSet1Quantity: TStringField
FieldName = 'Quantity'
end
object XDataWebDataSet1accountCompanyName: TStringField
FieldName = 'accountCompanyName'
end
object XDataWebDataSet1acrossNo: TStringField
FieldName = 'acrossNo'
end
object XDataWebDataSet1approvedDate: TStringField
FieldName = 'approvedDate'
end
object XDataWebDataSet1aroundNo: TStringField
FieldName = 'aroundNo'
end
object XDataWebDataSet1artApprovedAsIs: TBooleanField
FieldName = 'artApprovedAsIs'
end
object XDataWebDataSet1artDue: TStringField
FieldName = 'artDue'
end
object XDataWebDataSet1artLocation: TStringField
FieldName = 'artLocation'
end
object XDataWebDataSet1bwCopy: TBooleanField
FieldName = 'bwCopy'
end
object XDataWebDataSet1cadFile: TStringField
FieldName = 'cadFile'
end
object XDataWebDataSet1clemson: TStringField
FieldName = 'clemson'
end
object XDataWebDataSet1companyName: TStringField
FieldName = 'companyName'
end
object XDataWebDataSet1crossHairs: TIntegerField
FieldName = 'crossHairs'
end
object XDataWebDataSet1customAdhesive: TStringField
FieldName = 'customAdhesive'
end
object XDataWebDataSet1customBacking: TStringField
FieldName = 'customBacking'
end
object XDataWebDataSet1cylinderSize: TStringField
FieldName = 'cylinderSize'
end
object XDataWebDataSet1dieCutNo: TStringField
FieldName = 'dieCutNo'
end
object XDataWebDataSet1dimensionalLayout: TStringField
FieldName = 'dimensionalLayout'
end
object XDataWebDataSet1diskOrCD: TBooleanField
FieldName = 'diskOrCD'
end
object XDataWebDataSet1email: TStringField
FieldName = 'email'
end
object XDataWebDataSet1emailAttn: TStringField
FieldName = 'emailAttn'
end
object XDataWebDataSet1excaliburDie: TBooleanField
FieldName = 'excaliburDie'
end
object XDataWebDataSet1existingCuttingDie: TStringField
FieldName = 'existingCuttingDie'
end
object XDataWebDataSet1fax: TStringField
FieldName = 'fax'
end
object XDataWebDataSet1faxAttn: TStringField
FieldName = 'faxAttn'
end
object XDataWebDataSet1ftp: TStringField
FieldName = 'ftp'
end
object XDataWebDataSet1fullMount: TBooleanField
FieldName = 'fullMount'
end
object XDataWebDataSet1fullSizePanel: TBooleanField
FieldName = 'fullSizePanel'
end
object XDataWebDataSet1inQuickBooks: TStringField
FieldName = 'inQuickBooks'
end
object XDataWebDataSet1jobName: TStringField
FieldName = 'jobName'
end
object XDataWebDataSet1jobNumber: TStringField
FieldName = 'jobNumber'
end
object XDataWebDataSet1loose: TStringField
FieldName = 'loose'
end
object XDataWebDataSet1machineIdent: TStringField
FieldName = 'machineIdent'
end
object XDataWebDataSet1mountDue: TStringField
FieldName = 'mountDue'
end
object XDataWebDataSet1orderDate: TStringField
FieldName = 'orderDate'
end
object XDataWebDataSet1other: TStringField
FieldName = 'other'
end
object XDataWebDataSet1pdfFile: TBooleanField
FieldName = 'pdfFile'
end
object XDataWebDataSet1plateDue: TStringField
FieldName = 'plateDue'
end
object XDataWebDataSet1plateMaterial: TStringField
FieldName = 'plateMaterial'
end
object XDataWebDataSet1plates: TBooleanField
FieldName = 'plates'
end
object XDataWebDataSet1printCard: TBooleanField
FieldName = 'printCard'
end
object XDataWebDataSet1proofDate: TStringField
FieldName = 'proofDate'
end
object XDataWebDataSet1proofEmail: TStringField
FieldName = 'proofEmail'
end
object XDataWebDataSet1proofOther: TStringField
FieldName = 'proofOther'
end
object XDataWebDataSet1proofShipTo: TStringField
FieldName = 'proofShipTo'
end
object XDataWebDataSet1quickBooksItem: TStringField
FieldName = 'quickBooksItem'
end
object XDataWebDataSet1refArtPrintCard: TStringField
FieldName = 'refArtPrintCard'
end
object XDataWebDataSet1rscStyle: TStringField
FieldName = 'rscStyle'
end
object XDataWebDataSet1rscd: TStringField
FieldName = 'rscd'
end
object XDataWebDataSet1rescl: TStringField
FieldName = 'rescl'
end
object XDataWebDataSet1rscw: TStringField
FieldName = 'rscw'
end
object XDataWebDataSet1sampleCarton: TBooleanField
FieldName = 'sampleCarton'
end
object XDataWebDataSet1shipDate: TStringField
FieldName = 'shipDate'
end
object XDataWebDataSet1shipTo: TStringField
FieldName = 'shipTo'
end
object XDataWebDataSet1shipVia: TStringField
FieldName = 'shipVia'
end
object XDataWebDataSet1specialInstructions: TStringField
FieldName = 'specialInstructions'
end
object XDataWebDataSet1standardSetup: TStringField
FieldName = 'standardSetup'
end
object XDataWebDataSet1stickyBak: TBooleanField
FieldName = 'stickyBak'
end
object XDataWebDataSet1stripMount: TStringField
FieldName = 'stripMount'
end
object XDataWebDataSet1thickness: TStringField
FieldName = 'thickness'
end
object XDataWebDataSet1wideFormat: TStringField
FieldName = 'wideFormat'
end
object XDataWebDataSet1price: TStringField
FieldName = 'price'
end
object XDataWebDataSet1invoiceTo: TStringField
FieldName = 'invoiceTo'
end
object XDataWebDataSet1colorCopy: TBooleanField
FieldName = 'colorCopy'
end
object XDataWebDataSet1refArtAPDF: TStringField
FieldName = 'refArtAPDF'
end
object XDataWebDataSet1poNumber: TStringField
FieldName = 'poNumber'
end
object XDataWebDataSet1colors: TStringField
FieldName = 'colors'
end
end
object WebDataSource1: TWebDataSource
DataSet = XDataWebDataSet1
Left = 246
Top = 104
end end
end end
kgOrdersClient/View.ReportRequirements.html → kgOrdersClient/View.OrderEntry.html
...@@ -13,7 +13,7 @@ ...@@ -13,7 +13,7 @@
<div class="row"> <div class="row">
<div class="col-auto"> <div class="col-auto">
<label for="wdbe_first_name" class="form-label mt-2">Company Name:</label> <label for="wdbe_first_name" class="form-label mt-2">Company Name:</label>
<input id="edtcompanyname" type="text" class="form-control" width=300px/> <input id="edtcompanyname" type="text" class="form-control" width=150px/>
</div> </div>
<div class="col-auto"> <div class="col-auto">
<label for="wdbe_first_name" class="form-label mt-2">Account Company Name:</label> <label for="wdbe_first_name" class="form-label mt-2">Account Company Name:</label>
...@@ -317,49 +317,5 @@ ...@@ -317,49 +317,5 @@
</div> </div>
</div> </div>
<script> <script>
document.getElementById('btnaddcolor').addEventListener('click', function() {
const container = document.getElementById('additionalFields');
// Create a new row for the new fields
const newRow = document.createElement('div');
newRow.className = 'row mb-2';
// Labels and inputs
const labels = ['#', 'Color', 'LPI', 'Size'];
labels.forEach(label => {
const col = document.createElement('div');
col.className = 'col-sm';
const labelElement = document.createElement('label');
labelElement.className = 'pe-2';
labelElement.style.fontWeight = '700';
labelElement.style.fontSize = '15px';
labelElement.textContent = label + ':';
const inputElement = document.createElement('input');
inputElement.className = 'form-control input-sm';
inputElement.style.width = '100%';
col.appendChild(labelElement);
col.appendChild(inputElement);
newRow.appendChild(col);
});
const removeButtonCol = document.createElement('div');
removeButtonCol.className = 'col-auto d-flex align-items-center';
const removeButton = document.createElement('button');
removeButton.className = 'btn btn-danger btn-sm';
removeButton.textContent = 'Remove';
removeButton.addEventListener('click', function() {
container.removeChild(newRow);
});
removeButtonCol.appendChild(removeButton);
newRow.appendChild(removeButtonCol);
// Add the new row to the container
container.appendChild(newRow);
});
</script> </script>
kgOrdersClient/View.OrderEntry.pas 0 → 100644
unit View.OrderEntry;
interface
uses
System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
WEBLib.Forms, WEBLib.Dialogs, WEBLib.Menus, WEBLib.ExtCtrls, WEBLib.StdCtrls,
WEBLib.JSON, Auth.Service, XData.Web.Client, WebLib.Storage,
ConnectionModule, App.Types, Vcl.StdCtrls, Vcl.Controls, WEBLib.DBCtrls,
Data.DB, XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.DB;
type
TFOrderEntry = class(TWebForm)
pnlMessage: TWebPanel;
lblMessage: TWebLabel;
btnCloseNotification: TWebButton;
dtpOrderDate: TWebDateTimePicker;
dtpProofDate: TWebDateTimePicker;
dtpShipDate: TWebDateTimePicker;
WebLabel1: TWebLabel;
WebLabel2: TWebLabel;
dtpArtDue: TWebDateTimePicker;
dtpPlateDue: TWebDateTimePicker;
dtpMountDue: TWebDateTimePicker;
WebLabel3: TWebLabel;
WebLabel4: TWebLabel;
WebLabel5: TWebLabel;
WebLabel6: TWebLabel;
WebButton1: TWebButton;
WebLabel7: TWebLabel;
dtpApprovedDate: TWebDateTimePicker;
WebLabel8: TWebLabel;
WebLabel9: TWebLabel;
edtCompanyName: TWebDBEdit;
edtCompanyAccountName: TWebDBEdit;
edtInQuickBooks: TWebDBEdit;
edtShipVia: TWebDBEdit;
edtQuantity: TWebDBEdit;
edtPrice: TWebDBEdit;
edtInvoiceTo: TWebDBEdit;
edtShipTo: TWebDBEdit;
edtPONumber: TWebDBEdit;
edtJobName: TWebDBEdit;
edtQuickBooksItem: TWebDBEdit;
edtArtLocation: TWebDBEdit;
edtDimensionalLayout: TWebDBEdit;
edtEmail: TWebDBEdit;
edtFTP: TWebDBEdit;
edtOther: TWebDBEdit;
edtExistingCuttingDie: TWebDBEdit;
edtRefArtPrintCard: TWebDBEdit;
edtRefArtAPDF: TWebDBEdit;
edtCADFile: TWebDBEdit;
edtAroundNo: TWebDBEdit;
edtAcrossNo: TWebDBEdit;
edtDieCutNo: TWebDBEdit;
edtRSCD: TWebDBEdit;
edtRSCW: TWebDBEdit;
edtRSCL: TWebDBEdit;
edtCustomAdhesive: TWebDBEdit;
edtCustomBacking: TWebDBEdit;
edtStandardSetup: TWebDBEdit;
edtStripMount: TWebDBEdit;
edtLoose: TWebDBEdit;
edtRSCStyle: TWebDBEdit;
edtProofOther: TWebDBEdit;
edtProofShipTo: TWebDBEdit;
edtEmailAttn: TWebDBEdit;
edtProofEmail: TWebDBEdit;
edtFaxAttn: TWebDBEdit;
edtFax: TWebDBEdit;
edtClemson: TWebDBEdit;
edtCrossHairs: TWebDBEdit;
edtMachineIndent: TWebDBEdit;
edtCylinderSize: TWebDBEdit;
edtJobNumber: TWebDBEdit;
edtPlateMaterial: TWebDBEdit;
edtThickness: TWebDBEdit;
cbArtApprovedAsIs: TWebDBCheckBox;
cbPDFFile: TWebDBCheckBox;
cbWideFormat: TWebDBCheckBox;
cbPrintCard: TWebDBCheckBox;
cbFullSizePanel: TWebDBCheckBox;
cbStripMount: TWebDBCheckBox;
cbFullMount: TWebDBCheckBox;
cbStickyBak: TWebDBCheckBox;
WebDBCheckBox9: TWebDBCheckBox;
cbExcaliburDie: TWebDBCheckBox;
cbDiskorCD: TWebDBCheckBox;
cbSampleCarton: TWebDBCheckBox;
cbPlate: TWebDBCheckBox;
cbColorCopy: TWebDBCheckBox;
cbBWCopy: TWebDBCheckBox;
XDataWebClient1: TXDataWebClient;
edtSpecialInstructions: TWebDBEdit;
tmrScrollTop: TWebTimer;
XDataWebDataSet1: TXDataWebDataSet;
WebDataSource1: TWebDataSource;
XDataWebDataSet1Quantity: TStringField;
XDataWebDataSet1accountCompanyName: TStringField;
XDataWebDataSet1acrossNo: TStringField;
XDataWebDataSet1approvedDate: TStringField;
XDataWebDataSet1aroundNo: TStringField;
XDataWebDataSet1artApprovedAsIs: TBooleanField;
XDataWebDataSet1artDue: TStringField;
XDataWebDataSet1artLocation: TStringField;
XDataWebDataSet1bwCopy: TBooleanField;
XDataWebDataSet1cadFile: TStringField;
XDataWebDataSet1clemson: TStringField;
XDataWebDataSet1companyName: TStringField;
XDataWebDataSet1crossHairs: TIntegerField;
XDataWebDataSet1customAdhesive: TStringField;
XDataWebDataSet1customBacking: TStringField;
XDataWebDataSet1cylinderSize: TStringField;
XDataWebDataSet1dieCutNo: TStringField;
XDataWebDataSet1dimensionalLayout: TStringField;
XDataWebDataSet1diskOrCD: TBooleanField;
XDataWebDataSet1email: TStringField;
XDataWebDataSet1emailAttn: TStringField;
XDataWebDataSet1excaliburDie: TBooleanField;
XDataWebDataSet1existingCuttingDie: TStringField;
XDataWebDataSet1fax: TStringField;
XDataWebDataSet1faxAttn: TStringField;
XDataWebDataSet1ftp: TStringField;
XDataWebDataSet1fullMount: TBooleanField;
XDataWebDataSet1fullSizePanel: TBooleanField;
XDataWebDataSet1inQuickBooks: TStringField;
XDataWebDataSet1jobName: TStringField;
XDataWebDataSet1jobNumber: TStringField;
XDataWebDataSet1loose: TStringField;
XDataWebDataSet1machineIdent: TStringField;
XDataWebDataSet1mountDue: TStringField;
XDataWebDataSet1orderDate: TStringField;
XDataWebDataSet1other: TStringField;
XDataWebDataSet1pdfFile: TBooleanField;
XDataWebDataSet1plateDue: TStringField;
XDataWebDataSet1plateMaterial: TStringField;
XDataWebDataSet1plates: TBooleanField;
XDataWebDataSet1printCard: TBooleanField;
XDataWebDataSet1proofDate: TStringField;
XDataWebDataSet1proofEmail: TStringField;
XDataWebDataSet1proofOther: TStringField;
XDataWebDataSet1proofShipTo: TStringField;
XDataWebDataSet1quickBooksItem: TStringField;
XDataWebDataSet1refArtPrintCard: TStringField;
XDataWebDataSet1rscStyle: TStringField;
XDataWebDataSet1rscd: TStringField;
XDataWebDataSet1rescl: TStringField;
XDataWebDataSet1rscw: TStringField;
XDataWebDataSet1sampleCarton: TBooleanField;
XDataWebDataSet1shipDate: TStringField;
XDataWebDataSet1shipTo: TStringField;
XDataWebDataSet1shipVia: TStringField;
XDataWebDataSet1specialInstructions: TStringField;
XDataWebDataSet1standardSetup: TStringField;
XDataWebDataSet1stickyBak: TBooleanField;
XDataWebDataSet1stripMount: TStringField;
XDataWebDataSet1thickness: TStringField;
XDataWebDataSet1wideFormat: TStringField;
XDataWebDataSet1price: TStringField;
XDataWebDataSet1invoiceTo: TStringField;
XDataWebDataSet1colorCopy: TBooleanField;
XDataWebDataSet1refArtAPDF: TStringField;
XDataWebDataSet1poNumber: TStringField;
XDataWebDataSet1colors: TStringField;
procedure WebFormCreate(Sender: TObject);
procedure HideNotification();
procedure ShowNotification(Notification: string);
procedure WebFormShow(Sender: TObject);
[async] procedure getOrder(Order_ID: string);
procedure tmrScrollTopTimer(Sender: TObject);
procedure WebButton1Click(Sender: TObject);
procedure addColorRow(num, Color, LPI, Size: string);
private
FAgencyCode: string;
FCurrentReportType: string;
FSelectProc: TSelectProc;
//FJSONProc1: TJSONProc1;
public
class function CreateForm(AElementID, orderInfo: string): TWebForm;
end;
var
FOrderEntry: TFOrderEntry;
implementation
{$R *.dfm}
uses
View.Home;
class function TFOrderEntry.CreateForm(AElementID, orderInfo: string): TWebForm;
begin
Application.CreateForm(TFOrderEntry, AElementID, Result,
procedure(AForm: TObject)
begin
with TFOrderEntry(AForm) do
begin
HideNotification;
end;
end
);
end;
procedure TFOrderEntry.addColorRow(num: string; Color: string; LPI: string; Size: string);
begin
asm
const container = document.getElementById('additionalFields');
// Create a new row for the new fields
const newRow = document.createElement('div');
newRow.className = 'row mb-2';
// Labels and inputs
const labels = ['#', 'Color', 'LPI', 'Size'];
const values = [num, Color, LPI, Size];
labels.forEach((label, index) => {
const col = document.createElement('div');
col.className = 'col-sm';
const labelElement = document.createElement('label');
labelElement.className = 'pe-2';
labelElement.style.fontWeight = '700';
labelElement.style.fontSize = '15px';
labelElement.textContent = label + ':';
const inputElement = document.createElement('input');
inputElement.className = 'form-control input-sm';
inputElement.style.width = '100%';
inputElement.id = 'input-' + index; // Set an id for easy reference
inputElement.value = values[index]; // Set the value based on the parameter
col.appendChild(labelElement);
col.appendChild(inputElement);
newRow.appendChild(col);
});
const removeButtonCol = document.createElement('div');
removeButtonCol.className = 'col-auto d-flex align-items-center';
const removeButton = document.createElement('button');
removeButton.className = 'btn btn-danger btn-sm';
removeButton.textContent = 'Remove';
removeButton.addEventListener('click', function() {
container.removeChild(newRow);
});
removeButtonCol.appendChild(removeButton);
newRow.appendChild(removeButtonCol);
// Add the new row to the container
container.appendChild(newRow);
end;
end;
procedure TFOrderEntry.WebButton1Click(Sender: TObject);
begin
addColorRow('','','','');
end;
procedure TFOrderEntry.WebFormCreate(Sender: TObject);
begin
if not DMConnection.ApiConnection.Connected then
begin
DMConnection.ApiConnection.OpenAsync;
console.log('report requirements connection open')
end;
end;
procedure TFOrderEntry.getOrder(Order_ID: string);
var
xdcResponse: TXDataClientResponse;
orderList : TJSObject;
i: integer;
data: TJSArray;
order: TJSObject;
callListLength: integer;
tempString: string;
colorObject: TJSObject;
colorList: TJSArray;
colorLength: integer;
color: TJSObject;
begin
xdcResponse := await(XDataWebClient1.RawInvokeAsync('ILookupService.GetOrder',
[Order_ID]));
order := TJSObject(xdcResponse.Result);
data := TJSArray(order['data']);
XDataWebDataSet1.Close;
XDataWebDataSet1.SetJsonData(order);
XDataWebDataSet1.Open;
console.log(order);
//console.log(XDataWebDataSet1ftp.Value);
//console.log(XDataWebDataSet1fullMount.Value);
colorObject := TJSObject(TJSJSON.parse(XDataWebDataSet1colors.Value));
colorList := TJSArray(colorObject['items']);
colorLength := colorList.length;
for i := 0 to colorLength - 1 do
begin
color := TJSObject(colorList[i]);
console.log(color);
addColorRow(String(color['#']), string(color['Color']), string(color['LPI']), string(color['Size']));
end;
end;
procedure TFOrderEntry.WebFormShow(Sender: TObject);
begin
getOrder('7394');
{}
end;
procedure TFOrderEntry.HideNotification;
begin
pnlMessage.ElementHandle.hidden := True;
end;
procedure TFOrderEntry.ShowNotification(Notification: string);
begin
if Notification <> '' then
begin
lblMessage.Caption := Notification;
pnlMessage.ElementHandle.hidden := False;
end;
end;
procedure TFOrderEntry.tmrScrollTopTimer(Sender: TObject);
begin
tmrScrollTop.Enabled := False;
window.scrollTo(0, 0);
end;
initialization
RegisterClass(TFOrderEntry);
end.
kgOrdersClient/View.Orders.pas
...@@ -255,6 +255,7 @@ begin ...@@ -255,6 +255,7 @@ begin
colorObject := TJSObject(TJSJSON.parse(XDataWebDataSet1colors.Value)); colorObject := TJSObject(TJSJSON.parse(XDataWebDataSet1colors.Value));
colorList := TJSArray(colorObject['items']); colorList := TJSArray(colorObject['items']);
colors := colorList.flength; colors := colorList.flength;
console.log(colorList);
Cell.innerText := IntToStr(colors); Cell.innerText := IntToStr(colors);
end; end;
NewRow.appendChild(Cell); NewRow.appendChild(Cell);
......
kgOrdersClient/View.ReportRequirements.pas deleted 100644 → 0
unit View.ReportRequirements;
interface
uses
System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
WEBLib.Forms, WEBLib.Dialogs, WEBLib.Menus, WEBLib.ExtCtrls, WEBLib.StdCtrls,
WEBLib.JSON, Auth.Service, XData.Web.Client, WebLib.Storage,
ConnectionModule, App.Types, Vcl.StdCtrls, Vcl.Controls, WEBLib.DBCtrls;
type
TFReportRequirements = class(TWebForm)
clntReportRequirements: TXDataWebClient;
pnlMessage: TWebPanel;
lblMessage: TWebLabel;
btnCloseNotification: TWebButton;
dtpOrderDate: TWebDateTimePicker;
dtpProofDate: TWebDateTimePicker;
dtpShipDate: TWebDateTimePicker;
WebLabel1: TWebLabel;
WebLabel2: TWebLabel;
dtpArtDue: TWebDateTimePicker;
dtpPlateDue: TWebDateTimePicker;
dtpMountDue: TWebDateTimePicker;
WebLabel3: TWebLabel;
cbBWCopy: TWebCheckBox;
cbColorCopy: TWebCheckBox;
cbPlates: TWebCheckBox;
cbDiskOrCD: TWebCheckBox;
cbSampleCarton: TWebCheckBox;
WebLabel4: TWebLabel;
cbExcaliburDie: TWebCheckBox;
WebLabel5: TWebLabel;
cbLoose: TWebCheckBox;
cbStickyBak: TWebCheckBox;
cbFullMount: TWebCheckBox;
cbStripMount: TWebCheckBox;
WebLabel6: TWebLabel;
WebButton1: TWebButton;
WebLabel7: TWebLabel;
cbFullSizePanel: TWebCheckBox;
cbPrintCard: TWebCheckBox;
cbWideFormat: TWebCheckBox;
cbPDFFile: TWebCheckBox;
cbArtApprovedAsIs: TWebCheckBox;
dtpApprovedDate: TWebDateTimePicker;
WebLabel8: TWebLabel;
WebLabel9: TWebLabel;
edtCompanyName: TWebDBEdit;
edtCompanyAccountName: TWebDBEdit;
edtInQuickBooks: TWebDBEdit;
edtShipVia: TWebDBEdit;
edtQuantity: TWebDBEdit;
edtPrice: TWebDBEdit;
edtInvoiceTo: TWebDBEdit;
edtShipTo: TWebDBEdit;
edtPONumber: TWebDBEdit;
edtJobName: TWebDBEdit;
edtQuickBooksItem: TWebDBEdit;
edtArtLocation: TWebDBEdit;
edtDimensionalLayout: TWebDBEdit;
edtEmail: TWebDBEdit;
edtFTP: TWebDBEdit;
edtOther: TWebDBEdit;
edtExistingCuttingDie: TWebDBEdit;
edtRefArtPrintCard: TWebDBEdit;
edtRefArtAPDF: TWebDBEdit;
edtCADFile: TWebDBEdit;
edtAroundNo: TWebDBEdit;
edtAcrossNo: TWebDBEdit;
edtDieCutNo: TWebDBEdit;
edtRSCD: TWebDBEdit;
edtRSCW: TWebDBEdit;
edtRSCL: TWebDBEdit;
edtCustomAdhesive: TWebDBEdit;
edtCustomBacking: TWebDBEdit;
edtStandardSetup: TWebDBEdit;
edtStripMount: TWebDBEdit;
edtLoose: TWebDBEdit;
edtRSCStyle: TWebDBEdit;
edtProofOther: TWebDBEdit;
edtProofShipTo: TWebDBEdit;
edtEmailAttn: TWebDBEdit;
edtProofEmail: TWebDBEdit;
edtFaxAttn: TWebDBEdit;
edtFax: TWebDBEdit;
edtClemson: TWebDBEdit;
edtCrossHairs: TWebDBEdit;
edtMachineIndent: TWebDBEdit;
edtCylinderSize: TWebDBEdit;
edtJobNumber: TWebDBEdit;
edtPlateMaterial: TWebDBEdit;
edtThickness: TWebDBEdit;
procedure WebFormCreate(Sender: TObject);
procedure HideNotification();
procedure ShowNotification(Notification: string);
private
FAgencyCode: string;
FCurrentReportType: string;
FSelectProc: TSelectProc;
//FJSONProc1: TJSONProc1;
public
class function CreateForm(AElementID, orderInfo: string): TWebForm;
end;
var
FReportRequirements: TFReportRequirements;
implementation
{$R *.dfm}
uses
View.Home;
class function TFReportRequirements.CreateForm(AElementID, orderInfo: string): TWebForm;
begin
Application.CreateForm(TFReportRequirements, AElementID, Result,
procedure(AForm: TObject)
begin
with TFReportRequirements(AForm) do
begin
HideNotification;
end;
end
);
end;
procedure TFReportRequirements.WebFormCreate(Sender: TObject);
begin
if not DMConnection.ApiConnection.Connected then
begin
DMConnection.ApiConnection.OpenAsync;
console.log('report requirements connection open')
end;
end;
procedure TFReportRequirements.HideNotification;
begin
pnlMessage.ElementHandle.hidden := True;
end;
procedure TFReportRequirements.ShowNotification(Notification: string);
begin
if Notification <> '' then
begin
lblMessage.Caption := Notification;
pnlMessage.ElementHandle.hidden := False;
end;
end;
initialization
RegisterClass(TFReportRequirements);
end.
kgOrdersClient/webKGOrders.dpr
...@@ -17,7 +17,7 @@ uses ...@@ -17,7 +17,7 @@ uses
View.Users in 'View.Users.pas' {FViewUsers: TWebForm} {*.html}, View.Users in 'View.Users.pas' {FViewUsers: TWebForm} {*.html},
View.EditUser in 'View.EditUser.pas' {FViewEditUser: TWebForm} {*.html}, View.EditUser in 'View.EditUser.pas' {FViewEditUser: TWebForm} {*.html},
View.Orders in 'View.Orders.pas' {FViewOrders: TWebForm} {*.html}, View.Orders in 'View.Orders.pas' {FViewOrders: TWebForm} {*.html},
View.ReportRequirements in 'View.ReportRequirements.pas' {FReportRequirements: TWebForm} {*.html}; View.OrderEntry in 'View.OrderEntry.pas' {FOrderEntry: TWebForm} {*.html};
{$R *.res} {$R *.res}
......
kgOrdersClient/webKGOrders.dproj
...@@ -166,8 +166,8 @@ ...@@ -166,8 +166,8 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass> <DesignClass>TWebForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="View.ReportRequirements.pas"> <DCCReference Include="View.OrderEntry.pas">
<Form>FReportRequirements</Form> <Form>FOrderEntry</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass> <DesignClass>TWebForm</DesignClass>
</DCCReference> </DCCReference>
......
kgOrdersServer/Source/Lookup.Service.pas
...@@ -80,6 +80,95 @@ type ...@@ -80,6 +80,95 @@ type
data: TList<TOrderItem> data: TList<TOrderItem>
end; end;
TFullOrder = class
Public
//Company
companyName: string;
accountCompanyName: string;
inQuickBooks: string;
// Staff Fields:
orderDate: string;
proofDate: string;
shipDate: string;
shipVia: string;
Quantity: string;
price: string;
invoiceTo: string;
shipTo: string;
poNumber: string;
jobName: string;
quickBooksItem: string;
artDue: string;
plateDue: string;
mountDue: string;
artLocation: string;
// Supplied by Customer:
bwCopy: boolean;
colorCopy: boolean;
plates: boolean;
sampleCarton: boolean;
dimensionalLayout: string;
diskOrCD: boolean;
email: string;
ftp: string;
other: string;
existingCuttingDie: string;
refArtPrintCard: string;
refArtAPDF: string;
// Layout
rscl: string;
rscw: string;
rscd: string;
dieCutNo: string;
acrossNo: string;
aroundNo: string;
cadFile: string;
excalliburDie: boolean;
rscStyle: string;
// Mounting
loose: string;
stickyBak: boolean;
fullMount: boolean;
stripMount: string;
standardSetup: string;
customBacking: string;
customAdhesive: string;
// Colors
cylinderSize: string;
machineIdent: string;
crossHairs: string;
clemson: string;
colors: string;
// Proofing
fax: string;
faxAttn: string;
proofEmail: string;
emailAttn: string;
proofShipTo: string;
fullSizePanel: boolean;
printCard: boolean;
wideFormat: boolean;
pdfFile: boolean;
proofOther: string;
artApprovedAsIs: boolean;
approvedDate: string;
// Plates
thickness: string;
plateMaterial: string;
jobNumber: string;
// General
specialInstructions: string;
end;
type type
...@@ -90,6 +179,8 @@ type ...@@ -90,6 +179,8 @@ type
[HttpGet] function GetUsers(searchOptions: string): TUserList; [HttpGet] function GetUsers(searchOptions: string): TUserList;
[HttpGet] function GetItems(searchOptions: string): TItemList; [HttpGet] function GetItems(searchOptions: string): TItemList;
[HttpGet] function GetOrders(searchOptions: string): TOrderList; [HttpGet] function GetOrders(searchOptions: string): TOrderList;
[HttpGet] function GetOrder(orderInfo: string): TFullOrder;
function AddUser(userInfo: string): string; function AddUser(userInfo: string): string;
function AddItem(itemInfo: string): string; function AddItem(itemInfo: string): string;
function DelUser(username: string): string; function DelUser(username: string): string;
......
kgOrdersServer/Source/Lookup.ServiceImpl.pas
...@@ -24,6 +24,7 @@ type ...@@ -24,6 +24,7 @@ type
function GetItems(searchOptions: string): TItemList; function GetItems(searchOptions: string): TItemList;
function GetUsers(searchOptions: string): TUserList; function GetUsers(searchOptions: string): TUserList;
function GetOrders(searchOptions: string): TOrderList; function GetOrders(searchOptions: string): TOrderList;
function GetOrder(orderInfo: string): TFullOrder;
function EditUser(const editOptions: string): string; function EditUser(const editOptions: string): string;
function Search(phoneNum: string): TOrderList; function Search(phoneNum: string): TOrderList;
function AddUser(userInfo: string): string; function AddUser(userInfo: string): string;
...@@ -215,6 +216,187 @@ begin ...@@ -215,6 +216,187 @@ begin
ordersDB.UniQuery1.Close; ordersDB.UniQuery1.Close;
end; end;
function TLookupService.GetOrder(orderInfo: string): TFullOrder;
var
orderType: string;
orderID: string;
SQL: string;
table: string;
begin
orderID := orderInfo;
SQL := 'select ORDER_TYPE from orders where ORDER_ID = ' + quotedStr(orderID);
doQuery(ordersDB.UniQuery1, SQL);
orderType := ordersDB.UniQuery1.FieldByName('ORDER_TYPE').AsString;
if orderType = 'web_plate' then
table := 'web_plate_orders'
else
table := 'corrugated_plate_orders';
SQL := 'select * from ' + table + ' o JOIN customers c ON c.CUSTOMER_ID = o.COMPANY_ID where ORDER_ID = ' + quotedStr(orderID);
doQuery(ordersDB.UniQuery1, SQL);
result := TFullOrder.Create;
// Company
result.companyName := ordersDB.UniQuery1.FieldByName('NAME').AsString;
result.accountCompanyName := ordersDB.UniQuery1.FieldByName('SHORT_NAME').AsString;
result.inQuickBooks := '?';
// Staff Fields
result.orderDate := ordersDB.UniQuery1.FieldByName('staff_fields_order_date').AsString;
result.proofDate := ordersDB.UniQuery1.FieldByName('staff_fields_proof_date').AsString;
result.shipDate := ordersDB.UniQuery1.FieldByName('staff_fields_ship_date').AsString;
result.shipVia := ordersDB.UniQuery1.FieldByName('staff_fields_ship_via').AsString;
result.Quantity := ordersDB.UniQuery1.FieldByName('staff_fields_quantity').AsString;
result.shipTo := ordersDB.UniQuery1.FieldByName('staff_fields_ship_to').AsString;
result.poNumber := ordersDB.UniQuery1.FieldByName('staff_fields_po_number').AsString;
result.jobName := ordersDB.UniQuery1.FieldByName('staff_fields_job_name').AsString;
result.quickBooksItem := ordersDB.UniQuery1.FieldByName('staff_fields_quickbooks_item').AsString;
result.artDue := ordersDB.UniQuery1.FieldByName('staff_fields_art_due').AsString;
result.plateDue := ordersDB.UniQuery1.FieldByName('staff_fields_plate_due').AsString;
if orderType = 'corrugated_plate_order' then
result.mountDue := ordersDB.UniQuery1.FieldByName('staff_fields_mount_due').AsString;
result.artLocation := ordersDB.UniQuery1.FieldByName('staff_fields_art_location').AsString;
// Supplied by Customer
if ordersDB.UniQuery1.FieldByName('supplied_by_customer_b_w_copy').AsString = 'T' then
result.bwCopy := true
else
result.bwCopy := false;
if ordersDB.UniQuery1.FieldByName('supplied_by_customer_color_copy').AsString = 'T' then
result.colorCopy := true
else
result.colorCopy := false;
if ordersDB.UniQuery1.FieldByName('supplied_by_customer_plates').AsString = 'T' then
result.plates := true
else
result.plates := false;
if ordersDB.UniQuery1.FieldByName('supplied_by_customer_sample_ca').AsString = 'T' then
result.sampleCarton := true
else
result.sampleCarton := false;
result.dimensionalLayout := ordersDB.UniQuery1.FieldByName('supplied_by_customer_dimension').AsString;
if orderType = 'web_plate' then
begin
if ordersDB.UniQuery1.FieldByName('supplied_by_customer_disk').AsString = 'T' then
result.diskOrCD := true
else
result.diskOrCD := false;
end
else
begin
if ordersDB.UniQuery1.FieldByName('supplied_by_customer_disk_or_cd').AsString = 'T' then
result.diskOrCD := true
else
result.diskOrCD := false;
end;
result.email := ordersDB.UniQuery1.FieldByName('supplied_by_customer_e_mail').AsString;
result.ftp := ordersDB.UniQuery1.FieldByName('supplied_by_customer_ftp').AsString;
result.other := ordersDB.UniQuery1.FieldByName('supplied_by_customer_other').AsString;
if orderType = 'corrugated_plate' then
begin
result.existingCuttingDie := ordersDB.UniQuery1.FieldByName('supplied_by_customer_existing_').AsString;
result.refArtPrintCard := ordersDB.UniQuery1.FieldByName('supplied_by_customer_ref_art_p').AsString;
result.refArtAPDF := ordersDB.UniQuery1.FieldByName('supplied_by_customer_ref_art_a').AsString;
end;
// Layout
if orderType = 'corrugated_plate' then
begin
result.rscl := ordersDB.UniQuery1.FieldByName('layout_rsc_l').AsString;
result.rscw := ordersDB.UniQuery1.FieldByName('layout_rcs_w').AsString;
result.rscd := ordersDB.UniQuery1.FieldByName('layout_rcs_d').AsString;
result.dieCutNo := ordersDB.UniQuery1.FieldByName('layout_die_cut_no').AsString;
result.acrossNo := ordersDB.UniQuery1.FieldByName('layout_accross_no').AsString;
result.aroundNo := ordersDB.UniQuery1.FieldByName('layout_around_no').AsString;
result.cadFile := ordersDB.UniQuery1.FieldByName('layout_cad_file').AsString;
if ordersDB.UniQuery1.FieldByName('layout_excalibur_die').AsString = 'T' then
result.excalliburDie := true
else
result.excalliburDie := false;
result.rscStyle := ordersDB.UniQuery1.FieldByName('layout_rsc_style').AsString;
end
else
begin
result.acrossNo := ordersDB.UniQuery1.FieldByName('layout_accross').AsString;
result.aroundNo := ordersDB.UniQuery1.FieldByName('layout_around').AsString;
end;
// Mounting & Colors & Proofing
if orderType = 'corrugated_plate' then
begin
result.loose := ordersDB.UniQuery1.FieldByName('mounting_loose').AsString;
if ordersDB.UniQuery1.FieldByName('mounting_sticky_bak').AsString = 'T' then
result.stickyBak := true
else
result.stickyBak := false;
if ordersDB.UniQuery1.FieldByName('mounting_full_mount').AsString = 'T' then
result.fullMount := true
else
result.fullMount := false;
result.stripMount := ordersDB.UniQuery1.FieldByName('mounting_strip_mount').AsString;
result.standardSetup := ordersDB.UniQuery1.FieldByName('mounting_standard_setup').AsString;
result.customBacking := ordersDB.UniQuery1.FieldByName('mounting_custom_backing').AsString;
result.customAdhesive := ordersDB.UniQuery1.FieldByName('mounting_custom_adhesive').AsString;
result.cylinderSize := ordersDB.UniQuery1.FieldByName('colors_cylinder_size').AsString;
result.machineIdent := ordersDB.UniQuery1.FieldByName('colors_machine_ident').AsString;
result.crossHairs := ordersDB.UniQuery1.FieldByName('colors_cross_hairs').AsString;
result.clemson := ordersDB.UniQuery1.FieldByName('colors_clemson').AsString;
result.colors := ordersDB.UniQuery1.FieldByName('colors_colors').AsString;
result.fax := ordersDB.UniQuery1.FieldByName('proofing_fax').AsString;
result.faxAttn := ordersDB.UniQuery1.FieldByName('proofing_fax_attn').AsString;
result.proofEmail := ordersDB.UniQuery1.FieldByName('proofing_e_mail').AsString;
result.proofShipTo := ordersDB.UniQuery1.FieldByName('proofing_ship_to').AsString;
if ordersDB.UniQuery1.FieldByName('proofing_full_size_panel').AsString = 'T' then
result.fullSizePanel := true
else
result.fullSizePanel := false;
if ordersDB.UniQuery1.FieldByName('proofing_print_card').AsString = 'T'then
result.printCard := true
else
result.printCard := false;
if ordersDB.UniQuery1.FieldByName('proofing_wide_format').AsString = 'T'then
result.wideFormat := true
else
result.wideFormat := false;
if ordersDB.UniQuery1.FieldByName('proofing_pdf_file').AsString = 'T'then
result.pdfFile := true
else
result.pdfFile := false;
result.proofOther := ordersDB.UniQuery1.FieldByName('proofing_other').AsString;
if ordersDB.UniQuery1.FieldByName('proofing_art_approved_as_is').AsString = 'T'then
result.artApprovedAsIs := true
else
result.artApprovedAsIs := false;
result.approvedDate := ordersDB.UniQuery1.FieldByName('proofing_approved_date').AsString;
end
else
begin
result.colors := ordersDB.UniQuery1.FieldByName('quatity_and_colors_qty_colors').AsString;
if ordersDB.UniQuery1.FieldByName('proofing_pdf').AsString = 'T'then
result.pdfFile := true
else
result.pdfFile := false;
end;
// Plates
result.thickness := ordersDB.UniQuery1.FieldByName('plates_thickness').AsString;
result.plateMaterial := ordersDB.UniQuery1.FieldByName('plates_plate_material').AsString;
result.jobNumber := ordersDB.UniQuery1.FieldByName('plates_job_number').AsString;
// General
if orderType = 'corrugated_plate' then
result.specialInstructions := ordersDB.UniQuery1.FieldByName('general_special_instructions').AsString
else
result.specialInstructions := ordersDB.UniQuery1.FieldByName('general_comments').AsString
end;
function TLookupService.GetItems(searchOptions: string): TItemList; function TLookupService.GetItems(searchOptions: string): TItemList;
var var
params: TStringList; params: TStringList;
......
kgOrdersServer/kgOrdersServer.ini
[Options] [Options]
LogFileNum=101 LogFileNum=109
UpdateTimerLength=0 UpdateTimerLength=0
......
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