add row validation, saving

emT3Web/View.TimeEntries.dfm

@@ -3,6 +3,16 @@ object FTimeEntries: TFTimeEntries
   Height = 480
   ElementFont = efCSS
   OnCreate = WebFormCreate
+  object lblValidationMessage: TWebLabel
+    Left = 90
+    Top = 32
+    Width = 69
+    Height = 15
+    ElementID = 'lbl_validation_message'
+    ElementFont = efCSS
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+  end
   object edtWeekOf: TWebEdit
     Left = 71
     Top = 80

emT3Web/View.TimeEntries.html

@@ -23,5 +23,6 @@
       <button id="btn_add_entry" class="btn btn-sm btn-success text-nowrap">Add Entry</button>
     </div>
   </div>
+  <div id="lbl_validation_message" class="alert alert-danger py-1 px-2 mb-2 d-none small"></div>
   <div id="time_entries_table_host" class="flex-grow-1 min-h-0 overflow-auto"></div>
 </div>

emT3Web/css/time-entries.css

@@ -44,4 +44,9 @@
 
 .time-table .dropdown-menu {
   z-index: 1055;
+}
+
+.time-dd-toggle.is-invalid {
+  border-color: var(--bs-danger) !important;
+  padding-right: calc(1.5em + .75rem);
 }
\ No newline at end of file

emT3XDataServer/Source/Api.Database.dfm

@@ -1142,4 +1142,68 @@ object ApiDatabase: TApiDatabase
         Value = nil
       end>
   end
+  object uqSaveTimeEntry: TUniQuery
+    Connection = ucETaskApi
+    SQL.Strings = (
+      'UPDATE time_items'
+      'SET'
+      '  TASK_DATE = :TASK_DATE,'
+      '  TASK_ID = :TASK_ID,'
+      '  HOURS = :HOURS,'
+      '  TASK_TIME = :TASK_TIME,'
+      '  CATEGORY = :CATEGORY,'
+      '  SUMMARY = :SUMMARY,'
+      '  MODIFY_DATE = now(),'
+      '  MODIFIED_BY = :MODIFIED_BY'
+      'WHERE ENTRY_ID = :ENTRY_ID'
+      '  AND USER_ID = :USER_ID')
+    Left = 544
+    Top = 424
+    ParamData = <
+      item
+        DataType = ftUnknown
+        Name = 'TASK_DATE'
+        Value = nil
+      end
+      item
+        DataType = ftUnknown
+        Name = 'TASK_ID'
+        Value = nil
+      end
+      item
+        DataType = ftUnknown
+        Name = 'HOURS'
+        Value = nil
+      end
+      item
+        DataType = ftUnknown
+        Name = 'TASK_TIME'
+        Value = nil
+      end
+      item
+        DataType = ftUnknown
+        Name = 'CATEGORY'
+        Value = nil
+      end
+      item
+        DataType = ftUnknown
+        Name = 'SUMMARY'
+        Value = nil
+      end
+      item
+        DataType = ftUnknown
+        Name = 'MODIFIED_BY'
+        Value = nil
+      end
+      item
+        DataType = ftUnknown
+        Name = 'ENTRY_ID'
+        Value = nil
+      end
+      item
+        DataType = ftUnknown
+        Name = 'USER_ID'
+        Value = nil
+      end>
+  end
 end

emT3XDataServer/Source/Api.Database.pas

@@ -89,6 +89,7 @@ type
     uqProjectReportedUsersTASK_ITEM_USER_ID: TStringField;
     uqProjectReportedUsersNAME: TStringField;
     uqAddTimeEntry: TUniQuery;
+    uqSaveTimeEntry: TUniQuery;
     procedure DataModuleCreate(Sender: TObject);
     procedure uqUsersCalcFields(DataSet: TDataSet);
   private

emT3XDataServer/Source/TimeEntry.Service.pas

@@ -48,11 +48,24 @@ type
     destructor Destroy; override;
   end;
 
+  TTimeEntrySave = class
+  public
+    entryId: string;
+    userId: string;
+    taskDate: string;
+    taskId: string;
+    hours: Double;
+    taskTime: string;
+    category: string;
+    summary: string;
+  end;
+
   [ServiceContract, Model(API_MODEL)]
   ITimeEntryService = interface(IInvokable)
     ['{B18BCD1E-B19A-4D25-BBA9-50A24FC4C690}']
     [HttpGet] function GetTimeEntries(userId, startDate, endDate: string): TTimeEntriesResponse;
     [HttpPost] function AddTimeEntry(userId, taskDate: string): string;
+    [HttpPost] function SaveTimeEntry(Item: TTimeEntrySave): Boolean;
   end;
 
 implementation

emT3XDataServer/Source/TimeEntry.ServiceImpl.pas

@@ -31,6 +31,7 @@ type
   public
     function GetTimeEntries(userId, startDate, endDate: string): TTimeEntriesResponse;
     function AddTimeEntry(userId, taskDate: string): string;
+    function SaveTimeEntry(Item: TTimeEntrySave): Boolean;
   end;
 
 implementation
@@ -429,6 +430,38 @@ begin
 end;
 
 
+function TTimeEntryService.SaveTimeEntry(Item: TTimeEntrySave): Boolean;
+var
+  taskDateValue: TDateTime;
+begin
+  Logger.Log(4, Format('TimeEntryService.SaveTimeEntry - ENTRY_ID="%s" USER_ID="%s"', [Item.entryId, Item.userId]));
+
+  taskDateValue := ParseIsoDate(Item.taskDate);
+
+  apiDB.uqSaveTimeEntry.Close;
+  apiDB.uqSaveTimeEntry.ParamByName('ENTRY_ID').AsString := Item.entryId;
+  apiDB.uqSaveTimeEntry.ParamByName('USER_ID').AsString := Item.userId;
+  apiDB.uqSaveTimeEntry.ParamByName('TASK_DATE').AsDateTime := taskDateValue;
+  apiDB.uqSaveTimeEntry.ParamByName('TASK_ID').AsString := Item.taskId;
+  apiDB.uqSaveTimeEntry.ParamByName('HOURS').AsFloat := Item.hours;
+
+  if Trim(Item.taskTime) = '' then
+    apiDB.uqSaveTimeEntry.ParamByName('TASK_TIME').Clear
+  else
+    apiDB.uqSaveTimeEntry.ParamByName('TASK_TIME').AsString := Item.taskTime;
+
+  apiDB.uqSaveTimeEntry.ParamByName('CATEGORY').AsString := Item.category;
+  apiDB.uqSaveTimeEntry.ParamByName('SUMMARY').AsString := Item.summary;
+  apiDB.uqSaveTimeEntry.ParamByName('MODIFIED_BY').AsString := Item.userId;
+
+  apiDB.uqSaveTimeEntry.ExecSQL;
+
+  Result := True;
+
+  Logger.Log(4, 'TimeEntryService.SaveTimeEntry - saved ENTRY_ID=' + Item.entryId);
+end;
+
+
 initialization
   RegisterServiceType(TTimeEntryService);
 

emT3XDataServer/bin/emT3XDataServer.ini

@@ -2,7 +2,7 @@
 MemoLogLevel=4
 FileLogLevel=4
 webClientVersion=0.8.9
-LogFileNum=219
+LogFileNum=222
 
 [Database]
 Server=192.168.102.131