Group_DJD/D7DJchuanghui
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

加码单

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-18 09:38:04 +08:00
parent 6fbfc90696
commit 7a447f112f
2 changed files with 32 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
检验管理/U_JYOrderCDOne.dfm
View File

@ -187,7 +187,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333'('#19977#32852#65289
#26816#39564#30721#21333'('#19977#32852#32454#30721')'
#26816#39564#30721#21333'('#19977#32852#31859')'
#22806#38144#30721#21333'2')
#22806#38144#30721#21333'2'
#22806#36152#30721#21333)
end
object TBAftChkHX: TToolButton
Left = 596

26
检验管理/U_JYOrderCDOne.pas
View File

@ -1558,6 +1558,32 @@ begin
end;
// SCreateCDS20(ADOQueryTemp, CDS_PRT);
// SInitCDSData20(ADOQueryTemp, CDS_PRT);
end;
if (trim(ComboBox1.Text) = 'ÍâóÂëµ¥') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDHAEIL ');
sql.add('@mainID=' + quotedstr(Trim('')));
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=''22'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '棍饋쯤데2') then
begin