Group_01/D7DJyongsheng
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-06 16:31:30 +08:00
parent c9da7c1770
commit afbbb4c509
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -1745,8 +1745,8 @@ begin
end end
else else
begin begin
with ADOTmp do with ADOTmp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
@ -2509,8 +2509,8 @@ var
i: Integer; i: Integer;
begin begin
Panel3.Visible := True; Panel3.Visible := True;
with Panel3 do with Panel3 do
begin begin
for i := 0 to ControlCount - 1 do for i := 0 to ControlCount - 1 do
begin begin
if Controls[i] is TSpeedButton then if Controls[i] is TSpeedButton then
@ -2540,7 +2540,7 @@ begin
sql.Add('from JYOrder_Sub C'); sql.Add('from JYOrder_Sub C');
SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId '); SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId ');
sql.Add('where C.SubID=''' + Trim(APID.Text) + ''''); sql.Add('where C.SubID=''' + Trim(APID.Text) + '''');
Open; Open;
end; end;
if ADOTmp.IsEmpty = False then if ADOTmp.IsEmpty = False then
@ -2617,7 +2617,7 @@ begin
fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString); fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString);
fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString); fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString);
baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString); baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString);
if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then
begin begin
Application.MessageBox('取包条码最大号失败！', '提示', 0); Application.MessageBox('取包条码最大号失败！', '提示', 0);
Exit; Exit;
@ -2625,7 +2625,7 @@ begin
baoid.Text := FBaoID; baoid.Text := FBaoID;
Edit3.Text := '√'; Edit3.Text := '√';
Edit4.Text := ''; Edit4.Text := '';
MJStr4.Text := ''; MJStr4.Text := Trim(ADOTmp.fieldbyname('GangHao').AsString);
end end
else else
begin begin