123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150 |
- object tpPegGclGatherData: TtpPegGclGatherData
- OldCreateOrder = False
- Left = 712
- Top = 443
- Height = 268
- Width = 322
- object smpGclGather: TsdMemoryProvider
- Left = 48
- Top = 24
- end
- object sddGclGather: TsdDataSet
- Active = True
- Provider = smpGclGather
- Left = 48
- Top = 88
- FieldListData = {
- 0101044E616D6506024944094669656C644E616D650602494408446174615479
- 70650203084461746153697A6502040549734B6579080F4E65656450726F6365
- 73734E616D650809507265636973696F6E02000453697A6502000001044E616D
- 650609496E646578436F6465094669656C644E616D650609496E646578436F64
- 650844617461547970650218084461746153697A6502320549734B6579080F4E
- 65656450726F636573734E616D650809507265636973696F6E02000453697A65
- 02000001044E616D650606425F436F6465094669656C644E616D650606425F43
- 6F64650844617461547970650201084461746153697A6502320549734B657908
- 0F4E65656450726F636573734E616D650809507265636973696F6E0200045369
- 7A6502000001044E616D6506044E616D65094669656C644E616D6506044E616D
- 650844617461547970650218084461746153697A6503C8000549734B6579080F
- 4E65656450726F636573734E616D650809507265636973696F6E02000453697A
- 6502000001044E616D650605556E697473094669656C644E616D650605556E69
- 74730844617461547970650218084461746153697A6502140549734B6579080F
- 4E65656450726F636573734E616D650809507265636973696F6E02000453697A
- 6502000001044E616D6506055072696365094669656C644E616D650605507269
- 63650844617461547970650206084461746153697A6502080549734B6579080F
- 4E65656450726F636573734E616D650809507265636973696F6E02000453697A
- 6502000001044E616D6506085175616E74697479094669656C644E616D650608
- 5175616E746974790844617461547970650206084461746153697A6502080549
- 734B6579080F4E65656450726F636573734E616D650809507265636973696F6E
- 02000453697A6502000001044E616D65060A546F74616C507269636509466965
- 6C644E616D65060A546F74616C50726963650844617461547970650206084461
- 746153697A6502080549734B6579080F4E65656450726F636573734E616D6508
- 09507265636973696F6E02000453697A6502000000}
- end
- object sdvGclGather: TsdDataView
- Active = True
- DataSet = sddGclGather
- Filtered = False
- Columns = <
- item
- FieldName = 'ID'
- end
- item
- FieldName = 'B_Code'
- end
- item
- FieldName = 'Name'
- end
- item
- FieldName = 'Units'
- end
- item
- FieldName = 'Price'
- end
- item
- FieldName = 'Quantity'
- end
- item
- FieldName = 'TotalPrice'
- end>
- OnCurrentChanged = sdvGclGatherCurrentChanged
- Left = 48
- Top = 152
- end
- object smpGclRela: TsdMemoryProvider
- Left = 152
- Top = 24
- end
- object sddGclRela: TsdDataSet
- Active = True
- Provider = smpGclRela
- Left = 152
- Top = 88
- FieldListData = {
- 0101044E616D65060B44657461696C47636C4944094669656C644E616D65060B
- 44657461696C47636C49440844617461547970650203084461746153697A6502
- 040549734B6579080F4E65656450726F636573734E616D650809507265636973
- 696F6E02000453697A6502000001044E616D65060547636C4944094669656C64
- 4E616D65060547636C49440844617461547970650203084461746153697A6502
- 040549734B6579080F4E65656450726F636573734E616D650809507265636973
- 696F6E02000453697A6502000001044E616D650608506567586D6A4944094669
- 656C644E616D650608506567586D6A4944084461746154797065020308446174
- 6153697A6502040549734B6579080F4E65656450726F636573734E616D650809
- 507265636973696F6E02000453697A6502000001044E616D65060A506567586D
- 6A436F6465094669656C644E616D65060A506567586D6A436F64650844617461
- 547970650201084461746153697A6502320549734B6579080F4E65656450726F
- 636573734E616D650809507265636973696F6E02000453697A6502000001044E
- 616D65060A506567586D6A4E616D65094669656C644E616D65060A506567586D
- 6A4E616D650844617461547970650218084461746153697A6503C8000549734B
- 6579080F4E65656450726F636573734E616D650809507265636973696F6E0200
- 0453697A6502000001044E616D65060B506567586D6A556E697473094669656C
- 644E616D65060B506567586D6A556E6974730844617461547970650218084461
- 746153697A6502140549734B6579080F4E65656450726F636573734E616D6508
- 09507265636973696F6E02000453697A6502000001044E616D6506085175616E
- 74697479094669656C644E616D6506085175616E746974790844617461547970
- 650206084461746153697A6502080549734B6579080F4E65656450726F636573
- 734E616D650809507265636973696F6E02000453697A6502000001044E616D65
- 060A546F74616C5072696365094669656C644E616D65060A546F74616C507269
- 63650844617461547970650206084461746153697A6502080549734B6579080F
- 4E65656450726F636573734E616D650809507265636973696F6E02000453697A
- 6502000001044E616D6506044E616D65094669656C644E616D6506044E616D65
- 0844617461547970650218084461746153697A6503FF000549734B6579080F4E
- 65656450726F636573734E616D650809507265636973696F6E02000453697A65
- 02000001044E616D65060B44726177696E67436F6465094669656C644E616D65
- 060B44726177696E67436F64650844617461547970650218084461746153697A
- 6503FF000549734B6579080F4E65656450726F636573734E616D650809507265
- 636973696F6E02000453697A6502000000}
- end
- object sdvGclRela: TsdDataView
- Active = True
- DataSet = sddGclRela
- Filtered = False
- Columns = <
- item
- FieldName = 'ID'
- end
- item
- FieldName = 'GclBillsID'
- end
- item
- FieldName = 'PegXmjCode'
- end
- item
- FieldName = 'PegXmjName'
- end
- item
- FieldName = 'PegXmjUnits'
- end
- item
- FieldName = 'Quantity'
- end
- item
- FieldName = 'TotalPrice'
- end
- item
- FieldName = 'DrawingCode'
- end>
- OnFilterRecord = sdvGclRelaFilterRecord
- Left = 152
- Top = 152
- end
- end
|