~

检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\徐加艳项目代码\项目代码\创汇\检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJchuanghui\检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

检验管理/U_JYOrderCDOne.pas

@@ -1557,6 +1557,33 @@ begin
       Open;
     end;
 //    SCreateCDS20(ADOQueryTemp, CDS_PRT);
+//    SInitCDSData20(ADOQueryTemp, CDS_PRT);            
+  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
+    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;
+//    SCreateCDS20(ADOQueryTemp, CDS_PRT);
 //    SInitCDSData20(ADOQueryTemp, CDS_PRT);
   end;