Skip to content

K
KGOrders
Commit 227def3a by Mac Stephens
Options

Removed hardcoded uniconnection data, ini is updated, cleaned up some html

parent c99cd8f1
Showing with 258 additions and 699 deletions
kgOrdersClient/View.Main.dfm
object FViewMain: TFViewMain object FViewMain: TFViewMain
Width = 640
Height = 586
CSSLibrary = cssBootstrap CSSLibrary = cssBootstrap
Color = clWhite
ElementFont = efCSS ElementFont = efCSS
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
FormStyle = fsNormal
Height = 586
Left = 0
OnCreate = WebFormCreate OnCreate = WebFormCreate
TabOrder = 0
Top = 0
Width = 640
object lblUsername: TWebLabel object lblUsername: TWebLabel
Left = 529
Top = 4
Width = 66
Height = 15
Caption = 'lblUsername' Caption = 'lblUsername'
ElementID = 'view.main.username' ElementID = 'view.main.username'
HeightPercent = 100.000000000000000000 ElementPosition = epRelative
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 21
Left = 529
Top = 4
Transparent = False Transparent = False
WidthPercent = 100.000000000000000000 Width = 88
end end
object wllblUserProfile: TWebLinkLabel object wllblUserProfile: TWebLinkLabel
Left = 529 Caption = ' User Profile'
Top = 21
Width = 63
Height = 15
ElementID = 'dropdown.menu.userprofile' ElementID = 'dropdown.menu.userprofile'
HeightPercent = 100.000000000000000000 ElementPosition = epRelative
WidthPercent = 100.000000000000000000 Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 0
Left = 529
OnClick = wllblUserProfileClick OnClick = wllblUserProfileClick
Caption = ' User Profile' Top = 21
Width = 0
end end
object wllblLogout: TWebLinkLabel object wllblLogout: TWebLinkLabel
Left = 551 Caption = ' Logout'
Top = 143
Width = 41
Height = 15
ElementID = 'dropdown.menu.logout' ElementID = 'dropdown.menu.logout'
HeightPercent = 100.000000000000000000 ElementPosition = epRelative
WidthPercent = 100.000000000000000000 Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 0
Left = 551
OnClick = wllblLogoutClick OnClick = wllblLogoutClick
Caption = ' Logout' Top = 143
Width = 0
end end
object lblHome: TWebLinkLabel object lblHome: TWebLinkLabel
Left = 556 Caption = 'Home'
Top = 38
Width = 33
Height = 15
ElementID = 'dropdown.menu.home' ElementID = 'dropdown.menu.home'
HeightPercent = 100.000000000000000000 ElementPosition = epRelative
WidthPercent = 100.000000000000000000 Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 0
Left = 556
OnClick = lblHomeClick OnClick = lblHomeClick
Caption = 'Home' Top = 38
Width = 0
end end
object lblAppTitle: TWebLabel object lblAppTitle: TWebLabel
Left = 57
Top = 31
Width = 82
Height = 15
Caption = 'Koehler-Gibson' Caption = 'Koehler-Gibson'
ElementID = 'view.main.apptitle' ElementID = 'view.main.apptitle'
HeightPercent = 100.000000000000000000 ElementPosition = epRelative
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 40
Left = 57
Top = 31
Transparent = False Transparent = False
WidthPercent = 100.000000000000000000 Width = 78
end end
object lblItemsList: TWebLinkLabel object lblItemsList: TWebLinkLabel
Left = 560 Caption = 'Items'
Top = 85
Width = 29
Height = 15
ElementID = 'dropdown.menu.itemlist'
ElementFont = efCSS ElementFont = efCSS
HeightPercent = 100.000000000000000000 ElementID = 'dropdown.menu.itemlist'
WidthPercent = 100.000000000000000000 ElementPosition = epRelative
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 32
Left = 560
OnClick = lblItemsListClick OnClick = lblItemsListClick
Caption = 'Items' Top = 85
Width = 71
end end
object lblUsers: TWebLinkLabel object lblUsers: TWebLinkLabel
Left = 561 Caption = 'Users'
Top = 108
Width = 28
Height = 15
ElementID = 'dropdown.menu.users'
ElementFont = efCSS ElementFont = efCSS
HeightPercent = 100.000000000000000000 ElementID = 'dropdown.menu.users'
WidthPercent = 100.000000000000000000 ElementPosition = epRelative
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 0
Left = 561
OnClick = lblUsersClick OnClick = lblUsersClick
Caption = 'Users' Top = 108
Width = 0
end end
object lblorders: TWebLabel object lblorders: TWebLabel
Left = 556
Top = 52
Width = 35
Height = 15
Caption = 'Orders' Caption = 'Orders'
ElementID = 'lblorders'
ElementFont = efCSS ElementFont = efCSS
ElementID = 'lblorders'
ElementPosition = epRelative
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 8
HeightStyle = ssAuto HeightStyle = ssAuto
HeightPercent = 100.000000000000000000 Left = 556
WidthPercent = 100.000000000000000000
OnClick = lblordersClick OnClick = lblordersClick
Top = 52
Width = 32
end end
object lblCustomers: TWebLabel object lblCustomers: TWebLabel
Left = 540
Top = 69
Width = 57
Height = 15
Caption = 'Customers' Caption = 'Customers'
ElementID = 'lblcustomers'
ElementFont = efCSS ElementFont = efCSS
ElementID = 'lblcustomers'
ElementPosition = epRelative
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 8
HeightStyle = ssAuto HeightStyle = ssAuto
HeightPercent = 100.000000000000000000 Left = 540
WidthPercent = 100.000000000000000000
OnClick = lblCustomersClick OnClick = lblCustomersClick
Top = 69
Width = 32
end end
object lblQuickbooks: TWebLabel object lblQuickbooks: TWebLabel
Left = 546
Top = 125
Width = 63
Height = 15
Caption = 'QuickBooks' Caption = 'QuickBooks'
ElementID = 'lblquickbooks'
ElementFont = efCSS ElementFont = efCSS
ElementID = 'lblquickbooks'
ElementPosition = epRelative
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 8
HeightStyle = ssAuto HeightStyle = ssAuto
HeightPercent = 100.000000000000000000 Left = 546
WidthPercent = 100.000000000000000000
OnClick = lblQuickbooksClick OnClick = lblQuickbooksClick
Top = 125
Width = 32
end end
object WebPanel1: TWebPanel object WebPanel1: TWebPanel
Left = 77
Top = 112
Width = 471
Height = 369
ElementID = 'main.webpanel'
HeightStyle = ssAuto
WidthStyle = ssAuto
ChildOrder = 3 ChildOrder = 3
Color = clBtnFace
ElementFont = efCSS ElementFont = efCSS
ElementID = 'main.webpanel'
ElementPosition = epIgnore ElementPosition = epIgnore
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 32
HeightStyle = ssAuto
Left = 77
Role = 'null'
TabOrder = 0 TabOrder = 0
end TabStop = False
object WebMessageDlg1: TWebMessageDlg Top = 112
Left = 47 Width = 640
Top = 232 WidthStyle = ssAuto
Width = 24
Height = 24
Buttons = []
CustomButtons = <>
Opacity = 0.200000000000000000
end end
object WebMemo1: TWebMemo object WebMemo1: TWebMemo
Left = 77 AutoSize = False
Top = 479 Color = clWindow
Width = 471
Height = 83
ElementID = 'main.debugmemo' ElementID = 'main.debugmemo'
HeightPercent = 100.000000000000000000 ElementPosition = epRelative
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Size = 8
Font.Style = []
Height = 83
Left = 77
Lines.Strings = ( Lines.Strings = (
'WebMemo1') 'WebMemo1')
ReadOnly = False
Role = 'null'
SelLength = 0 SelLength = 0
SelStart = 0 SelStart = 8
ShowFocus = True
TabOrder = 0
Top = 479
Visible = False Visible = False
WidthPercent = 100.000000000000000000 Width = 471
end
object WebMessageDlg1: TWebMessageDlg
CustomButtons = <>
DialogText.Strings = (
'Warning'
'Error'
'Information'
'Confirm'
'Custom'
'OK'
'Cancel'
'Yes'
'No'
'Abort'
'Retry'
'Ignore'
'All'
'Yes to all'
'No to all'
'Help'
'Close')
Height = 24
Left = 47
Opacity = 0.200000000000000000
Top = 232
Width = 24
Left = 47
Top = 232
end end
object XDataWebClient: TXDataWebClient object XDataWebClient: TXDataWebClient
Connection = DMConnection.ApiConnection Connection = DMConnection.ApiConnection
......
kgOrdersClient/View.Main.pas
...@@ -176,7 +176,7 @@ begin ...@@ -176,7 +176,7 @@ begin
lblAppTitle.Caption := 'Koehler-Gibson User Profile'; lblAppTitle.Caption := 'Koehler-Gibson User Profile';
end; end;
//needs to be changed
function TFViewMain.GetUserInfo: string; function TFViewMain.GetUserInfo: string;
var var
userStr: string; userStr: string;
......
kgOrdersClient/View.OrderEntryCorrugated.pas
...@@ -365,7 +365,7 @@ begin ...@@ -365,7 +365,7 @@ begin
if mode = 'EDIT' then if mode = 'EDIT' then
orderJSON.AddPair('ORDER_ID', orderID); orderJSON.AddPair('ORDER_ID', orderID);
AddCorrugatedOrder(orderJSON); AddCorrugatedOrder(orderJSON);
FViewMain.ViewOrders('Success:Order Successfully Added'); FViewMain.ViewOrders('Order added successfully!');
end; end;
procedure TFOrderEntryCorrugated.btnPDFClick(Sender: TObject); procedure TFOrderEntryCorrugated.btnPDFClick(Sender: TObject);
......
kgOrdersClient/View.UserProfile.pas
...@@ -6,7 +6,7 @@ uses ...@@ -6,7 +6,7 @@ uses
System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls, System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls,
XData.Web.Client, WEBLib.ExtCtrls, DB, XData.Web.JsonDataset, XData.Web.Client, WEBLib.ExtCtrls, DB, XData.Web.JsonDataset,
XData.Web.Dataset, XData.Web.Connection, Vcl.Forms; XData.Web.Dataset, XData.Web.Connection, Vcl.Forms, ConnectionModule;
type type
TFViewUserProfile = class(TWebForm) TFViewUserProfile = class(TWebForm)
...@@ -47,8 +47,7 @@ implementation ...@@ -47,8 +47,7 @@ implementation
uses uses
Auth.Service, Auth.Service,
XData.Model.Classes, XData.Model.Classes;
ConnectionModule;
{$R *.dfm} {$R *.dfm}
......
kgOrdersServer/Source/Api.Database.dfm
...@@ -4,12 +4,9 @@ object ApiDatabase: TApiDatabase ...@@ -4,12 +4,9 @@ object ApiDatabase: TApiDatabase
Width = 519 Width = 519
object ucKG: TUniConnection object ucKG: TUniConnection
ProviderName = 'MySQL' ProviderName = 'MySQL'
Database = 'kg_order_entry'
Username = 'root'
LoginPrompt = False LoginPrompt = False
Left = 75 Left = 75
Top = 65 Top = 65
EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
end end
object UniQuery1: TUniQuery object UniQuery1: TUniQuery
Connection = ucKG Connection = ucKG
......
kgOrdersServer/Source/Auth.Database.dfm
...@@ -18,12 +18,9 @@ object AuthDatabase: TAuthDatabase ...@@ -18,12 +18,9 @@ object AuthDatabase: TAuthDatabase
end end
object ucKG: TUniConnection object ucKG: TUniConnection
ProviderName = 'MySQL' ProviderName = 'MySQL'
Database = 'kg_order_entry'
Username = 'root'
LoginPrompt = False LoginPrompt = False
Left = 67 Left = 67
Top = 131 Top = 131
EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
end end
object MySQLUniProvider1: TMySQLUniProvider object MySQLUniProvider1: TMySQLUniProvider
Left = 230 Left = 230
......
kgOrdersServer/Source/rOrderCorrugated.dfm
object rptOrderCorrugated: TrptOrderCorrugated object rptOrderCorrugated: TrptOrderCorrugated
OnCreate = DataModuleCreate
Height = 480 Height = 480
Width = 640 Width = 640
object ucKG: TUniConnection object ucKG: TUniConnection
ProviderName = 'MySQL' ProviderName = 'MySQL'
Database = 'kg_order_entry'
Username = 'root'
Server = '192.168.159.132'
Connected = True
LoginPrompt = False LoginPrompt = False
Left = 289 Left = 289
Top = 119 Top = 119
EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
end end
object frxPDFExport1: TfrxPDFExport object frxPDFExport1: TfrxPDFExport
FileName = 'C:\Users\Admin\Downloads\rptOrderWeb.pdf' FileName = 'C:\Users\Admin\Downloads\rptOrderWeb.pdf'
...@@ -51,388 +47,6 @@ object rptOrderCorrugated: TrptOrderCorrugated ...@@ -51,388 +47,6 @@ object rptOrderCorrugated: TrptOrderCorrugated
DataSetOptions = [] DataSetOptions = []
Left = 444 Left = 444
Top = 206 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 end
object frxOrderCorrugated: TfrxReport object frxOrderCorrugated: TfrxReport
Version = '2025.1.4' Version = '2025.1.4'
...@@ -3547,7 +3161,6 @@ object rptOrderCorrugated: TrptOrderCorrugated ...@@ -3547,7 +3161,6 @@ object rptOrderCorrugated: TrptOrderCorrugated
Connection = ucKG Connection = ucKG
SQL.Strings = ( SQL.Strings = (
'select * from corrugated_plate_orders where ORDER_ID = 11424') 'select * from corrugated_plate_orders where ORDER_ID = 11424')
Active = True
Left = 457 Left = 457
Top = 106 Top = 106
object uqOrderCorrugatedORDER_ID: TIntegerField object uqOrderCorrugatedORDER_ID: TIntegerField
......
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
...@@ -121,6 +122,21 @@ implementation ...@@ -121,6 +122,21 @@ implementation
uses uses
uLibrary, Common.Config; uLibrary, Common.Config;
procedure TrptOrderCorrugated.DataModuleCreate(Sender: TObject);
begin
Logger.Log( 3, 'TAuthDatabase.DataModuleCreate' );
LoadDatabaseSettings( ucKG, 'kgOrdersServer.ini' );
try
ucKG.Connect;
except
on E: Exception do
begin
Logger.Log(3, '--TrptOrderList.DataModuleCreate -Error connecting to database: ' + E.Message);
end;
end;
end;
procedure TrptOrderCorrugated.PopulateColorTable; procedure TrptOrderCorrugated.PopulateColorTable;
var var
row: TfrxCustomTableRow; row: TfrxCustomTableRow;
...@@ -183,6 +199,7 @@ begin ...@@ -183,6 +199,7 @@ begin
Logger.Log(3, 'Report preparation complete.'); Logger.Log(3, 'Report preparation complete.');
end; end;
function TrptOrderCorrugated.GeneratePDF: string; function TrptOrderCorrugated.GeneratePDF: string;
var var
ReportDir, ReportFileName: string; ReportDir, ReportFileName: string;
......
kgOrdersServer/Source/rOrderCutting.dfm
object rptOrderCutting: TrptOrderCutting object rptOrderCutting: TrptOrderCutting
OnCreate = DataModuleCreate
Height = 480 Height = 480
Width = 640 Width = 640
object ucKG: TUniConnection object ucKG: TUniConnection
ProviderName = 'MySQL' ProviderName = 'MySQL'
Database = 'kg_order_entry'
Username = 'root'
Server = '192.168.159.132'
Connected = True
LoginPrompt = False LoginPrompt = False
Left = 289 Left = 289
Top = 119 Top = 119
EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
end end
object frxPDFExport1: TfrxPDFExport object frxPDFExport1: TfrxPDFExport
FileName = 'C:\Users\Admin\Downloads\rptOrderWeb.pdf' FileName = 'C:\Users\Admin\Downloads\rptOrderWeb.pdf'
...@@ -51,75 +47,6 @@ object rptOrderCutting: TrptOrderCutting ...@@ -51,75 +47,6 @@ object rptOrderCutting: TrptOrderCutting
DataSetOptions = [] DataSetOptions = []
Left = 444 Left = 444
Top = 206 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 = '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_quantity'
FieldType = fftString
end
item
FieldName = 'staff_fields_price'
FieldType = fftString
end
item
FieldName = 'staff_fields_invoice_to'
FieldType = fftString
Size = 128
end
item
FieldName = 'staff_fields_ship_to'
FieldType = fftString
Size = 128
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_quickbooks_item'
FieldType = fftString
Size = 45
end
item
FieldName = 'general_special_instructions'
FieldType = fftString
Size = 2048
end>
end end
object frxOrderCutting: TfrxReport object frxOrderCutting: TfrxReport
Version = '2025.1.4' Version = '2025.1.4'
...@@ -886,7 +813,6 @@ object rptOrderCutting: TrptOrderCutting ...@@ -886,7 +813,6 @@ object rptOrderCutting: TrptOrderCutting
Connection = ucKG Connection = ucKG
SQL.Strings = ( SQL.Strings = (
'select * from cutting_die_orders where ORDER_ID = 18793') 'select * from cutting_die_orders where ORDER_ID = 18793')
Active = True
Left = 457 Left = 457
Top = 106 Top = 106
object uqOrderCuttingORDER_ID: TIntegerField object uqOrderCuttingORDER_ID: TIntegerField
......
kgOrdersServer/Source/rOrderCutting.pas
...@@ -31,6 +31,7 @@ type ...@@ -31,6 +31,7 @@ type
uqOrderCuttingstaff_fields_job_name: TStringField; uqOrderCuttingstaff_fields_job_name: TStringField;
uqOrderCuttingstaff_fields_quickbooks_item: TStringField; uqOrderCuttingstaff_fields_quickbooks_item: TStringField;
uqOrderCuttinggeneral_special_instructions: TStringField; uqOrderCuttinggeneral_special_instructions: TStringField;
procedure DataModuleCreate(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
...@@ -51,6 +52,21 @@ uses ...@@ -51,6 +52,21 @@ uses
{$R *.dfm} {$R *.dfm}
procedure TrptOrderCutting.DataModuleCreate(Sender: TObject);
begin
Logger.Log( 3, 'TAuthDatabase.DataModuleCreate' );
LoadDatabaseSettings( ucKG, 'kgOrdersServer.ini' );
try
ucKG.Connect;
except
on E: Exception do
begin
Logger.Log(3, '--TrptOrderList.DataModuleCreate -Error connecting to database: ' + E.Message);
end;
end;
end;
function TrptOrderCutting.PrepareReport(SQL: string): string; function TrptOrderCutting.PrepareReport(SQL: string): string;
var var
orderList : TJSObject; orderList : TJSObject;
...@@ -78,6 +94,7 @@ begin ...@@ -78,6 +94,7 @@ begin
Logger.Log(3, 'Report preparation complete.'); Logger.Log(3, 'Report preparation complete.');
end; end;
function TrptOrderCutting.GeneratePDF: string; function TrptOrderCutting.GeneratePDF: string;
var var
ReportDir, ReportFileName: string; ReportDir, ReportFileName: string;
......
kgOrdersServer/Source/rOrderList.dfm
...@@ -1070,14 +1070,9 @@ object rptOrderList: TrptOrderList ...@@ -1070,14 +1070,9 @@ object rptOrderList: TrptOrderList
end end
object ucKG: TUniConnection object ucKG: TUniConnection
ProviderName = 'MySQL' ProviderName = 'MySQL'
Database = 'kg_order_entry'
Username = 'root'
Server = '192.168.159.132'
Connected = True
LoginPrompt = False LoginPrompt = False
Left = 289 Left = 289
Top = 99 Top = 99
EncryptedPassword = '9AFF92FF8CFF86FF8CFFCFFFCEFF'
end end
object uqOrders: TUniQuery object uqOrders: TUniQuery
Connection = ucKG Connection = ucKG
...@@ -1286,126 +1281,6 @@ object rptOrderList: TrptOrderList ...@@ -1286,126 +1281,6 @@ object rptOrderList: TrptOrderList
DataSetOptions = [] DataSetOptions = []
Left = 444 Left = 444
Top = 232 Top = 232
FieldDefs = <
item
FieldName = 'ORDER_ID'
end
item
FieldName = 'Loc'
FieldType = fftString
Size = 16
end
item
FieldName = 'COMPANY_NAME'
FieldType = fftString
Size = 90
end
item
FieldName = 'JOB_NAME'
FieldType = fftString
Size = 128
end
item
FieldName = 'ORDER_DATE'
FieldType = fftDateTime
end
item
FieldName = 'ORDER_TYPE'
FieldType = fftString
Size = 45
end
item
FieldName = 'PROOF_DUE'
FieldType = fftDateTime
end
item
FieldName = 'PROOF_DONE'
FieldType = fftDateTime
end
item
FieldName = 'ART_DUE'
FieldType = fftDateTime
end
item
FieldName = 'ART_DONE'
FieldType = fftDateTime
end
item
FieldName = 'PLATE_DUE'
FieldType = fftDateTime
end
item
FieldName = 'PLATE_DONE'
FieldType = fftDateTime
end
item
FieldName = 'MOUNT_DUE'
FieldType = fftDateTime
end
item
FieldName = 'MOUNT_DONE'
FieldType = fftDateTime
end
item
FieldName = 'SHIP_DUE'
FieldType = fftDateTime
end
item
FieldName = 'SHIP_DONE'
FieldType = fftDateTime
end
item
FieldName = 'PRICE'
end
item
FieldName = 'QB_REF_NUM'
FieldType = fftString
Size = 24
end
item
FieldName = 'COLORS'
FieldType = fftString
end
item
FieldName = 'po_number'
FieldType = fftString
Size = 16
end
item
FieldName = 'quickbooks_item'
FieldType = fftString
Size = 45
end
item
FieldName = 'NEW_ORDER_DATE'
FieldType = fftString
Size = 20
end
item
FieldName = 'NEW_PROOF_DONE'
FieldType = fftString
Size = 20
end
item
FieldName = 'NEW_ART_DONE'
FieldType = fftString
Size = 20
end
item
FieldName = 'NEW_PLATE_DONE'
FieldType = fftString
Size = 20
end
item
FieldName = 'NEW_MOUNT_DONE'
FieldType = fftString
Size = 20
end
item
FieldName = 'NEW_SHIP_DONE'
FieldType = fftString
Size = 20
end>
end end
object uqColors: TUniQuery object uqColors: TUniQuery
Connection = ucKG Connection = ucKG
......
kgOrdersServer/Source/rOrderWeb.pas
...@@ -100,6 +100,7 @@ type ...@@ -100,6 +100,7 @@ type
uqOrderWebupc_distortion_amount: TStringField; uqOrderWebupc_distortion_amount: TStringField;
uqOrderWebstaff_fields_art_location: TStringField; uqOrderWebstaff_fields_art_location: TStringField;
uqOrderWebQB_REF_NUM: TStringField; uqOrderWebQB_REF_NUM: TStringField;
procedure DataModuleCreate(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
...@@ -121,6 +122,21 @@ implementation ...@@ -121,6 +122,21 @@ implementation
uses uses
uLibrary, Common.Config; uLibrary, Common.Config;
procedure TrptOrderWeb.DataModuleCreate(Sender: TObject);
begin
Logger.Log( 3, 'TAuthDatabase.DataModuleCreate' );
LoadDatabaseSettings( ucKG, 'kgOrdersServer.ini' );
try
ucKG.Connect;
except
on E: Exception do
begin
Logger.Log(3, '--TrptOrderList.DataModuleCreate -Error connecting to database: ' + E.Message);
end;
end;
end;
procedure TrptOrderWeb.PopulateColorTable; procedure TrptOrderWeb.PopulateColorTable;
var var
row: TfrxCustomTableRow; row: TfrxCustomTableRow;
...@@ -183,6 +199,7 @@ begin ...@@ -183,6 +199,7 @@ begin
Logger.Log(3, 'Report preparation complete.'); Logger.Log(3, 'Report preparation complete.');
end; end;
function TrptOrderWeb.GeneratePDF: string; function TrptOrderWeb.GeneratePDF: string;
var var
ReportDir, ReportFileName: string; ReportDir, ReportFileName: string;
......
kgOrdersServer/kgOrdersServer.ini
[Settings] [Settings]
MemoLogLevel=4 MemoLogLevel=4
FileLogLevel=5 FileLogLevel=5
LogFileNum=303 LogFileNum=310
webClientVersion=1.0.0 webClientVersion=1.0.0
[Database] [Database]
Server=192.168.159.132 --Server=192.168.159.132
--Server=192.168.102.130 Server=192.168.102.130
--Server=192.168.75.133 --Server=192.168.75.133
--Database= Database=kg_order_entry
--Username= Username=root
Password=emsys01
--Password=emsys!012 --Password=emsys!012
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