BillsEditor/DB/DetailItemsDM.dfm

object DMDetailItems: TDMDetailItems
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 262
  Top = 224
  Height = 287
  Width = 696
  object cdsPPItems: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    AfterScroll = cdsPPItemsAfterScroll
    Left = 42
    Top = 160
    Data = {
      B70000009619E0BD010000001800000008000000000003000000B70002494404
      0001000000000004436F646501004A0000000100055749445448020002006400
      044E616D6502004A000000010005574944544802000200900105556E69747301
      004A0000000100055749445448020002002800085175616E7469747908000400
      0000000009556E6974507269636508000400000000000A546F74616C50726963
      6508000400000000000742696C6C73494404000100000000000000}
    object cdsPPItemsID: TIntegerField
      FieldName = 'ID'
    end
    object cdsPPItemsCode: TWideStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsPPItemsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsPPItemsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsPPItemsQuantity: TFloatField
      FieldName = 'Quantity'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsPPItemsUnitPrice: TFloatField
      FieldName = 'UnitPrice'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsPPItemsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsPPItemsBillsID: TIntegerField
      FieldName = 'BillsID'
    end
  end
  object cdsPPDrawQty: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'Name'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'DesignQuantity'
        DataType = ftFloat
      end
      item
        Name = 'MemoStr'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'BillsID'
        DataType = ftInteger
      end
      item
        Name = 'SerialNo'
        DataType = ftInteger
      end
      item
        Name = 'DQID'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    BeforePost = cdsPPDrawQtyBeforePost
    Left = 243
    Top = 158
    Data = {
      BF0000009619E0BD010000001800000008000000000003000000BF00044E616D
      6502004A000000010005574944544802000200900105556E69747301004A0000
      000100055749445448020002002800085175616E746974790800040000000000
      0E44657369676E5175616E746974790800040000000000074D656D6F53747202
      004A00000001000557494454480200020090010742696C6C7349440400010000
      0000000853657269616C4E6F0400010000000000044451494404000100000000
      000000}
    object cdsPPDrawQtyName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsPPDrawQtyUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsPPDrawQtyQuantity: TFloatField
      FieldName = 'Quantity'
      OnChange = cdsPPDrawQtyQuantityChange
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsPPDrawQtyDesignQuantity: TFloatField
      FieldName = 'DesignQuantity'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsPPDrawQtyMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 200
    end
    object cdsPPDrawQtyBillsID: TIntegerField
      FieldName = 'BillsID'
    end
    object cdsPPDrawQtySerialNo: TIntegerField
      FieldName = 'SerialNo'
    end
    object cdsPPDrawQtyDQID: TIntegerField
      FieldName = 'DQID'
    end
  end
  object cdsPPDetailItems: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    AfterScroll = cdsPPDetailItemsAfterScroll
    Left = 138
    Top = 159
    Data = {
      B60000009619E0BD010000001800000008000000000003000000B60002494404
      0001000000000004436F646501004A0000000100055749445448020002006400
      044E616D6502004A000000010005574944544802000200900105556E69747301
      004A0000000100055749445448020002002800085175616E7469747908000400
      0000000009556E6974507269636508000400000000000A546F74616C50726963
      650800040000000000064974656D494404000100000000000000}
    object cdsPPDetailItemsID: TIntegerField
      FieldName = 'ID'
    end
    object cdsPPDetailItemsCode: TWideStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsPPDetailItemsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsPPDetailItemsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsPPDetailItemsQuantity: TFloatField
      FieldName = 'Quantity'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsPPDetailItemsUnitPrice: TFloatField
      FieldName = 'UnitPrice'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsPPDetailItemsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsPPDetailItemsItemID: TIntegerField
      FieldName = 'ItemID'
    end
  end
  object cdsPQBills: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    AfterScroll = cdsPQBillsAfterScroll
    Left = 474
    Top = 56
    Data = {
      020100009619E0BD010000001800000008000000000003000000020102494404
      0001000000000006425F436F646501004A000000010005574944544802000200
      6400044E616D6502004A000000010005574944544802000200900105556E6974
      7301004A0000000100055749445448020002006400085175616E746974790800
      04000000000009556E697450726963650C0005000000020008444543494D414C
      530200020004000557494454480200020013000A546F74616C50726963650C00
      05000000020008444543494D414C530200020004000557494454480200020013
      00074D656D6F53747204004B0000000100075355425459504502004900050054
      657874000000}
    object cdsPQBillsID: TIntegerField
      FieldName = 'ID'
    end
    object cdsPQBillsCode: TWideStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsPQBillsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsPQBillsUnits: TWideStringField
      FieldName = 'Units'
      Size = 50
    end
    object cdsPQBillsQuantity: TFloatField
      FieldName = 'Quantity'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsPQBillsUnitPrice: TBCDField
      FieldName = 'UnitPrice'
      OnGetText = cdsPQBillsQuantityGetText
      Precision = 19
    end
    object cdsPQBillsTotalPrice: TBCDField
      FieldName = 'TotalPrice'
      OnGetText = cdsPQBillsQuantityGetText
      Precision = 19
    end
    object cdsPQBillsMemoStr: TMemoField
      FieldName = 'MemoStr'
      BlobType = ftMemo
    end
  end
  object cdsBills: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 416
    Top = 56
    object cdsBillsCode: TWideStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsBillsB_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBillsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsBillsUnits: TWideStringField
      FieldName = 'Units'
      Size = 50
    end
    object cdsBillsQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsBillsUnitPrice: TBCDField
      FieldName = 'UnitPrice'
      Precision = 19
    end
    object cdsBillsTotalPrice: TBCDField
      FieldName = 'TotalPrice'
      Precision = 19
    end
    object cdsBillsMemoStr: TMemoField
      FieldName = 'MemoStr'
      BlobType = ftMemo
    end
  end
  object cdsQIItems: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    AfterScroll = cdsQIItemsAfterScroll
    Left = 416
    Top = 158
    Data = {
      B70000009619E0BD010000001800000008000000000003000000B70002494404
      0001000000000004436F646501004A0000000100055749445448020002006400
      044E616D6502004A000000010005574944544802000200900105556E69747301
      004A0000000100055749445448020002002800085175616E7469747908000400
      0000000009556E6974507269636508000400000000000A546F74616C50726963
      6508000400000000000742696C6C73494404000100000000000000}
    object cdsQIItemsID: TIntegerField
      FieldName = 'ID'
    end
    object cdsQIItemsCode: TWideStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsQIItemsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsQIItemsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsQIItemsQuantity: TFloatField
      FieldName = 'Quantity'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsQIItemsUnitPrice: TFloatField
      FieldName = 'UnitPrice'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsQIItemsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsQIItemsBillsID: TIntegerField
      FieldName = 'BillsID'
    end
  end
  object cdsQIDetailItems: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 496
    Top = 158
    Data = {
      B60000009619E0BD010000001800000008000000000003000000B60002494404
      0001000000000004436F646501004A0000000100055749445448020002006400
      044E616D6502004A000000010005574944544802000200900105556E69747301
      004A0000000100055749445448020002002800085175616E7469747908000400
      0000000009556E6974507269636508000400000000000A546F74616C50726963
      650800040000000000064974656D494404000100000000000000}
    object cdsQIDetailItemsID: TIntegerField
      FieldName = 'ID'
    end
    object cdsQIDetailItemsCode: TWideStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsQIDetailItemsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsQIDetailItemsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsQIDetailItemsQuantity: TFloatField
      FieldName = 'Quantity'
      OnChange = cdsPPDrawQtyQuantityChange
    end
    object cdsQIDetailItemsUnitPrice: TFloatField
      FieldName = 'UnitPrice'
      OnChange = cdsPPDrawQtyQuantityChange
    end
    object cdsQIDetailItemsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
      OnChange = cdsPPDrawQtyQuantityChange
    end
    object cdsQIDetailItemsItemID: TIntegerField
      FieldName = 'ItemID'
    end
  end
  object cdsQIDrawQty: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'Name'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'DesignQuantity'
        DataType = ftFloat
      end
      item
        Name = 'MemoStr'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'BillsID'
        DataType = ftInteger
      end
      item
        Name = 'SerialNo'
        DataType = ftInteger
      end
      item
        Name = 'DQID'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 582
    Top = 158
    Data = {
      BF0000009619E0BD010000001800000008000000000003000000BF00044E616D
      6502004A000000010005574944544802000200900105556E69747301004A0000
      000100055749445448020002002800085175616E746974790800040000000000
      0E44657369676E5175616E746974790800040000000000074D656D6F53747202
      004A00000001000557494454480200020090010742696C6C7349440400010000
      0000000853657269616C4E6F0400010000000000044451494404000100000000
      000000}
    object cdsQIDrawQtyName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsQIDrawQtyUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsQIDrawQtyQuantity: TFloatField
      FieldName = 'Quantity'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsQIDrawQtyDesignQuantity: TFloatField
      FieldName = 'DesignQuantity'
      OnGetText = cdsPQBillsQuantityGetText
    end
    object cdsQIDrawQtyMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 200
    end
    object cdsQIDrawQtyBillsID: TIntegerField
      FieldName = 'BillsID'
    end
    object cdsQIDrawQtySerialNo: TIntegerField
      FieldName = 'SerialNo'
    end
    object cdsQIDrawQtyDQID: TIntegerField
      FieldName = 'DQID'
    end
  end
end