From 61d962fc8590a083e2f637c34fd21924a57828e0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E2=80=9Czfp=E2=80=9D?= <“1719444075@qq.com”>
Date: Fri, 2 Aug 2024 12:25:53 +0800
Subject: [PATCH] =?UTF-8?q?=E5=BA=93=E5=AD=98=E5=BA=93=E4=BD=8D=E6=89=AB?=
=?UTF-8?q?=E6=8F=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
.../T04贸易明细仓库/TradeClothStk.dproj | 2 +-
.../T04贸易明细仓库/TradeClothStk.dproj.local | 92 +-
.../T04贸易明细仓库/TradeClothStk.identcache | Bin 2710 -> 2710 bytes
.../RTBasicsV1/T04贸易明细仓库/U_GetDllForm.pas | 14 +-
.../RTBasicsV1/T04贸易明细仓库/U_PositionSel.dfm | 986 ++++++++++++++++++
.../RTBasicsV1/T04贸易明细仓库/U_PositionSel.pas | 237 +++++
.../T04贸易明细仓库/U_StockScanInEdit.dfm | 403 +++++++
.../T04贸易明细仓库/U_StockScanInEdit.pas | 316 ++++++
8 files changed, 2003 insertions(+), 47 deletions(-)
create mode 100644 项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.dfm
create mode 100644 项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.pas
create mode 100644 项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.dfm
create mode 100644 项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.pas
diff --git a/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj b/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj
index 2df7baa..f055bbd 100644
--- a/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj
+++ b/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj
@@ -124,7 +124,7 @@
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
- D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\testDll.exe
+ D:\RTFormwork\项目代码\RTBasicsV1\T04贸易明细仓库\testDll.exe
diff --git a/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj.local b/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj.local
index a9b5ce6..f7dd41f 100644
--- a/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj.local
+++ b/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj.local
@@ -1,73 +1,75 @@
- 1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
- 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
- 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm
+ 1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.pas
1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm
1899-12-30 00:00:00.000.987,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothStkList.pas
1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm=C:\Users\Administrator\Desktop\U_TatClothOutList.dfm
1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas
1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj
- 1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas
- 1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=
- 1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas
- 1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas
+ 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas
- 1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm
+ 1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas
+ 1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas
+ 1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=
+ 1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
+ 1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm=C:\Users\Administrator\Desktop\U_TatClothInList.dfm
+ 1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas
1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothInList.pas
- 1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.pas
1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
+ 1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas
1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm
1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas
- 1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas
+ 1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.pas=C:\Users\Administrator\Desktop\U_TatClothOutList.pas
1899-12-30 00:00:00.000.432,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothOutList.pas
- 1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas
1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=
- 1899-12-30 00:00:00.000.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.pas
- 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas
+ 1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.pas=C:\Users\Administrator\Desktop\U_TatClothInList.pas
+ 1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas=C:\Users\Administrator\Desktop\U_TatClothStkList.pas
1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas
- 1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm
+ 1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas
+ 1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj
+ 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas
+ 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas
1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas
- 1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=
- 1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.pas
- 1899-12-30 00:00:00.000.611,C:\Users\Administrator\Desktop\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas
- 1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=
- 1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899-12-30 00:00:00.000.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas
- 1899-12-30 00:00:00.000.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas
+ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899-12-30 00:00:00.000.891,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas
- 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm
- 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899-12-30 00:00:00.000.611,C:\Users\Administrator\Desktop\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm
+ 1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=
+ 1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.pas
1899-12-30 00:00:00.000.084,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequestInPut.pas
+ 1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm
+ 1899-12-30 00:00:00.000.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas
+ 1899-12-30 00:00:00.000.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas
+ 1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas
+ 1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=
+ 1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm=C:\Users\Administrator\Desktop\U_TatClothStkList.dfm
+ 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899-12-30 00:00:00.000.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.pas
1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeClothInEdit.pas
1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas
- 1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm
+ 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 2024-08-02 12:17:47.024,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_PositionSel.pas
+ 2024-08-02 12:18:44.529,D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_PositionSel.pas=
diff --git a/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.identcache b/项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.identcache
index 4a7753bc40c432c31f71bd81842252ee37d3f3da..c3f168d0ab43bb51236d592129af5e0453ade160 100644
GIT binary patch
delta 25
hcmbOxI!$!L61K^8oc5CiIHWc&Vbf*Yti_ST1ORYK2dw}A
delta 25
hcmbOxI!$!L61L5M*>o8v*KyiUe#|DdS&Jiw2>^b72-g4r
diff --git a/项目代码/RTBasicsV1/T04贸易明细仓库/U_GetDllForm.pas b/项目代码/RTBasicsV1/T04贸易明细仓库/U_GetDllForm.pas
index 0df3bd7..9ce7967 100644
--- a/项目代码/RTBasicsV1/T04贸易明细仓库/U_GetDllForm.pas
+++ b/项目代码/RTBasicsV1/T04贸易明细仓库/U_GetDllForm.pas
@@ -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 //
diff --git a/项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.dfm b/项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.dfm
new file mode 100644
index 0000000..666a1a4
--- /dev/null
+++ b/项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.dfm
@@ -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
diff --git a/项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.pas b/项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.pas
new file mode 100644
index 0000000..a3bc499
--- /dev/null
+++ b/项目代码/RTBasicsV1/T04贸易明细仓库/U_PositionSel.pas
@@ -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.
+
diff --git a/项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.dfm b/项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.dfm
new file mode 100644
index 0000000..27651ae
--- /dev/null
+++ b/项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.dfm
@@ -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
diff --git a/项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.pas b/项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.pas
new file mode 100644
index 0000000..5f95673
--- /dev/null
+++ b/项目代码/RTBasicsV1/T04贸易明细仓库/U_StockScanInEdit.pas
@@ -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.
+