多审表，汇总期增加到100

DataModules/ReportMemoryDm/rmGclBillsAddDm.dfm

@@ -5,83 +5,14 @@ object rmGclBillsAddData: TrmGclBillsAddData
   Height = 150
   Width = 215
   object cdsBills: TClientDataSet
-    Active = True
     Aggregates = <>
+    FieldDefs = <>
+    IndexDefs = <>
     IndexFieldNames = 'IndexCode'
     Params = <>
+    StoreDefs = True
     Left = 56
     Top = 40
-    Data = {
-      A20800009619E0BD01000000180000006D000000000003000000A20806425F43
-      6F6465010049000000010005574944544802000200320009496E646578436F64
-      650100490000000100055749445448020002003200044E616D6501004A000000
-      010005574944544802000200C80005556E69747301004A000000010005574944
-      544802000200280005507269636508000400000000000C4465616C5175616E74
-      69747908000400000000000E4465616C546F74616C5072696365080004000000
-      0000085175616E7469747908000400000000000A546F74616C50726963650800
-      040000000000095175616E746974793108000400000000000B546F74616C5072
-      696365310800040000000000095175616E746974793208000400000000000B54
-      6F74616C5072696365320800040000000000095175616E746974793308000400
-      000000000B546F74616C5072696365330800040000000000095175616E746974
-      793408000400000000000B546F74616C50726963653408000400000000000951
-      75616E746974793508000400000000000B546F74616C50726963653508000400
-      00000000095175616E746974793608000400000000000B546F74616C50726963
-      65360800040000000000095175616E746974793708000400000000000B546F74
-      616C5072696365370800040000000000095175616E7469747938080004000000
-      00000B546F74616C5072696365380800040000000000095175616E7469747939
-      08000400000000000B546F74616C50726963653908000400000000000A517561
-      6E74697479313008000400000000000C546F74616C5072696365313008000400
-      000000000A5175616E74697479313108000400000000000C546F74616C507269
-      6365313108000400000000000A5175616E74697479313208000400000000000C
-      546F74616C5072696365313208000400000000000A5175616E74697479313308
-      000400000000000C546F74616C5072696365313308000400000000000A517561
-      6E74697479313408000400000000000C546F74616C5072696365313408000400
-      000000000A5175616E74697479313508000400000000000C546F74616C507269
-      6365313508000400000000000A5175616E74697479313608000400000000000C
-      546F74616C5072696365313608000400000000000A5175616E74697479313708
-      000400000000000C546F74616C5072696365313708000400000000000A517561
-      6E74697479313808000400000000000C546F74616C5072696365313808000400
-      000000000A5175616E74697479313908000400000000000C546F74616C507269
-      6365313908000400000000000A5175616E74697479323008000400000000000C
-      546F74616C5072696365323008000400000000000A5175616E74697479323108
-      000400000000000C546F74616C5072696365323108000400000000000A517561
-      6E74697479323208000400000000000C546F74616C5072696365323208000400
-      000000000A5175616E74697479323308000400000000000C546F74616C507269
-      6365323308000400000000000A5175616E74697479323408000400000000000C
-      546F74616C5072696365323408000400000000000A5175616E74697479323508
-      000400000000000C546F74616C5072696365323508000400000000000A517561
-      6E74697479323608000400000000000C546F74616C5072696365323608000400
-      000000000A5175616E74697479323708000400000000000C546F74616C507269
-      6365323708000400000000000A5175616E74697479323808000400000000000C
-      546F74616C5072696365323808000400000000000A5175616E74697479323908
-      000400000000000C546F74616C5072696365323908000400000000000A517561
-      6E74697479333008000400000000000C546F74616C5072696365333008000400
-      000000000A5175616E74697479333108000400000000000C546F74616C507269
-      6365333108000400000000000A5175616E74697479333208000400000000000C
-      546F74616C5072696365333208000400000000000A5175616E74697479333308
-      000400000000000C546F74616C5072696365333308000400000000000A517561
-      6E74697479333408000400000000000C546F74616C5072696365333408000400
-      000000000A5175616E74697479333508000400000000000C546F74616C507269
-      6365333508000400000000000A5175616E74697479333608000400000000000C
-      546F74616C5072696365333608000400000000000A5175616E74697479333708
-      000400000000000C546F74616C5072696365333708000400000000000A517561
-      6E74697479333808000400000000000C546F74616C5072696365333808000400
-      000000000A5175616E74697479333908000400000000000C546F74616C507269
-      6365333908000400000000000A5175616E74697479343008000400000000000C
-      546F74616C5072696365343008000400000000000A5175616E74697479343108
-      000400000000000C546F74616C5072696365343108000400000000000A517561
-      6E74697479343208000400000000000C546F74616C5072696365343208000400
-      000000000A5175616E74697479343308000400000000000C546F74616C507269
-      6365343308000400000000000A5175616E74697479343408000400000000000C
-      546F74616C5072696365343408000400000000000A5175616E74697479343508
-      000400000000000C546F74616C5072696365343508000400000000000A517561
-      6E74697479343608000400000000000C546F74616C5072696365343608000400
-      000000000A5175616E74697479343708000400000000000C546F74616C507269
-      6365343708000400000000000A5175616E74697479343808000400000000000C
-      546F74616C5072696365343808000400000000000A5175616E74697479343908
-      000400000000000C546F74616C5072696365343908000400000000000A517561
-      6E74697479353008000400000000000C546F74616C5072696365353008000400
-      000000000000}
     object cdsBillsB_Code: TStringField
       FieldName = 'B_Code'
       Size = 50
@@ -412,5 +343,305 @@ object rmGclBillsAddData: TrmGclBillsAddData
     object cdsBillsTotalPrice50: TFloatField
       FieldName = 'TotalPrice50'
     end
+    object cdsBillsQuantity51: TFloatField
+      FieldName = 'Quantity51'
+    end
+    object cdsBillsTotalPrice51: TFloatField
+      FieldName = 'TotalPrice51'
+    end
+    object cdsBillsQuantity52: TFloatField
+      FieldName = 'Quantity52'
+    end
+    object cdsBillsTotalPrice52: TFloatField
+      FieldName = 'TotalPrice52'
+    end
+    object cdsBillsQuantity53: TFloatField
+      FieldName = 'Quantity53'
+    end
+    object cdsBillsTotalPrice53: TFloatField
+      FieldName = 'TotalPrice53'
+    end
+    object cdsBillsQuantity54: TFloatField
+      FieldName = 'Quantity54'
+    end
+    object cdsBillsTotalPrice54: TFloatField
+      FieldName = 'TotalPrice54'
+    end
+    object cdsBillsQuantity55: TFloatField
+      FieldName = 'Quantity55'
+    end
+    object cdsBillsTotalPrice55: TFloatField
+      FieldName = 'TotalPrice55'
+    end
+    object cdsBillsQuantity56: TFloatField
+      FieldName = 'Quantity56'
+    end
+    object cdsBillsTotalPrice56: TFloatField
+      FieldName = 'TotalPrice56'
+    end
+    object cdsBillsQuantity57: TFloatField
+      FieldName = 'Quantity57'
+    end
+    object cdsBillsTotalPrice57: TFloatField
+      FieldName = 'TotalPrice57'
+    end
+    object cdsBillsQuantity58: TFloatField
+      FieldName = 'Quantity58'
+    end
+    object cdsBillsTotalPrice58: TFloatField
+      FieldName = 'TotalPrice58'
+    end
+    object cdsBillsQuantity59: TFloatField
+      FieldName = 'Quantity59'
+    end
+    object cdsBillsTotalPrice59: TFloatField
+      FieldName = 'TotalPrice59'
+    end
+    object cdsBillsQuantity60: TFloatField
+      FieldName = 'Quantity60'
+    end
+    object cdsBillsTotalPrice60: TFloatField
+      FieldName = 'TotalPrice60'
+    end
+    object cdsBillsQuantity61: TFloatField
+      FieldName = 'Quantity61'
+    end
+    object cdsBillsTotalPrice61: TFloatField
+      FieldName = 'TotalPrice61'
+    end
+    object cdsBillsQuantity62: TFloatField
+      FieldName = 'Quantity62'
+    end
+    object cdsBillsTotalPrice62: TFloatField
+      FieldName = 'TotalPrice62'
+    end
+    object cdsBillsQuantity63: TFloatField
+      FieldName = 'Quantity63'
+    end
+    object cdsBillsTotalPrice63: TFloatField
+      FieldName = 'TotalPrice63'
+    end
+    object cdsBillsQuantity64: TFloatField
+      FieldName = 'Quantity64'
+    end
+    object cdsBillsTotalPrice64: TFloatField
+      FieldName = 'TotalPrice64'
+    end
+    object cdsBillsQuantity65: TFloatField
+      FieldName = 'Quantity65'
+    end
+    object cdsBillsTotalPrice65: TFloatField
+      FieldName = 'TotalPrice65'
+    end
+    object cdsBillsQuantity66: TFloatField
+      FieldName = 'Quantity66'
+    end
+    object cdsBillsTotalPrice66: TFloatField
+      FieldName = 'TotalPrice66'
+    end
+    object cdsBillsQuantity67: TFloatField
+      FieldName = 'Quantity67'
+    end
+    object cdsBillsTotalPrice67: TFloatField
+      FieldName = 'TotalPrice67'
+    end
+    object cdsBillsQuantity68: TFloatField
+      FieldName = 'Quantity68'
+    end
+    object cdsBillsTotalPrice68: TFloatField
+      FieldName = 'TotalPrice68'
+    end
+    object cdsBillsQuantity69: TFloatField
+      FieldName = 'Quantity69'
+    end
+    object cdsBillsTotalPrice69: TFloatField
+      FieldName = 'TotalPrice69'
+    end
+    object cdsBillsQuantity70: TFloatField
+      FieldName = 'Quantity70'
+    end
+    object cdsBillsTotalPrice70: TFloatField
+      FieldName = 'TotalPrice70'
+    end
+    object cdsBillsQuantity71: TFloatField
+      FieldName = 'Quantity71'
+    end
+    object cdsBillsTotalPrice71: TFloatField
+      FieldName = 'TotalPrice71'
+    end
+    object cdsBillsQuantity72: TFloatField
+      FieldName = 'Quantity72'
+    end
+    object cdsBillsTotalPrice72: TFloatField
+      FieldName = 'TotalPrice72'
+    end
+    object cdsBillsQuantity73: TFloatField
+      FieldName = 'Quantity73'
+    end
+    object cdsBillsTotalPrice73: TFloatField
+      FieldName = 'TotalPrice73'
+    end
+    object cdsBillsQuantity74: TFloatField
+      FieldName = 'Quantity74'
+    end
+    object cdsBillsTotalPrice74: TFloatField
+      FieldName = 'TotalPrice74'
+    end
+    object cdsBillsQuantity75: TFloatField
+      FieldName = 'Quantity75'
+    end
+    object cdsBillsTotalPrice75: TFloatField
+      FieldName = 'TotalPrice75'
+    end
+    object cdsBillsQuantity76: TFloatField
+      FieldName = 'Quantity76'
+    end
+    object cdsBillsTotalPrice76: TFloatField
+      FieldName = 'TotalPrice76'
+    end
+    object cdsBillsQuantity77: TFloatField
+      FieldName = 'Quantity77'
+    end
+    object cdsBillsTotalPrice77: TFloatField
+      FieldName = 'TotalPrice77'
+    end
+    object cdsBillsQuantity78: TFloatField
+      FieldName = 'Quantity78'
+    end
+    object cdsBillsTotalPrice78: TFloatField
+      FieldName = 'TotalPrice78'
+    end
+    object cdsBillsQuantity79: TFloatField
+      FieldName = 'Quantity79'
+    end
+    object cdsBillsTotalPrice79: TFloatField
+      FieldName = 'TotalPrice79'
+    end
+    object cdsBillsQuantity80: TFloatField
+      FieldName = 'Quantity80'
+    end
+    object cdsBillsTotalPrice80: TFloatField
+      FieldName = 'TotalPrice80'
+    end
+    object cdsBillsQuantity81: TFloatField
+      FieldName = 'Quantity81'
+    end
+    object cdsBillsTotalPrice81: TFloatField
+      FieldName = 'TotalPrice81'
+    end
+    object cdsBillsQuantity82: TFloatField
+      FieldName = 'Quantity82'
+    end
+    object cdsBillsTotalPrice82: TFloatField
+      FieldName = 'TotalPrice82'
+    end
+    object cdsBillsQuantity83: TFloatField
+      FieldName = 'Quantity83'
+    end
+    object cdsBillsTotalPrice83: TFloatField
+      FieldName = 'TotalPrice83'
+    end
+    object cdsBillsQuantity84: TFloatField
+      FieldName = 'Quantity84'
+    end
+    object cdsBillsTotalPrice84: TFloatField
+      FieldName = 'TotalPrice84'
+    end
+    object cdsBillsQuantity85: TFloatField
+      FieldName = 'Quantity85'
+    end
+    object cdsBillsTotalPrice85: TFloatField
+      FieldName = 'TotalPrice85'
+    end
+    object cdsBillsQuantity86: TFloatField
+      FieldName = 'Quantity86'
+    end
+    object cdsBillsTotalPrice86: TFloatField
+      FieldName = 'TotalPrice86'
+    end
+    object cdsBillsQuantity87: TFloatField
+      FieldName = 'Quantity87'
+    end
+    object cdsBillsTotalPrice87: TFloatField
+      FieldName = 'TotalPrice87'
+    end
+    object cdsBillsQuantity88: TFloatField
+      FieldName = 'Quantity88'
+    end
+    object cdsBillsTotalPrice88: TFloatField
+      FieldName = 'TotalPrice88'
+    end
+    object cdsBillsQuantity89: TFloatField
+      FieldName = 'Quantity89'
+    end
+    object cdsBillsTotalPrice89: TFloatField
+      FieldName = 'TotalPrice89'
+    end
+    object cdsBillsQuantity90: TFloatField
+      FieldName = 'Quantity90'
+    end
+    object cdsBillsTotalPrice90: TFloatField
+      FieldName = 'TotalPrice90'
+    end
+    object cdsBillsQuantity91: TFloatField
+      FieldName = 'Quantity91'
+    end
+    object cdsBillsTotalPrice91: TFloatField
+      FieldName = 'TotalPrice91'
+    end
+    object cdsBillsQuantity92: TFloatField
+      FieldName = 'Quantity92'
+    end
+    object cdsBillsTotalPrice92: TFloatField
+      FieldName = 'TotalPrice92'
+    end
+    object cdsBillsQuantity93: TFloatField
+      FieldName = 'Quantity93'
+    end
+    object cdsBillsTotalPrice93: TFloatField
+      FieldName = 'TotalPrice93'
+    end
+    object cdsBillsQuantity94: TFloatField
+      FieldName = 'Quantity94'
+    end
+    object cdsBillsTotalPrice94: TFloatField
+      FieldName = 'TotalPrice94'
+    end
+    object cdsBillsQuantity95: TFloatField
+      FieldName = 'Quantity95'
+    end
+    object cdsBillsTotalPrice95: TFloatField
+      FieldName = 'TotalPrice95'
+    end
+    object cdsBillsQuantity96: TFloatField
+      FieldName = 'Quantity96'
+    end
+    object cdsBillsTotalPrice96: TFloatField
+      FieldName = 'TotalPrice96'
+    end
+    object cdsBillsQuantity97: TFloatField
+      FieldName = 'Quantity97'
+    end
+    object cdsBillsTotalPrice97: TFloatField
+      FieldName = 'TotalPrice97'
+    end
+    object cdsBillsQuantity98: TFloatField
+      FieldName = 'Quantity98'
+    end
+    object cdsBillsTotalPrice98: TFloatField
+      FieldName = 'TotalPrice98'
+    end
+    object cdsBillsQuantity99: TFloatField
+      FieldName = 'Quantity99'
+    end
+    object cdsBillsTotalPrice99: TFloatField
+      FieldName = 'TotalPrice99'
+    end
+    object cdsBillsQuantity100: TFloatField
+      FieldName = 'Quantity100'
+    end
+    object cdsBillsTotalPrice100: TFloatField
+      FieldName = 'TotalPrice100'
+    end
   end
 end

DataModules/ReportMemoryDm/rmGclBillsAddDm.pas

@@ -7,7 +7,7 @@ uses
   PhaseData, sdDB, StageDm;
 
 type
-  TP_DoubleArray = array [1..50] of Double;
+  TP_DoubleArray = array [1..100] of Double;
 
   TGclAddNode = class
     FB_Code: string;
@@ -134,6 +134,106 @@ type
     cdsBillsTotalPrice49: TFloatField;
     cdsBillsQuantity50: TFloatField;
     cdsBillsTotalPrice50: TFloatField;
+    cdsBillsQuantity51: TFloatField;
+    cdsBillsTotalPrice51: TFloatField;
+    cdsBillsQuantity52: TFloatField;
+    cdsBillsTotalPrice52: TFloatField;
+    cdsBillsQuantity53: TFloatField;
+    cdsBillsTotalPrice53: TFloatField;
+    cdsBillsQuantity54: TFloatField;
+    cdsBillsTotalPrice54: TFloatField;
+    cdsBillsQuantity55: TFloatField;
+    cdsBillsTotalPrice55: TFloatField;
+    cdsBillsQuantity56: TFloatField;
+    cdsBillsTotalPrice56: TFloatField;
+    cdsBillsQuantity57: TFloatField;
+    cdsBillsTotalPrice57: TFloatField;
+    cdsBillsQuantity58: TFloatField;
+    cdsBillsTotalPrice58: TFloatField;
+    cdsBillsQuantity59: TFloatField;
+    cdsBillsTotalPrice59: TFloatField;
+    cdsBillsQuantity60: TFloatField;
+    cdsBillsTotalPrice60: TFloatField;
+    cdsBillsQuantity61: TFloatField;
+    cdsBillsTotalPrice61: TFloatField;
+    cdsBillsQuantity62: TFloatField;
+    cdsBillsTotalPrice62: TFloatField;
+    cdsBillsQuantity63: TFloatField;
+    cdsBillsTotalPrice63: TFloatField;
+    cdsBillsQuantity64: TFloatField;
+    cdsBillsTotalPrice64: TFloatField;
+    cdsBillsQuantity65: TFloatField;
+    cdsBillsTotalPrice65: TFloatField;
+    cdsBillsQuantity66: TFloatField;
+    cdsBillsTotalPrice66: TFloatField;
+    cdsBillsQuantity67: TFloatField;
+    cdsBillsTotalPrice67: TFloatField;
+    cdsBillsQuantity68: TFloatField;
+    cdsBillsTotalPrice68: TFloatField;
+    cdsBillsQuantity69: TFloatField;
+    cdsBillsTotalPrice69: TFloatField;
+    cdsBillsQuantity70: TFloatField;
+    cdsBillsTotalPrice70: TFloatField;
+    cdsBillsQuantity71: TFloatField;
+    cdsBillsTotalPrice71: TFloatField;
+    cdsBillsQuantity72: TFloatField;
+    cdsBillsTotalPrice72: TFloatField;
+    cdsBillsQuantity73: TFloatField;
+    cdsBillsTotalPrice73: TFloatField;
+    cdsBillsQuantity74: TFloatField;
+    cdsBillsTotalPrice74: TFloatField;
+    cdsBillsQuantity75: TFloatField;
+    cdsBillsTotalPrice75: TFloatField;
+    cdsBillsQuantity76: TFloatField;
+    cdsBillsTotalPrice76: TFloatField;
+    cdsBillsQuantity77: TFloatField;
+    cdsBillsTotalPrice77: TFloatField;
+    cdsBillsQuantity78: TFloatField;
+    cdsBillsTotalPrice78: TFloatField;
+    cdsBillsQuantity79: TFloatField;
+    cdsBillsTotalPrice79: TFloatField;
+    cdsBillsQuantity80: TFloatField;
+    cdsBillsTotalPrice80: TFloatField;
+    cdsBillsQuantity81: TFloatField;
+    cdsBillsTotalPrice81: TFloatField;
+    cdsBillsQuantity82: TFloatField;
+    cdsBillsTotalPrice82: TFloatField;
+    cdsBillsQuantity83: TFloatField;
+    cdsBillsTotalPrice83: TFloatField;
+    cdsBillsQuantity84: TFloatField;
+    cdsBillsTotalPrice84: TFloatField;
+    cdsBillsQuantity85: TFloatField;
+    cdsBillsTotalPrice85: TFloatField;
+    cdsBillsQuantity86: TFloatField;
+    cdsBillsTotalPrice86: TFloatField;
+    cdsBillsQuantity87: TFloatField;
+    cdsBillsTotalPrice87: TFloatField;
+    cdsBillsQuantity88: TFloatField;
+    cdsBillsTotalPrice88: TFloatField;
+    cdsBillsQuantity89: TFloatField;
+    cdsBillsTotalPrice89: TFloatField;
+    cdsBillsQuantity90: TFloatField;
+    cdsBillsTotalPrice90: TFloatField;
+    cdsBillsQuantity91: TFloatField;
+    cdsBillsTotalPrice91: TFloatField;
+    cdsBillsQuantity92: TFloatField;
+    cdsBillsTotalPrice92: TFloatField;
+    cdsBillsQuantity93: TFloatField;
+    cdsBillsTotalPrice93: TFloatField;
+    cdsBillsQuantity94: TFloatField;
+    cdsBillsTotalPrice94: TFloatField;
+    cdsBillsQuantity95: TFloatField;
+    cdsBillsTotalPrice95: TFloatField;
+    cdsBillsQuantity96: TFloatField;
+    cdsBillsTotalPrice96: TFloatField;
+    cdsBillsQuantity97: TFloatField;
+    cdsBillsTotalPrice97: TFloatField;
+    cdsBillsQuantity98: TFloatField;
+    cdsBillsTotalPrice98: TFloatField;
+    cdsBillsQuantity99: TFloatField;
+    cdsBillsTotalPrice99: TFloatField;
+    cdsBillsQuantity100: TFloatField;
+    cdsBillsTotalPrice100: TFloatField;
   private
     FProjectData: TProjectData;
     FGclAddList: TList;
@@ -421,6 +521,106 @@ begin
     cdsBillsTotalPrice49.AsFloat := GclAddNode.FP_TotalPrice[49];
     cdsBillsQuantity50.AsFloat := GclAddNode.FP_Quantity[50];
     cdsBillsTotalPrice50.AsFloat := GclAddNode.FP_TotalPrice[50];
+    cdsBillsQuantity51.AsFloat := GclAddNode.FP_Quantity[51];
+    cdsBillsTotalPrice51.AsFloat := GclAddNode.FP_TotalPrice[51];
+    cdsBillsQuantity52.AsFloat := GclAddNode.FP_Quantity[52];
+    cdsBillsTotalPrice52.AsFloat := GclAddNode.FP_TotalPrice[52];
+    cdsBillsQuantity53.AsFloat := GclAddNode.FP_Quantity[53];
+    cdsBillsTotalPrice53.AsFloat := GclAddNode.FP_TotalPrice[53];
+    cdsBillsQuantity54.AsFloat := GclAddNode.FP_Quantity[54];
+    cdsBillsTotalPrice54.AsFloat := GclAddNode.FP_TotalPrice[54];
+    cdsBillsQuantity55.AsFloat := GclAddNode.FP_Quantity[55];
+    cdsBillsTotalPrice55.AsFloat := GclAddNode.FP_TotalPrice[55];
+    cdsBillsQuantity56.AsFloat := GclAddNode.FP_Quantity[56];
+    cdsBillsTotalPrice56.AsFloat := GclAddNode.FP_TotalPrice[56];
+    cdsBillsQuantity57.AsFloat := GclAddNode.FP_Quantity[57];
+    cdsBillsTotalPrice57.AsFloat := GclAddNode.FP_TotalPrice[57];
+    cdsBillsQuantity58.AsFloat := GclAddNode.FP_Quantity[58];
+    cdsBillsTotalPrice58.AsFloat := GclAddNode.FP_TotalPrice[58];
+    cdsBillsQuantity59.AsFloat := GclAddNode.FP_Quantity[59];
+    cdsBillsTotalPrice59.AsFloat := GclAddNode.FP_TotalPrice[59];
+    cdsBillsQuantity60.AsFloat := GclAddNode.FP_Quantity[60];
+    cdsBillsTotalPrice60.AsFloat := GclAddNode.FP_TotalPrice[60];
+    cdsBillsQuantity61.AsFloat := GclAddNode.FP_Quantity[61];
+    cdsBillsTotalPrice61.AsFloat := GclAddNode.FP_TotalPrice[61];
+    cdsBillsQuantity62.AsFloat := GclAddNode.FP_Quantity[62];
+    cdsBillsTotalPrice62.AsFloat := GclAddNode.FP_TotalPrice[62];
+    cdsBillsQuantity63.AsFloat := GclAddNode.FP_Quantity[63];
+    cdsBillsTotalPrice63.AsFloat := GclAddNode.FP_TotalPrice[63];
+    cdsBillsQuantity64.AsFloat := GclAddNode.FP_Quantity[64];
+    cdsBillsTotalPrice64.AsFloat := GclAddNode.FP_TotalPrice[64];
+    cdsBillsQuantity65.AsFloat := GclAddNode.FP_Quantity[65];
+    cdsBillsTotalPrice65.AsFloat := GclAddNode.FP_TotalPrice[65];
+    cdsBillsQuantity66.AsFloat := GclAddNode.FP_Quantity[66];
+    cdsBillsTotalPrice66.AsFloat := GclAddNode.FP_TotalPrice[66];
+    cdsBillsQuantity67.AsFloat := GclAddNode.FP_Quantity[67];
+    cdsBillsTotalPrice67.AsFloat := GclAddNode.FP_TotalPrice[67];
+    cdsBillsQuantity68.AsFloat := GclAddNode.FP_Quantity[68];
+    cdsBillsTotalPrice68.AsFloat := GclAddNode.FP_TotalPrice[68];
+    cdsBillsQuantity69.AsFloat := GclAddNode.FP_Quantity[69];
+    cdsBillsTotalPrice69.AsFloat := GclAddNode.FP_TotalPrice[69];
+    cdsBillsQuantity70.AsFloat := GclAddNode.FP_Quantity[70];
+    cdsBillsTotalPrice70.AsFloat := GclAddNode.FP_TotalPrice[70];
+    cdsBillsQuantity71.AsFloat := GclAddNode.FP_Quantity[71];
+    cdsBillsTotalPrice71.AsFloat := GclAddNode.FP_TotalPrice[71];
+    cdsBillsQuantity72.AsFloat := GclAddNode.FP_Quantity[72];
+    cdsBillsTotalPrice72.AsFloat := GclAddNode.FP_TotalPrice[72];
+    cdsBillsQuantity73.AsFloat := GclAddNode.FP_Quantity[73];
+    cdsBillsTotalPrice73.AsFloat := GclAddNode.FP_TotalPrice[73];
+    cdsBillsQuantity74.AsFloat := GclAddNode.FP_Quantity[74];
+    cdsBillsTotalPrice74.AsFloat := GclAddNode.FP_TotalPrice[74];
+    cdsBillsQuantity75.AsFloat := GclAddNode.FP_Quantity[75];
+    cdsBillsTotalPrice75.AsFloat := GclAddNode.FP_TotalPrice[75];
+    cdsBillsQuantity76.AsFloat := GclAddNode.FP_Quantity[76];
+    cdsBillsTotalPrice76.AsFloat := GclAddNode.FP_TotalPrice[76];
+    cdsBillsQuantity77.AsFloat := GclAddNode.FP_Quantity[77];
+    cdsBillsTotalPrice77.AsFloat := GclAddNode.FP_TotalPrice[77];
+    cdsBillsQuantity78.AsFloat := GclAddNode.FP_Quantity[78];
+    cdsBillsTotalPrice78.AsFloat := GclAddNode.FP_TotalPrice[78];
+    cdsBillsQuantity79.AsFloat := GclAddNode.FP_Quantity[79];
+    cdsBillsTotalPrice79.AsFloat := GclAddNode.FP_TotalPrice[79];
+    cdsBillsQuantity80.AsFloat := GclAddNode.FP_Quantity[80];
+    cdsBillsTotalPrice80.AsFloat := GclAddNode.FP_TotalPrice[80];
+    cdsBillsQuantity81.AsFloat := GclAddNode.FP_Quantity[81];
+    cdsBillsTotalPrice81.AsFloat := GclAddNode.FP_TotalPrice[81];
+    cdsBillsQuantity82.AsFloat := GclAddNode.FP_Quantity[82];
+    cdsBillsTotalPrice82.AsFloat := GclAddNode.FP_TotalPrice[82];
+    cdsBillsQuantity83.AsFloat := GclAddNode.FP_Quantity[83];
+    cdsBillsTotalPrice83.AsFloat := GclAddNode.FP_TotalPrice[83];
+    cdsBillsQuantity84.AsFloat := GclAddNode.FP_Quantity[84];
+    cdsBillsTotalPrice84.AsFloat := GclAddNode.FP_TotalPrice[84];
+    cdsBillsQuantity85.AsFloat := GclAddNode.FP_Quantity[85];
+    cdsBillsTotalPrice85.AsFloat := GclAddNode.FP_TotalPrice[85];
+    cdsBillsQuantity86.AsFloat := GclAddNode.FP_Quantity[86];
+    cdsBillsTotalPrice86.AsFloat := GclAddNode.FP_TotalPrice[86];
+    cdsBillsQuantity87.AsFloat := GclAddNode.FP_Quantity[87];
+    cdsBillsTotalPrice87.AsFloat := GclAddNode.FP_TotalPrice[87];
+    cdsBillsQuantity88.AsFloat := GclAddNode.FP_Quantity[88];
+    cdsBillsTotalPrice88.AsFloat := GclAddNode.FP_TotalPrice[88];
+    cdsBillsQuantity89.AsFloat := GclAddNode.FP_Quantity[89];
+    cdsBillsTotalPrice89.AsFloat := GclAddNode.FP_TotalPrice[89];
+    cdsBillsQuantity90.AsFloat := GclAddNode.FP_Quantity[90];
+    cdsBillsTotalPrice90.AsFloat := GclAddNode.FP_TotalPrice[90];
+    cdsBillsQuantity91.AsFloat := GclAddNode.FP_Quantity[91];
+    cdsBillsTotalPrice91.AsFloat := GclAddNode.FP_TotalPrice[91];
+    cdsBillsQuantity92.AsFloat := GclAddNode.FP_Quantity[92];
+    cdsBillsTotalPrice92.AsFloat := GclAddNode.FP_TotalPrice[92];
+    cdsBillsQuantity93.AsFloat := GclAddNode.FP_Quantity[93];
+    cdsBillsTotalPrice93.AsFloat := GclAddNode.FP_TotalPrice[93];
+    cdsBillsQuantity94.AsFloat := GclAddNode.FP_Quantity[94];
+    cdsBillsTotalPrice94.AsFloat := GclAddNode.FP_TotalPrice[94];
+    cdsBillsQuantity95.AsFloat := GclAddNode.FP_Quantity[95];
+    cdsBillsTotalPrice95.AsFloat := GclAddNode.FP_TotalPrice[95];
+    cdsBillsQuantity96.AsFloat := GclAddNode.FP_Quantity[96];
+    cdsBillsTotalPrice96.AsFloat := GclAddNode.FP_TotalPrice[96];
+    cdsBillsQuantity97.AsFloat := GclAddNode.FP_Quantity[97];
+    cdsBillsTotalPrice97.AsFloat := GclAddNode.FP_TotalPrice[97];
+    cdsBillsQuantity98.AsFloat := GclAddNode.FP_Quantity[98];
+    cdsBillsTotalPrice98.AsFloat := GclAddNode.FP_TotalPrice[98];
+    cdsBillsQuantity99.AsFloat := GclAddNode.FP_Quantity[99];
+    cdsBillsTotalPrice99.AsFloat := GclAddNode.FP_TotalPrice[99];
+    cdsBillsQuantity100.AsFloat := GclAddNode.FP_Quantity[100];
+    cdsBillsTotalPrice100.AsFloat := GclAddNode.FP_TotalPrice[100];
     cdsBills.Post;
   end;
 end;