PDF Corrugated Report is finished and fixed a bug with editting corrugated orders

kgOrdersServer/Source/rOrderCorrugated.pas

@@ -146,7 +146,6 @@ uses
 
 procedure TrptOrderCorrugated.PopulateColorTable;
 var
-  frxTable: TfrxTableObject;
   row: TfrxCustomTableRow;
   colorArray: TJSONArray;
   colorsObject, colorObject: TJSONObject;
@@ -155,28 +154,23 @@ var
   temp: TObject;
 begin
   logger.Log(1, 'Adding Color Rows');
-  frxTable := frxOrderCorrugated.FindObject('ColorTable') as TfrxTableObject;
+
   colorsString := uqOrderCorrugated.FieldByName('colors_colors').AsString;
   colorsObject :=  TJSONObject.ParseJSONValue(colorsString) as TJSONObject;
   colorArray := TJSONArray(colorsObject.GetValue<TJSONArray>('items'));
 
+  for i := 0 to colorArray.Count - 1 do
+  begin
+    row := frxOrderCorrugated.FindObject('ColorRow' + IntToStr(i + 1)) as TfrxCustomTableRow;
+    colorObject := colorArray.Items[i] as TJSONObject;
 
+    row.Cells[4].Text := colorObject.GetValue<string>('#');
+    row.Cells[5].Text := colorObject.GetValue<string>('Color');
+    row.Cells[6].Text := colorObject.GetValue<string>('LPI');
+    row.Cells[7].Text := colorObject.GetValue<string>('Size');
+  end;
 
-  for i := 0 to colorArray.Count - 1 do
-    begin
-      row := frxOrderCorrugated.FindObject('ColorRow' + IntToStr(i + 1)) as TfrxCustomTableRow;
-      colorObject := colorArray.Items[i] as TJSONObject;
-
-      {row.Cells[5].DataField := colorObject.GetValue<string>('#');
-      row.Cells[6].DataField := colorObject.GetValue<string>('Color');
-      row.Cells[7].DataField := colorObject.GetValue<string>('LPI');
-      row.Cells[8].DataField := colorObject.GetValue<string>('Size');
-                                                                      }
-      row.Cells[4].Text := colorObject.GetValue<string>('#');
-      row.Cells[5].Text := colorObject.GetValue<string>('Color');
-      row.Cells[6].Text := colorObject.GetValue<string>('LPI');
-      row.Cells[7].Text := colorObject.GetValue<string>('Size');
-    end;
+  colorsObject.Free;
 end;
 
 

kgOrdersServer/kgOrdersServer.ini

 [Settings]
 MemoLogLevel=4
 FileLogLevel=5
-LogFileNum=187
+LogFileNum=196
 webClientVersion=1.0.0
 
 [Database]