1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339 |
- object rmBillsGatherData: TrmBillsGatherData
- OldCreateOrder = False
- Left = 648
- Top = 526
- Height = 276
- Width = 288
- object cdsFxBills: TClientDataSet
- Aggregates = <>
- FieldDefs = <>
- IndexDefs = <>
- Params = <>
- StoreDefs = True
- Left = 32
- Top = 24
- object cdsFxBillsXiangCode: TStringField
- FieldName = 'XiangCode'
- Size = 10
- end
- object cdsFxBillsMuCode: TStringField
- FieldName = 'MuCode'
- Size = 10
- end
- object cdsFxBillsJieCode: TStringField
- FieldName = 'JieCode'
- Size = 10
- end
- object cdsFxBillsXiMuCode: TStringField
- FieldName = 'XiMuCode'
- Size = 30
- end
- object cdsFxBillsCode: TStringField
- FieldName = 'Code'
- Size = 50
- end
- object cdsFxBillsB_Code: TStringField
- FieldName = 'B_Code'
- Size = 50
- end
- object cdsFxBillsName: TWideStringField
- FieldName = 'Name'
- Size = 200
- end
- object cdsFxBillsUnits: TWideStringField
- FieldName = 'Units'
- end
- object cdsFxBillsPrice: TFloatField
- FieldName = 'Price'
- end
- object cdsFxBillsAddDealQuantity: TFloatField
- FieldName = 'AddDealQuantity'
- end
- object cdsFxBillsAddDealTotalPrice: TFloatField
- FieldName = 'AddDealTotalPrice'
- end
- object cdsFxBillsAddQcQuantity: TFloatField
- FieldName = 'AddQcQuantity'
- end
- object cdsFxBillsAddQcTotalPrice: TFloatField
- FieldName = 'AddQcTotalPrice'
- end
- object cdsFxBillsAddPcQuantity: TFloatField
- FieldName = 'AddPcQuantity'
- end
- object cdsFxBillsAddPcTotalPrice: TFloatField
- FieldName = 'AddPcTotalPrice'
- end
- object cdsFxBillsAddGatherQuantity: TFloatField
- FieldName = 'AddGatherQuantity'
- end
- object cdsFxBillsAddGatherTotalPrice: TFloatField
- FieldName = 'AddGatherTotalPrice'
- end
- object cdsFxBillsPercent: TFloatField
- FieldName = 'Percent'
- end
- object cdsFxBillsMemoStr: TWideStringField
- FieldName = 'MemoStr'
- Size = 100
- end
- object cdsFxBillsQuantity: TFloatField
- FieldName = 'Quantity'
- end
- object cdsFxBillsTotalPrice: TFloatField
- FieldName = 'TotalPrice'
- end
- object cdsFxBillsDgnQuantity1: TFloatField
- FieldName = 'DgnQuantity1'
- end
- object cdsFxBillsDgnQuantity2: TFloatField
- FieldName = 'DgnQuantity2'
- end
- object cdsFxBillsDgnQuantity: TStringField
- FieldName = 'DgnQuantity'
- Size = 50
- end
- object cdsFxBillsDgnPrice2: TFloatField
- FieldName = 'DgnPrice2'
- end
- object cdsFxBillsDgnPrice1: TFloatField
- FieldName = 'DgnPrice1'
- end
- object cdsFxBillsDgnPrice: TStringField
- FieldName = 'DgnPrice'
- Size = 50
- end
- object cdsFxBillsRatioPercent: TFloatField
- FieldName = 'RatioPercent'
- end
- object cdsFxBillsAddRatioPercent: TFloatField
- FieldName = 'AddRatioPercent'
- end
- object cdsFxBillsDealDgnQuantity1: TFloatField
- FieldName = 'DealDgnQuantity1'
- end
- object cdsFxBillsDealDgnQuantity2: TFloatField
- FieldName = 'DealDgnQuantity2'
- end
- object cdsFxBillsDealDgnQuantity: TStringField
- FieldName = 'DealDgnQuantity'
- Size = 50
- end
- object cdsFxBillsDealDgnPrice1: TFloatField
- FieldName = 'DealDgnPrice1'
- end
- object cdsFxBillsDealDgnPrice2: TFloatField
- FieldName = 'DealDgnPrice2'
- end
- object cdsFxBillsDealDgnPrice: TStringField
- FieldName = 'DealDgnPrice'
- end
- object cdsFxBillsCDgnQuantity1: TFloatField
- FieldName = 'CDgnQuantity1'
- end
- object cdsFxBillsCDgnQuantity2: TFloatField
- FieldName = 'CDgnQuantity2'
- end
- object cdsFxBillsCDgnQuantity: TStringField
- FieldName = 'CDgnQuantity'
- Size = 50
- end
- object cdsFxBillsCDgnPrice1: TFloatField
- FieldName = 'CDgnPrice1'
- end
- object cdsFxBillsCDgnPrice2: TFloatField
- FieldName = 'CDgnPrice2'
- end
- object cdsFxBillsCDgnPrice: TStringField
- FieldName = 'CDgnPrice'
- end
- object cdsFxBillsFinalDgnQuantity1: TFloatField
- FieldName = 'FinalDgnQuantity1'
- end
- object cdsFxBillsFinalDgnQuantity2: TFloatField
- FieldName = 'FinalDgnQuantity2'
- end
- object cdsFxBillsFinalDgnQuantity: TFloatField
- FieldName = 'FinalDgnQuantity'
- end
- object cdsFxBillsFinalDgnPrice1: TFloatField
- FieldName = 'FinalDgnPrice1'
- end
- object cdsFxBillsFinalDgnPrice2: TFloatField
- FieldName = 'FinalDgnPrice2'
- end
- object cdsFxBillsFinalDgnPrice: TFloatField
- FieldName = 'FinalDgnPrice'
- end
- end
- object cdsGclBills: TClientDataSet
- Active = True
- Aggregates = <>
- FieldDefs = <
- item
- Name = 'B_Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'IndexCode'
- DataType = ftString
- Size = 50
- 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 = 'AddDealQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddDealTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddQcQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddQcTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddPcQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddPcTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddGatherQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddGatherTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'Precent'
- DataType = ftFloat
- end
- item
- Name = 'MemoStr'
- DataType = ftWideString
- Size = 100
- end>
- IndexDefs = <>
- IndexFieldNames = 'IndexCode'
- Params = <>
- StoreDefs = True
- Left = 32
- Top = 136
- Data = {
- 840100009619E0BD01000000180000000F000000000003000000840106425F43
- 6F6465010049000000010005574944544802000200320009496E646578436F64
- 650100490000000100055749445448020002003200044E616D6502004A000000
- 010005574944544802000200900105556E69747301004A000000010005574944
- 544802000200280005507269636508000400000000000F4164644465616C5175
- 616E746974790800040000000000114164644465616C546F74616C5072696365
- 08000400000000000D41646451635175616E7469747908000400000000000F41
- 64645163546F74616C507269636508000400000000000D41646450635175616E
- 7469747908000400000000000F4164645063546F74616C507269636508000400
- 00000000114164644761746865725175616E7469747908000400000000001341
- 6464476174686572546F74616C50726963650800040000000000075072656365
- 6E740800040000000000074D656D6F53747201004A0000000100055749445448
- 02000200C8000000}
- object cdsGclBillsB_Code: TStringField
- FieldName = 'B_Code'
- Size = 50
- end
- object cdsGclBillsIndexCode: TStringField
- FieldName = 'IndexCode'
- Size = 50
- end
- object cdsGclBillsName: TWideStringField
- FieldName = 'Name'
- Size = 200
- end
- object cdsGclBillsUnits: TWideStringField
- FieldName = 'Units'
- end
- object cdsGclBillsPrice: TFloatField
- FieldName = 'Price'
- end
- object cdsGclBillsAddDealQuantity: TFloatField
- FieldName = 'AddDealQuantity'
- end
- object cdsGclBillsAddDealTotalPrice: TFloatField
- FieldName = 'AddDealTotalPrice'
- end
- object cdsGclBillsAddQcQuantity: TFloatField
- FieldName = 'AddQcQuantity'
- end
- object cdsGclBillsAddQcTotalPrice: TFloatField
- FieldName = 'AddQcTotalPrice'
- end
- object cdsGclBillsAddPcQuantity: TFloatField
- FieldName = 'AddPcQuantity'
- end
- object cdsGclBillsAddPcTotalPrice: TFloatField
- FieldName = 'AddPcTotalPrice'
- end
- object cdsGclBillsAddGatherQuantity: TFloatField
- FieldName = 'AddGatherQuantity'
- end
- object cdsGclBillsAddGatherTotalPrice: TFloatField
- FieldName = 'AddGatherTotalPrice'
- end
- object cdsGclBillsPrecent: TFloatField
- FieldName = 'Precent'
- end
- object cdsGclBillsMemoStr: TWideStringField
- FieldName = 'MemoStr'
- Size = 100
- end
- end
- object cdsProjectBills: TClientDataSet
- Active = True
- Aggregates = <>
- FieldDefs = <
- item
- Name = 'ProjectID'
- DataType = ftInteger
- end
- item
- Name = 'ProjectName'
- DataType = ftWideString
- Size = 100
- end
- item
- Name = 'XiangCode'
- DataType = ftString
- Size = 10
- end
- item
- Name = 'MuCode'
- DataType = ftString
- Size = 10
- end
- item
- Name = 'JieCode'
- DataType = ftString
- Size = 10
- end
- item
- Name = 'XiMuCode'
- DataType = ftString
- Size = 30
- end
- item
- Name = 'Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'Name'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'Units'
- DataType = ftWideString
- Size = 20
- end
- item
- Name = 'Quantity'
- DataType = ftFloat
- end
- item
- Name = 'TotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'P_Quantity'
- DataType = ftFloat
- end
- item
- Name = 'P_TotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'EcoIndex'
- DataType = ftFloat
- end
- item
- Name = 'Percent'
- DataType = ftFloat
- end
- item
- Name = 'MemoStr'
- DataType = ftWideString
- Size = 100
- end
- item
- Name = 'SerialNo'
- DataType = ftInteger
- end
- item
- Name = 'B_Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'P_Price'
- DataType = ftFloat
- end>
- IndexDefs = <>
- Params = <>
- StoreDefs = True
- Left = 120
- Top = 24
- Data = {
- CF0100009619E0BD010000001800000013000000000003000000CF010950726F
- 6A656374494404000100000000000B50726F6A6563744E616D6501004A000000
- 010005574944544802000200C800095869616E67436F64650100490000000100
- 055749445448020002000A00064D75436F646501004900000001000557494454
- 48020002000A00074A6965436F64650100490000000100055749445448020002
- 000A000858694D75436F64650100490000000100055749445448020002001E00
- 04436F64650100490000000100055749445448020002003200044E616D650200
- 4A000000010005574944544802000200900105556E69747301004A0000000100
- 055749445448020002002800085175616E7469747908000400000000000A546F
- 74616C507269636508000400000000000A505F5175616E746974790800040000
- 0000000C505F546F74616C507269636508000400000000000845636F496E6465
- 7808000400000000000750657263656E740800040000000000074D656D6F5374
- 7201004A000000010005574944544802000200C8000853657269616C4E6F0400
- 01000000000006425F436F646501004900000001000557494454480200020032
- 0007505F507269636508000400000000000000}
- object cdsProjectBillsProjectID: TIntegerField
- FieldName = 'ProjectID'
- end
- object cdsProjectBillsProjectName: TWideStringField
- FieldName = 'ProjectName'
- Size = 100
- end
- object cdsProjectBillsXiangCode: TStringField
- FieldName = 'XiangCode'
- Size = 10
- end
- object cdsProjectBillsMuCode: TStringField
- DisplayWidth = 10
- FieldName = 'MuCode'
- Size = 10
- end
- object cdsProjectBillsJieCode: TStringField
- FieldName = 'JieCode'
- Size = 10
- end
- object cdsProjectBillsXiMuCode: TStringField
- FieldName = 'XiMuCode'
- Size = 30
- end
- object cdsProjectBillsCode: TStringField
- FieldName = 'Code'
- Size = 50
- end
- object cdsProjectBillsName: TWideStringField
- FieldName = 'Name'
- Size = 200
- end
- object cdsProjectBillsUnits: TWideStringField
- FieldName = 'Units'
- end
- object cdsProjectBillsQuantity: TFloatField
- FieldName = 'Quantity'
- end
- object cdsProjectBillsTotalPrice: TFloatField
- FieldName = 'TotalPrice'
- end
- object cdsProjectBillsP_Quantity: TFloatField
- FieldName = 'P_Quantity'
- end
- object cdsProjectBillsP_TotalPrice: TFloatField
- FieldName = 'P_TotalPrice'
- end
- object cdsProjectBillsEcoIndex: TFloatField
- FieldName = 'EcoIndex'
- end
- object cdsProjectBillsPercent: TFloatField
- FieldName = 'Percent'
- end
- object cdsProjectBillsMemoStr: TWideStringField
- FieldName = 'MemoStr'
- Size = 100
- end
- object cdsProjectBillsSerialNo: TIntegerField
- FieldName = 'SerialNo'
- end
- object cdsProjectBillsB_Code: TStringField
- FieldName = 'B_Code'
- Size = 50
- end
- object cdsProjectBillsP_Price: TFloatField
- FieldName = 'P_Price'
- end
- end
- object cdsEstimateBills: TClientDataSet
- Active = True
- Aggregates = <>
- FieldDefs = <
- item
- Name = 'XiangCode'
- DataType = ftString
- Size = 10
- end
- item
- Name = 'MuCode'
- DataType = ftString
- Size = 10
- end
- item
- Name = 'JieCode'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'XiMuCode'
- DataType = ftString
- Size = 30
- end
- item
- Name = 'Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'Name'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'Units'
- DataType = ftWideString
- Size = 20
- end
- item
- Name = 'Quantity'
- DataType = ftFloat
- end
- item
- Name = 'TotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'DgnQuantity'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'DgnQuantity1'
- DataType = ftFloat
- end
- item
- Name = 'DgnQuantity2'
- DataType = ftFloat
- end
- item
- Name = 'AddDealQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddDealTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddCQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddCTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddGatherQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddGatherTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'DealDgnQuantity'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'DealDgnQuantity1'
- DataType = ftFloat
- end
- item
- Name = 'DealDgnQuantity2'
- DataType = ftFloat
- end
- item
- Name = 'CDgnQuantity'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'CDgnQuantity1'
- DataType = ftFloat
- end
- item
- Name = 'CDgnQuantity2'
- DataType = ftFloat
- end
- item
- Name = 'GatherDgnQuantity'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'GatherDgnQuantity1'
- DataType = ftFloat
- end
- item
- Name = 'GatherDgnQuantity2'
- DataType = ftFloat
- end
- item
- Name = 'PDQuantity'
- DataType = ftFloat
- end
- item
- Name = 'PDTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'PDDgnQuantity'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'PDDgnQuantity1'
- DataType = ftFloat
- end
- item
- Name = 'PDDgnQuantity2'
- DataType = ftFloat
- end
- item
- Name = 'CDDQuantity'
- DataType = ftFloat
- end
- item
- Name = 'CDDTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'CDDDgnQuantity'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'CDDDgnQuantity1'
- DataType = ftFloat
- end
- item
- Name = 'CDDDgnQuantity2'
- DataType = ftFloat
- end
- item
- Name = 'QuantityAdjust'
- DataType = ftFloat
- end
- item
- Name = 'TotalPriceAdjust'
- DataType = ftFloat
- end
- item
- Name = 'MemoStr'
- DataType = ftWideString
- Size = 100
- end
- item
- Name = 'ABQuantity'
- DataType = ftFloat
- end
- item
- Name = 'ABTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'ABDgnQuantity'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'ABDgnQuantity1'
- DataType = ftFloat
- end
- item
- Name = 'ABDgnQuantity2'
- DataType = ftFloat
- end
- item
- Name = 'QuantityCompare1'
- DataType = ftFloat
- end
- item
- Name = 'TotalPriceCompare1'
- DataType = ftFloat
- end
- item
- Name = 'DgnQuantityCompare1'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'DgnQuantity1Compare1'
- DataType = ftFloat
- end
- item
- Name = 'DgnQuantity2Compare1'
- DataType = ftFloat
- end
- item
- Name = 'QuantityCompare2'
- DataType = ftFloat
- end
- item
- Name = 'TotalPriceCompare2'
- DataType = ftFloat
- end
- item
- Name = 'DgnQuantityCompare2'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'DgnQuantity1Compare2'
- DataType = ftFloat
- end
- item
- Name = 'DgnQuantity2Compare2'
- DataType = ftFloat
- end
- item
- Name = 'QuantityCompare3'
- DataType = ftFloat
- end
- item
- Name = 'TotalPriceCompare3'
- DataType = ftFloat
- end
- item
- Name = 'DgnQuantityCompare3'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'DgnQuantity1Compare3'
- DataType = ftFloat
- end
- item
- Name = 'DgnQuantity2Compare3'
- DataType = ftFloat
- end
- item
- Name = 'B_Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'Price'
- DataType = ftFloat
- end
- item
- Name = 'PDDgnPrice'
- DataType = ftFloat
- end
- item
- Name = 'CDDDgnPrice'
- DataType = ftFloat
- end
- item
- Name = 'ABDgnPrice'
- DataType = ftFloat
- end
- item
- Name = 'FinalDgnQty'
- DataType = ftString
- Size = 20
- end
- item
- Name = 'FinalDgnQty1'
- DataType = ftFloat
- end
- item
- Name = 'FinalDgnQty2'
- DataType = ftFloat
- end>
- IndexDefs = <>
- Params = <>
- StoreDefs = True
- Left = 32
- Top = 80
- Data = {
- 010700009619E0BD010000001800000044000000000003000000010709586961
- 6E67436F64650100490000000100055749445448020002000A00064D75436F64
- 650100490000000100055749445448020002000A00074A6965436F6465010049
- 00000001000557494454480200020014000858694D75436F6465010049000000
- 0100055749445448020002001E0004436F646501004900000001000557494454
- 48020002003200044E616D6502004A0000000100055749445448020002009001
- 05556E69747301004A0000000100055749445448020002002800085175616E74
- 69747908000400000000000A546F74616C507269636508000400000000000B44
- 676E5175616E7469747901004900000001000557494454480200020014000C44
- 676E5175616E746974793108000400000000000C44676E5175616E7469747932
- 08000400000000000F4164644465616C5175616E746974790800040000000000
- 114164644465616C546F74616C507269636508000400000000000C4164644351
- 75616E7469747908000400000000000E41646443546F74616C50726963650800
- 040000000000114164644761746865725175616E746974790800040000000000
- 13416464476174686572546F74616C507269636508000400000000000F446561
- 6C44676E5175616E746974790100490000000100055749445448020002001400
- 104465616C44676E5175616E74697479310800040000000000104465616C4467
- 6E5175616E746974793208000400000000000C4344676E5175616E7469747901
- 004900000001000557494454480200020014000D4344676E5175616E74697479
- 3108000400000000000D4344676E5175616E7469747932080004000000000011
- 47617468657244676E5175616E74697479010049000000010005574944544802
- 00020014001247617468657244676E5175616E74697479310800040000000000
- 1247617468657244676E5175616E746974793208000400000000000A50445175
- 616E7469747908000400000000000C5044546F74616C50726963650800040000
- 0000000D504444676E5175616E74697479010049000000010005574944544802
- 00020014000E504444676E5175616E746974793108000400000000000E504444
- 676E5175616E746974793208000400000000000B4344445175616E7469747908
- 000400000000000D434444546F74616C507269636508000400000000000E4344
- 4444676E5175616E746974790100490000000100055749445448020002001400
- 0F43444444676E5175616E746974793108000400000000000F43444444676E51
- 75616E746974793208000400000000000E5175616E7469747941646A75737408
- 0004000000000010546F74616C507269636541646A7573740800040000000000
- 074D656D6F53747201004A000000010005574944544802000200C8000A414251
- 75616E7469747908000400000000000C4142546F74616C507269636508000400
- 000000000D414244676E5175616E746974790100490000000100055749445448
- 0200020014000E414244676E5175616E746974793108000400000000000E4142
- 44676E5175616E74697479320800040000000000105175616E74697479436F6D
- 7061726531080004000000000012546F74616C5072696365436F6D7061726531
- 08000400000000001344676E5175616E74697479436F6D706172653101004900
- 000001000557494454480200020014001444676E5175616E7469747931436F6D
- 706172653108000400000000001444676E5175616E7469747932436F6D706172
- 65310800040000000000105175616E74697479436F6D70617265320800040000
- 00000012546F74616C5072696365436F6D706172653208000400000000001344
- 676E5175616E74697479436F6D70617265320100490000000100055749445448
- 0200020014001444676E5175616E7469747931436F6D70617265320800040000
- 0000001444676E5175616E7469747932436F6D70617265320800040000000000
- 105175616E74697479436F6D7061726533080004000000000012546F74616C50
- 72696365436F6D706172653308000400000000001344676E5175616E74697479
- 436F6D706172653301004900000001000557494454480200020014001444676E
- 5175616E7469747931436F6D706172653308000400000000001444676E517561
- 6E7469747932436F6D7061726533080004000000000006425F436F6465010049
- 000000010005574944544802000200320005507269636508000400000000000A
- 504444676E507269636508000400000000000B43444444676E50726963650800
- 0400000000000A414244676E507269636508000400000000000B46696E616C44
- 676E51747901004900000001000557494454480200020014000C46696E616C44
- 676E5174793108000400000000000C46696E616C44676E517479320800040000
- 0000000000}
- object cdsEstimateBillsXiangCode: TStringField
- FieldName = 'XiangCode'
- Size = 10
- end
- object cdsEstimateBillsMuCode: TStringField
- FieldName = 'MuCode'
- Size = 10
- end
- object cdsEstimateBillsJieCode: TStringField
- FieldName = 'JieCode'
- end
- object cdsEstimateBillsXiMuCode: TStringField
- FieldName = 'XiMuCode'
- Size = 30
- end
- object cdsEstimateBillsCode: TStringField
- FieldName = 'Code'
- Size = 50
- end
- object cdsEstimateBillsName: TWideStringField
- FieldName = 'Name'
- Size = 200
- end
- object cdsEstimateBillsUnits: TWideStringField
- FieldName = 'Units'
- end
- object cdsEstimateBillsQuantity: TFloatField
- FieldName = 'Quantity'
- end
- object cdsEstimateBillsTotalPrice: TFloatField
- FieldName = 'TotalPrice'
- end
- object cdsEstimateBillsDgnQuantity: TStringField
- FieldName = 'DgnQuantity'
- end
- object cdsEstimateBillsDgnQuantity1: TFloatField
- FieldName = 'DgnQuantity1'
- end
- object cdsEstimateBillsDgnQuantity2: TFloatField
- FieldName = 'DgnQuantity2'
- end
- object cdsEstimateBillsAddDealQuantity: TFloatField
- FieldName = 'AddDealQuantity'
- end
- object cdsEstimateBillsAddDealTotalPrice: TFloatField
- FieldName = 'AddDealTotalPrice'
- end
- object cdsEstimateBillsAddCQuantity: TFloatField
- FieldName = 'AddCQuantity'
- end
- object cdsEstimateBillsAddCTotalPrice: TFloatField
- FieldName = 'AddCTotalPrice'
- end
- object cdsEstimateBillsAddGatherQuantity: TFloatField
- FieldName = 'AddGatherQuantity'
- end
- object cdsEstimateBillsAddGatherTotalPrice: TFloatField
- FieldName = 'AddGatherTotalPrice'
- end
- object cdsEstimateBillsDealDgnQuantity: TStringField
- FieldName = 'DealDgnQuantity'
- end
- object cdsEstimateBillsDealDgnQuantity1: TFloatField
- FieldName = 'DealDgnQuantity1'
- end
- object cdsEstimateBillsDealDgnQuantity2: TFloatField
- FieldName = 'DealDgnQuantity2'
- end
- object cdsEstimateBillsCDgnQuantity: TStringField
- FieldName = 'CDgnQuantity'
- end
- object cdsEstimateBillsCDgnQuantity1: TFloatField
- FieldName = 'CDgnQuantity1'
- end
- object cdsEstimateBillsCDgnQuantity2: TFloatField
- FieldName = 'CDgnQuantity2'
- end
- object cdsEstimateBillsGatherDgnQuantity: TStringField
- FieldName = 'GatherDgnQuantity'
- end
- object cdsEstimateBillsGatherDgnQuantity1: TFloatField
- FieldName = 'GatherDgnQuantity1'
- end
- object cdsEstimateBillsGatherDgnQuantity2: TFloatField
- FieldName = 'GatherDgnQuantity2'
- end
- object cdsEstimateBillsPDQuantity: TFloatField
- FieldName = 'PDQuantity'
- end
- object cdsEstimateBillsPDTotalPrice: TFloatField
- FieldName = 'PDTotalPrice'
- end
- object cdsEstimateBillsPDDgnQuantity: TStringField
- FieldName = 'PDDgnQuantity'
- end
- object cdsEstimateBillsPDDgnQuantity1: TFloatField
- FieldName = 'PDDgnQuantity1'
- end
- object cdsEstimateBillsPDDgnQuantity2: TFloatField
- FieldName = 'PDDgnQuantity2'
- end
- object cdsEstimateBillsCDDQuantity: TFloatField
- FieldName = 'CDDQuantity'
- end
- object cdsEstimateBillsCDDTotalPrice: TFloatField
- FieldName = 'CDDTotalPrice'
- end
- object cdsEstimateBillsCDDDgnQuantity: TStringField
- FieldName = 'CDDDgnQuantity'
- end
- object cdsEstimateBillsCDDDgnQuantity1: TFloatField
- FieldName = 'CDDDgnQuantity1'
- end
- object cdsEstimateBillsCDDDgnQuantity2: TFloatField
- FieldName = 'CDDDgnQuantity2'
- end
- object cdsEstimateBillsQuantityAdjust: TFloatField
- FieldName = 'QuantityAdjust'
- end
- object cdsEstimateBillsTotalPriceAdjust: TFloatField
- FieldName = 'TotalPriceAdjust'
- end
- object cdsEstimateBillsMemoStr: TWideStringField
- FieldName = 'MemoStr'
- Size = 100
- end
- object cdsEstimateBillsABQuantity: TFloatField
- FieldName = 'ABQuantity'
- end
- object cdsEstimateBillsABTotalPrice: TFloatField
- FieldName = 'ABTotalPrice'
- end
- object cdsEstimateBillsABDgnQuantity: TStringField
- FieldName = 'ABDgnQuantity'
- end
- object cdsEstimateBillsABDgnQuantity1: TFloatField
- FieldName = 'ABDgnQuantity1'
- end
- object cdsEstimateBillsABDgnQuantity2: TFloatField
- FieldName = 'ABDgnQuantity2'
- end
- object cdsEstimateBillsQuantityCompare1: TFloatField
- FieldName = 'QuantityCompare1'
- end
- object cdsEstimateBillsTotalPriceCompare1: TFloatField
- FieldName = 'TotalPriceCompare1'
- end
- object cdsEstimateBillsDgnQuantityCompare1: TStringField
- FieldName = 'DgnQuantityCompare1'
- end
- object cdsEstimateBillsDgnQuantity1Compare1: TFloatField
- FieldName = 'DgnQuantity1Compare1'
- end
- object cdsEstimateBillsDgnQuantity2Compare1: TFloatField
- FieldName = 'DgnQuantity2Compare1'
- end
- object cdsEstimateBillsQuantityCompare2: TFloatField
- FieldName = 'QuantityCompare2'
- end
- object cdsEstimateBillsTotalPriceCompare2: TFloatField
- FieldName = 'TotalPriceCompare2'
- end
- object cdsEstimateBillsDgnQuantityCompare2: TStringField
- FieldName = 'DgnQuantityCompare2'
- end
- object cdsEstimateBillsDgnQuantity1Compare2: TFloatField
- FieldName = 'DgnQuantity1Compare2'
- end
- object cdsEstimateBillsDgnQuantity2Compare2: TFloatField
- FieldName = 'DgnQuantity2Compare2'
- end
- object cdsEstimateBillsQuantityCompare3: TFloatField
- FieldName = 'QuantityCompare3'
- end
- object cdsEstimateBillsTotalPriceCompare3: TFloatField
- FieldName = 'TotalPriceCompare3'
- end
- object cdsEstimateBillsDgnQuantityCompare3: TStringField
- FieldName = 'DgnQuantityCompare3'
- end
- object cdsEstimateBillsDgnQuantity1Compare3: TFloatField
- FieldName = 'DgnQuantity1Compare3'
- end
- object cdsEstimateBillsDgnQuantity2Compare3: TFloatField
- FieldName = 'DgnQuantity2Compare3'
- end
- object cdsEstimateBillsB_Code: TStringField
- FieldName = 'B_Code'
- Size = 50
- end
- object cdsEstimateBillsPrice: TFloatField
- FieldName = 'Price'
- end
- object cdsEstimateBillsPDDgnPrice: TFloatField
- FieldName = 'PDDgnPrice'
- end
- object cdsEstimateBillsCDDDgnPrice: TFloatField
- FieldName = 'CDDDgnPrice'
- end
- object cdsEstimateBillsABDgnPrice: TFloatField
- FieldName = 'ABDgnPrice'
- end
- object cdsEstimateBillsFinalDgnQty: TStringField
- FieldName = 'FinalDgnQty'
- end
- object cdsEstimateBillsFinalDgnQty1: TFloatField
- FieldName = 'FinalDgnQty1'
- end
- object cdsEstimateBillsFinalDgnQty2: TFloatField
- FieldName = 'FinalDgnQty2'
- end
- end
- object cdsProjectGclBills: TClientDataSet
- Active = True
- Aggregates = <>
- FieldDefs = <
- item
- Name = 'ProjectID'
- DataType = ftInteger
- end
- item
- Name = 'ProjectName'
- DataType = ftWideString
- Size = 100
- end
- item
- Name = 'B_Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'IndexCode'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'Name'
- DataType = ftWideString
- Size = 100
- end
- item
- Name = 'Units'
- DataType = ftWideString
- Size = 20
- end
- item
- Name = 'Price'
- DataType = ftFloat
- end
- item
- Name = 'Quantity'
- DataType = ftFloat
- end
- item
- Name = 'TotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'P_Price'
- DataType = ftFloat
- end
- item
- Name = 'P_Quantity'
- DataType = ftFloat
- end
- item
- Name = 'P_TotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'SerialNo'
- DataType = ftInteger
- end
- item
- Name = 'P_AddGatherQuantity'
- DataType = ftFloat
- end
- item
- Name = 'P_AddGatherTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'AddGatherQuantity'
- DataType = ftFloat
- end
- item
- Name = 'AddGatherTotalPrice'
- DataType = ftFloat
- end>
- IndexDefs = <
- item
- Name = 'DEFAULT_ORDER'
- end
- item
- Name = 'CHANGEINDEX'
- end>
- IndexFieldNames = 'ProjectID;SerialNo;IndexCode'
- Params = <>
- StoreDefs = True
- Left = 120
- Top = 136
- Data = {
- A30100009619E0BD010000001800000011000000000003000000A3010950726F
- 6A656374494404000100000000000B50726F6A6563744E616D6501004A000000
- 010005574944544802000200C80006425F436F64650100490000000100055749
- 44544802000200320009496E646578436F646501004900000001000557494454
- 48020002003200044E616D6501004A000000010005574944544802000200C800
- 05556E69747301004A0000000100055749445448020002002800055072696365
- 0800040000000000085175616E7469747908000400000000000A546F74616C50
- 72696365080004000000000007505F507269636508000400000000000A505F51
- 75616E7469747908000400000000000C505F546F74616C507269636508000400
- 000000000853657269616C4E6F040001000000000013505F4164644761746865
- 725175616E74697479080004000000000015505F416464476174686572546F74
- 616C50726963650800040000000000114164644761746865725175616E746974
- 79080004000000000013416464476174686572546F74616C5072696365080004
- 00000000000000}
- object cdsProjectGclBillsProjectID: TIntegerField
- FieldName = 'ProjectID'
- end
- object cdsProjectGclBillsProjectName: TWideStringField
- FieldName = 'ProjectName'
- Size = 100
- end
- object cdsProjectGclBillsB_Code: TStringField
- FieldName = 'B_Code'
- Size = 50
- end
- object cdsProjectGclBillsIndexCode: TStringField
- FieldName = 'IndexCode'
- Size = 50
- end
- object cdsProjectGclBillsName: TWideStringField
- FieldName = 'Name'
- Size = 100
- end
- object cdsProjectGclBillsUnits: TWideStringField
- FieldName = 'Units'
- end
- object cdsProjectGclBillsPrice: TFloatField
- FieldName = 'Price'
- end
- object cdsProjectGclBillsQuantity: TFloatField
- FieldName = 'Quantity'
- end
- object cdsProjectGclBillsTotalPrice: TFloatField
- FieldName = 'TotalPrice'
- end
- object cdsProjectGclBillsP_Price: TFloatField
- FieldName = 'P_Price'
- end
- object cdsProjectGclBillsP_Quantity: TFloatField
- FieldName = 'P_Quantity'
- end
- object cdsProjectGclBillsP_TotalPrice: TFloatField
- FieldName = 'P_TotalPrice'
- end
- object cdsProjectGclBillsSerialNo: TIntegerField
- FieldName = 'SerialNo'
- end
- object cdsProjectGclBillsP_AddGatherQuantity: TFloatField
- FieldName = 'P_AddGatherQuantity'
- end
- object cdsProjectGclBillsP_AddGatherTotalPrice: TFloatField
- FieldName = 'P_AddGatherTotalPrice'
- end
- object cdsProjectGclBillsAddGatherQuantity: TFloatField
- FieldName = 'AddGatherQuantity'
- end
- object cdsProjectGclBillsAddGatherTotalPrice: TFloatField
- FieldName = 'AddGatherTotalPrice'
- end
- end
- object cdsBGLFlow: TClientDataSet
- Active = True
- Aggregates = <>
- FieldDefs = <
- item
- Name = 'MergeBGLCode'
- DataType = ftWideString
- Size = 100
- end
- item
- Name = 'BGLName'
- DataType = ftWideString
- Size = 100
- end
- item
- Name = 'ApprovalCode'
- DataType = ftWideString
- Size = 50
- end
- item
- Name = 'Suggestion'
- DataType = ftWideString
- Size = 50
- end
- item
- Name = 'BGReason'
- DataType = ftWideString
- Size = 100
- end
- item
- Name = 'BGTotalPrice'
- DataType = ftFloat
- end
- item
- Name = 'B_Code'
- DataType = ftString
- Size = 50
- end
- item
- Name = 'Name'
- DataType = ftWideString
- Size = 200
- end
- item
- Name = 'Units'
- DataType = ftWideString
- Size = 20
- end
- item
- Name = 'Quantity'
- DataType = ftFloat
- end
- item
- Name = 'Price'
- DataType = ftFloat
- end
- item
- Name = 'TotalPrice'
- DataType = ftFloat
- end>
- IndexDefs = <>
- Params = <>
- StoreDefs = True
- Left = 32
- Top = 192
- Data = {
- 490100009619E0BD01000000180000000C00000000000300000049010C4D6572
- 676542474C436F646501004A000000010005574944544802000200C800074247
- 4C4E616D6501004A000000010005574944544802000200C8000C417070726F76
- 616C436F646501004A00000001000557494454480200020064000A5375676765
- 7374696F6E01004A000000010005574944544802000200640008424752656173
- 6F6E01004A000000010005574944544802000200C8000C4247546F74616C5072
- 696365080004000000000006425F436F64650100490000000100055749445448
- 020002003200044E616D6502004A000000010005574944544802000200900105
- 556E69747301004A0000000100055749445448020002002800085175616E7469
- 7479080004000000000005507269636508000400000000000A546F74616C5072
- 69636508000400000000000000}
- object cdsBGLFlowMergeBGLCode: TWideStringField
- FieldName = 'MergeBGLCode'
- Size = 100
- end
- object cdsBGLFlowBGLName: TWideStringField
- FieldName = 'BGLName'
- Size = 100
- end
- object cdsBGLFlowApprovalCode: TWideStringField
- FieldName = 'ApprovalCode'
- Size = 50
- end
- object cdsBGLFlowSuggestion: TWideStringField
- FieldName = 'Suggestion'
- Size = 50
- end
- object cdsBGLFlowBGReason: TWideStringField
- FieldName = 'BGReason'
- Size = 100
- end
- object cdsBGLFlowBGTotalPrice: TFloatField
- FieldName = 'BGTotalPrice'
- end
- object cdsBGLFlowB_Code: TStringField
- FieldName = 'B_Code'
- Size = 50
- end
- object cdsBGLFlowName: TWideStringField
- FieldName = 'Name'
- Size = 200
- end
- object cdsBGLFlowUnits: TWideStringField
- FieldName = 'Units'
- end
- object cdsBGLFlowQuantity: TFloatField
- FieldName = 'Quantity'
- end
- object cdsBGLFlowPrice: TFloatField
- FieldName = 'Price'
- end
- object cdsBGLFlowTotalPrice: TFloatField
- FieldName = 'TotalPrice'
- end
- end
- end
|