Group_01/D7DJlanshan
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-11 16:22:11 +08:00
parent b8ee966581
commit cb960ae88c
2 changed files with 55 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\澜山\打卷检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJlanshan\打卷检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

58
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -1921,6 +1921,31 @@ begin
if Application.MessageBox('确定要出库吗？', '提示', 32 + 4) <> IDYES then
Exit;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''已出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
Order_Main.Edit;
Order_Main.FieldByName('CKFlag').Value := '已出库';
Order_Main.FieldByName('SSel').AsBoolean := false;
Order_Main.Post;
end
else
Next;
end;
end;
Order_Main.EnableControls;
{ Order_Main.DisableControls;
with Order_Main do
begin
First;
@ -1936,18 +1961,16 @@ begin
sql.Add('update WFB_MJJY set CKFlag=''已出库'',CKtime=Getdate(),CKer=''' + trim(DName) + ''' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
Edit;
FieldByName('CKFlag').Value := '已出库';
Post;
Next;
end
else
Next;
end;
end;
Order_Main.EnableControls;
Order_Main.EnableControls; }
end;
@ -1968,7 +1991,31 @@ begin
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
//begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''未出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
Order_Main.Edit;
Order_Main.FieldByName('CKFlag').Value := '未出库';
Order_Main.FieldByName('SSel').AsBoolean := false;
Order_Main.Post;
end
else
Next;
end;
end;
Order_Main.EnableControls;
{ Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
@ -1976,7 +2023,6 @@ begin
sql.Add('update WFB_MJJY set CKFlag=''未出库'',CKtime=null,CKer=null where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
Edit;
FieldByName('CKFlag').Value := '未出库';
FieldByName('SSel').AsBoolean := False;
@ -1987,7 +2033,7 @@ begin
Next;
end;
end;
Order_Main.EnableControls;
Order_Main.EnableControls; }
end;