Group_01/D7DJyuebang
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-08-20 14:04:44 +08:00
parent 853f1571eb
commit 2e65b50b11
2 changed files with 8 additions and 8 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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\乐邦\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJyuebang\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

14
检验管理/U_MJManageNewFDNew.pas
View File

@ -1574,7 +1574,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL'')'); sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL''),DETM2=dbo.F_Get_MJJY_DETM2(MJID)');
sql.Add('where MJID=''' + Trim(FMJID) + ''' '); sql.Add('where MJID=''' + Trim(FMJID) + ''' ');
execsql; execsql;
end; end;
@ -1830,7 +1830,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid='''+FAPID+''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' '); sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid=''' + FAPID + ''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' ');
Open; Open;
end; end;
Label56.caption := '¸×³¤¶È£º' + Trim(ADOTmp.fieldbyname('CGMJLen').AsString); Label56.caption := '¸×³¤¶È£º' + Trim(ADOTmp.fieldbyname('CGMJLen').AsString);
@ -1856,7 +1856,7 @@ begin
SQL.Clear; SQL.Clear;
sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName '); sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName ');
sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) '); sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) ');
sql.Add(',B.MPRTCF,C.*,A.* '); sql.Add(',B.MPRTCF,C.*,A.* ');
sql.Add(' from WFB_MJJY A'); sql.Add(' from WFB_MJJY A');
sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
@ -2531,12 +2531,12 @@ begin
fRollType := ''; fRollType := '';
Exit; Exit;
end; end;
Label56.caption := ''; Label56.caption := '';
with ADOTmp do with ADOTmp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid='''+FAPID+''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' '); sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid=''' + FAPID + ''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' ');
// ShowMessage(SQL.text); // ShowMessage(SQL.text);
Open; Open;
end; end;
@ -2725,7 +2725,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid='''+FAPID+''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' '); sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid=''' + FAPID + ''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' ');
Open; Open;
end; end;
Label56.caption := '¸×³¤¶È£º' + Trim(ADOTmp.fieldbyname('CGMJLen').AsString); Label56.caption := '¸×³¤¶È£º' + Trim(ADOTmp.fieldbyname('CGMJLen').AsString);