Measure/DataModules/ReportMemoryDm/rmGclBillsAuditCompareDm.dfm

object rmGclBillsAuditCompareData: TrmGclBillsAuditCompareData
  OldCreateOrder = False
  Left = 191
  Top = 114
  Height = 150
  Width = 215
  object cdsBills: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'B_Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'IndexCode'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Name'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'Price'
        DataType = ftFloat
      end
      item
        Name = 'NewPrice'
        DataType = ftFloat
      end
      item
        Name = 'ReferCurDealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'ReferCurDealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'ReferCurQcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'ReferCurQcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'ReferCurQcBGLCode'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'ReferCurPcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'ReferCurPcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'ReferCurPcBGLCode'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'ReferCurGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'ReferCurGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'ReplyCurDealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'ReplyCurDealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'ReplyCurQcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'ReplyCurQcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'ReplyCurQcBGLCode'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'ReplyCurPcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'ReplyCurPcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'ReplyCurPcBGLCode'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'ReplyCurGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'ReplyCurGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'FlowIndex'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 64
    Top = 32
    Data = {
      270300009619E0BD01000000180000001B000000000003000000270306425F43
      6F6465010049000000010005574944544802000200320009496E646578436F64
      650100490000000100055749445448020002001400044E616D6502004A000000
      010005574944544802000200900105556E69747301004A000000010005574944
      54480200020028000550726963650800040000000000084E6577507269636508
      000400000000001452656665724375724465616C5175616E7469747908000400
      000000001652656665724375724465616C546F74616C50726963650800040000
      00000012526566657243757251635175616E7469747908000400000000001452
      656665724375725163546F74616C507269636508000400000000001152656665
      72437572516342474C436F646501004A000000010005574944544802000200C8
      0012526566657243757250635175616E74697479080004000000000014526566
      65724375725063546F74616C5072696365080004000000000011526566657243
      7572506342474C436F646501004A000000010005574944544802000200C80016
      52656665724375724761746865725175616E7469747908000400000000001852
      65666572437572476174686572546F74616C5072696365080004000000000014
      5265706C794375724465616C5175616E74697479080004000000000016526570
      6C794375724465616C546F74616C50726963650800040000000000125265706C
      7943757251635175616E746974790800040000000000145265706C7943757251
      63546F74616C50726963650800040000000000115265706C7943757251634247
      4C436F646501004A000000010005574944544802000200C800125265706C7943
      757250635175616E746974790800040000000000145265706C79437572506354
      6F74616C50726963650800040000000000115265706C79437572506342474C43
      6F646501004A000000010005574944544802000200C800165265706C79437572
      4761746865725175616E746974790800040000000000185265706C7943757247
      6174686572546F74616C5072696365080004000000000009466C6F77496E6465
      7804000100000000000000}
    object cdsBillsB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBillsIndexCode: TStringField
      FieldName = 'IndexCode'
    end
    object cdsBillsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsBillsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsBillsPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsBillsNewPrice: TFloatField
      FieldName = 'NewPrice'
    end
    object cdsBillsReferCurDealQuantity: TFloatField
      FieldName = 'ReferCurDealQuantity'
    end
    object cdsBillsReferCurDealTotalPrice: TFloatField
      FieldName = 'ReferCurDealTotalPrice'
    end
    object cdsBillsReferCurQcQuantity: TFloatField
      FieldName = 'ReferCurQcQuantity'
    end
    object cdsBillsReferCurQcTotalPrice: TFloatField
      FieldName = 'ReferCurQcTotalPrice'
    end
    object cdsBillsReferCurQcBGLCode: TWideStringField
      FieldName = 'ReferCurQcBGLCode'
      Size = 100
    end
    object cdsBillsReferCurPcQuantity: TFloatField
      FieldName = 'ReferCurPcQuantity'
    end
    object cdsBillsReferCurPcTotalPrice: TFloatField
      FieldName = 'ReferCurPcTotalPrice'
    end
    object cdsBillsReferCurPcBGLCode: TWideStringField
      FieldName = 'ReferCurPcBGLCode'
      Size = 100
    end
    object cdsBillsReferCurGatherQuantity: TFloatField
      FieldName = 'ReferCurGatherQuantity'
    end
    object cdsBillsReferCurGatherTotalPrice: TFloatField
      FieldName = 'ReferCurGatherTotalPrice'
    end
    object cdsBillsReplyCurDealQuantity: TFloatField
      FieldName = 'ReplyCurDealQuantity'
    end
    object cdsBillsReplyCurDealTotalPrice: TFloatField
      FieldName = 'ReplyCurDealTotalPrice'
    end
    object cdsBillsReplyCurQcQuantity: TFloatField
      FieldName = 'ReplyCurQcQuantity'
    end
    object cdsBillsReplyCurQcTotalPrice: TFloatField
      FieldName = 'ReplyCurQcTotalPrice'
    end
    object cdsBillsReplyCurQcBGLCode: TWideStringField
      FieldName = 'ReplyCurQcBGLCode'
      Size = 100
    end
    object cdsBillsReplyCurPcQuantity: TFloatField
      FieldName = 'ReplyCurPcQuantity'
    end
    object cdsBillsReplyCurPcTotalPrice: TFloatField
      FieldName = 'ReplyCurPcTotalPrice'
    end
    object cdsBillsReplyCurPcBGLCode: TWideStringField
      FieldName = 'ReplyCurPcBGLCode'
      Size = 100
    end
    object cdsBillsReplyCurGatherQuantity: TFloatField
      FieldName = 'ReplyCurGatherQuantity'
    end
    object cdsBillsReplyCurGatherTotalPrice: TFloatField
      FieldName = 'ReplyCurGatherTotalPrice'
    end
    object cdsBillsFlowIndex: TIntegerField
      FieldName = 'FlowIndex'
    end
  end
end