diff --git a/A05基础资料管理/BaseInfo.dproj.local b/A05基础资料管理/BaseInfo.dproj.local
index aa266d2..4d3a712 100644
--- a/A05基础资料管理/BaseInfo.dproj.local
+++ b/A05基础资料管理/BaseInfo.dproj.local
@@ -4,8 +4,8 @@
1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm
1899/12/30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas
1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas
- 1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas
1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas
+ 1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas
1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm
1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas
1899/12/30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
@@ -19,14 +19,14 @@
1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm
1899/12/30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm
- 1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
1899/12/30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas
- 1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm
1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm
1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas
+ 1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas
1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm
- 1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm
diff --git a/B03基础物料仓库/ProductStk.identcache b/B03基础物料仓库/ProductStk.identcache
index b97c76e..98042e1 100644
Binary files a/B03基础物料仓库/ProductStk.identcache and b/B03基础物料仓库/ProductStk.identcache differ
diff --git a/B03基础物料仓库/U_BSPrtInEdit.dfm b/B03基础物料仓库/U_BSPrtInEdit.dfm
index bc9f4fc..218ad73 100644
--- a/B03基础物料仓库/U_BSPrtInEdit.dfm
+++ b/B03基础物料仓库/U_BSPrtInEdit.dfm
@@ -21,7 +21,6 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Height = 512
Align = alClient
TabOrder = 0
- ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/B03基础物料仓库/U_BSPrtInEdit.pas b/B03基础物料仓库/U_BSPrtInEdit.pas
index beadd5a..d6b462e 100644
--- a/B03基础物料仓库/U_BSPrtInEdit.pas
+++ b/B03基础物料仓库/U_BSPrtInEdit.pas
@@ -426,8 +426,11 @@ begin
end;
procedure TfrmBSPrtInEdit.TbAdd2Click(Sender: TObject);
+//var
+// i: Integer;
begin
inherited;
+// i := CDS_Sub.RecordCount + 1;
try
frmGKManageSel := TfrmGKManageSel.Create(Application);
with frmGKManageSel do
@@ -435,17 +438,30 @@ begin
FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin
- with Self.CDS_Sub do
+ with CDS_HZ do
begin
- append;
- FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
- FieldByName('StkCoNo').Value := 'ֿ';
- FieldByName('StkCoName').Value := 'ֿ';
- FieldByName('IOType').Value := 'ɹ';
- FieldByName('P_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value;
- FieldByName('P_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value;
- FieldByName('P_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value;
- FieldByName('Style').Value := '';
+ First;
+ while not Eof do
+ begin
+ if CDS_HZ.FieldByName('SSel').AsBoolean then
+ begin
+ with CDS_Sub do
+ begin
+ append;
+ FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
+ FieldByName('StkCoNo').Value := 'ֿ';
+ FieldByName('StkCoName').Value := 'ֿ';
+ FieldByName('IOType').Value := 'ɹ';
+ FieldByName('P_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value;
+ FieldByName('P_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value;
+ FieldByName('P_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value;
+// FieldByName('Qty').Value := frmGKManageSel.CDS_HZ.fieldbyname('kcqty').value;
+ FieldByName('Style').Value := '';
+ end;
+
+ end;
+ next;
+ end;
end;
end;
end;
diff --git a/B03基础物料仓库/U_GKManageSel.dfm b/B03基础物料仓库/U_GKManageSel.dfm
index 76e3aae..fc8fefe 100644
--- a/B03基础物料仓库/U_GKManageSel.dfm
+++ b/B03基础物料仓库/U_GKManageSel.dfm
@@ -25,13 +25,13 @@ inherited frmGKManageSel: TfrmGKManageSel
ParentColor = False
ShowCaptions = True
TabOrder = 3
- ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
+ Visible = False
OnClick = TBRafreshClick
end
object TbFilter: TToolButton
@@ -42,10 +42,18 @@ inherited frmGKManageSel: TfrmGKManageSel
ImageIndex = 0
Visible = False
end
- object TBClose: TToolButton
+ object Select: TToolButton
Left = 142
Top = 0
AutoSize = True
+ Caption = #36873#25321
+ ImageIndex = 12
+ OnClick = SelectClick
+ end
+ object TBClose: TToolButton
+ Left = 213
+ Top = 0
+ AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
@@ -60,7 +68,6 @@ inherited frmGKManageSel: TfrmGKManageSel
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 76
- ExplicitHeight = 442
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@@ -95,9 +102,15 @@ inherited frmGKManageSel: TfrmGKManageSel
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
- OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
+ object Tv2SSel: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 50
+ end
object Tv2Column4: TcxGridDBColumn
Caption = #38050#31576#32534#21495
DataBinding.FieldName = 'GKBH'
@@ -111,6 +124,7 @@ inherited frmGKManageSel: TfrmGKManageSel
DataBinding.FieldName = 'JZBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 100
end
object Tv2Column3: TcxGridDBColumn
@@ -118,6 +132,7 @@ inherited frmGKManageSel: TfrmGKManageSel
DataBinding.FieldName = 'JZCH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 100
end
object Tv2Column5: TcxGridDBColumn
@@ -125,6 +140,7 @@ inherited frmGKManageSel: TfrmGKManageSel
DataBinding.FieldName = 'GKKH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 124
end
object Tv2Column6: TcxGridDBColumn
@@ -132,6 +148,7 @@ inherited frmGKManageSel: TfrmGKManageSel
DataBinding.FieldName = 'GKLength'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 100
end
object Tv2Column10: TcxGridDBColumn
@@ -144,8 +161,10 @@ inherited frmGKManageSel: TfrmGKManageSel
end
object Tv2Column7: TcxGridDBColumn
Caption = #24211#23384#25968#37327
+ DataBinding.FieldName = 'kcqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 100
end
end
@@ -164,6 +183,7 @@ inherited frmGKManageSel: TfrmGKManageSel
Color = clWhite
ParentBackground = False
TabOrder = 4
+ ExplicitTop = 32
object Label1: TLabel
Left = 13
Top = 11
diff --git a/B03基础物料仓库/U_GKManageSel.pas b/B03基础物料仓库/U_GKManageSel.pas
index bfca016..0dc8237 100644
--- a/B03基础物料仓库/U_GKManageSel.pas
+++ b/B03基础物料仓库/U_GKManageSel.pas
@@ -45,6 +45,8 @@ type
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
+ Tv2SSel: TcxGridDBColumn;
+ Select: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -56,6 +58,7 @@ type
procedure CustomerChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MCNOPropertiesChange(Sender: TObject);
+ procedure SelectClick(Sender: TObject);
private
{ Private declarations }
@@ -85,7 +88,9 @@ begin
begin
Close;
SQL.Clear;
- sql.Add(' select A.* from BS_GK A ');
+ sql.Add(' select A.* ');
+ sql.Add(' ,kcqty=( select sum(e.IOQtyFlag*e.qty) from Bs_Product_IO e JOIN BS_GK a on e.p_code=a.GKBH where e.stkname='''')');
+ SQL.Add(' from BS_GK A');
// showmessage(Sql.text);
Open;
end;
@@ -131,7 +136,7 @@ end;
procedure TfrmGKManageSel.FormShow(Sender: TObject);
begin
inherited;
- ReadCxGrid(Trim(Self.Caption), Tv2, 'Ϣѡ');
+// ReadCxGrid(Trim(Self.Caption), Tv2, 'Ϣѡ');
InitGrid();
end;
@@ -140,8 +145,6 @@ begin
InitGrid();
end;
-
-
procedure TfrmGKManageSel.cxTabControl1Change(Sender: TObject);
begin
InitGrid;
@@ -161,6 +164,17 @@ begin
SelOKNo(CDS_HZ, False);
end;
+procedure TfrmGKManageSel.SelectClick(Sender: TObject);
+begin
+ inherited;
+ if CDS_HZ.Locate('ssel', True, []) = False then
+ begin
+ Application.MessageBox('ѡݣ', 'ʾϢ', MB_OK);
+ exit;
+ end;
+ ModalResult := 1;
+end;
+
procedure TfrmGKManageSel.CustomerChange(Sender: TObject);
begin
TbFilter.Click;
diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local
index ef08617..eb0d5fb 100644
--- a/B04采购计划管理/PurchasePlan.dproj.local
+++ b/B04采购计划管理/PurchasePlan.dproj.local
@@ -29,10 +29,10 @@
1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas
1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
@@ -42,20 +42,20 @@
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas
- 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj
1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas
1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm
- 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj
+ 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas
1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
- 2025/07/10 16:46:39.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas
+ 2025/07/10 16:46:39.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas
diff --git a/B04采购计划管理/U_GKManageSel.dfm b/B04采购计划管理/U_GKManageSel.dfm
index c550f4e..cc0ed55 100644
--- a/B04采购计划管理/U_GKManageSel.dfm
+++ b/B04采购计划管理/U_GKManageSel.dfm
@@ -25,7 +25,6 @@ inherited frmGKManageSel: TfrmGKManageSel
ParentColor = False
ShowCaptions = True
TabOrder = 3
- ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -67,7 +66,6 @@ inherited frmGKManageSel: TfrmGKManageSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
- ExplicitTop = 76
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>
@@ -159,6 +157,7 @@ inherited frmGKManageSel: TfrmGKManageSel
end
object Tv2Column7: TcxGridDBColumn
Caption = #24211#23384#25968#37327
+ DataBinding.FieldName = 'kcqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
@@ -179,7 +178,6 @@ inherited frmGKManageSel: TfrmGKManageSel
Color = clWhite
ParentBackground = False
TabOrder = 4
- ExplicitTop = 23
object Label1: TLabel
Left = 13
Top = 11
diff --git a/B04采购计划管理/U_GKManageSel.pas b/B04采购计划管理/U_GKManageSel.pas
index 86f1b08..25ace12 100644
--- a/B04采购计划管理/U_GKManageSel.pas
+++ b/B04采购计划管理/U_GKManageSel.pas
@@ -89,7 +89,9 @@ begin
begin
Close;
SQL.Clear;
- sql.Add(' select A.* from BS_GK A ');
+ sql.Add(' select A.* ');
+ sql.Add(' ,kcqty=( select sum(e.IOQtyFlag*e.qty) from Bs_Product_IO e JOIN BS_GK a on e.p_code=a.GKBH where e.stkname='''')');
+ SQL.Add(' from BS_GK A');
// showmessage(Sql.text);
Open;
end;
diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.dfm b/B04采购计划管理/U_YarnPurchasePlanPut.dfm
index 548625d..c481282 100644
--- a/B04采购计划管理/U_YarnPurchasePlanPut.dfm
+++ b/B04采购计划管理/U_YarnPurchasePlanPut.dfm
@@ -10,6 +10,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
+ ExplicitLeft = -598
ExplicitWidth = 1540
ExplicitHeight = 690
PixelsPerInch = 96
diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.pas b/B04采购计划管理/U_YarnPurchasePlanPut.pas
index 7338c48..d2053bd 100644
--- a/B04采购计划管理/U_YarnPurchasePlanPut.pas
+++ b/B04采购计划管理/U_YarnPurchasePlanPut.pas
@@ -1053,7 +1053,6 @@ begin
frmGKManageSel := TfrmGKManageSel.Create(Application);
with frmGKManageSel do
begin
-
// FSTKName := Self.FSTKName;
if ShowModal = 1 then
begin