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

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

@ -408,7 +408,7 @@ begin
sql.Add('and A.FillTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
if Trim(DParameters2) = '次品' then
begin
sql.add('and mjtype=''´ÎÆ·'' ');
sql.add('and mjtype=''次品'' ');
end;
sql.add('order by A.mainid,B.prtcolor,gangno,A.mjxh');
// showmessage(sql.text);
@ -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;
@ -1944,10 +1994,10 @@ begin
// Order_Main.FieldByName('ssel').AsBoolean := True;
// end
// else
// Order_Main.FieldByName('ssel').AsBoolean := False;
// Order_Main.FieldByName('ssel').AsBoolean := False;
InitSum();
end;
end;
procedure TfrmJYOrderCDOne.Image1Click(Sender: TObject);
begin
@ -2392,10 +2442,10 @@ begin
// showmessage(sql.text);
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_BQ ');
sql.add('@DName=' + quotedstr(Trim(DCode)));

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

@ -223,9 +223,9 @@ type
procedure YCLFactoryBtnUpClick(Sender: TObject);
procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
procedure Label36DblClick(Sender: TObject);
procedure Label37DblClick(Sender: TObject);
procedure Label37DblClick(Sender: TObject);
procedure SYRNameBtnUpClick(Sender: TObject);
procedure MPRTBZNoteDblClick(Sender: TObject);
procedure MPRTBZNoteDblClick(Sender: TObject);
procedure MPRTSCTeBieNoteDblClick(Sender: TObject);
procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FileNameClick(Sender: TObject);
@ -1078,7 +1078,7 @@ begin
end;
if Trim(SLBName.Text) = '' then
begin
SLBName.text := '²¼À³¿ËÒÁ±êÇ©.rmf';
SLBName.text := '²¼À³¿ËÒÁ³¤Æ·Ãû±êÇ©.rmf';
end;
if SaveData() then
begin