Skip to content

K
KGOrders
Commit fccbb29f by Cam Hayes
Options

Small Tweaks to corrugated and web plate pdfs

parent b85b892c
Showing with 151 additions and 12 deletions
kgOrdersServer/Source/rOrderCorrugated.pas
...@@ -101,6 +101,7 @@ type ...@@ -101,6 +101,7 @@ type
uqOrderCorrugatedstaff_fields_quantity: TStringField; uqOrderCorrugatedstaff_fields_quantity: TStringField;
uqOrderCorrugatedlayout_rsc_style: TStringField; uqOrderCorrugatedlayout_rsc_style: TStringField;
uqOrderCorrugatedstaff_fields_art_location: TStringField; uqOrderCorrugatedstaff_fields_art_location: TStringField;
procedure DataModuleCreate(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
......
kgOrdersServer/Source/rOrderWeb.dfm
object rptOrderWeb: TrptOrderWeb object rptOrderWeb: TrptOrderWeb
OnCreate = DataModuleCreate
Height = 480 Height = 480
Width = 640 Width = 640
object ucKG: TUniConnection object ucKG: TUniConnection
...@@ -430,6 +431,44 @@ object rptOrderWeb: TrptOrderWeb ...@@ -430,6 +431,44 @@ object rptOrderWeb: TrptOrderWeb
FieldName = 'staff_fields_art_location' FieldName = 'staff_fields_art_location'
FieldType = fftString FieldType = fftString
Size = 16 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>
end end
object frxOrderWeb: TfrxReport object frxOrderWeb: TfrxReport
...@@ -443,7 +482,7 @@ object rptOrderWeb: TrptOrderWeb ...@@ -443,7 +482,7 @@ object rptOrderWeb: TrptOrderWeb
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 45691.397221759300000000 ReportOptions.CreateDate = 45691.397221759300000000
ReportOptions.LastChange = 45700.436537199100000000 ReportOptions.LastChange = 45701.517441134300000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'begin' 'begin'
...@@ -485,7 +524,6 @@ object rptOrderWeb: TrptOrderWeb ...@@ -485,7 +524,6 @@ object rptOrderWeb: TrptOrderWeb
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [fsBold] Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftTop, ftBottom] Frame.Typ = [ftLeft, ftTop, ftBottom]
HAlign = haCenter
Memo.UTF8W = ( Memo.UTF8W = (
'Order Type: Web Plate') 'Order Type: Web Plate')
ParentFont = False ParentFont = False
...@@ -495,7 +533,7 @@ object rptOrderWeb: TrptOrderWeb ...@@ -495,7 +533,7 @@ object rptOrderWeb: TrptOrderWeb
AllowVectorExport = True AllowVectorExport = True
Left = 204.094619750000000000 Left = 204.094619750000000000
Top = 0.000000050000000000 Top = 0.000000050000000000
Width = 536.693245470000000000 Width = 287.244265470000000000
Height = 22.677179290000000000 Height = 22.677179290000000000
ContentScaleOptions.Constraints.MaxIterationValue = 0 ContentScaleOptions.Constraints.MaxIterationValue = 0
ContentScaleOptions.Constraints.MinIterationValue = 0 ContentScaleOptions.Constraints.MinIterationValue = 0
...@@ -507,9 +545,14 @@ object rptOrderWeb: TrptOrderWeb ...@@ -507,9 +545,14 @@ object rptOrderWeb: TrptOrderWeb
Frame.Typ = [ftRight, ftTop, ftBottom] Frame.Typ = [ftRight, ftTop, ftBottom]
HAlign = haRight HAlign = haRight
Memo.UTF8W = ( Memo.UTF8W = (
'Order ID: [frxDBOrderWeb."ORDER_ID"] ') 'ID.[frxDBOrderWeb."ORDER_ID"] QBRef.[frxDBOrderWeb."QB_REF_NUM"]')
ParentFont = False ParentFont = False
VAlign = vaCenter VAlign = vaCenter
Formats = <
item
end
item
end>
end end
object tblOrderDate: TfrxTableObject object tblOrderDate: TfrxTableObject
AllowVectorExport = True AllowVectorExport = True
...@@ -1167,9 +1210,9 @@ object rptOrderWeb: TrptOrderWeb ...@@ -1167,9 +1210,9 @@ object rptOrderWeb: TrptOrderWeb
DataSetName = 'frxDBOrderWeb' DataSetName = 'frxDBOrderWeb'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -13 Font.Height = -8
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = ( Memo.UTF8W = (
'[frxDBOrderWeb."proofing_ink_jet_to"]') '[frxDBOrderWeb."proofing_ink_jet_to"]')
...@@ -1295,9 +1338,15 @@ object rptOrderWeb: TrptOrderWeb ...@@ -1295,9 +1338,15 @@ object rptOrderWeb: TrptOrderWeb
DataField = 'proofing_color_contrac_to' DataField = 'proofing_color_contrac_to'
DataSet = frxDBOrderWeb DataSet = frxDBOrderWeb
DataSetName = 'frxDBOrderWeb' DataSetName = 'frxDBOrderWeb'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = ( Memo.UTF8W = (
'[frxDBOrderWeb."proofing_color_contrac_to"]') '[frxDBOrderWeb."proofing_color_contrac_to"]')
ParentFont = False
end end
end end
end end
...@@ -1768,7 +1817,7 @@ object rptOrderWeb: TrptOrderWeb ...@@ -1768,7 +1817,7 @@ object rptOrderWeb: TrptOrderWeb
DataSetName = 'frxDBOrderWeb' DataSetName = 'frxDBOrderWeb'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -13 Font.Height = -11
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
...@@ -2320,9 +2369,15 @@ object rptOrderWeb: TrptOrderWeb ...@@ -2320,9 +2369,15 @@ object rptOrderWeb: TrptOrderWeb
DataField = 'plate_marks_other_comments' DataField = 'plate_marks_other_comments'
DataSet = frxDBOrderWeb DataSet = frxDBOrderWeb
DataSetName = 'frxDBOrderWeb' DataSetName = 'frxDBOrderWeb'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Arial'
Font.Style = []
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
Memo.UTF8W = ( Memo.UTF8W = (
'[frxDBOrderWeb."plate_marks_other_comments"]') '[frxDBOrderWeb."plate_marks_other_comments"]')
ParentFont = False
ColSpan = 2 ColSpan = 2
end end
object TableCell178: TfrxTableCell object TableCell178: TfrxTableCell
...@@ -3681,12 +3736,30 @@ object rptOrderWeb: TrptOrderWeb ...@@ -3681,12 +3736,30 @@ object rptOrderWeb: TrptOrderWeb
end end
end 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
end end
object uqOrderWeb: TUniQuery object uqOrderWeb: TUniQuery
Connection = ucKG Connection = ucKG
SQL.Strings = ( 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 Active = True
Left = 457 Left = 457
Top = 106 Top = 106
...@@ -4013,5 +4086,54 @@ object rptOrderWeb: TrptOrderWeb ...@@ -4013,5 +4086,54 @@ object rptOrderWeb: TrptOrderWeb
FieldName = 'staff_fields_art_location' FieldName = 'staff_fields_art_location'
Size = 16 Size = 16
end 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
end end
kgOrdersServer/Source/rOrderWeb.pas
...@@ -99,6 +99,16 @@ type ...@@ -99,6 +99,16 @@ type
uqOrderWebupc_distortion_percent: TStringField; uqOrderWebupc_distortion_percent: TStringField;
uqOrderWebupc_distortion_amount: TStringField; uqOrderWebupc_distortion_amount: TStringField;
uqOrderWebstaff_fields_art_location: 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
{ Private declarations } { Private declarations }
public public
......
kgOrdersServer/Source/rptOrderWeb.fr3
<?xml version="1.0" encoding="utf-8" standalone="no"?> <?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> <Datasets>
<item DataSet="frxDBOrderWeb" DataSetName="frxDBOrderWeb"/> <item DataSet="frxDBOrderWeb" DataSetName="frxDBOrderWeb"/>
</Datasets> </Datasets>
<TfrxDataPage Name="Data" HGuides.Text="" VGuides.Text="" Height="1000" Left="0" Top="0" Width="1000"/> <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"> <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="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="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="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"> <TfrxTableObject Name="tblOrderDate" AllowVectorExport="True" Left="8.13931519" Top="30.23624039">
<TfrxTableColumn Name="TableColumn1" Width="120.566929133858" MinWidth="0" MaxWidth="75.5906"/> <TfrxTableColumn Name="TableColumn1" Width="120.566929133858" MinWidth="0" MaxWidth="75.5906"/>
<TfrxTableColumn Name="TableColumn2" Width="120.566929133858" MinWidth="0" MaxWidth="75.5906"/> <TfrxTableColumn Name="TableColumn2" Width="120.566929133858" MinWidth="0" MaxWidth="75.5906"/>
...@@ -87,7 +92,7 @@ ...@@ -87,7 +92,7 @@
</TfrxTableRow> </TfrxTableRow>
<TfrxTableRow Name="p5" MinHeight="0" MaxHeight="0" Height="18.89765"> <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="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>
<TfrxTableRow Name="p6" MinHeight="0" MaxHeight="0" Height="18.89765"> <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"/> <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 @@ ...@@ -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;]"/> <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> </TfrxTableRow>
</TfrxTableObject> </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> </TfrxReportPage>
</TfrxReport> </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