Group_DJD/D7DJbulaikeyi
7
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:20:11 +08:00
parent 065caebcf1
commit 6f5022ffa1
2 changed files with 60 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1787,6 +1787,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;
@ -1813,7 +1838,7 @@ begin
Next;
end;
end;
Order_Main.EnableControls;
Order_Main.EnableControls; }
end;
@ -1827,6 +1852,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;
@ -1853,7 +1903,7 @@ begin
Next;
end;
end;
Order_Main.EnableControls;
Order_Main.EnableControls; }
end;

2
打卷检验管理/U_OrderInPut.pas
View File

@ -1078,7 +1078,7 @@ begin
end;
if Trim(SLBName.Text) = '' then
begin
SLBName.text := '²¼À³¿ËÒÁ±êÇ©.rmf';
SLBName.text := 'ｲｼﾀｳｿﾋﾒﾁｳ､ﾆｷﾃ﨣<EFBFBD>ｩ.rmf';
end;
if SaveData() then
begin