fixed issue where empty values weren't able to be added to the database

kgOrdersClient/View.OrderEntryCorrugated.dfm

@@ -350,6 +350,7 @@ object FOrderEntryCorrugated: TFOrderEntryCorrugated
     HeightPercent = 100.000000000000000000
     HideSelection = False
     WidthPercent = 100.000000000000000000
+    OnChange = edtJobNameChange
     DataField = 'staff_fields_job_name'
     DataSource = WebDataSource1
   end

kgOrdersClient/View.OrderEntryCorrugated.pas

@@ -236,6 +236,7 @@ type
     procedure WebButton2Click(Sender: TObject);
     procedure ShowAddAddressForm();
     [async] procedure SendAddressToServer(AddressJSON: TJSONObject);
+    procedure edtJobNameChange(Sender: TObject);
   private
     FModalAction: string;
     FAgencyCode: string;
@@ -380,7 +381,11 @@ begin
       if Field is TStringField then
       begin
         if Field.AsString = '' then
-          orderJSON.AddPair(Field.FieldName, '')
+        begin
+          orderJSON.AddPair(Field.FieldName, '');
+          console.log(Field.FieldName);
+          console.log(Field.AsString);
+        end
         else
           orderJSON.AddPair(Field.FieldName, Field.AsString);  // Add all other fields
       end
@@ -577,6 +582,7 @@ var
   Response: TXDataClientResponse;
   jsObj: TJSObject;
 begin
+  console.log(orderJSON);
   Response := await(XDataWebClient1.RawInvokeAsync('ILookupService.AddCorrugatedOrder',
               [orderJSON.ToString]));
   jsObj := JS.TJSObject(Response.Result);
@@ -584,7 +590,6 @@ begin
     OrderID := String(jsObj.Properties['OrderID']);
   edtOrderNum.Text := OrderID;
   mode := 'EDIT';
-  console.log(jsObj);
   ShowToast(string(jsObj.Properties['status']));
 end;
 
@@ -1019,6 +1024,7 @@ begin
     XDataWebDataSet1.Close;
     XDataWebDataSet1.SetJsonData(customer);
     XDataWebDataSet1.Open;
+    XDataWebDataSet1.Edit;
 
     xdwdsShipTo.Close;
     xdwdsShipTo.SetJSONData(customer['ADDRESS_LIST']);
@@ -1109,6 +1115,12 @@ begin
   btnAdd.Enabled := false;
 end;
 
+procedure TFOrderEntryCorrugated.edtJobNameChange(Sender: TObject);
+begin
+  EditMode();
+  console.log('onChange');
+end;
+
 procedure TFOrderEntryCorrugated.dtpApprovedDateChange(Sender: TObject);
 begin
   EditMode();

kgOrdersClient/webKGOrders.dproj

@@ -101,6 +101,7 @@
         <TMSWebSingleInstance>1</TMSWebSingleInstance>
         <TMSUseJSDebugger>2</TMSUseJSDebugger>
         <VerInfo_Release>5</VerInfo_Release>
+        <TMSWebBrowser>3</TMSWebBrowser>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>

kgOrdersServer/Source/Lookup.ServiceImpl.pas

@@ -1666,7 +1666,7 @@ begin
           else
             TDateTimeField(Field).AsDateTime := StrToDate(Pair.JsonValue.Value);
         end
-        else if Pair.JsonValue.Value <> '' then
+        else
           Field.AsString := Pair.JsonValue.Value;
       end;
     end;
@@ -2105,7 +2105,7 @@ begin
           else
             TDateTimeField(Field).AsDateTime := StrToDate(Pair.JsonValue.Value);
         end
-        else if Pair.JsonValue.Value <> '' then
+        else
           Field.AsString := Pair.JsonValue.Value;
       end;
     end;
@@ -2200,7 +2200,7 @@ begin
         else
           TDateTimeField(Field).AsDateTime := StrToDate(Pair.JsonValue.Value);
         end
-        else if Pair.JsonValue.Value <> '' then
+        else
           Field.AsString := Pair.JsonValue.Value;
       end;
     end;

kgOrdersServer/kgOrdersServer.ini

@@ -2,11 +2,11 @@
 MemoLogLevel=3
 FileLogLevel=5
 webClientVersion=0.9.6
-LogFileNum=743
+LogFileNum=756
 
 [Database]
---Server=192.168.159.131
-Server=192.168.102.130
+Server=192.168.159.151
+--Server=192.168.102.130
 --Server=192.168.75.133
 Database=kg_order_entry
 Username=root