Skip to content

K
KGOrders
Commit 7b720317 by cam
Options

stepping off point for order entry form

parent 6ec6e6bb
Showing with 1510 additions and 8 deletions
kgOrdersClient/View.Main.dfm
...@@ -51,9 +51,9 @@ object FViewMain: TFViewMain ...@@ -51,9 +51,9 @@ object FViewMain: TFViewMain
object lblAppTitle: TWebLabel object lblAppTitle: TWebLabel
Left = 57 Left = 57
Top = 31 Top = 31
Width = 74 Width = 82
Height = 15 Height = 15
Caption = 'Kohler Gibson' Caption = 'Koehler-Gibson'
ElementID = 'view.main.apptitle' ElementID = 'view.main.apptitle'
HeightPercent = 100.000000000000000000 HeightPercent = 100.000000000000000000
Transparent = False Transparent = False
......
kgOrdersClient/View.Main.pas
...@@ -46,6 +46,7 @@ type ...@@ -46,6 +46,7 @@ type
procedure ShowForm( AFormClass: TWebFormClass ); procedure ShowForm( AFormClass: TWebFormClass );
procedure EditUser( Mode, Username, Password, Name, Status, Email, procedure EditUser( Mode, Username, Password, Name, Status, Email,
Access, Rights, Perspective, QB: string); Access, Rights, Perspective, QB: string);
procedure ViewOrderEntry( orderInfo: string);
procedure ShowUserForm(Info: string); procedure ShowUserForm(Info: string);
end; end;
...@@ -62,7 +63,8 @@ uses ...@@ -62,7 +63,8 @@ uses
View.Items, View.Items,
View.Users, View.Users,
View.EditUser, View.EditUser,
View.Orders; View.Orders,
View.ReportRequirements;
{$R *.dfm} {$R *.dfm}
...@@ -169,6 +171,13 @@ begin ...@@ -169,6 +171,13 @@ begin
Password, Name, Status, Email, Access, Rights, Perspective, QB); Password, Name, Status, Email, Access, Rights, Perspective, QB);
end; end;
procedure TFViewMain.ViewOrderEntry( orderInfo: string);
begin
if Assigned(FChildForm) then
FChildForm.Free;
FChildForm := TFReportRequirements.CreateForm(WebPanel1.ElementID, orderInfo);
end;
procedure TFViewMain.ShowUserForm(Info: string); procedure TFViewMain.ShowUserForm(Info: string);
begin begin
if Assigned(FChildForm) then if Assigned(FChildForm) then
......
kgOrdersClient/View.Orders.dfm
...@@ -87,6 +87,21 @@ object FViewOrders: TFViewOrders ...@@ -87,6 +87,21 @@ object FViewOrders: TFViewOrders
HideSelection = False HideSelection = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
end end
object btnaddOrder: TWebButton
Left = 236
Top = 166
Width = 96
Height = 25
Caption = 'Add Order'
ChildOrder = 5
ElementClassName = 'btn btn-light'
ElementID = 'btnaddorder'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnaddOrderClick
end
object XDataWebClient1: TXDataWebClient object XDataWebClient1: TXDataWebClient
Connection = DMConnection.ApiConnection Connection = DMConnection.ApiConnection
Left = 426 Left = 426
......
kgOrdersClient/View.Orders.html
...@@ -24,6 +24,9 @@ ...@@ -24,6 +24,9 @@
<div class="col-sm-2"> <div class="col-sm-2">
<button class= "ps-3" id="btnapply"></button> <button class= "ps-3" id="btnapply"></button>
</div> </div>
<div class="col-sm-2">
<button class= "ps-3" id="btnaddorder"></button>
</div>
</div> </div>
</form> </form>
</div> </div>
......
kgOrdersClient/View.Orders.pas
...@@ -39,15 +39,18 @@ type ...@@ -39,15 +39,18 @@ type
XDataWebDataSet1ID: TStringField; XDataWebDataSet1ID: TStringField;
XDataWebDataSet1qbRefNum: TStringField; XDataWebDataSet1qbRefNum: TStringField;
XDataWebDataSet1colors: TStringField; XDataWebDataSet1colors: TStringField;
btnaddOrder: TWebButton;
procedure WebFormCreate(Sender: TObject); procedure WebFormCreate(Sender: TObject);
procedure btnApplyClick(Sender: TObject); procedure btnApplyClick(Sender: TObject);
procedure btnSearchClick(Sender: TObject); procedure btnSearchClick(Sender: TObject);
procedure btnaddOrderClick(Sender: TObject);
private private
FChildForm: TWebForm; FChildForm: TWebForm;
procedure AddRowToTable(temp: string); procedure AddRowToTable(temp: string);
procedure ClearTable(); procedure ClearTable();
procedure GeneratePagination(TotalPages: Integer); procedure GeneratePagination(TotalPages: Integer);
function GenerateSearchOptions(): string; function GenerateSearchOptions(): string;
procedure orderEntry();
[async] procedure Search(searchOptions: string); [async] procedure Search(searchOptions: string);
[async] procedure GetOrders(searchOptions: string); [async] procedure GetOrders(searchOptions: string);
[async] procedure getUser(); [async] procedure getUser();
...@@ -70,7 +73,7 @@ implementation ...@@ -70,7 +73,7 @@ implementation
uses uses
JS, XData.Model.Classes, JS, XData.Model.Classes,
ConnectionModule, Auth.Service; ConnectionModule, Auth.Service, View.Main;
{$R *.dfm} {$R *.dfm}
...@@ -486,6 +489,16 @@ begin ...@@ -486,6 +489,16 @@ begin
end; end;
end; end;
procedure TFViewOrders.btnaddOrderClick(Sender: TObject);
begin
orderEntry();
end;
procedure TFViewOrders.orderEntry();
begin
FViewMain.ViewOrderEntry('');
end;
procedure TFViewOrders.btnApplyClick(Sender: TObject); procedure TFViewOrders.btnApplyClick(Sender: TObject);
// Button that effectively functions as a GetOrders() button // Button that effectively functions as a GetOrders() button
var var
......
kgOrdersClient/View.ReportRequirements.dfm 0 → 100644
object FReportRequirements: TFReportRequirements
Width = 1018
Height = 764
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnCreate = WebFormCreate
object WebLabel1: TWebLabel
Left = 34
Top = 188
Width = 55
Height = 14
Caption = 'Staff Fields'
HeightPercent = 100.000000000000000000
Visible = False
WidthPercent = 100.000000000000000000
end
object WebLabel2: TWebLabel
Left = 26
Top = 72
Width = 45
Height = 14
Caption = 'Company'
HeightPercent = 100.000000000000000000
Visible = False
WidthPercent = 100.000000000000000000
end
object WebLabel3: TWebLabel
Left = 320
Top = 188
Width = 105
Height = 14
Caption = 'Supplied by Customer'
HeightPercent = 100.000000000000000000
Visible = False
WidthPercent = 100.000000000000000000
end
object WebLabel4: TWebLabel
Left = 496
Top = 19
Width = 33
Height = 14
Caption = 'Layout'
HeightPercent = 100.000000000000000000
Visible = False
WidthPercent = 100.000000000000000000
end
object WebLabel5: TWebLabel
Left = 496
Top = 289
Width = 43
Height = 14
Caption = 'Mounting'
HeightPercent = 100.000000000000000000
Visible = False
WidthPercent = 100.000000000000000000
end
object WebLabel6: TWebLabel
Left = 658
Top = 19
Width = 31
Height = 14
Caption = 'Colors'
HeightPercent = 100.000000000000000000
Visible = False
WidthPercent = 100.000000000000000000
end
object WebLabel7: TWebLabel
Left = 662
Top = 199
Width = 40
Height = 14
Caption = 'Proofing'
HeightPercent = 100.000000000000000000
Visible = False
WidthPercent = 100.000000000000000000
end
object WebLabel8: TWebLabel
Left = 872
Top = 19
Width = 29
Height = 14
Caption = 'Plates'
HeightPercent = 100.000000000000000000
Visible = False
WidthPercent = 100.000000000000000000
end
object WebLabel9: TWebLabel
Left = 862
Top = 147
Width = 38
Height = 14
Caption = 'General'
HeightPercent = 100.000000000000000000
Visible = False
WidthPercent = 100.000000000000000000
end
object pnlMessage: TWebPanel
Left = 324
Top = 19
Width = 121
Height = 33
ElementID = 'pnl_message'
ChildOrder = 5
ElementPosition = epRelative
Role = 'alert'
TabOrder = 0
object lblMessage: TWebLabel
Left = 28
Top = 9
Width = 44
Height = 14
Caption = 'Message'
ElementID = 'view.login.message.label'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object btnCloseNotification: TWebButton
Left = 96
Top = 3
Width = 22
Height = 25
ChildOrder = 1
ElementID = 'view.login.message.button'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
WidthPercent = 100.000000000000000000
end
end
object edtCompanyName: TWebEdit
Left = 22
Top = 96
Width = 121
Height = 22
ChildOrder = 3
ElementID = 'edtcompanyname'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtCompanyAccountName: TWebEdit
Left = 22
Top = 124
Width = 121
Height = 22
ChildOrder = 3
ElementID = 'edtaccountcompanyname'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtInQuickBooks: TWebEdit
Left = 22
Top = 152
Width = 121
Height = 22
ChildOrder = 3
ElementID = 'edtinquickbooks'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object dtpOrderDate: TWebDateTimePicker
Left = 22
Top = 218
Width = 170
Height = 22
ElementID = 'dtporderdate'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45544.402385138890000000
Role = ''
Text = ''
end
object dtpProofDate: TWebDateTimePicker
Left = 22
Top = 250
Width = 170
Height = 22
ElementID = 'dtpproofdate'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45544.402385138890000000
Role = ''
Text = ''
end
object dtpShipDate: TWebDateTimePicker
Left = 22
Top = 282
Width = 170
Height = 22
ElementID = 'dtpshipdate'
BorderStyle = bsSingle
ChildOrder = 4
Color = clWhite
Date = 45544.402385138890000000
Role = ''
Text = ''
end
object edtShipVia: TWebEdit
Left = 22
Top = 318
Width = 121
Height = 22
ChildOrder = 9
ElementID = 'edtshipvia'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtQuantity: TWebEdit
Left = 22
Top = 346
Width = 121
Height = 22
ChildOrder = 9
ElementID = 'edtquantity'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtPrice: TWebEdit
Left = 22
Top = 378
Width = 121
Height = 22
ChildOrder = 9
ElementID = 'edtprice'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtInvoiceTo: TWebEdit
Left = 22
Top = 406
Width = 121
Height = 22
ChildOrder = 12
ElementID = 'edtinvoiceto'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtShipTo: TWebEdit
Left = 24
Top = 430
Width = 121
Height = 22
ChildOrder = 12
ElementID = 'edtshipto'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtPONumber: TWebEdit
Left = 24
Top = 458
Width = 121
Height = 22
ChildOrder = 12
ElementID = 'edtponumber'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtJobName: TWebEdit
Left = 24
Top = 484
Width = 121
Height = 22
ChildOrder = 12
ElementID = 'edtjobname'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtQuickbooksItem: TWebEdit
Left = 24
Top = 512
Width = 121
Height = 22
ChildOrder = 12
ElementID = 'edtquickbooksitem'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object dtpArtDue: TWebDateTimePicker
Left = 24
Top = 544
Width = 170
Height = 22
ElementID = 'dtpartdue'
BorderStyle = bsSingle
ChildOrder = 17
Color = clWhite
Date = 45544.409323321760000000
Role = ''
Text = ''
end
object dtpPlateDue: TWebDateTimePicker
Left = 24
Top = 568
Width = 170
Height = 22
ElementID = 'dtpplatedue'
BorderStyle = bsSingle
ChildOrder = 17
Color = clWhite
Date = 45544.409323321760000000
Role = ''
Text = ''
end
object dtpMountDue: TWebDateTimePicker
Left = 26
Top = 596
Width = 170
Height = 22
ElementID = 'dtpmountdue'
BorderStyle = bsSingle
ChildOrder = 17
Color = clWhite
Date = 45544.409323321760000000
Role = ''
Text = ''
end
object edtArtLocation: TWebEdit
Left = 26
Top = 628
Width = 121
Height = 22
ChildOrder = 20
ElementID = 'edtartlocation'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
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 edtDimensionalLayout: TWebEdit
Left = 316
Top = 314
Width = 121
Height = 22
ChildOrder = 27
ElementID = 'edtdimensionallayout'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtEmail: TWebEdit
Left = 316
Top = 368
Width = 121
Height = 22
ChildOrder = 27
ElementID = 'edtemail'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtFTP: TWebEdit
Left = 316
Top = 392
Width = 121
Height = 22
ChildOrder = 27
ElementID = 'edtftp'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtExistingCuttingDie: TWebEdit
Left = 316
Top = 446
Width = 121
Height = 22
ChildOrder = 27
ElementID = 'edtexistingcuttingdie'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtOther: TWebEdit
Left = 316
Top = 418
Width = 121
Height = 22
ChildOrder = 27
ElementID = 'edtother'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtRefArtPrintCard: TWebEdit
Left = 316
Top = 474
Width = 121
Height = 22
ChildOrder = 27
ElementID = 'edtrefartprintcard'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtRefArtAPDF: TWebEdit
Left = 316
Top = 502
Width = 121
Height = 22
ChildOrder = 27
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtRSCL: TWebEdit
Left = 496
Top = 39
Width = 121
Height = 22
ChildOrder = 35
ElementID = 'edtrscl'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtRSCW: TWebEdit
Left = 496
Top = 67
Width = 121
Height = 22
ChildOrder = 35
ElementID = 'edtrscw'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtRSCD: TWebEdit
Left = 496
Top = 95
Width = 121
Height = 22
ChildOrder = 35
ElementID = 'edtrscd'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtDieCutNo: TWebEdit
Left = 496
Top = 123
Width = 121
Height = 22
ChildOrder = 35
ElementID = 'edtdiecutno'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtAcrossNo: TWebEdit
Left = 496
Top = 151
Width = 121
Height = 22
ChildOrder = 35
ElementID = 'edtacrossno'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtAroundNo: TWebEdit
Left = 496
Top = 179
Width = 121
Height = 22
ChildOrder = 35
ElementID = 'edtaroundno'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtCADFile: TWebEdit
Left = 496
Top = 207
Width = 121
Height = 22
ChildOrder = 35
ElementID = 'edtcadfile'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtRSCStyle: TWebEdit
Left = 496
Top = 258
Width = 121
Height = 22
ChildOrder = 35
ElementID = 'edtrscstyle'
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 edtLoose: TWebEdit
Left = 496
Top = 334
Width = 121
Height = 22
ChildOrder = 49
ElementID = 'edtloose'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtStripMount: TWebEdit
Left = 496
Top = 434
Width = 121
Height = 22
ChildOrder = 49
ElementID = 'edtstripmount'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtStantdardSetup: TWebEdit
Left = 496
Top = 454
Width = 121
Height = 22
ChildOrder = 49
ElementID = 'edtstandardsetup'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtCustomBacking: TWebEdit
Left = 496
Top = 480
Width = 121
Height = 22
ChildOrder = 49
ElementID = 'edtcustombacking'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtCustomAdhesive: TWebEdit
Left = 496
Top = 508
Width = 121
Height = 22
ChildOrder = 49
ElementID = 'edtcustomadhesive'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtCylinderSize: TWebEdit
Left = 658
Top = 39
Width = 121
Height = 22
ChildOrder = 55
ElementID = 'edtcylindersize'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtMachineIndent: TWebEdit
Left = 658
Top = 64
Width = 121
Height = 22
ChildOrder = 55
ElementID = 'edtmachineindent'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtClemson: TWebEdit
Left = 658
Top = 117
Width = 121
Height = 22
ChildOrder = 55
ElementID = 'edtclemson'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtCrossHairs: TWebEdit
Left = 658
Top = 89
Width = 121
Height = 22
ChildOrder = 55
ElementID = 'edtcrosshairs'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebButton1: TWebButton
Left = 658
Top = 150
Width = 96
Height = 25
Caption = '+'
ChildOrder = 59
ElementID = 'btnaddcolor'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtFax: TWebEdit
Left = 658
Top = 226
Width = 121
Height = 22
ChildOrder = 61
ElementID = 'edtfax'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtProofOther: TWebEdit
Left = 662
Top = 458
Width = 121
Height = 22
ChildOrder = 61
ElementID = 'edtproofother'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtProofShipTo: TWebEdit
Left = 662
Top = 337
Width = 121
Height = 22
ChildOrder = 61
ElementID = 'edtproofshipto'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtProofEmail: TWebEdit
Left = 658
Top = 281
Width = 121
Height = 22
ChildOrder = 61
ElementID = 'edtproofemail'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtEmailAttn: TWebEdit
Left = 658
Top = 309
Width = 121
Height = 22
ChildOrder = 61
ElementID = 'edtemailattn'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtFaxAttn: TWebEdit
Left = 658
Top = 253
Width = 121
Height = 22
ChildOrder = 61
ElementID = 'edtfaxattn'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
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
object dtpApprovedDate: TWebDateTimePicker
Left = 662
Top = 508
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object edtThickness: TWebEdit
Left = 852
Top = 39
Width = 121
Height = 22
ChildOrder = 75
ElementID = 'edtThickness'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtPlateMaterial: TWebEdit
Left = 852
Top = 67
Width = 121
Height = 22
ChildOrder = 75
ElementID = 'edtplatematerial'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtJobNumber: TWebEdit
Left = 852
Top = 92
Width = 121
Height = 22
ChildOrder = 75
ElementID = 'edtjobnumber'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtSpecialInstructions: TWebEdit
Left = 864
Top = 177
Width = 121
Height = 22
ChildOrder = 75
ElementID = 'edtspecialinstructions'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object tmrScrollTop: TWebTimer
Left = 48
Top = 14
end
object clntReportRequirements: TXDataWebClient
Connection = DMConnection.ApiConnection
Left = 273
Top = 33
end
end
kgOrdersClient/View.ReportRequirements.html 0 → 100644
<div class="row">
<div class="col-12">
<h1 class="page-header pt-3" id="view.users.title" style="font-size: 24px;">Order Entry</h1>
<div class="container mt-4 px-0">
<div class="row justify-content-center">
<div class="col-12 col-md-8">
<div class="row">
<div class=col-sm>
<div id="pnl_message" class="alert alert-danger">
<button id="view.login.message.button" type="button" class="btn-close" aria-label="Close"></button>
<span id="view.login.message.label"></span>
</div>
</div>
</div>
<div class="row">
<div class="col">
<div class="card mb-3">
<div class="card-header">
Company
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblcompanyname">Company Name:</label>
<input id="edtcompanyname" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblaccountcompanyname">Account Company Name:</label>
<input id="edtaccountcompanyname" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblinquickcompile">In Quickbooks?:</label>
<input id="edtinquickbooks" class="form-control input-sm" width='50%'/>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col">
<div class="card mb-3">
<div class="card-header">
Staff Fields
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblorderdate">Order Date:</label>
<input class="form-control input-sm" id="dtporderdate" type="date">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblproofdate">Proof Date:</label>
<input class="form-control input-sm" id="dtpproofdate" type="date">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblshipdate">Ship Date:</label>
<input class="form-control input-sm" id="dtpshipdate" type="date">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblshipvia">Ship Via:</label>
<input id="edtshipvia" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblquantity">Quantity:</label>
<input id="edtquantity" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblprice">Price:</label>
<input id="edtprice" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblinvoiceto">Invoice To:</label>
<input id="edtinvoiceto" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblshipto">Ship To:</label>
<input id="edtshipto" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblponumber">PO Number:</label>
<input id="edtponumber" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lbljobname">Job Name:</label>
<input id="edtjobname" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblquickbooksitem">QuickBooks Item:</label>
<input id="edtquickbooksitem" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblartdue">Art Due:</label>
<input class="form-control input-sm" id="dtpartdue" type="date">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblplatedue">Plate Due:</label>
<input class="form-control input-sm" id="dtpplatedue" type="date">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblmountdue">Mount Due:</label>
<input class="form-control input-sm" id="dtpmountdue" type="date">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblartlocation">Art Location:</label>
<input id="edtartlocation" class="form-control input-sm" width='50%'/>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col">
<div class="card mb-3">
<div class="card-header">
Supplied by Customer
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblbwcopy">B/W Copy:</label>
<input type="checkbox" id="cbbwcopy">
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblcolorcopy">Color Copy:</label>
<input type="checkbox" id="cbcolorcopy">
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblplates">Plates:</label>
<input type="checkbox" id="cbplates">
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblsimplecarton">Simple Carton:</label>
<input type="checkbox" id="cbsimpleCarton">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lbldimensionallayout">Dimensional Layout:</label>
<input id="edtdimensionallayout" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lbldiskorcd">Disk or CD:</label>
<input type="checkbox" id="cbdiskorcd">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblemail">Email:</label>
<input id="edtemail" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblftp">FTP:</label>
<input id="edtftp" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblother">Other:</label>
<input class="form-control input-sm" id="edtother" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblexistingcuttingdie">Existing Cutting Die:</label>
<input class="form-control input-sm" id="edtexistingcuttingdie" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblrefartprintcard">Ref Art Print Card:</label>
<input class="form-control input-sm" id="edtrefartprintcard" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblrefartapdf">Ref Art A PDF:</label>
<input id="edtrefartapdf" class="form-control input-sm" width='50%'/>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col">
<div class="card mb-3">
<div class="card-header">
Layout
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblrscl">RSC L:</label>
<input id="edtrscl" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblrscw">RSC W:</label>
<input id="edtrscw" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblrscd">RSC D:</label>
<input id="edtrscd" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lbldiecutno">Die Cut No:</label>
<input class="form-control input-sm" id="edtdiecutno" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblacrossno">Across No:</label>
<input class="form-control input-sm" id="edtacrossno" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblaroundno">Around No:</label>
<input class="form-control input-sm" id="edtaroundno" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblcadfile">CAD File:</label>
<input id="edtcadfile" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblexcaliburdie">Excalibur Die:</label>
<input type="checkbox" id="cbexcaliburdie">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblrscstyle">RSC Style:</label>
<input id="edtrscstyle" class="form-control input-sm" width='50%'/>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col">
<div class="card mb-3">
<div class="card-header">
Mounting
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblloose">Loose:</label>
<input type="checkbox" id="cbloose">
<input id="edtloose" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblstickybak">Sticky Bak:</label>
<input type="checkbox" id="cbstickybak">
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblfullmount">Full Mount:</label>
<input type="checkbox" id="cbfullmount">
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblstripmount">Strip Mount:</label>
<input type="checkbox" id="cbstripmount">
<input id="edtstripmount" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblstandardsetup">Standard Setup:</label>
<input id="edtstandardsetup" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblcustombacking">Custom Backing:</label>
<input id="edtcustombacking" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblcustomadhesive">Custom Adhesive:</label>
<input id="edtcustomadhesive" class="form-control input-sm" width='50%'/>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col">
<div class="card mb-3">
<div class="card-header">
Colors
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblcylindersize">Cylinder Size:</label>
<input id="edtcylindersize" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblmachineindent">Machine Indent:</label>
<input id="edtmachineindent" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblcrosshairs">Cross Hairs:</label>
<input id="edtcrosshairs" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblclemson">Clemson:</label>
<input id="edtclemson" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblcolors">Colors:</label>
<button id="btnaddcolor" class="btn btn-primary btn-sm float-end">+</button>
<div id="additionalFields" class="row mt-3"></div>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col">
<div class="card mb-3">
<div class="card-header">
Proofing
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblfax">Fax:</label>
<input id="edtfax" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblfaxattn">Fax Attn:</label>
<input id="edtfaxattn" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblproofemail">Email:</label>
<input id="edtproofemail" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblemailattn">Email Attn:</label>
<input id="edtemailattn" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblproofshipto">Ship To:</label>
<input id="edtproofshipto" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblfullsizepane">Full Size Panel:</label>
<input type="checkbox" id="cbfullsizepanel">
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblprintcard">Print Card:</label>
<input type="checkbox" id="cbprintcard">
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblwideformat">Wide Format:</label>
<input type="checkbox" id="cbwideformat">
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblpdffile">PDF File:</label>
<input type="checkbox" id="cbpdffile">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblproofother">Other:</label>
<input id="edtproofother" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label style="font-weight: 700;font-size: 15px" id="lblartapprovedasis">Art Approved As Is:</label>
<input type="checkbox" id="cbartapprovedasis">
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblapproveddate">Approved Date:</label>
<input class="form-control input-sm" id="dtpapproveddate" type="date">
</div>
</div>
</div>
</div>
<div class="row">
<div class="col">
<div class="card mb-3">
<div class="card-header">
Plates
</div>
<div class="col-auto">
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblthickness">Thickness:</label>
<input id="edtThickness" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblaccountcompanyname">Plate Material:</label>
<input id="edtplatematerial" class="form-control input-sm" width='50%'/>
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lbljobnumber">Job Number:</label>
<input id="edtjobnumber" class="form-control input-sm" width='50%'/>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col">
<div class="card mb-3">
<div class="card-header">
Plates
</div>
<div class="card-body">
<label class='pe-2' style="font-weight: 700; font-size: 15px;" id="lblspecialinstructions">Special Instructions:</label>
<input id="edtspecialinstructions" class="form-control input-sm" width='50%'/>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<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>
kgOrdersClient/View.ReportRequirements.pas 0 → 100644
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;
type
TFReportRequirements = class(TWebForm)
tmrScrollTop: TWebTimer;
clntReportRequirements: TXDataWebClient;
pnlMessage: TWebPanel;
lblMessage: TWebLabel;
btnCloseNotification: TWebButton;
edtCompanyAccountName: TWebEdit;
edtInQuickBooks: TWebEdit;
edtCompanyName: TWebEdit;
dtpOrderDate: TWebDateTimePicker;
dtpProofDate: TWebDateTimePicker;
dtpShipDate: TWebDateTimePicker;
WebLabel1: TWebLabel;
WebLabel2: TWebLabel;
edtShipVia: TWebEdit;
edtQuantity: TWebEdit;
edtPrice: TWebEdit;
edtInvoiceTo: TWebEdit;
edtShipTo: TWebEdit;
edtPONumber: TWebEdit;
edtJobName: TWebEdit;
edtQuickbooksItem: TWebEdit;
dtpArtDue: TWebDateTimePicker;
dtpPlateDue: TWebDateTimePicker;
dtpMountDue: TWebDateTimePicker;
edtArtLocation: TWebEdit;
WebLabel3: TWebLabel;
cbBWCopy: TWebCheckBox;
cbColorCopy: TWebCheckBox;
cbPlates: TWebCheckBox;
cbDiskOrCD: TWebCheckBox;
cbSampleCarton: TWebCheckBox;
edtDimensionalLayout: TWebEdit;
edtEmail: TWebEdit;
edtFTP: TWebEdit;
edtExistingCuttingDie: TWebEdit;
edtOther: TWebEdit;
edtRefArtPrintCard: TWebEdit;
edtRefArtAPDF: TWebEdit;
WebLabel4: TWebLabel;
edtRSCL: TWebEdit;
edtRSCW: TWebEdit;
edtRSCD: TWebEdit;
edtDieCutNo: TWebEdit;
edtAcrossNo: TWebEdit;
edtAroundNo: TWebEdit;
edtCADFile: TWebEdit;
edtRSCStyle: TWebEdit;
cbExcaliburDie: TWebCheckBox;
WebLabel5: TWebLabel;
cbLoose: TWebCheckBox;
cbStickyBak: TWebCheckBox;
cbFullMount: TWebCheckBox;
cbStripMount: TWebCheckBox;
edtLoose: TWebEdit;
edtStripMount: TWebEdit;
edtStantdardSetup: TWebEdit;
edtCustomBacking: TWebEdit;
edtCustomAdhesive: TWebEdit;
WebLabel6: TWebLabel;
edtCylinderSize: TWebEdit;
edtMachineIndent: TWebEdit;
edtClemson: TWebEdit;
edtCrossHairs: TWebEdit;
WebButton1: TWebButton;
WebLabel7: TWebLabel;
edtFax: TWebEdit;
edtProofOther: TWebEdit;
edtProofShipTo: TWebEdit;
edtProofEmail: TWebEdit;
edtEmailAttn: TWebEdit;
edtFaxAttn: TWebEdit;
cbFullSizePanel: TWebCheckBox;
cbPrintCard: TWebCheckBox;
cbWideFormat: TWebCheckBox;
cbPDFFile: TWebCheckBox;
cbArtApprovedAsIs: TWebCheckBox;
dtpApprovedDate: TWebDateTimePicker;
WebLabel8: TWebLabel;
WebLabel9: TWebLabel;
edtThickness: TWebEdit;
edtPlateMaterial: TWebEdit;
edtJobNumber: TWebEdit;
edtSpecialInstructions: TWebEdit;
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/template/css/app.css
...@@ -23,6 +23,15 @@ ...@@ -23,6 +23,15 @@
margin-right: 0.5rem; margin-right: 0.5rem;
} }
.custom-h4 {
margin-bottom: 5px;
}
.custom-hr {
margin-top: 5px;
margin-bottom: 10px;
}
.custom-select-large { .custom-select-large {
font-size: 1.25rem; font-size: 1.25rem;
padding: 0.5rem; padding: 0.5rem;
......
kgOrdersClient/webKGOrders.dpr
program webKGOrders; program webKGOrders;
uses uses
Vcl.Forms, Vcl.Forms,
XData.Web.Connection, XData.Web.Connection,
...@@ -18,7 +16,8 @@ uses ...@@ -18,7 +16,8 @@ uses
View.Home in 'View.Home.pas' {FViewHome: TWebForm} {*.html}, View.Home in 'View.Home.pas' {FViewHome: TWebForm} {*.html},
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};
{$R *.res} {$R *.res}
......
kgOrdersClient/webKGOrders.dproj
...@@ -166,6 +166,11 @@ ...@@ -166,6 +166,11 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass> <DesignClass>TWebForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="View.ReportRequirements.pas">
<Form>FReportRequirements</Form>
<FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass>
</DCCReference>
<None Include="index.html"/> <None Include="index.html"/>
<None Include="template\css\app.css"/> <None Include="template\css\app.css"/>
<BuildConfiguration Include="Base"> <BuildConfiguration Include="Base">
......
kgOrdersServer/kgOrdersServer.ini
[Options] [Options]
LogFileNum=98 LogFileNum=100
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