Skip to content

K
KGOrders
Commit 26156618 by cam
Options

got colors converted into pdfs on client side. 

client side order submission nearly done, but one issue is that delphi appears to be unable to create a json object with an array.
parent c4ce4a58
Showing with 1624 additions and 18 deletions
kgOrdersClient/View.IncidentProperty.dfm 0 → 100644
object FIncidentProperty: TFIncidentProperty
Width = 1016
Height = 683
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
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 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 WebLabel5: TWebLabel
Left = 496
Top = 348
Width = 55
Height = 14
Caption = 'Plate Marks'
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'
ElementFont = efCSS
ElementPosition = epRelative
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
Role = 'button'
WidthStyle = ssAuto
WidthPercent = 100.000000000000000000
end
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 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 WebButton1: TWebButton
Left = 658
Top = 104
Width = 96
Height = 25
Caption = '+'
ChildOrder = 59
ElementID = 'btnaddcolor'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object dtpColorContractDate2: TWebDateTimePicker
Left = 658
Top = 588
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object edtCompanyName: TWebDBEdit
Left = 24
Top = 92
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtcompanyname'
HeightPercent = 100.000000000000000000
MaxLength = 90
WidthPercent = 100.000000000000000000
DataField = 'companyName'
DataSource = WebDataSource1
end
object edtCompanyAccountName: TWebDBEdit
Left = 24
Top = 120
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtaccountcompanyname'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'accountCompanyName'
DataSource = WebDataSource1
end
object edtInQuickBooks: TWebDBEdit
Left = 26
Top = 148
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtinquickbooks'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'inQuickBooks'
DataSource = WebDataSource1
end
object edtShipVia: TWebDBEdit
Left = 24
Top = 314
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtshipvia'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'shipVia'
DataSource = WebDataSource1
end
object edtQuantity: TWebDBEdit
Left = 24
Top = 346
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtquantity'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'Quantity'
DataSource = WebDataSource1
end
object edtPrice: TWebDBEdit
Left = 24
Top = 374
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtprice'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'price'
DataSource = WebDataSource1
end
object edtInvoiceTo: TWebDBEdit
Left = 26
Top = 402
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtinvoiceto'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'invoiceTo'
DataSource = WebDataSource1
end
object edtShipTo: TWebDBEdit
Left = 26
Top = 430
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtshipto'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'shipTo'
DataSource = WebDataSource1
end
object edtPONumber: TWebDBEdit
Left = 26
Top = 458
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtponumber'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'poNumber'
DataSource = WebDataSource1
end
object edtJobName: TWebDBEdit
Left = 26
Top = 486
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtjobname'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'jobName'
DataSource = WebDataSource1
end
object edtQuickBooksItem: TWebDBEdit
Left = 26
Top = 514
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtquickbooksitem'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'quickBooksItem'
DataSource = WebDataSource1
end
object edtArtLocation: TWebDBEdit
Left = 26
Top = 628
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtartlocation'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'artLocation'
DataSource = WebDataSource1
end
object edtDimensionalLayout: TWebDBEdit
Left = 316
Top = 283
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtdimensionallayout'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'dimensionalLayout'
DataSource = WebDataSource1
end
object edtEmail: TWebDBEdit
Left = 316
Top = 362
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtemail'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'email'
DataSource = WebDataSource1
end
object edtFTP: TWebDBEdit
Left = 316
Top = 390
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtftp'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'ftp'
DataSource = WebDataSource1
end
object edtOther: TWebDBEdit
Left = 316
Top = 311
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtother'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'other'
DataSource = WebDataSource1
end
object edtTotalInchesUsed: TWebDBEdit
Left = 316
Top = 418
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtexistingcuttingdie'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'existingCuttingDie'
DataSource = WebDataSource1
end
object edtSheetsUsed: TWebDBEdit
Left = 316
Top = 446
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartprintcard'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtPrintCard'
DataSource = WebDataSource1
end
object edtInitials: TWebDBEdit
Left = 316
Top = 482
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end
object edtPitch: TWebDBEdit
Left = 496
Top = 195
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtcadfile'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'cadFile'
DataSource = WebDataSource1
end
object edtAround: TWebDBEdit
Left = 496
Top = 61
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtaroundno'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'aroundNo'
DataSource = WebDataSource1
end
object edtAcross: TWebDBEdit
Left = 496
Top = 33
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtacrossno'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'acrossNo'
DataSource = WebDataSource1
end
object edtCutoffDimension: TWebDBEdit
Left = 496
Top = 167
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtdiecutno'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'dieCutNo'
DataSource = WebDataSource1
end
object edtCylinderRepeat: TWebDBEdit
Left = 494
Top = 139
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrscd'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'rscd'
DataSource = WebDataSource1
end
object edtReversePrint: TWebDBEdit
Left = 494
Top = 111
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrscw'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'rscw'
DataSource = WebDataSource1
end
object edtSurfacePrint: TWebDBEdit
Left = 496
Top = 83
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrscl'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'rscl'
DataSource = WebDataSource1
end
object edtBleeded: TWebDBEdit
Left = 496
Top = 223
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrscstyle'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'rscStyle'
DataSource = WebDataSource1
end
object edtDigitalColorKey: TWebDBEdit
Left = 662
Top = 610
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtproofother'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'proofOther'
DataSource = WebDataSource1
end
object edtColorContract: TWebDBEdit
Left = 658
Top = 510
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtproofshipto'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'proofShipTo'
DataSource = WebDataSource1
end
object edtColorContractTo: TWebDBEdit
Left = 658
Top = 538
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtemailattn'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'emailAttn'
DataSource = WebDataSource1
end
object edtInkJetTo2: TWebDBEdit
Left = 658
Top = 408
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtproofemail'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'proofEmail'
DataSource = WebDataSource1
end
object edtInkJetTo: TWebDBEdit
Left = 658
Top = 382
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtfaxattn'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'faxAttn'
DataSource = WebDataSource1
end
object edtPDFTo: TWebDBEdit
Left = 658
Top = 247
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtfax'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'fax'
DataSource = WebDataSource1
end
object edtAniloxInfo: TWebDBEdit
Left = 658
Top = 64
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtmachineindent'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'machineIdent'
DataSource = WebDataSource1
end
object edtPressName: TWebDBEdit
Left = 658
Top = 39
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtcylindersize'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'cylinderSize'
DataSource = WebDataSource1
end
object edtJobNumber: TWebDBEdit
Left = 852
Top = 105
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtjobnumber'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'jobNumber'
DataSource = WebDataSource1
end
object edtPlateMaterial: TWebDBEdit
Left = 852
Top = 72
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtplatematerial'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'plateMaterial'
DataSource = WebDataSource1
end
object edtThickness: TWebDBEdit
Left = 852
Top = 39
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtThickness'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'thickness'
DataSource = WebDataSource1
end
object cbPDFFile: TWebDBCheckBox
Left = 658
Top = 219
Width = 113
Height = 22
Caption = 'PDF File'
ChildOrder = 79
ElementID = 'cbpdffile'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'pdfFile'
DataSource = WebDataSource1
end
object cbFullSizeInkJet: TWebDBCheckBox
Left = 658
Top = 354
Width = 113
Height = 22
Caption = 'Full Size Ink Jet For Layout Content Only'
ChildOrder = 79
ElementID = 'cbfullsizepanel'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'fullSizePanel'
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 edtComments: TWebDBEdit
Left = 852
Top = 185
Width = 121
Height = 22
ChildOrder = 78
ElementID = 'edtspecialinstructions'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'specialInstructions'
DataSource = WebDataSource1
end
object edtDisk: TWebDBEdit
Left = 316
Top = 339
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtdisk'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataSource = WebDataSource1
end
object edtCutback: TWebDBEdit
Left = 496
Top = 251
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrscstyle'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'rscStyle'
DataSource = WebDataSource1
end
object edtMinimumTrapDim: TWebDBEdit
Left = 496
Top = 283
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrscstyle'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'rscStyle'
DataSource = WebDataSource1
end
object edtMaximumTrapDim: TWebDBEdit
Left = 496
Top = 311
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrscstyle'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'rscStyle'
DataSource = WebDataSource1
end
object dtpPDFDate3: TWebDateTimePicker
Left = 658
Top = 326
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object dtpPDFDate2: TWebDateTimePicker
Left = 658
Top = 302
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object dtpPDFDate1: TWebDateTimePicker
Left = 658
Top = 278
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object dtpInkJetDate3: TWebDateTimePicker
Left = 658
Top = 486
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object dtpInkJetDate2: TWebDateTimePicker
Left = 658
Top = 458
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object dtpInkJetDate1: TWebDateTimePicker
Left = 658
Top = 430
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object dtpColorContractDate1: TWebDateTimePicker
Left = 658
Top = 566
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object dtpDigitalColorDate: TWebDateTimePicker
Left = 658
Top = 656
Width = 170
Height = 22
ElementID = 'dtpapproveddate'
BorderStyle = bsSingle
ChildOrder = 72
Color = clWhite
Date = 45544.481204965280000000
Role = ''
Text = ''
end
object edtDigitalColorTo: TWebDBEdit
Left = 658
Top = 632
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtproofother'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'proofOther'
DataSource = WebDataSource1
end
object edtOtherComments: TWebDBEdit
Left = 496
Top = 572
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end
object edtPlateOther: TWebDBEdit
Left = 494
Top = 544
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end
object edtColorBarsComments: TWebDBEdit
Left = 494
Top = 518
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end
object edtColorBars: TWebDBEdit
Left = 494
Top = 490
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end
object edtCrosshairsComments: TWebDBEdit
Left = 494
Top = 462
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end
object edtCrosshairs: TWebDBEdit
Left = 496
Top = 434
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end
object edtMicrodotsComments: TWebDBEdit
Left = 494
Top = 402
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end
object edtMicrodots: TWebDBEdit
Left = 496
Top = 372
Width = 121
Height = 22
ChildOrder = 79
ElementID = 'edtrefartapdf'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
DataField = 'refArtA'
DataSource = WebDataSource1
end
object XDataWebClient1: TXDataWebClient
Connection = DMConnection.ApiConnection
Left = 244
Top = 44
end
object tmrScrollTop: TWebTimer
Interval = 100
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 = 216
Top = 104
end
end
kgOrdersClient/View.IncidentProperty.html 0 → 100644
<div class="container pb-5 mt-5">
<h3 id="crime_title"></h3>
<div id="status_message" class="alert" style="display: none;"></div>
<hr class="custom-hr">
<h4 class="custom-h4 mt-3">Incident Information</h4>
<p>Please enter all the information that applies. A valid address is required.</p>
<hr class="custom-hr">
<form>
<h4 class="custom-h4 mt-3">Incident Location</h4>
<hr class="custom-hr">
<div class="row mt-3">
<div class="col-md-4">
<label for="edt_street_number" class="form-label">Street number*</label>
<input type="text" class="form-control" id="edt_street_number">
</div>
<div class="col-md-4">
<label for="drp_street_direction" class="form-label">St Dir</label>
<select class="form-select" id="drp_street_direction">
<!-- Street directions options will be loaded dynamically -->
</select>
</div>
<div class="col-md-4">
<label for="edt_street_name" class="form-label">Street Name*</label>
<input type="text" class="form-control" id="edt_street_name">
</div>
<div class="col-md-2">
<label for="drp_street_type" class="form-label">St Type*</label>
<select class="form-select" id="drp_street_type">
<!-- Street types options will be loaded dynamically -->
</select>
</div>
<div class="col-md-2">
<label for="edt_apt_unit" class="form-label">Apt/Unit</label>
<input type="text" class="form-control" id="edt_apt_unit">
</div>
<div class="col-md-4">
<label for="drp_state" class="form-label">State*</label>
<select class="form-select" id="drp_state">
<!-- States options will be loaded dynamically -->
</select>
</div>
<div class="col-md-4">
<label for="edt_zip_code" class="form-label">Zip Code*</label>
<input type="text" class="form-control" id="edt_zip_code">
</div>
</div>
<h4 class="custom-h4 mt-3">Incident Time</h4>
<hr class="custom-hr">
<div class="row mt-3">
<div class="col-md-3">
<label for="dpt_incident_time_start" class="form-label">Incident Time (start)*</label>
<input type="datetime-local" class="form-control" id="dpt_incident_time_start">
</div>
<div class="col-md-3">
<label for="dpt_incident_time_end" class="form-label">Incident Time (end)*</label>
<input type="datetime-local" class="form-control" id="dpt_incident_time_end">
</div>
<div class="col-md-3">
<label for="drp_location_type" class="form-label">Location Type</label>
<select class="form-select" id="drp_location_type">
<!-- Location type options will be loaded dynamically -->
</select>
</div>
</div>
<div class="mt-4">
<button id="btn_submit" type="submit" class="btn btn-secondary">Submit</button>
</div>
</form>
</div>
kgOrdersClient/View.IncidentProperty.pas 0 → 100644
unit View.IncidentProperty;
interface
uses
System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
WEBLib.Forms, WEBLib.Dialogs, App.Types, ConnectionModule, Data.DB,
WEBLib.DB, XData.Web.JsonDataset, XData.Web.Dataset, WEBLib.ExtCtrls,
XData.Web.Client, Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.DBCtrls, Vcl.Controls;
type
TFIncidentProperty = class(TWebForm)
WebLabel1: TWebLabel;
WebLabel2: TWebLabel;
WebLabel3: TWebLabel;
WebLabel4: TWebLabel;
WebLabel6: TWebLabel;
WebLabel7: TWebLabel;
WebLabel8: TWebLabel;
WebLabel9: TWebLabel;
pnlMessage: TWebPanel;
lblMessage: TWebLabel;
btnCloseNotification: TWebButton;
dtpOrderDate: TWebDateTimePicker;
dtpProofDate: TWebDateTimePicker;
dtpShipDate: TWebDateTimePicker;
dtpArtDue: TWebDateTimePicker;
dtpPlateDue: TWebDateTimePicker;
dtpMountDue: TWebDateTimePicker;
WebButton1: TWebButton;
dtpColorContractDate2: TWebDateTimePicker;
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;
edtTotalInchesUsed: TWebDBEdit;
edtSheetsUsed: TWebDBEdit;
edtInitials: TWebDBEdit;
edtPitch: TWebDBEdit;
edtAround: TWebDBEdit;
edtAcross: TWebDBEdit;
edtCutoffDimension: TWebDBEdit;
edtCylinderRepeat: TWebDBEdit;
edtReversePrint: TWebDBEdit;
edtSurfacePrint: TWebDBEdit;
edtBleeded: TWebDBEdit;
edtDigitalColorKey: TWebDBEdit;
edtColorContract: TWebDBEdit;
edtColorContractTo: TWebDBEdit;
edtInkJetTo2: TWebDBEdit;
edtInkJetTo: TWebDBEdit;
edtPDFTo: TWebDBEdit;
edtAniloxInfo: TWebDBEdit;
edtPressName: TWebDBEdit;
edtJobNumber: TWebDBEdit;
edtPlateMaterial: TWebDBEdit;
edtThickness: TWebDBEdit;
cbPDFFile: TWebDBCheckBox;
cbFullSizeInkJet: TWebDBCheckBox;
cbPlate: TWebDBCheckBox;
cbColorCopy: TWebDBCheckBox;
cbBWCopy: TWebDBCheckBox;
edtComments: TWebDBEdit;
XDataWebClient1: TXDataWebClient;
tmrScrollTop: TWebTimer;
XDataWebDataSet1: TXDataWebDataSet;
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;
WebDataSource1: TWebDataSource;
edtDisk: TWebDBEdit;
edtCutback: TWebDBEdit;
edtMinimumTrapDim: TWebDBEdit;
edtMaximumTrapDim: TWebDBEdit;
dtpPDFDate3: TWebDateTimePicker;
dtpPDFDate2: TWebDateTimePicker;
dtpPDFDate1: TWebDateTimePicker;
dtpInkJetDate3: TWebDateTimePicker;
dtpInkJetDate2: TWebDateTimePicker;
dtpInkJetDate1: TWebDateTimePicker;
dtpColorContractDate1: TWebDateTimePicker;
dtpDigitalColorDate: TWebDateTimePicker;
edtDigitalColorTo: TWebDBEdit;
WebLabel5: TWebLabel;
edtOtherComments: TWebDBEdit;
edtPlateOther: TWebDBEdit;
edtColorBarsComments: TWebDBEdit;
edtColorBars: TWebDBEdit;
edtCrosshairsComments: TWebDBEdit;
edtCrosshairs: TWebDBEdit;
edtMicrodotsComments: TWebDBEdit;
edtMicrodots: TWebDBEdit;
private
FAgencyCode: string;
FCurrentReportType: string;
FReportID: string;
//FJSONProc: TJSONProc;
public
class function CreateForm(AElementID, AReportType, AAgencyCode, AReportID: string): TWebForm;
end;
var
FIncidentProperty: TFIncidentProperty;
implementation
{$R *.dfm}
class function TFIncidentProperty.CreateForm(AElementID, AReportType, AAgencyCode, AReportID: string): TWebForm;
begin
Application.CreateForm(TFIncidentProperty, AElementID, Result,
procedure(AForm: TObject)
begin
with TFIncidentProperty(AForm) do
begin
FAgencyCode := AAgencyCode;
FCurrentReportType := AReportType;
FReportID := AReportID;
//FJSONProc := AJSONProc;
// InitializeForm;
end;
end
);
end;
end.
\ No newline at end of file
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.OrderEntry; View.OrderEntryCorrugated;
{$R *.dfm} {$R *.dfm}
...@@ -162,7 +162,7 @@ begin ...@@ -162,7 +162,7 @@ begin
Application.CreateForm(AFormClass, WebPanel1.ElementID, FChildForm); Application.CreateForm(AFormClass, WebPanel1.ElementID, FChildForm);
end; end;
procedure TFViewMain.EditUser( Mode, Username, Password, Name, Status, Email, procedure TFViewMain.EditUser(Mode, Username, Password, Name, Status, Email,
Access, Rights, Perspective, QB: string); Access, Rights, Perspective, QB: string);
begin begin
if Assigned(FChildForm) then if Assigned(FChildForm) then
...@@ -171,7 +171,7 @@ begin ...@@ -171,7 +171,7 @@ begin
Password, Name, Status, Email, Access, Rights, Perspective, QB); Password, Name, Status, Email, Access, Rights, Perspective, QB);
end; end;
procedure TFViewMain.ViewOrderEntry( orderInfo: string); procedure TFViewMain.ViewOrderEntry(orderInfo: string);
begin begin
if Assigned(FChildForm) then if Assigned(FChildForm) then
FChildForm.Free; FChildForm.Free;
......
kgOrdersClient/View.OrderEntry.dfm → kgOrdersClient/View.OrderEntryCorrugated.dfm
...@@ -199,8 +199,8 @@ object FOrderEntry: TFOrderEntry ...@@ -199,8 +199,8 @@ object FOrderEntry: TFOrderEntry
Text = '' Text = ''
end end
object dtpMountDue: TWebDateTimePicker object dtpMountDue: TWebDateTimePicker
Left = 26 Left = 24
Top = 596 Top = 592
Width = 170 Width = 170
Height = 22 Height = 22
ElementID = 'dtpmountdue' ElementID = 'dtpmountdue'
...@@ -981,6 +981,18 @@ object FOrderEntry: TFOrderEntry ...@@ -981,6 +981,18 @@ object FOrderEntry: TFOrderEntry
DataField = 'specialInstructions' DataField = 'specialInstructions'
DataSource = WebDataSource1 DataSource = WebDataSource1
end end
object btnConfirm: TWebButton
Left = 752
Top = 558
Width = 96
Height = 25
Caption = 'Confirm'
ChildOrder = 79
ElementID = 'btnconfirm'
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
OnClick = btnConfirmClick
end
object XDataWebClient1: TXDataWebClient object XDataWebClient1: TXDataWebClient
Connection = DMConnection.ApiConnection Connection = DMConnection.ApiConnection
Left = 244 Left = 244
......
kgOrdersClient/View.OrderEntry.html → kgOrdersClient/View.OrderEntryCorrugated.html
...@@ -315,6 +315,11 @@ ...@@ -315,6 +315,11 @@
<input type="text" class="form-control" id="edtspecialinstructions" style="width: 300px;"> <input type="text" class="form-control" id="edtspecialinstructions" style="width: 300px;">
</div> </div>
</div> </div>
<div class="row">
<div class="col-auto">
<button id="btnconfirm" class="btn btn-primary btn-sm float-end">Confirm</button>
</div>
</div>
</div> </div>
<script> <script>
......
kgOrdersClient/View.OrderEntry.pas → kgOrdersClient/View.OrderEntryCorrugated.pas
unit View.OrderEntry; unit View.OrderEntryCorrugated;
interface interface
uses uses
System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls, System.SysUtils, System.Generics.Collections, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
WEBLib.Forms, WEBLib.Dialogs, WEBLib.Menus, WEBLib.ExtCtrls, WEBLib.StdCtrls, WEBLib.Forms, WEBLib.Dialogs, WEBLib.Menus, WEBLib.ExtCtrls, WEBLib.StdCtrls,
WEBLib.JSON, Auth.Service, XData.Web.Client, WebLib.Storage, WEBLib.JSON, Auth.Service, XData.Web.Client, WebLib.Storage,
ConnectionModule, App.Types, Vcl.StdCtrls, Vcl.Controls, WEBLib.DBCtrls, ConnectionModule, App.Types, Vcl.StdCtrls, Vcl.Controls, WEBLib.DBCtrls,
...@@ -163,6 +163,7 @@ type ...@@ -163,6 +163,7 @@ type
XDataWebDataSet1refArtAPDF: TStringField; XDataWebDataSet1refArtAPDF: TStringField;
XDataWebDataSet1poNumber: TStringField; XDataWebDataSet1poNumber: TStringField;
XDataWebDataSet1colors: TStringField; XDataWebDataSet1colors: TStringField;
btnConfirm: TWebButton;
procedure WebFormCreate(Sender: TObject); procedure WebFormCreate(Sender: TObject);
procedure HideNotification(); procedure HideNotification();
procedure ShowNotification(Notification: string); procedure ShowNotification(Notification: string);
...@@ -171,6 +172,7 @@ type ...@@ -171,6 +172,7 @@ type
procedure tmrScrollTopTimer(Sender: TObject); procedure tmrScrollTopTimer(Sender: TObject);
procedure WebButton1Click(Sender: TObject); procedure WebButton1Click(Sender: TObject);
procedure addColorRow(num, Color, LPI, Size: string); procedure addColorRow(num, Color, LPI, Size: string);
procedure btnConfirmClick(Sender: TObject);
private private
FAgencyCode: string; FAgencyCode: string;
FCurrentReportType: string; FCurrentReportType: string;
...@@ -191,6 +193,66 @@ implementation ...@@ -191,6 +193,66 @@ implementation
uses uses
View.Home; View.Home;
procedure TFOrderEntry.btnConfirmClick(Sender: TObject);
var
colorList: TList<TJSONObject>;
container: TJSElement;
colorCollection: TJSHTMLCollection;
color: TJSHTMLElement;
I, J: integer;
colorJSON: TJSONObject;
fieldNames: TStringList;
itemList: TJSNodeList;
header, value: string;
begin
//TJSONObject.Create;
colorList := TList<TJSONObject>.Create;
container := document.getElementById('additionalFields');
colorCollection := container.children;
for I := 0 to colorCollection.length - 1 do
begin
colorJSON := TJSONObject.Create;
itemList := colorCollection[I].childNodes;
//console.log(itemList.length);
for J := 0 to itemList.length - 2 do
begin
header := TJSHTMLElement(itemList[J]).children[0].innerText.Replace(':', '').Trim();
value := TJSHTMLInputElement(TJSHTMLElement(itemList[J]).childNodes[1]).value;
colorJSON.AddPair(header, value);
end;
colorList.Add(colorJson);
end;
for colorJSON in colorList do
begin
console.log(colorJSON.ToString); // Log each JSON object
end;
//XDataWebDataSet1.Insert;
//XDataWebDataSet1colors.AsString := ' ';
//XDataWebDataSet1.Post;
{asm
const container = document.getElementById('additionalFields');
const rows = container.children;
const inputData = [];
for (let i = 0; i < rows.length; i++) {
const inputs = rows[i].getElementsByTagName('input');
const rowData = {};
{for (let j = 0; j < inputs.length; j++) {
const label = inputs[j].previousElementSibling.textContent.replace(':', '').trim();
rowData[label] = inputs[j].value;
}
{inputData.push(rowData);
}
{console.log(inputData);
end;}
end;
class function TFOrderEntry.CreateForm(AElementID, orderInfo: string): TWebForm; class function TFOrderEntry.CreateForm(AElementID, orderInfo: string): TWebForm;
begin begin
Application.CreateForm(TFOrderEntry, AElementID, Result, Application.CreateForm(TFOrderEntry, AElementID, Result,
...@@ -231,7 +293,7 @@ begin ...@@ -231,7 +293,7 @@ begin
const inputElement = document.createElement('input'); const inputElement = document.createElement('input');
inputElement.className = 'form-control input-sm'; inputElement.className = 'form-control input-sm';
inputElement.style.width = '100%'; inputElement.style.width = '100%';
inputElement.id = 'input-' + index; // Set an id for easy reference inputElement.id = 'input-' + container.childElementCount + '-' + index; // Unique ID based on count
inputElement.value = values[index]; // Set the value based on the parameter inputElement.value = values[index]; // Set the value based on the parameter
col.appendChild(labelElement); col.appendChild(labelElement);
...@@ -293,16 +355,12 @@ begin ...@@ -293,16 +355,12 @@ begin
XDataWebDataSet1.Close; XDataWebDataSet1.Close;
XDataWebDataSet1.SetJsonData(order); XDataWebDataSet1.SetJsonData(order);
XDataWebDataSet1.Open; XDataWebDataSet1.Open;
console.log(order);
//console.log(XDataWebDataSet1ftp.Value);
//console.log(XDataWebDataSet1fullMount.Value);
colorObject := TJSObject(TJSJSON.parse(XDataWebDataSet1colors.Value)); colorObject := TJSObject(TJSJSON.parse(XDataWebDataSet1colors.Value));
colorList := TJSArray(colorObject['items']); colorList := TJSArray(colorObject['items']);
colorLength := colorList.length; colorLength := colorList.length;
for i := 0 to colorLength - 1 do for i := 0 to colorLength - 1 do
begin begin
color := TJSObject(colorList[i]); color := TJSObject(colorList[i]);
console.log(color);
addColorRow(String(color['#']), string(color['Color']), string(color['LPI']), string(color['Size'])); addColorRow(String(color['#']), string(color['Color']), string(color['LPI']), string(color['Size']));
end; end;
if not (XDataWebDataSet1orderDate.AsString = '') then if not (XDataWebDataSet1orderDate.AsString = '') then
...@@ -318,7 +376,9 @@ begin ...@@ -318,7 +376,9 @@ begin
if not (XDataWebDataSet1mountDue.AsString = '') then if not (XDataWebDataSet1mountDue.AsString = '') then
dtpMountDue.Date := StrToDateTime(XDataWebDataSet1mountDue.Value); dtpMountDue.Date := StrToDateTime(XDataWebDataSet1mountDue.Value);
if not (XDataWebDataSet1approvedDate.AsString = '') then if not (XDataWebDataSet1approvedDate.AsString = '') then
dtpApprovedDate.Date := StrToDateTime(XDataWebDataSet1approvedDate.Value); dtpApprovedDate.Date := StrToDateTime(XDataWebDataSet1approvedDate.Value)
else
dtpApprovedDate.Date := Now;
end; end;
procedure TFOrderEntry.WebFormShow(Sender: TObject); procedure TFOrderEntry.WebFormShow(Sender: TObject);
......
kgOrdersClient/View.Orders.pas
...@@ -222,7 +222,6 @@ begin ...@@ -222,7 +222,6 @@ begin
NewRow.appendChild(Cell); NewRow.appendChild(Cell);
// Plate Done Cell // Plate Done Cell
console.log('plate done');
Cell := TJSHTMLElement(document.createElement('td')); Cell := TJSHTMLElement(document.createElement('td'));
Cell.setAttribute('data-label', 'Plate Done'); Cell.setAttribute('data-label', 'Plate Done');
if XDataWebDataSet1plateDone.Value = '' then if XDataWebDataSet1plateDone.Value = '' then
...@@ -524,7 +523,6 @@ begin ...@@ -524,7 +523,6 @@ begin
data := TJSArray(orderList['data']); data := TJSArray(orderList['data']);
callListLength := integer(orderList['count']); callListLength := integer(orderList['count']);
ClearTable(); ClearTable();
console.log(orderList['data']);
XDataWebDataSet1.Close; XDataWebDataSet1.Close;
XDataWebDataSet1.SetJsonData(orderList['data']); XDataWebDataSet1.SetJsonData(orderList['data']);
XDataWebDataSet1.Open; XDataWebDataSet1.Open;
......
kgOrdersClient/webKGOrders.dpr
...@@ -17,7 +17,8 @@ uses ...@@ -17,7 +17,8 @@ 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.OrderEntry in 'View.OrderEntry.pas' {FOrderEntry: TWebForm} {*.html}; View.OrderEntryCorrugated in 'View.OrderEntryCorrugated.pas' {FOrderEntry: TWebForm} {*.html},
View.IncidentProperty in 'View.IncidentProperty.pas' {FIncidentProperty: TWebForm} {*.html};
{$R *.res} {$R *.res}
......
kgOrdersClient/webKGOrders.dproj
...@@ -166,11 +166,16 @@ ...@@ -166,11 +166,16 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass> <DesignClass>TWebForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="View.OrderEntry.pas"> <DCCReference Include="View.OrderEntryCorrugated.pas">
<Form>FOrderEntry</Form> <Form>FOrderEntry</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass> <DesignClass>TWebForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="View.IncidentProperty.pas">
<Form>FIncidentProperty</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=137 LogFileNum=139
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