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