Group_01/D7DJliaoxun
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-12-22 10:31:05 +08:00
parent 9a525a251c
commit 806bcbba11
2 changed files with 50 additions and 2 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\项目代码\D7DJliaoxun\检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

50
检验管理/U_JYOrderCDOne.pas
View File

@ -1529,6 +1529,54 @@ begin
end;
end;
if (trim(ComboBox1.Text) = '빻謹쵠쯤무쏙쯤데') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDHAEIL_HX ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '<27>뵀쵠쯤무쏙쯤데') or (trim(ComboBox1.Text) = '<27>뵀쵠쯤쯤데') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDHAEIL_SH ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(삠悧)') or (ComboBox1.ItemIndex = 4) then
begin
with ADOQueryTemp do
@ -1553,7 +1601,7 @@ begin
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
end;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(낀씐챘)') or (trim(ComboBox1.Text) = '쇱駱쯤데(빻謹씐챘)') or (trim(ComboBox1.Text) = '쇱駱쯤데(<28>뵀쵠쯤)') or (ComboBox1.ItemIndex = 5) then