123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251 |
- object rmGcl_XmjBillsData: TrmGcl_XmjBillsData
- OldCreateOrder = False
- Left = 795
- Top = 218
- Height = 150
- Width = 215
- object cdsGcl: TClientDataSet
- Active = True
- Aggregates = <>
- FieldDefs = <
- item
- Name = 'IndexCode'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'IndexID'
- DataType = ftInteger
- end
- item
- Name = 'B_Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'Name'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'Peg'
- DataType = ftWideString
- Size = 50
- end
- item
- Name = 'NameDanWei'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'NameFenBu'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'NameFenXiang'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'NameUnit'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'DrawingCode'
- DataType = ftWideString
- Size = 50
- end
- item
- Name = 'Price'
- DataType = ftFloat
- end
- item
- Name = 'Quantity'
- DataType = ftFloat
- end
- item
- Name = 'TotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'DealQuantity'
- DataType = ftFloat
- end
- item
- Name = 'DealTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'DifferQuantity'
- DataType = ftFloat
- end
- item
- Name = 'DifferTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'Units'
- DataType = ftWideString
- Size = 20
- end
- item
- Name = 'NewPrice'
- DataType = ftFloat
- end
- item
- Name = 'Position'
- DataType = ftWideString
- Size = 255
- end
- item
- Name = 'OrgQuantity'
- DataType = ftFloat
- end
- item
- Name = 'OrgTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'MisQuantity'
- DataType = ftFloat
- end
- item
- Name = 'MisTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'OthQuantity'
- DataType = ftFloat
- end
- item
- Name = 'OthTotalPrice'
- DataType = ftFloat
- end>
- IndexDefs = <>
- Params = <>
- StoreDefs = True
- Left = 56
- Top = 48
- Data = {
- 9C0200009619E0BD01000000180000001B0000000000030000009C0209496E64
- 6578436F6465010049000000010005574944544802000200320007496E646578
- 4944040001000000000006425F436F6465010049000000010005574944544802
- 0002003200044E616D6502004A00000001000557494454480200020090010443
- 6F646501004900000001000557494454480200020032000350656701004A0000
- 0001000557494454480200020064000A4E616D6544616E57656902004A000000
- 0100055749445448020002009001094E616D6546656E427502004A0000000100
- 0557494454480200020090010C4E616D6546656E5869616E6702004A00000001
- 00055749445448020002009001084E616D65556E697402004A00000001000557
- 494454480200020090010B44726177696E67436F646501004A00000001000557
- 494454480200020064000550726963650800040000000000085175616E746974
- 7908000400000000000A546F74616C507269636508000400000000000C446561
- 6C5175616E7469747908000400000000000E4465616C546F74616C5072696365
- 08000400000000000E4469666665725175616E74697479080004000000000010
- 446966666572546F74616C5072696365080004000000000005556E6974730100
- 4A0000000100055749445448020002002800084E657750726963650800040000
- 00000008506F736974696F6E02004A000000010005574944544802000200FE01
- 0B4F72675175616E7469747908000400000000000D4F7267546F74616C507269
- 636508000400000000000B4D69735175616E7469747908000400000000000D4D
- 6973546F74616C507269636508000400000000000B4F74685175616E74697479
- 08000400000000000D4F7468546F74616C507269636508000400000000000000}
- object cdsGclIndexCode: TStringField
- FieldName = 'IndexCode'
- Size = 50
- end
- object cdsGclIndexID: TIntegerField
- FieldName = 'IndexID'
- end
- object cdsGclB_Code: TStringField
- FieldName = 'B_Code'
- Size = 50
- end
- object cdsGclName: TWideStringField
- FieldName = 'Name'
- Size = 200
- end
- object cdsGclCode: TStringField
- FieldName = 'Code'
- Size = 50
- end
- object cdsGclPeg: TWideStringField
- FieldName = 'Peg'
- Size = 50
- end
- object cdsGclNameDanWei: TWideStringField
- FieldName = 'NameDanWei'
- Size = 200
- end
- object cdsGclNameFenBu: TWideStringField
- FieldName = 'NameFenBu'
- Size = 200
- end
- object cdsGclNameFenXiang: TWideStringField
- FieldName = 'NameFenXiang'
- Size = 200
- end
- object cdsGclNameUnit: TWideStringField
- FieldName = 'NameUnit'
- Size = 200
- end
- object cdsGclDrawingCode: TWideStringField
- FieldName = 'DrawingCode'
- Size = 50
- end
- object cdsGclPrice: TFloatField
- FieldName = 'Price'
- end
- object cdsGclQuantity: TFloatField
- FieldName = 'Quantity'
- end
- object cdsGclTotalPrice: TFloatField
- FieldName = 'TotalPrice'
- end
- object cdsGclDealQuantity: TFloatField
- FieldName = 'DealQuantity'
- end
- object cdsGclDealTotalPrice: TFloatField
- FieldName = 'DealTotalPrice'
- end
- object cdsGclDifferQuantity: TFloatField
- FieldName = 'DifferQuantity'
- end
- object cdsGclDifferTotalPrice: TFloatField
- FieldName = 'DifferTotalPrice'
- end
- object cdsGclUnits: TWideStringField
- FieldName = 'Units'
- end
- object cdsGclNewPrice: TFloatField
- FieldName = 'NewPrice'
- end
- object cdsGclPosition: TWideStringField
- FieldName = 'Position'
- Size = 255
- end
- object cdsGclOrgQuantity: TFloatField
- FieldName = 'OrgQuantity'
- end
- object cdsGclOrgTotalPrice: TFloatField
- FieldName = 'OrgTotalPrice'
- end
- object cdsGclMisQuantity: TFloatField
- FieldName = 'MisQuantity'
- end
- object cdsGclMisTotalPrice: TFloatField
- FieldName = 'MisTotalPrice'
- end
- object cdsGclOthQuantity: TFloatField
- FieldName = 'OthQuantity'
- end
- object cdsGclOthTotalPrice: TFloatField
- FieldName = 'OthTotalPrice'
- end
- end
- end
|