Skip to content

K
KGOrders
Commit fccbb29f by Cam Hayes
Options

Small Tweaks to corrugated and web plate pdfs

parent b85b892c
Showing with 580 additions and 33 deletions
kgOrdersServer/Source/rOrderCorrugated.dfm
object rptOrderCorrugated: TrptOrderCorrugated
OnCreate = DataModuleCreate
Height = 480
Width = 640
object ucKG: TUniConnection
......@@ -6,15 +7,18 @@ object rptOrderCorrugated: TrptOrderCorrugated
Database = 'kg_order_entry'
Username = 'root'
Server = '192.168.159.132'
Connected = True
LoginPrompt = False
Left = 289
Top = 119
EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
end
object frxPDFExport1: TfrxPDFExport
FileName = 'C:\Users\Admin\Downloads\rptOrderWeb.pdf'
UseFileCache = True
ShowProgress = True
OverwritePrompt = False
CreationTime = 45701.493700081020000000
DataOnly = False
EmbedFontsIfProtected = False
InteractiveFormsFontSubset = 'A-Z,a-z,0-9,#43-#47 '
......@@ -48,6 +52,388 @@ object rptOrderCorrugated: TrptOrderCorrugated
DataSetOptions = []
Left = 444
Top = 206
FieldDefs = <
item
FieldName = 'ORDER_ID'
end
item
FieldName = 'COMPANY_ID'
end
item
FieldName = 'USER_ID'
end
item
FieldName = 'ORDER_DATE'
FieldType = fftDateTime
end
item
FieldName = 'START_DATE'
FieldType = fftDateTime
end
item
FieldName = 'END_DATE'
FieldType = fftDateTime
end
item
FieldName = 'ORDER_STATUS'
FieldType = fftString
end
item
FieldName = 'SCHED_JSON'
FieldType = fftString
Size = 4096
end
item
FieldName = 'staff_fields_order_date'
FieldType = fftDateTime
end
item
FieldName = 'staff_fields_proof_date'
FieldType = fftDateTime
end
item
FieldName = 'staff_fields_ship_date'
FieldType = fftDateTime
end
item
FieldName = 'staff_fields_ship_via'
FieldType = fftString
Size = 45
end
item
FieldName = 'staff_fields_price'
FieldType = fftString
end
item
FieldName = 'staff_fields_invoice_to'
FieldType = fftString
Size = 128
end
item
FieldName = 'staff_fields_invoice_attention'
FieldType = fftString
Size = 256
end
item
FieldName = 'staff_fields_ship_to'
FieldType = fftString
Size = 128
end
item
FieldName = 'staff_fields_ship_attention'
FieldType = fftString
Size = 256
end
item
FieldName = 'staff_fields_po_number'
FieldType = fftString
Size = 16
end
item
FieldName = 'staff_fields_job_name'
FieldType = fftString
Size = 45
end
item
FieldName = 'staff_fields_art_due'
FieldType = fftDateTime
end
item
FieldName = 'staff_fields_plate_due'
FieldType = fftDateTime
end
item
FieldName = 'staff_fields_mount_due'
FieldType = fftDateTime
end
item
FieldName = 'plates_job_number'
FieldType = fftString
Size = 16
end
item
FieldName = 'supplied_by_customer_b_w_copy'
FieldType = fftString
end
item
FieldName = 'supplied_by_customer_color_copy'
FieldType = fftString
end
item
FieldName = 'supplied_by_customer_plates'
FieldType = fftString
end
item
FieldName = 'supplied_by_customer_sample_ca'
FieldType = fftString
end
item
FieldName = 'supplied_by_customer_dimension'
FieldType = fftString
Size = 64
end
item
FieldName = 'supplied_by_customer_disk_or_cd'
FieldType = fftString
end
item
FieldName = 'supplied_by_customer_e_mail'
FieldType = fftString
Size = 256
end
item
FieldName = 'supplied_by_customer_ftp'
FieldType = fftString
Size = 256
end
item
FieldName = 'supplied_by_customer_other'
FieldType = fftString
Size = 96
end
item
FieldName = 'supplied_by_customer_existing_'
FieldType = fftString
Size = 16
end
item
FieldName = 'supplied_by_customer_ref_art_p'
FieldType = fftString
Size = 256
end
item
FieldName = 'supplied_by_customer_ref_art_a'
FieldType = fftString
Size = 256
end
item
FieldName = 'cut_die_cutdier'
FieldType = fftString
end
item
FieldName = 'cut_die_cutdieb'
FieldType = fftString
end
item
FieldName = 'cut_die_cutdief'
FieldType = fftString
end
item
FieldName = 'cut_die_cutdierkr'
FieldType = fftString
end
item
FieldName = 'cut_die_cutdiefkr'
FieldType = fftString
end
item
FieldName = 'cut_die_cad_file'
FieldType = fftString
Size = 128
end
item
FieldName = 'cut_die_attached'
FieldType = fftString
end
item
FieldName = 'cut_die_boxpol250'
FieldType = fftString
end
item
FieldName = 'cut_die_boxpol155'
FieldType = fftString
end
item
FieldName = 'cut_die_boxpol125'
FieldType = fftString
end
item
FieldName = 'cut_die_brub'
FieldType = fftString
end
item
FieldName = 'proofing_fax'
FieldType = fftString
Size = 16
end
item
FieldName = 'proofing_fax_attn'
FieldType = fftString
Size = 256
end
item
FieldName = 'proofing_e_mail'
FieldType = fftString
Size = 256
end
item
FieldName = 'proofing_e_mail_attn'
FieldType = fftString
Size = 256
end
item
FieldName = 'proofing_ship_to'
FieldType = fftString
Size = 1024
end
item
FieldName = 'proofing_full_size_panel'
FieldType = fftString
end
item
FieldName = 'proofing_print_card'
FieldType = fftString
end
item
FieldName = 'proofing_wide_format'
FieldType = fftString
end
item
FieldName = 'proofing_pdf_file'
FieldType = fftString
end
item
FieldName = 'proofing_other'
FieldType = fftString
Size = 64
end
item
FieldName = 'proofing_art_approved_as_is'
FieldType = fftString
end
item
FieldName = 'proofing_approved_date'
FieldType = fftDateTime
end
item
FieldName = 'proofing_changes_required'
FieldType = fftString
end
item
FieldName = 'proofing_changes_date'
FieldType = fftDateTime
end
item
FieldName = 'layout_rsc_l'
FieldType = fftString
end
item
FieldName = 'layout_rcs_w'
FieldType = fftString
end
item
FieldName = 'layout_rcs_d'
FieldType = fftString
end
item
FieldName = 'layout_die_cut_no'
FieldType = fftString
Size = 45
end
item
FieldName = 'layout_accross_no'
FieldType = fftString
end
item
FieldName = 'layout_around_no'
FieldType = fftString
end
item
FieldName = 'layout_cad_file'
FieldType = fftString
Size = 45
end
item
FieldName = 'layout_excalibur_die'
FieldType = fftString
end
item
FieldName = 'mounting_loose'
FieldType = fftString
end
item
FieldName = 'mounting_sticky_bak'
FieldType = fftString
end
item
FieldName = 'mounting_full_mount'
FieldType = fftString
end
item
FieldName = 'mounting_strip_mount'
FieldType = fftString
end
item
FieldName = 'colors_cylinder_size'
FieldType = fftString
Size = 45
end
item
FieldName = 'colors_machine_ident'
FieldType = fftString
Size = 45
end
item
FieldName = 'mounting_standard_setup'
FieldType = fftString
Size = 45
end
item
FieldName = 'mounting_custom_backing'
FieldType = fftString
Size = 96
end
item
FieldName = 'mounting_custom_adhesive'
FieldType = fftString
Size = 45
end
item
FieldName = 'colors_cross_hairs'
FieldType = fftString
end
item
FieldName = 'colors_clemson'
FieldType = fftString
end
item
FieldName = 'plates_thickness'
FieldType = fftString
end
item
FieldName = 'plates_plate_material'
FieldType = fftString
Size = 16
end
item
FieldName = 'general_special_instructions'
FieldType = fftString
Size = 2048
end
item
FieldName = 'colors_colors'
FieldType = fftString
Size = 4096
end
item
FieldName = 'staff_fields_quickbooks_item'
FieldType = fftString
Size = 45
end
item
FieldName = 'staff_fields_quantity'
FieldType = fftString
end
item
FieldName = 'layout_rsc_style'
FieldType = fftString
Size = 32
end
item
FieldName = 'staff_fields_art_location'
FieldType = fftString
Size = 16
end>
end
object frxOrderCorrugated: TfrxReport
Version = '2025.1.4'
......@@ -60,7 +446,7 @@ object rptOrderCorrugated: TrptOrderCorrugated
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 45691.397221759300000000
ReportOptions.LastChange = 45699.553529259260000000
ReportOptions.LastChange = 45699.553529259300000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'begin'
......@@ -80,6 +466,11 @@ object rptOrderCorrugated: TrptOrderCorrugated
Width = 1000.000000000000000000
end
object Page1: TfrxReportPage
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Arial'
Font.Style = []
PaperWidth = 215.900000000000000000
PaperHeight = 279.400000000000000000
PaperSize = 1
......@@ -133,15 +524,15 @@ object rptOrderCorrugated: TrptOrderCorrugated
Left = 8.139315190000000000
Top = 30.236240390000000000
object TableColumn1: TfrxTableColumn
Width = 120.566929133858300000
Width = 120.566929133858000000
MaxWidth = 75.590600000000000000
end
object TableColumn2: TfrxTableColumn
Width = 120.566929133858300000
Width = 120.566929133858000000
MaxWidth = 75.590600000000000000
end
object TableColumn3: TfrxTableColumn
Width = 120.566929133858300000
Width = 120.566929133858000000
MaxWidth = 75.590600000000000000
end
object TableColumn4: TfrxTableColumn
......@@ -527,11 +918,11 @@ object rptOrderCorrugated: TrptOrderCorrugated
Left = 8.139315190000000000
Top = 423.307360390000000000
object TableColumn32: TfrxTableColumn
Width = 119.622047244094500000
Width = 119.622047244095000000
MaxWidth = 75.590600000000000000
end
object TableColumn12: TfrxTableColumn
Width = 119.622047244094500000
Width = 119.622047244095000000
MaxWidth = 75.590600000000000000
end
object TableRow45: TfrxTableRow
......@@ -615,7 +1006,7 @@ object rptOrderCorrugated: TrptOrderCorrugated
DataSetName = 'frxDBOrderCorrugated'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
......@@ -1214,15 +1605,15 @@ object rptOrderCorrugated: TrptOrderCorrugated
Left = 8.139315190000000000
Top = 253.228510390000000000
object TableColumn67: TfrxTableColumn
Width = 121.144356955380600000
Width = 121.144356955381000000
MaxWidth = 75.590600000000000000
end
object TableColumn68: TfrxTableColumn
Width = 121.144356955380600000
Width = 121.144356955381000000
MaxWidth = 75.590600000000000000
end
object TableColumn69: TfrxTableColumn
Width = 117.144356955380600000
Width = 117.144356955381000000
MaxWidth = 75.590600000000000000
end
object TableRow103: TfrxTableRow
......@@ -1542,15 +1933,15 @@ object rptOrderCorrugated: TrptOrderCorrugated
Left = 370.974195190000000000
Top = 253.228510390000000000
object TableColumn20: TfrxTableColumn
Width = 121.144356955380600000
Width = 121.144356955381000000
MaxWidth = 75.590600000000000000
end
object TableColumn21: TfrxTableColumn
Width = 121.144356955380600000
Width = 121.144356955381000000
MaxWidth = 75.590600000000000000
end
object TableColumn22: TfrxTableColumn
Width = 117.144356955380600000
Width = 117.144356955381000000
MaxWidth = 75.590600000000000000
end
object TableRow23: TfrxTableRow
......@@ -1739,9 +2130,15 @@ object rptOrderCorrugated: TrptOrderCorrugated
DataField = 'layout_die_cut_no'
DataSet = frxDBOrderCorrugated
DataSetName = 'frxDBOrderCorrugated'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrderCorrugated."layout_die_cut_no"]')
ParentFont = False
end
object TableCell185: TfrxTableCell
AllowVectorExport = True
......@@ -1789,7 +2186,7 @@ object rptOrderCorrugated: TrptOrderCorrugated
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Fill.BackColor = cl3DLight
Memo.UTF8W = (
'CAD Number')
'CAD File')
ParentFont = False
end
object TableCell188: TfrxTableCell
......@@ -1835,9 +2232,15 @@ object rptOrderCorrugated: TrptOrderCorrugated
DataField = 'layout_cad_file'
DataSet = frxDBOrderCorrugated
DataSetName = 'frxDBOrderCorrugated'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrderCorrugated."layout_cad_file"]')
ParentFont = False
end
object TableCell281: TfrxTableCell
AllowVectorExport = True
......@@ -1859,9 +2262,15 @@ object rptOrderCorrugated: TrptOrderCorrugated
DataField = 'layout_rsc_style'
DataSet = frxDBOrderCorrugated
DataSetName = 'frxDBOrderCorrugated'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrderCorrugated."layout_rsc_style"]')
ParentFont = False
end
end
end
......@@ -2373,19 +2782,19 @@ object rptOrderCorrugated: TrptOrderCorrugated
Left = 491.919155190000000000
Top = 423.307360390000000000
object TableColumn25: TfrxTableColumn
Width = 48.755905511811020000
Width = 48.755905511811000000
MaxWidth = 75.590600000000000000
end
object TableColumn26: TfrxTableColumn
Width = 92.976377952755910000
Width = 92.976377952755900000
MaxWidth = 75.590600000000000000
end
object TableColumn27: TfrxTableColumn
Width = 48.803161811023740000
Width = 48.803161811023700000
MaxWidth = 75.590600000000000000
end
object TableColumn28: TfrxTableColumn
Width = 48.803161811023740000
Width = 48.803161811023700000
MaxWidth = 75.590600000000000000
end
object ColorsHeader: TfrxTableRow
......@@ -2601,8 +3010,6 @@ object rptOrderCorrugated: TrptOrderCorrugated
Font.Name = 'Arial'
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'')
ParentFont = False
end
object TableCell203: TfrxTableCell
......@@ -2892,7 +3299,8 @@ object rptOrderCorrugated: TrptOrderCorrugated
object uqOrderCorrugated: TUniQuery
Connection = ucKG
SQL.Strings = (
'select * from corrugated_plate_orders where ORDER_ID = 18381')
'select * from corrugated_plate_orders where ORDER_ID = 15742')
Active = True
Left = 457
Top = 106
object uqOrderCorrugatedORDER_ID: TIntegerField
......
kgOrdersServer/Source/rOrderCorrugated.pas
......@@ -101,6 +101,7 @@ type
uqOrderCorrugatedstaff_fields_quantity: TStringField;
uqOrderCorrugatedlayout_rsc_style: TStringField;
uqOrderCorrugatedstaff_fields_art_location: TStringField;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
......
kgOrdersServer/Source/rOrderWeb.dfm
object rptOrderWeb: TrptOrderWeb
OnCreate = DataModuleCreate
Height = 480
Width = 640
object ucKG: TUniConnection
......@@ -430,6 +431,44 @@ object rptOrderWeb: TrptOrderWeb
FieldName = 'staff_fields_art_location'
FieldType = fftString
Size = 16
end
item
FieldName = 'qb_sales_orders_id'
end
item
FieldName = 'ORDER_ID_1'
end
item
FieldName = 'ORDER_REVISION_ID'
end
item
FieldName = 'QB_TXN_NUM'
FieldType = fftString
Size = 24
end
item
FieldName = 'QB_EDIT_SEQ'
FieldType = fftString
Size = 24
end
item
FieldName = 'ORDER_TYPE'
FieldType = fftString
Size = 30
end
item
FieldName = 'CREATE_TIME'
FieldType = fftDateTime
end
item
FieldName = 'QB_TXN_ID'
FieldType = fftString
Size = 24
end
item
FieldName = 'QB_REF_NUM'
FieldType = fftString
Size = 24
end>
end
object frxOrderWeb: TfrxReport
......@@ -443,7 +482,7 @@ object rptOrderWeb: TrptOrderWeb
PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 45691.397221759300000000
ReportOptions.LastChange = 45700.436537199100000000
ReportOptions.LastChange = 45701.517441134300000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
'begin'
......@@ -485,7 +524,6 @@ object rptOrderWeb: TrptOrderWeb
Font.Name = 'Arial'
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftTop, ftBottom]
HAlign = haCenter
Memo.UTF8W = (
'Order Type: Web Plate')
ParentFont = False
......@@ -495,7 +533,7 @@ object rptOrderWeb: TrptOrderWeb
AllowVectorExport = True
Left = 204.094619750000000000
Top = 0.000000050000000000
Width = 536.693245470000000000
Width = 287.244265470000000000
Height = 22.677179290000000000
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
......@@ -507,9 +545,14 @@ object rptOrderWeb: TrptOrderWeb
Frame.Typ = [ftRight, ftTop, ftBottom]
HAlign = haRight
Memo.UTF8W = (
'Order ID: [frxDBOrderWeb."ORDER_ID"] ')
'ID.[frxDBOrderWeb."ORDER_ID"] QBRef.[frxDBOrderWeb."QB_REF_NUM"]')
ParentFont = False
VAlign = vaCenter
Formats = <
item
end
item
end>
end
object tblOrderDate: TfrxTableObject
AllowVectorExport = True
......@@ -1167,9 +1210,9 @@ object rptOrderWeb: TrptOrderWeb
DataSetName = 'frxDBOrderWeb'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Height = -8
Font.Name = 'Arial'
Font.Style = []
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrderWeb."proofing_ink_jet_to"]')
......@@ -1295,9 +1338,15 @@ object rptOrderWeb: TrptOrderWeb
DataField = 'proofing_color_contrac_to'
DataSet = frxDBOrderWeb
DataSetName = 'frxDBOrderWeb'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrderWeb."proofing_color_contrac_to"]')
ParentFont = False
end
end
end
......@@ -1768,7 +1817,7 @@ object rptOrderWeb: TrptOrderWeb
DataSetName = 'frxDBOrderWeb'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
......@@ -2320,9 +2369,15 @@ object rptOrderWeb: TrptOrderWeb
DataField = 'plate_marks_other_comments'
DataSet = frxDBOrderWeb
DataSetName = 'frxDBOrderWeb'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = (
'[frxDBOrderWeb."plate_marks_other_comments"]')
ParentFont = False
ColSpan = 2
end
object TableCell178: TfrxTableCell
......@@ -3681,12 +3736,30 @@ object rptOrderWeb: TrptOrderWeb
end
end
end
object Memo4: TfrxMemoView
AllowVectorExport = True
Left = 491.338900000000000000
Width = 249.448979780000000000
Height = 22.677179770000000000
ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftTop, ftBottom]
ParentFont = False
VAlign = vaCenter
end
end
end
object uqOrderWeb: TUniQuery
Connection = ucKG
SQL.Strings = (
'select * from web_plate_orders where ORDER_ID = 18685')
'SELECT * FROM web_plate_orders w JOIN qb_sales_orders q ON w.ORD' +
'ER_ID = q.ORDER_ID WHERE w.ORDER_ID = 5512')
Active = True
Left = 457
Top = 106
......@@ -4013,5 +4086,54 @@ object rptOrderWeb: TrptOrderWeb
FieldName = 'staff_fields_art_location'
Size = 16
end
object uqOrderWebqb_sales_orders_id: TLongWordField
AutoGenerateValue = arAutoInc
FieldName = 'qb_sales_orders_id'
ReadOnly = True
end
object uqOrderWebORDER_ID_1: TLongWordField
FieldName = 'ORDER_ID_1'
ReadOnly = True
Required = True
end
object uqOrderWebORDER_REVISION_ID: TLongWordField
FieldName = 'ORDER_REVISION_ID'
ReadOnly = True
Required = True
end
object uqOrderWebQB_TXN_NUM: TStringField
FieldName = 'QB_TXN_NUM'
ReadOnly = True
Required = True
Size = 24
end
object uqOrderWebQB_EDIT_SEQ: TStringField
FieldName = 'QB_EDIT_SEQ'
ReadOnly = True
Required = True
Size = 24
end
object uqOrderWebORDER_TYPE: TStringField
FieldName = 'ORDER_TYPE'
ReadOnly = True
Required = True
Size = 30
end
object uqOrderWebCREATE_TIME: TDateTimeField
FieldName = 'CREATE_TIME'
ReadOnly = True
end
object uqOrderWebQB_TXN_ID: TStringField
FieldName = 'QB_TXN_ID'
ReadOnly = True
Required = True
Size = 24
end
object uqOrderWebQB_REF_NUM: TStringField
FieldName = 'QB_REF_NUM'
ReadOnly = True
Required = True
Size = 24
end
end
end
kgOrdersServer/Source/rOrderWeb.pas
......@@ -99,6 +99,16 @@ type
uqOrderWebupc_distortion_percent: TStringField;
uqOrderWebupc_distortion_amount: TStringField;
uqOrderWebstaff_fields_art_location: TStringField;
uqOrderWebqb_sales_orders_id: TLongWordField;
uqOrderWebORDER_ID_1: TLongWordField;
uqOrderWebORDER_REVISION_ID: TLongWordField;
uqOrderWebQB_TXN_NUM: TStringField;
uqOrderWebQB_EDIT_SEQ: TStringField;
uqOrderWebORDER_TYPE: TStringField;
uqOrderWebCREATE_TIME: TDateTimeField;
uqOrderWebQB_TXN_ID: TStringField;
uqOrderWebQB_REF_NUM: TStringField;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
......
kgOrdersServer/Source/rptOrderWeb.fr3
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="2025.1.4" DataSet="frxDBOrderWeb" DataSetName="frxDBOrderWeb" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="167935" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="45691.3972217593" ReportOptions.Description.Text="" ReportOptions.LastChange="45701.4199073148" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end.">
<TfrxReport Version="2025.1.4" DataSet="frxDBOrderWeb" DataSetName="frxDBOrderWeb" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="167935" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="45691.3972217593" ReportOptions.Description.Text="" ReportOptions.LastChange="45701.5174411343" ScriptLanguage="PascalScript" ScriptText.Text="begin&#13;&#10;&#13;&#10;end.">
<Datasets>
<item DataSet="frxDBOrderWeb" DataSetName="frxDBOrderWeb"/>
</Datasets>
<TfrxDataPage Name="Data" HGuides.Text="" VGuides.Text="" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" HGuides.Text="" VGuides.Text="" PaperWidth="215.9" PaperHeight="279.4" PaperSize="1" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" Frame.Typ="15" Frame.Width="3" MirrorMode="0">
<TfrxMemoView Name="Memo1" AllowVectorExport="True" Left="0" Top="0" Width="204.09461978" Height="22.67717977" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="13" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Order Type: Web Plate"/>
<TfrxMemoView Name="Memo2" AllowVectorExport="True" Left="204.09461975" Top="5E-8" Width="536.69324547" Height="22.67717929" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="14" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Order ID: [frxDBOrderWeb.&#34;ORDER_ID&#34;] "/>
<TfrxMemoView Name="Memo1" AllowVectorExport="True" Left="0" Top="0" Width="204.09461978" Height="22.67717977" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="13" ParentFont="False" VAlign="vaCenter" Text="Order Type: Web Plate"/>
<TfrxMemoView Name="Memo2" AllowVectorExport="True" Left="204.09461975" Top="5E-8" Width="287.24426547" Height="22.67717929" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="14" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="ID.[frxDBOrderWeb.&#34;ORDER_ID&#34;] QBRef.[frxDBOrderWeb.&#34;QB_REF_NUM&#34;]">
<Formats>
<item/>
<item/>
</Formats>
</TfrxMemoView>
<TfrxTableObject Name="tblOrderDate" AllowVectorExport="True" Left="8.13931519" Top="30.23624039">
<TfrxTableColumn Name="TableColumn1" Width="120.566929133858" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn2" Width="120.566929133858" MinWidth="0" MaxWidth="75.5906"/>
......@@ -87,7 +92,7 @@
</TfrxTableRow>
<TfrxTableRow Name="p5" MinHeight="0" MaxHeight="0" Height="18.89765">
<TfrxTableCell Name="TableCell218" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="proofing_full_size_ink_jet_for" DataSet="frxDBOrderWeb" DataSetName="frxDBOrderWeb" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBOrderWeb.&#34;proofing_full_size_ink_jet_for&#34;]"/>
<TfrxTableCell Name="TableCell219" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="proofing_ink_jet_to" DataSet="frxDBOrderWeb" DataSetName="frxDBOrderWeb" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBOrderWeb.&#34;proofing_ink_jet_to&#34;]"/>
<TfrxTableCell Name="TableCell219" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="proofing_ink_jet_to" DataSet="frxDBOrderWeb" DataSetName="frxDBOrderWeb" Font.Charset="1" Font.Color="0" Font.Height="-8" Font.Name="Arial" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBOrderWeb.&#34;proofing_ink_jet_to&#34;]"/>
</TfrxTableRow>
<TfrxTableRow Name="p6" MinHeight="0" MaxHeight="0" Height="18.89765">
<TfrxTableCell Name="TableCell122" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="1" Frame.Typ="15" Fill.BackColor="-16777194" ParentFont="False" Text="Ink Jet Date 1"/>
......@@ -443,5 +448,6 @@
<TfrxTableCell Name="TableCell312" AllowVectorExport="True" Restrictions="8" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" DataField="upc_distortion_amount" DataSet="frxDBOrderWeb" DataSetName="frxDBOrderWeb" Frame.Typ="15" Text="[frxDBOrderWeb.&#34;upc_distortion_amount&#34;]"/>
</TfrxTableRow>
</TfrxTableObject>
<TfrxMemoView Name="Memo4" AllowVectorExport="True" Left="491.3389" Top="0" Width="249.44897978" Height="22.67717977" ContentScaleOptions.Constraints.MaxIterationValue="0" ContentScaleOptions.Constraints.MinIterationValue="0" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="13" ParentFont="False" VAlign="vaCenter" Text=""/>
</TfrxReportPage>
</TfrxReport>
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