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#65289
#26816#39564#30721#21333'('#19977#32852#32454#30721')' #26816#39564#30721#21333'('#19977#32852#32454#30721')'
#26816#39564#30721#21333'('#19977#32852#31859')' #26816#39564#30721#21333'('#19977#32852#31859')'
#22806#38144#30721#21333'2') #22806#38144#30721#21333'2'
#22806#36152#30721#21333)
end end
object TBAftChkHX: TToolButton object TBAftChkHX: TToolButton
Left = 596 Left = 596

34
检验管理/U_JYOrderCDOne.pas
View File

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