Преглед изворни кода

* Better handling of empty dates

Michaël Van Canneyt пре 1 година
родитељ
комит
0cffa26111
1 измењених фајлова са 11 додато и 14 уклоњено
  1. 11 14
      packages/bootstrap/src/bootstraptablewidget.pp

+ 11 - 14
packages/bootstrap/src/bootstraptablewidget.pp

@@ -878,25 +878,22 @@ function TCustomDBBootstrapTableWidget.MakeDateTimeRenderCol(aCol: TBootstrapTab
     DT : TDateTime;
 
   begin
-    if aTableCol.Formatting = '' then
+    if IsNull(Data) or isUndefined(Data) then
+      Result:=''
+    else if aTableCol.Formatting = '' then
       Result := String(Data)
     else
       begin
-      if IsNull(Data) then
+      if Data is TJSDate then
+        Dt:=JSDateToDateTime(TJSDate(Data))
+      else if isString(Data) then
+        Dt:=ISO8601ToDate(String(Data),False)
+      else
+        Dt:=0;
+      if Dt<=100 then
         Result:=''
       else
-        begin
-        if Data is TJSDate then
-          Dt:=JSDateToDateTime(TJSDate(Data))
-        else if isString(Data) then
-          Dt:=ISO8601ToDate(String(Data),False)
-        else
-          Dt:=0;
-        if Dt<=100 then
-          Result:=''
-        else  
-          Result := FormatDateTime(aTableCol.Formatting, DT)
-        end;
+        Result := FormatDateTime(aTableCol.Formatting, DT)
       end;
     if aTableCol.ExtraAttributes <> '' then
       Result := Format('<span %s>%s</span>', [ReplaceMoustache(row, aTableCol.ExtraAttributes), Result]);