Skip to content

K
KGOrders
Commit fcb79526 by cam
Options

rebuilt order entry form to making it easier to submit info to db

parent 26156618
Showing with 177 additions and 85 deletions
kgOrdersServer/Source/Database.pas
...@@ -16,6 +16,94 @@ type ...@@ -16,6 +16,94 @@ type
UniQuery1: TUniQuery; UniQuery1: TUniQuery;
MySQLUniProvider1: TMySQLUniProvider; MySQLUniProvider1: TMySQLUniProvider;
UniQuery2: TUniQuery; UniQuery2: TUniQuery;
uqOrders: TUniQuery;
uqOrdersORDER_ID: TIntegerField;
uqOrdersCOMPANY_ID: TIntegerField;
uqOrdersUSER_ID: TIntegerField;
uqOrdersORDER_DATE: TDateTimeField;
uqOrdersSTART_DATE: TDateField;
uqOrdersEND_DATE: TDateField;
uqOrdersORDER_STATUS: TStringField;
uqOrdersSCHED_JSON: TStringField;
uqOrdersstaff_fields_order_date: TDateField;
uqOrdersstaff_fields_proof_date: TDateField;
uqOrdersstaff_fields_ship_date: TDateField;
uqOrdersstaff_fields_ship_via: TStringField;
uqOrdersstaff_fields_price: TStringField;
uqOrdersstaff_fields_invoice_to: TStringField;
uqOrdersstaff_fields_invoice_attention: TStringField;
uqOrdersstaff_fields_ship_to: TStringField;
uqOrdersstaff_fields_ship_attention: TStringField;
uqOrdersstaff_fields_po_number: TStringField;
uqOrdersstaff_fields_job_name: TStringField;
uqOrdersstaff_fields_art_due: TDateField;
uqOrdersstaff_fields_plate_due: TDateField;
uqOrdersstaff_fields_mount_due: TDateField;
uqOrdersplates_job_number: TStringField;
uqOrderssupplied_by_customer_b_w_copy: TStringField;
uqOrderssupplied_by_customer_color_copy: TStringField;
uqOrderssupplied_by_customer_plates: TStringField;
uqOrderssupplied_by_customer_sample_ca: TStringField;
uqOrderssupplied_by_customer_dimension: TStringField;
uqOrderssupplied_by_customer_disk_or_cd: TStringField;
uqOrderssupplied_by_customer_e_mail: TStringField;
uqOrderssupplied_by_customer_ftp: TStringField;
uqOrderssupplied_by_customer_other: TStringField;
uqOrderssupplied_by_customer_existing_: TStringField;
uqOrderssupplied_by_customer_ref_art_p: TStringField;
uqOrderssupplied_by_customer_ref_art_a: TStringField;
uqOrderscut_die_cutdier: TStringField;
uqOrderscut_die_cutdieb: TStringField;
uqOrderscut_die_cutdief: TStringField;
uqOrderscut_die_cutdierkr: TStringField;
uqOrderscut_die_cutdiefkr: TStringField;
uqOrderscut_die_cad_file: TStringField;
uqOrderscut_die_attached: TStringField;
uqOrderscut_die_boxpol250: TStringField;
uqOrderscut_die_boxpol155: TStringField;
uqOrderscut_die_boxpol125: TStringField;
uqOrderscut_die_brub: TStringField;
uqOrdersproofing_fax: TStringField;
uqOrdersproofing_fax_attn: TStringField;
uqOrdersproofing_e_mail: TStringField;
uqOrdersproofing_e_mail_attn: TStringField;
uqOrdersproofing_ship_to: TStringField;
uqOrdersproofing_full_size_panel: TStringField;
uqOrdersproofing_print_card: TStringField;
uqOrdersproofing_wide_format: TStringField;
uqOrdersproofing_pdf_file: TStringField;
uqOrdersproofing_other: TStringField;
uqOrdersproofing_art_approved_as_is: TStringField;
uqOrdersproofing_approved_date: TDateField;
uqOrdersproofing_changes_required: TStringField;
uqOrdersproofing_changes_date: TDateField;
uqOrderslayout_rsc_l: TStringField;
uqOrderslayout_rcs_w: TStringField;
uqOrderslayout_rcs_d: TStringField;
uqOrderslayout_die_cut_no: TStringField;
uqOrderslayout_accross_no: TStringField;
uqOrderslayout_around_no: TStringField;
uqOrderslayout_cad_file: TStringField;
uqOrderslayout_excalibur_die: TStringField;
uqOrdersmounting_loose: TStringField;
uqOrdersmounting_sticky_bak: TStringField;
uqOrdersmounting_full_mount: TStringField;
uqOrdersmounting_strip_mount: TStringField;
uqOrderscolors_cylinder_size: TStringField;
uqOrderscolors_machine_ident: TStringField;
uqOrdersmounting_standard_setup: TStringField;
uqOrdersmounting_custom_backing: TStringField;
uqOrdersmounting_custom_adhesive: TStringField;
uqOrderscolors_cross_hairs: TStringField;
uqOrderscolors_clemson: TStringField;
uqOrdersplates_thickness: TStringField;
uqOrdersplates_plate_material: TStringField;
uqOrdersgeneral_special_instructions: TStringField;
uqOrderscolors_colors: TStringField;
uqOrdersstaff_fields_quickbooks_item: TStringField;
uqOrdersstaff_fields_quantity: TStringField;
uqOrderslayout_rsc_style: TStringField;
uqOrdersstaff_fields_art_location: TStringField;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
{ Private declarations } { Private declarations }
......
kgOrdersServer/Source/Lookup.Service.pas
...@@ -57,24 +57,25 @@ type ...@@ -57,24 +57,25 @@ type
TOrderItem = class TOrderItem = class
public public
ID: string; ID,
companyName: string; companyName,
jobName: string; jobName,
orderDate: string; orderDate,
proofDue: string; proofDue,
proofDone: string; proofDone,
artDue: string; artDue,
artDone: string; artDone,
plateDue: string; plateDue,
plateDone: string; plateDone,
mountDue: string; mountDue,
mountDone: string; mountDone,
shipDue: string; shipDue,
shipDone: string; shipDone,
price: string; price,
qbRefNum: string; qbRefNum,
colors: string; orderType,
orderType: string; colors: string;
end; end;
TOrderList = class TOrderList = class
...@@ -86,89 +87,92 @@ type ...@@ -86,89 +87,92 @@ type
TFullOrder = class TFullOrder = class
Public Public
//Company //Company
companyName: string; NAME: string;
accountCompanyName: string; SHORT_NAME: string;
inQuickBooks: string; inQuickBooks: string;
// Staff Fields: // Staff Fields:
orderDate: string; staff_fields_order_date: string;
proofDate: string; staff_fields_proof_date: string;
shipDate: string; staff_fields_ship_date: string;
shipVia: string; staff_fields_ship_via: string;
Quantity: string; staff_fields_quantity: string;
price: string; staff_fields_price: string;
invoiceTo: string; staff_fields_invoice_to: string;
shipTo: string; staff_fields_ship_to: string;
poNumber: string; staff_fields_po_number: string;
jobName: string; staff_fields_job_name: string;
quickBooksItem: string; staff_fields_quickbooks_item: string;
artDue: string; staff_fields_art_due: string;
plateDue: string; staff_fields_plate_due: string;
mountDue: string; staff_fields_mount_due: string;
artLocation: string; staff_fields_art_location: string;
// Supplied by Customer: // Supplied by Customer:
bwCopy: boolean; supplied_by_customer_b_w_copy: boolean;
colorCopy: boolean; supplied_by_customer_color_copy: boolean;
plates: boolean; supplied_by_customer_plates: boolean;
sampleCarton: boolean; supplied_by_customer_sample_ca: boolean;
dimensionalLayout: string; supplied_by_customer_dimension: string;
diskOrCD: boolean; supplied_by_customer_disk_or_cd: boolean;
email: string; supplied_by_customer_e_mail: string;
ftp: string; supplied_by_customer_ftp: string;
other: string; supplied_by_customer_other: string;
existingCuttingDie: string; supplied_by_customer_existing_: string;
refArtPrintCard: string; supplied_by_customer_ref_art_p: string;
refArtAPDF: string; supplied_by_customer_ref_art_a: string;
// Layout // Layout
rscl: string; layout_rsc_l: string;
rscw: string;
rscd: string; //Typos to match database typos
dieCutNo: string; layout_rcs_w: string;
acrossNo: string; layout_rcs_d: string;
aroundNo: string;
cadFile: string; layout_die_cut_no: string;
excalliburDie: boolean; layout_accross_no: string;
rscStyle: string; layout_around_no: string;
layout_cad_file: string;
layout_excalibur_die: boolean;
layout_rsc_style: string;
// Mounting // Mounting
loose: string; mounting_loose: string;
stickyBak: boolean; mounting_sticky_bak: boolean;
fullMount: boolean; mounting_full_mount: boolean;
stripMount: string; mounting_strip_mount: string;
standardSetup: string; mounting_standard_setup: string;
customBacking: string; mounting_custom_backing: string;
customAdhesive: string; mounting_custom_adhesive: string;
// Colors // Colors
cylinderSize: string; colors_cylinder_size: string;
machineIdent: string; colors_machine_ident: string;
crossHairs: string; colors_cross_hairs: string;
clemson: string; colors_clemson: string;
colors: string; colors_colors: string;
// Proofing // Proofing
fax: string; proofing_fax: string;
faxAttn: string; proofing_fax_attn: string;
proofEmail: string; proofing_e_mail: string;
emailAttn: string; proofing_e_mail_attn: string;
proofShipTo: string; proofing_ship_to: string;
fullSizePanel: boolean; proofing_full_size_panel: boolean;
printCard: boolean; proofing_print_card: boolean;
wideFormat: boolean; proofing_wide_format: boolean;
pdfFile: boolean; proofing_pdf_file: boolean;
proofOther: string; proofing_other: string;
artApprovedAsIs: boolean; proofing_art_approved_as_is: boolean;
approvedDate: string; proofing_approved_date: string;
// Plates // Plates
thickness: string; plates_thickness: string;
plateMaterial: string; plates_plate_material: string;
jobNumber: string; plates_job_number: string;
// General // General
specialInstructions: string; general_special_instructions: string;
end; end;
......
kgOrdersServer/kgOrdersServer.ini
[Options] [Options]
LogFileNum=139 LogFileNum=142
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