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

kgOrdersServer/Source/Database.pas

@@ -16,6 +16,94 @@ type
     UniQuery1: TUniQuery;
     MySQLUniProvider1: TMySQLUniProvider;
     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);
   private
     { Private declarations }

kgOrdersServer/Source/Lookup.Service.pas

@@ -57,24 +57,25 @@ type
 
   TOrderItem = class
   public
-     ID: string;
-     companyName: string;
-     jobName: string;
-     orderDate: string;
-     proofDue: string;
-     proofDone: string;
-     artDue: string;
-     artDone: string;
-     plateDue: string;
-     plateDone: string;
-     mountDue: string;
-     mountDone: string;
-     shipDue: string;
-     shipDone: string;
-     price: string;
-     qbRefNum: string;
+    ID,
+    companyName,
+    jobName,
+    orderDate,
+    proofDue,
+    proofDone,
+    artDue,
+    artDone,
+    plateDue,
+    plateDone,
+    mountDue,
+    mountDone,
+    shipDue,
+    shipDone,
+    price,
+    qbRefNum,
+    orderType,
     colors: string;
-     orderType: string;
+
   end;
 
   TOrderList = class
@@ -86,89 +87,92 @@ type
   TFullOrder = class
   Public
       //Company
-      companyName: string;
-      accountCompanyName: string;
+      NAME: string;
+      SHORT_NAME: string;
       inQuickBooks: string;
 
       // Staff Fields:
-      orderDate: string;
-      proofDate: string;
-      shipDate: string;
-      shipVia: string;
-      Quantity: string;
-      price: string;
-      invoiceTo: string;
-      shipTo: string;
-      poNumber: string;
-      jobName: string;
-      quickBooksItem: string;
-      artDue: string;
-      plateDue: string;
-      mountDue: string;
-      artLocation: string;
+      staff_fields_order_date: string;
+      staff_fields_proof_date: string;
+      staff_fields_ship_date: string;
+      staff_fields_ship_via: string;
+      staff_fields_quantity: string;
+      staff_fields_price: string;
+      staff_fields_invoice_to: string;
+      staff_fields_ship_to: string;
+      staff_fields_po_number: string;
+      staff_fields_job_name: string;
+      staff_fields_quickbooks_item: string;
+      staff_fields_art_due: string;
+      staff_fields_plate_due: string;
+      staff_fields_mount_due: string;
+      staff_fields_art_location: string;
 
       // Supplied by Customer:
-      bwCopy: boolean;
-      colorCopy: boolean;
-      plates: boolean;
-      sampleCarton: boolean;
-      dimensionalLayout: string;
-      diskOrCD: boolean;
-      email: string;
-      ftp: string;
-      other: string;
-      existingCuttingDie: string;
-      refArtPrintCard: string;
-      refArtAPDF: string;
+      supplied_by_customer_b_w_copy: boolean;
+      supplied_by_customer_color_copy: boolean;
+      supplied_by_customer_plates: boolean;
+      supplied_by_customer_sample_ca: boolean;
+      supplied_by_customer_dimension: string;
+      supplied_by_customer_disk_or_cd: boolean;
+      supplied_by_customer_e_mail: string;
+      supplied_by_customer_ftp: string;
+      supplied_by_customer_other: string;
+      supplied_by_customer_existing_: string;
+      supplied_by_customer_ref_art_p: string;
+      supplied_by_customer_ref_art_a: string;
 
       // Layout
-      rscl: string;
-      rscw: string;
-      rscd: string;
-      dieCutNo: string;
-      acrossNo: string;
-      aroundNo: string;
-      cadFile: string;
-      excalliburDie: boolean;
-      rscStyle: string;
+      layout_rsc_l: string;
+
+      //Typos to match database typos
+      layout_rcs_w: string;
+      layout_rcs_d: string;
+
+      layout_die_cut_no: string;
+      layout_accross_no: string;
+      layout_around_no: string;
+      layout_cad_file: string;
+      layout_excalibur_die: boolean;
+      layout_rsc_style: string;
 
       // Mounting
-      loose: string;
-      stickyBak: boolean;
-      fullMount: boolean;
-      stripMount: string;
-      standardSetup: string;
-      customBacking: string;
-      customAdhesive: string;
+      mounting_loose: string;
+      mounting_sticky_bak: boolean;
+      mounting_full_mount: boolean;
+      mounting_strip_mount: string;
+      mounting_standard_setup: string;
+      mounting_custom_backing: string;
+      mounting_custom_adhesive: string;
 
        // Colors
-       cylinderSize: string;
-       machineIdent: string;
-       crossHairs: string;
-       clemson: string;
-       colors: string;
+       colors_cylinder_size: string;
+       colors_machine_ident: string;
+       colors_cross_hairs: string;
+       colors_clemson: string;
+       colors_colors: string;
 
        // Proofing
-       fax: string;
-       faxAttn: string;
-       proofEmail: string;
-       emailAttn: string;
-       proofShipTo: string;
-       fullSizePanel: boolean;
-       printCard: boolean;
-       wideFormat: boolean;
-       pdfFile: boolean;
-       proofOther: string;
-       artApprovedAsIs: boolean;
-       approvedDate: string;
+       proofing_fax: string;
+       proofing_fax_attn: string;
+       proofing_e_mail: string;
+       proofing_e_mail_attn: string;
+       proofing_ship_to: string;
+       proofing_full_size_panel: boolean;
+       proofing_print_card: boolean;
+       proofing_wide_format: boolean;
+       proofing_pdf_file: boolean;
+       proofing_other: string;
+       proofing_art_approved_as_is: boolean;
+       proofing_approved_date: string;
 
        // Plates
-       thickness: string;
-       plateMaterial: string;
-       jobNumber: string;
+       plates_thickness: string;
+       plates_plate_material: string;
+       plates_job_number: string;
 
        // General
-       specialInstructions: string;
+       general_special_instructions: string;
 
   end;
 

kgOrdersServer/kgOrdersServer.ini

 [Options]
 
-LogFileNum=139
+LogFileNum=142
 
 UpdateTimerLength=0