库存库位扫描
This commit is contained in:
“zfp”
parent
97408f18a7
commit
61d962fc85
|
|
@ -124,7 +124,7 @@
|
|||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\testDll.exe</Debugger_HostApplication>
|
||||
<Debugger_HostApplication>D:\RTFormwork\项目代码\RTBasicsV1\T04贸易明细仓库\testDll.exe</Debugger_HostApplication>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
|
|
|||
|
|
@ -1,73 +1,75 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.987,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm=C:\Users\Administrator\Desktop\U_TatClothOutList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm=C:\Users\Administrator\Desktop\U_TatClothInList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothInList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.pas=C:\Users\Administrator\Desktop\U_TatClothOutList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.432,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothOutList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.pas=C:\Users\Administrator\Desktop\U_TatClothInList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas=C:\Users\Administrator\Desktop\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.611,C:\Users\Administrator\Desktop\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.891,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.611,C:\Users\Administrator\Desktop\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.084,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequestInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm=C:\Users\Administrator\Desktop\U_TatClothStkList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeClothInEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>2024-08-02 12:17:47.024,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_PositionSel.pas</Transaction>
|
||||
<Transaction>2024-08-02 12:18:44.529,D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_PositionSel.pas=</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -17,7 +17,7 @@ implementation
|
|||
uses
|
||||
U_DataLink, U_iniParam, U_TradeDeliveryRequest, U_TradeClothDROutEdit,
|
||||
U_TradeClothInEdit, U_TradeClothInList, U_TradeClothOutEdit,
|
||||
U_TradeClothOutList, U_TradeClothStkList, U_TradeRRList;
|
||||
U_TradeClothOutList, U_TradeClothStkList, U_TradeRRList, U_StockScanInEdit;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -138,6 +138,18 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
112: //¿â´æ¿âλɨÃè
|
||||
begin
|
||||
with TfrmStockScanInEdit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
FormStyle := mstyle;
|
||||
WindowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
|
||||
121: //成品入库
|
||||
begin
|
||||
with TfrmTradeClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
|
|
|
|||
986
项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.dfm
Normal file
986
项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.dfm
Normal file
|
|
@ -0,0 +1,986 @@
|
|||
inherited frmPositionSel: TfrmPositionSel
|
||||
Left = 342
|
||||
Top = 13
|
||||
Caption = #25968#25454#36873#25321
|
||||
ClientHeight = 668
|
||||
ClientWidth = 731
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
ExplicitWidth = 747
|
||||
ExplicitHeight = 707
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ScrollBox1: TScrollBox [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 731
|
||||
Height = 668
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object btn1: TSpeedButton
|
||||
Left = 23
|
||||
Top = 3
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn2: TSpeedButton
|
||||
Left = 111
|
||||
Top = 3
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn3: TSpeedButton
|
||||
Left = 199
|
||||
Top = 3
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn4: TSpeedButton
|
||||
Left = 287
|
||||
Top = 3
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn5: TSpeedButton
|
||||
Left = 375
|
||||
Top = 3
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn6: TSpeedButton
|
||||
Left = 463
|
||||
Top = 3
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn7: TSpeedButton
|
||||
Left = 551
|
||||
Top = 3
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn8: TSpeedButton
|
||||
Left = 639
|
||||
Top = 3
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn58: TSpeedButton
|
||||
Left = 23
|
||||
Top = 81
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn9: TSpeedButton
|
||||
Left = 111
|
||||
Top = 81
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn10: TSpeedButton
|
||||
Left = 199
|
||||
Top = 81
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn11: TSpeedButton
|
||||
Left = 287
|
||||
Top = 81
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn12: TSpeedButton
|
||||
Left = 375
|
||||
Top = 81
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn13: TSpeedButton
|
||||
Left = 463
|
||||
Top = 81
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn14: TSpeedButton
|
||||
Left = 551
|
||||
Top = 81
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn15: TSpeedButton
|
||||
Left = 639
|
||||
Top = 81
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn59: TSpeedButton
|
||||
Left = 23
|
||||
Top = 158
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn16: TSpeedButton
|
||||
Left = 111
|
||||
Top = 158
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn17: TSpeedButton
|
||||
Left = 199
|
||||
Top = 158
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn18: TSpeedButton
|
||||
Left = 287
|
||||
Top = 158
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn19: TSpeedButton
|
||||
Left = 375
|
||||
Top = 158
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn20: TSpeedButton
|
||||
Left = 463
|
||||
Top = 158
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn21: TSpeedButton
|
||||
Left = 551
|
||||
Top = 158
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn22: TSpeedButton
|
||||
Left = 639
|
||||
Top = 158
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn60: TSpeedButton
|
||||
Left = 23
|
||||
Top = 236
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn23: TSpeedButton
|
||||
Left = 111
|
||||
Top = 236
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn24: TSpeedButton
|
||||
Left = 199
|
||||
Top = 236
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn25: TSpeedButton
|
||||
Left = 287
|
||||
Top = 236
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn26: TSpeedButton
|
||||
Left = 375
|
||||
Top = 236
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn27: TSpeedButton
|
||||
Left = 463
|
||||
Top = 236
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn28: TSpeedButton
|
||||
Left = 551
|
||||
Top = 236
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn29: TSpeedButton
|
||||
Left = 639
|
||||
Top = 236
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn61: TSpeedButton
|
||||
Left = 23
|
||||
Top = 314
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn30: TSpeedButton
|
||||
Left = 111
|
||||
Top = 314
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn31: TSpeedButton
|
||||
Left = 199
|
||||
Top = 314
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn32: TSpeedButton
|
||||
Left = 287
|
||||
Top = 314
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn33: TSpeedButton
|
||||
Left = 375
|
||||
Top = 314
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn34: TSpeedButton
|
||||
Left = 463
|
||||
Top = 314
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn35: TSpeedButton
|
||||
Left = 551
|
||||
Top = 314
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn36: TSpeedButton
|
||||
Left = 639
|
||||
Top = 314
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn62: TSpeedButton
|
||||
Left = 23
|
||||
Top = 392
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn37: TSpeedButton
|
||||
Left = 111
|
||||
Top = 392
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn38: TSpeedButton
|
||||
Left = 199
|
||||
Top = 392
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn39: TSpeedButton
|
||||
Left = 287
|
||||
Top = 392
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn40: TSpeedButton
|
||||
Left = 375
|
||||
Top = 392
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn41: TSpeedButton
|
||||
Left = 463
|
||||
Top = 392
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn42: TSpeedButton
|
||||
Left = 551
|
||||
Top = 392
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn43: TSpeedButton
|
||||
Left = 639
|
||||
Top = 392
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn63: TSpeedButton
|
||||
Left = 23
|
||||
Top = 469
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn44: TSpeedButton
|
||||
Left = 111
|
||||
Top = 469
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn45: TSpeedButton
|
||||
Left = 199
|
||||
Top = 469
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn46: TSpeedButton
|
||||
Left = 287
|
||||
Top = 469
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn47: TSpeedButton
|
||||
Left = 375
|
||||
Top = 469
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn48: TSpeedButton
|
||||
Left = 463
|
||||
Top = 469
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn49: TSpeedButton
|
||||
Left = 551
|
||||
Top = 469
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn50: TSpeedButton
|
||||
Left = 639
|
||||
Top = 469
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn64: TSpeedButton
|
||||
Left = 23
|
||||
Top = 547
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn51: TSpeedButton
|
||||
Left = 111
|
||||
Top = 547
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn52: TSpeedButton
|
||||
Left = 199
|
||||
Top = 547
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn53: TSpeedButton
|
||||
Left = 287
|
||||
Top = 547
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn54: TSpeedButton
|
||||
Left = 375
|
||||
Top = 547
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn55: TSpeedButton
|
||||
Left = 463
|
||||
Top = 547
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn56: TSpeedButton
|
||||
Left = 551
|
||||
Top = 547
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object btn57: TSpeedButton
|
||||
Left = 639
|
||||
Top = 547
|
||||
Width = 70
|
||||
Height = 70
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -21
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
OnClick = btn1Click
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 352
|
||||
Top = 626
|
||||
Width = 33
|
||||
Height = 19
|
||||
Caption = '1/1'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -19
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 199
|
||||
Top = 623
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #19978#19968#39029
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object Button2: TButton
|
||||
Left = 445
|
||||
Top = 623
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = #19979#19968#39029
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnClick = Button2Click
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = ADOConnection1
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = ADOConnection1
|
||||
end
|
||||
object ADOTmp: TADOQuery
|
||||
Connection = ADOConnection1
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 120
|
||||
Top = 176
|
||||
end
|
||||
object ADOConnection1: TADOConnection
|
||||
LoginPrompt = False
|
||||
Left = 296
|
||||
Top = 192
|
||||
end
|
||||
object CDS_All: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 296
|
||||
Top = 272
|
||||
end
|
||||
end
|
||||
237
项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.pas
Normal file
237
项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.pas
Normal file
|
|
@ -0,0 +1,237 @@
|
|||
unit U_PositionSel;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, Buttons, DB, ADODB, U_BaseHelp, System.ImageList, Vcl.ImgList,
|
||||
Datasnap.DBClient, Vcl.StdCtrls, math;
|
||||
|
||||
type
|
||||
TfrmPositionSel = class(TfrmBaseHelp)
|
||||
ScrollBox1: TScrollBox;
|
||||
btn1: TSpeedButton;
|
||||
btn2: TSpeedButton;
|
||||
btn3: TSpeedButton;
|
||||
btn4: TSpeedButton;
|
||||
btn5: TSpeedButton;
|
||||
btn6: TSpeedButton;
|
||||
btn7: TSpeedButton;
|
||||
btn8: TSpeedButton;
|
||||
btn58: TSpeedButton;
|
||||
btn9: TSpeedButton;
|
||||
btn10: TSpeedButton;
|
||||
btn11: TSpeedButton;
|
||||
btn12: TSpeedButton;
|
||||
btn13: TSpeedButton;
|
||||
btn14: TSpeedButton;
|
||||
btn15: TSpeedButton;
|
||||
btn59: TSpeedButton;
|
||||
btn16: TSpeedButton;
|
||||
btn17: TSpeedButton;
|
||||
btn18: TSpeedButton;
|
||||
btn19: TSpeedButton;
|
||||
btn20: TSpeedButton;
|
||||
btn21: TSpeedButton;
|
||||
btn22: TSpeedButton;
|
||||
btn60: TSpeedButton;
|
||||
btn23: TSpeedButton;
|
||||
btn24: TSpeedButton;
|
||||
btn25: TSpeedButton;
|
||||
btn26: TSpeedButton;
|
||||
btn27: TSpeedButton;
|
||||
btn28: TSpeedButton;
|
||||
btn29: TSpeedButton;
|
||||
btn61: TSpeedButton;
|
||||
btn30: TSpeedButton;
|
||||
btn31: TSpeedButton;
|
||||
btn32: TSpeedButton;
|
||||
btn33: TSpeedButton;
|
||||
btn34: TSpeedButton;
|
||||
btn35: TSpeedButton;
|
||||
btn36: TSpeedButton;
|
||||
btn62: TSpeedButton;
|
||||
btn37: TSpeedButton;
|
||||
btn38: TSpeedButton;
|
||||
btn39: TSpeedButton;
|
||||
btn40: TSpeedButton;
|
||||
btn41: TSpeedButton;
|
||||
btn42: TSpeedButton;
|
||||
btn43: TSpeedButton;
|
||||
btn63: TSpeedButton;
|
||||
btn44: TSpeedButton;
|
||||
btn45: TSpeedButton;
|
||||
btn46: TSpeedButton;
|
||||
btn47: TSpeedButton;
|
||||
btn48: TSpeedButton;
|
||||
btn49: TSpeedButton;
|
||||
btn50: TSpeedButton;
|
||||
btn64: TSpeedButton;
|
||||
btn51: TSpeedButton;
|
||||
btn52: TSpeedButton;
|
||||
btn53: TSpeedButton;
|
||||
btn54: TSpeedButton;
|
||||
btn55: TSpeedButton;
|
||||
btn56: TSpeedButton;
|
||||
btn57: TSpeedButton;
|
||||
ADOTmp: TADOQuery;
|
||||
ADOConnection1: TADOConnection;
|
||||
CDS_All: TClientDataSet;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Label1: TLabel;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure btn1Click(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
procedure Button1Click(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
{ Private declarations }
|
||||
public
|
||||
FPOSNO: string;
|
||||
FPage: Integer;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmPositionSel: TfrmPositionSel;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmPositionSel.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmPositionSel := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmPositionSel.InitGrid();
|
||||
var
|
||||
i: Integer;
|
||||
str: string;
|
||||
begin
|
||||
|
||||
with ADOTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select POSNO,POSName ');
|
||||
sql.Add(',ROW_NUMBER() over(order by A.POSNO) as keyNo ');
|
||||
sql.Add('from Bs_Position A ');
|
||||
SQL.Add('order by POSNO,POSName ');
|
||||
Open;
|
||||
end;
|
||||
if ADOTmp.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('没有定义数据！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
SCreateCDS(ADOTmp, CDS_All);
|
||||
SInitCDSData(ADOTmp, CDS_All);
|
||||
|
||||
if CDS_All.RecordCount < FPage * 64 then
|
||||
begin
|
||||
FPage := FPage - 1;
|
||||
end;
|
||||
if FPage <= 0 then
|
||||
begin
|
||||
FPage := 1;
|
||||
end;
|
||||
if CDS_All.RecordCount mod 64 > 0 then
|
||||
Label1.Caption := IntToStr(FPage) + '/' + IntToStr(Floor(CDS_All.RecordCount / 64 + 1))
|
||||
else
|
||||
Label1.Caption := IntToStr(FPage) + '/' + IntToStr(Floor(CDS_All.RecordCount / 64));
|
||||
|
||||
for i := 0 to 63 do
|
||||
begin
|
||||
if CDS_All.Locate('keyNo', (FPage - 1) * 64 + i + 1, []) then
|
||||
begin
|
||||
with ScrollBox1 do
|
||||
begin
|
||||
TSpeedButton(Controls[i]).Visible := True;
|
||||
TSpeedButton(Controls[i]).Hint := CDS_All.fieldbyname('POSNO').AsString;
|
||||
TSpeedButton(Controls[i]).Caption := CDS_All.fieldbyname('POSNO').AsString;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
with ScrollBox1 do
|
||||
begin
|
||||
TSpeedButton(Controls[i]).Visible := False;
|
||||
TSpeedButton(Controls[i]).Hint := '';
|
||||
TSpeedButton(Controls[i]).Caption := '';
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmPositionSel.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmPositionSel.btn1Click(Sender: TObject);
|
||||
begin
|
||||
FPOSNO := Trim(TSpeedButton(Sender).Hint);
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmPositionSel.Button1Click(Sender: TObject);
|
||||
begin
|
||||
FPage := FPage - 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmPositionSel.Button2Click(Sender: TObject);
|
||||
begin
|
||||
FPage := FPage + 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmPositionSel.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
// Action:=caHide;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmPositionSel.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
try
|
||||
with ADOConnection1 do
|
||||
begin
|
||||
Connected := false;
|
||||
ConnectionString := DConString;
|
||||
Connected := true;
|
||||
end;
|
||||
ADOQueryBaseCmd.Connection := ADOConnection1;
|
||||
ADOQueryBaseTemp.Connection := ADOConnection1;
|
||||
except
|
||||
{if Application.MessageBox('网络连接失败,是否要再次连接?','提示',32+4)=IDYES then
|
||||
begin
|
||||
try
|
||||
with ADOConnection1 do
|
||||
begin
|
||||
Connected:=false;
|
||||
ConnectionString:=DConString;
|
||||
//ConnectionString:='23242';
|
||||
Connected:=true;
|
||||
end;
|
||||
except
|
||||
end;
|
||||
end; }
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
403
项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.dfm
Normal file
403
项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.dfm
Normal file
|
|
@ -0,0 +1,403 @@
|
|||
inherited frmStockScanInEdit: TfrmStockScanInEdit
|
||||
Caption = #24211#23384#24211#20301#25195#25551
|
||||
ClientHeight = 632
|
||||
ClientWidth = 1350
|
||||
ExplicitWidth = 1366
|
||||
ExplicitHeight = 671
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 17
|
||||
object Panel1: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1350
|
||||
Height = 145
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
TabOrder = 0
|
||||
object Panel3: TPanel
|
||||
Left = 2
|
||||
Top = 2
|
||||
Width = 1346
|
||||
Height = 141
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Label4: TLabel
|
||||
Left = 844
|
||||
Top = 80
|
||||
Width = 48
|
||||
Height = 17
|
||||
Caption = #20837#24211#26102#38388
|
||||
Visible = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 864
|
||||
Top = 49
|
||||
Width = 48
|
||||
Height = 17
|
||||
Caption = #20837#24211#21333#21495
|
||||
Visible = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 854
|
||||
Top = 106
|
||||
Width = 48
|
||||
Height = 17
|
||||
Caption = #20837#24211#31867#22411
|
||||
Visible = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 13
|
||||
Top = 68
|
||||
Width = 66
|
||||
Height = 33
|
||||
Caption = #25195#25551
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clBlue
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 470
|
||||
Top = 68
|
||||
Width = 66
|
||||
Height = 33
|
||||
Caption = #24211#20301
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -32
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object CRTime: TDateTimePicker
|
||||
Left = 892
|
||||
Top = 76
|
||||
Width = 100
|
||||
Height = 20
|
||||
Date = 41337.000000000000000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 0.663190821760508700
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
end
|
||||
object InNo: TEdit
|
||||
Left = 918
|
||||
Top = 45
|
||||
Width = 100
|
||||
Height = 25
|
||||
TabOrder = 1
|
||||
Visible = False
|
||||
end
|
||||
object CRType: TComboBox
|
||||
Left = 902
|
||||
Top = 102
|
||||
Width = 100
|
||||
Height = 25
|
||||
Style = csDropDownList
|
||||
ItemIndex = 0
|
||||
TabOrder = 2
|
||||
Text = #26816#39564#20837#24211
|
||||
Visible = False
|
||||
Items.Strings = (
|
||||
#26816#39564#20837#24211
|
||||
#36864#36135#20837#24211)
|
||||
end
|
||||
object ToolBar3: TToolBar
|
||||
Tag = 1
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1344
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
ButtonHeight = 38
|
||||
ButtonWidth = 91
|
||||
Caption = 'ToolBar1'
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeClothStk.ImageList_new32
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 3
|
||||
object ToolButton3: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #30721#21333#25171#21360
|
||||
ImageIndex = 21
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 95
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #24211#20301#36873#25321
|
||||
ImageIndex = 8
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 190
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 285
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object btnGetOutNo: TToolButton
|
||||
Left = 356
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21462#21495
|
||||
ImageIndex = 2
|
||||
Visible = False
|
||||
OnClick = btnGetOutNoClick
|
||||
end
|
||||
end
|
||||
object edtScan: TEdit
|
||||
Left = 85
|
||||
Top = 45
|
||||
Width = 379
|
||||
Height = 72
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -64
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnKeyPress = edtScanKeyPress
|
||||
end
|
||||
object IOPosition: TEdit
|
||||
Left = 542
|
||||
Top = 45
|
||||
Width = 227
|
||||
Height = 72
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -64
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
OnKeyPress = edtScanKeyPress
|
||||
end
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel [1]
|
||||
Left = 0
|
||||
Top = 145
|
||||
Width = 1350
|
||||
Height = 487
|
||||
Align = alClient
|
||||
Caption = 'Panel2'
|
||||
TabOrder = 1
|
||||
object cxGrid3: TcxGrid
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 1348
|
||||
Height = 485
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv3: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_3
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cxGridDBColumn6
|
||||
end
|
||||
item
|
||||
Format = #21367#25968#37327#65306'#'
|
||||
Kind = skCount
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v3Column1
|
||||
end
|
||||
item
|
||||
Kind = skCount
|
||||
Column = v3MJID
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object cxGridDBColumn4: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'PieceNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 52
|
||||
end
|
||||
object v3MJID: TcxGridDBColumn
|
||||
Caption = #21367#26465#30721
|
||||
DataBinding.FieldName = 'StkId'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v3Column3: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'C_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv3Column1: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'C_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 67
|
||||
end
|
||||
object cxGridDBColumn6: TcxGridDBColumn
|
||||
Caption = #31859#25968
|
||||
DataBinding.FieldName = 'StkMeter'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Focusing = False
|
||||
Width = 69
|
||||
end
|
||||
object v3Column1: TcxGridDBColumn
|
||||
Caption = #27611#37325
|
||||
DataBinding.FieldName = 'StkGrossWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 59
|
||||
end
|
||||
object Tv3Column2: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'BatchNO'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 66
|
||||
end
|
||||
object Tv3Column3: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'C_Pattern'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv3Column4: TcxGridDBColumn
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'IOPosition'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv3
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TradeClothStk.ADOLink
|
||||
Left = 649
|
||||
Top = 56
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_TradeClothStk.ADOLink
|
||||
Left = 593
|
||||
Top = 49
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 168
|
||||
Top = 400
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 264
|
||||
Top = 400
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 336
|
||||
Top = 408
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TradeClothStk.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 704
|
||||
Top = 248
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeClothStk.ADOLink
|
||||
Parameters = <>
|
||||
Left = 792
|
||||
Top = 256
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TradeClothStk.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 872
|
||||
Top = 256
|
||||
end
|
||||
object CDS_2: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 264
|
||||
Top = 328
|
||||
end
|
||||
object DS_2: TDataSource
|
||||
DataSet = CDS_2
|
||||
Left = 336
|
||||
Top = 328
|
||||
end
|
||||
object GPM_2: TcxGridPopupMenu
|
||||
PopupMenus = <>
|
||||
Left = 176
|
||||
Top = 324
|
||||
end
|
||||
object DS_3: TDataSource
|
||||
DataSet = CDS_3
|
||||
Left = 808
|
||||
Top = 408
|
||||
end
|
||||
object CDS_3: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 760
|
||||
Top = 408
|
||||
end
|
||||
object GPM_3: TcxGridPopupMenu
|
||||
Grid = cxGrid3
|
||||
PopupMenus = <>
|
||||
Left = 712
|
||||
Top = 408
|
||||
end
|
||||
end
|
||||
316
项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.pas
Normal file
316
项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.pas
Normal file
|
|
@ -0,0 +1,316 @@
|
|||
unit U_StockScanInEdit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, strUtils, SysUtils, Variants, Classes, Graphics, Controls,
|
||||
Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, MMSystem,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||||
cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class,
|
||||
RM_GridReport, RM_Dataset, Vcl.ToolWin, dxSkinBasic, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
||||
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
||||
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
||||
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
||||
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
||||
dxSkinXmas2008Blue, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmStockScanInEdit = class(TfrmBaseList)
|
||||
GPM_1: TcxGridPopupMenu;
|
||||
CDS_1: TClientDataSet;
|
||||
DS_1: TDataSource;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
Panel1: TPanel;
|
||||
CDS_2: TClientDataSet;
|
||||
DS_2: TDataSource;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
DS_3: TDataSource;
|
||||
CDS_3: TClientDataSet;
|
||||
GPM_3: TcxGridPopupMenu;
|
||||
Panel2: TPanel;
|
||||
cxGrid3: TcxGrid;
|
||||
Tv3: TcxGridDBTableView;
|
||||
cxGridDBColumn4: TcxGridDBColumn;
|
||||
v3MJID: TcxGridDBColumn;
|
||||
v3Column3: TcxGridDBColumn;
|
||||
Tv3Column1: TcxGridDBColumn;
|
||||
cxGridDBColumn6: TcxGridDBColumn;
|
||||
v3Column1: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
Panel3: TPanel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label11: TLabel;
|
||||
CRTime: TDateTimePicker;
|
||||
InNo: TEdit;
|
||||
CRType: TComboBox;
|
||||
ToolBar3: TToolBar;
|
||||
ToolButton3: TToolButton;
|
||||
btnGetOutNo: TToolButton;
|
||||
ToolButton7: TToolButton;
|
||||
ToolButton8: TToolButton;
|
||||
edtScan: TEdit;
|
||||
Label6: TLabel;
|
||||
Tv3Column2: TcxGridDBColumn;
|
||||
Tv3Column3: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
IOPosition: TEdit;
|
||||
ToolButton5: TToolButton;
|
||||
Tv3Column4: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure btnGetOutNoClick(Sender: TObject);
|
||||
procedure ToolButton7Click(Sender: TObject);
|
||||
procedure ToolButton8Click(Sender: TObject);
|
||||
procedure edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
FScan, FSubIds: string;
|
||||
procedure PlayWav(MWav: string);
|
||||
procedure InitKC();
|
||||
procedure ScanKW();
|
||||
procedure ScanCIID();
|
||||
public
|
||||
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmStockScanInEdit: TfrmStockScanInEdit;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_TradeClothWaitStorage, U_LabelPrint, U_PositionSel;
|
||||
|
||||
{$R *.dfm}
|
||||
procedure TfrmStockScanInEdit.PlayWav(MWav: string);
|
||||
begin
|
||||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav')) then
|
||||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav'), 0, SND_ASYNC);
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.InitKC();
|
||||
begin
|
||||
|
||||
if IOPosition.Text = '' then
|
||||
exit;
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select A.IOFlag,A.IONo,A.IOID,A.IOPosition,B.* from Trade_Cloth_IO A ');
|
||||
sql.Add('inner join Trade_Cloth_Stock B on A.StkId=B.StkId and A.IOCycles=B.StkCycles ');
|
||||
sql.Add('where A.IOFlag=''入库'' and B.StkExists=1 ');
|
||||
if IOPosition.Text <> '' then
|
||||
sql.add('and IOPosition =' + QuotedStr(TRIm(IOPosition.Text)))
|
||||
else
|
||||
sql.add('and 1=2');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryTemp, CDS_3);
|
||||
SInitCDSData(ADOQueryTemp, CDS_3);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.ScanKW();
|
||||
var
|
||||
MStkIds: string;
|
||||
begin
|
||||
try
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from Bs_Position where POSID =''' + trim(FScan) + ''' ');
|
||||
open;
|
||||
end;
|
||||
|
||||
IOPosition.Text := ADOQueryTemp.FieldByName('posno').AsString;
|
||||
|
||||
btnGetOutNo.Click;
|
||||
except
|
||||
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.ScanCIID();
|
||||
var
|
||||
MStkIds: string;
|
||||
begin
|
||||
try
|
||||
if Trim(IOPosition.Text) = '' then
|
||||
raise Exception.Create('库位不能为空!');
|
||||
if Trim(InNo.Text) = '' then
|
||||
raise Exception.Create('入库单号不能为空!');
|
||||
|
||||
MStkIds := FScan;
|
||||
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
Sql.Clear;
|
||||
Sql.Add('exec P_Market_Position_In ');
|
||||
Sql.Add('@StkIds=' + quotedstr(trim(MStkIds)));
|
||||
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
|
||||
Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
|
||||
Sql.Add(',@IONO=' + Quotedstr(InNo.Text));
|
||||
Sql.Add(',@StkPosition=' + Quotedstr(IOPosition.Text));
|
||||
Sql.Add(',@FillId=' + Quotedstr(DCode));
|
||||
Sql.Add(',@Filler=' + Quotedstr(DName));
|
||||
// ShowMessage(sql.Text);
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||
begin
|
||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
PlayWav('正确');
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
raise Exception.Create(PChar(Exception(ExceptObject).Message));
|
||||
end;
|
||||
|
||||
except
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
// PlayWav('发货错误');
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmStockScanInEdit := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ReadCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
|
||||
InitKC();
|
||||
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.edtScanKeyPress(Sender: TObject; var Key: Char);
|
||||
var
|
||||
maxno, SMFlag, KYCKFlag, FMainId, ff: string;
|
||||
FFQty: Integer;
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
FScan := TRIM(edtScan.Text);
|
||||
edtScan.Text := '';
|
||||
if Copy(FScan, 1, 2) = 'KW' then
|
||||
begin
|
||||
ScanKW();
|
||||
end
|
||||
else
|
||||
begin
|
||||
ScanCIID();
|
||||
end;
|
||||
InitKC();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
if Trim(InNo.Text) = '' then
|
||||
Exit;
|
||||
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
begin
|
||||
FLMType := 'TradeClothIn1';
|
||||
FFiltration1 := Trim(Self.InNo.Text);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.ToolButton5Click(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
try
|
||||
frmPositionSel := TfrmPositionSel.Create(Application);
|
||||
with frmPositionSel do
|
||||
begin
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
IOPosition.Text := CDS_1.FieldByName('POSNO').AsString;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmPositionSel.Free;
|
||||
btnGetOutNo.Click;
|
||||
initkc();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.btnGetOutNoClick(Sender: TObject);
|
||||
var
|
||||
maxNo: string;
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, maxNo, 'RK', 'Trade_Cloth_IO', 3, 1) = False then
|
||||
begin
|
||||
Application.MessageBox('取入库单号失败!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
InNo.Text := Trim(maxNo);
|
||||
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||||
InitKC();
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.ToolButton7Click(Sender: TObject);
|
||||
begin
|
||||
tv3.Controller.EditingController.ShowEdit();
|
||||
Close;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmStockScanInEdit.ToolButton8Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user