| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136 | 
							- object rmGclBillsCompareData: TrmGclBillsCompareData
 
-   OldCreateOrder = False
 
-   Left = 577
 
-   Top = 287
 
-   Height = 150
 
-   Width = 215
 
-   object cdsBills: TClientDataSet
 
-     Active = True
 
-     Aggregates = <>
 
-     FieldDefs = <
 
-       item
 
-         Name = 'B_Code'
 
-         DataType = ftString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'CodeIndex'
 
-         DataType = ftString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'Name'
 
-         DataType = ftWideString
 
-         Size = 200
 
-       end
 
-       item
 
-         Name = 'Units'
 
-         DataType = ftWideString
 
-         Size = 20
 
-       end
 
-       item
 
-         Name = 'SQuantity'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'SPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'STotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'CQuantity'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'CPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'CTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'DQuantity'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'DPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'DTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'MemoStr'
 
-         DataType = ftWideString
 
-         Size = 50
 
-       end>
 
-     IndexDefs = <>
 
-     Params = <>
 
-     StoreDefs = True
 
-     Left = 56
 
-     Top = 40
 
-     Data = {
 
-       410100009619E0BD01000000180000000E000000000003000000410106425F43
 
-       6F6465010049000000010005574944544802000200320009436F6465496E6465
 
-       780100490000000100055749445448020002003200044E616D6502004A000000
 
-       010005574944544802000200900105556E69747301004A000000010005574944
 
-       544802000200280009535175616E746974790800040000000000065350726963
 
-       6508000400000000000B53546F74616C50726963650800040000000000094351
 
-       75616E7469747908000400000000000643507269636508000400000000000B43
 
-       546F74616C5072696365080004000000000009445175616E7469747908000400
 
-       000000000644507269636508000400000000000B44546F74616C507269636508
 
-       00040000000000074D656D6F53747201004A0000000100055749445448020002
 
-       0064000000}
 
-     object cdsBillsB_Code: TStringField
 
-       FieldName = 'B_Code'
 
-       Size = 50
 
-     end
 
-     object cdsBillsCodeIndex: TStringField
 
-       FieldName = 'CodeIndex'
 
-       Size = 50
 
-     end
 
-     object cdsBillsName: TWideStringField
 
-       FieldName = 'Name'
 
-       Size = 200
 
-     end
 
-     object cdsBillsUnits: TWideStringField
 
-       FieldName = 'Units'
 
-     end
 
-     object cdsBillsSQuantity: TFloatField
 
-       FieldName = 'SQuantity'
 
-     end
 
-     object cdsBillsSPrice: TFloatField
 
-       FieldName = 'SPrice'
 
-     end
 
-     object cdsBillsSTotalPrice: TFloatField
 
-       FieldName = 'STotalPrice'
 
-     end
 
-     object cdsBillsCQuantity: TFloatField
 
-       FieldName = 'CQuantity'
 
-     end
 
-     object cdsBillsCPrice: TFloatField
 
-       FieldName = 'CPrice'
 
-     end
 
-     object cdsBillsCTotalPrice: TFloatField
 
-       FieldName = 'CTotalPrice'
 
-     end
 
-     object cdsBillsDQuantity: TFloatField
 
-       FieldName = 'DQuantity'
 
-     end
 
-     object cdsBillsDPrice: TFloatField
 
-       FieldName = 'DPrice'
 
-     end
 
-     object cdsBillsDTotalPrice: TFloatField
 
-       FieldName = 'DTotalPrice'
 
-     end
 
-     object cdsBillsMemoStr: TWideStringField
 
-       FieldName = 'MemoStr'
 
-       Size = 50
 
-     end
 
-   end
 
- end
 
 
  |