diff --git a/检验管理/TradeManage.dof b/检验管理/TradeManage.dof index c1e791e..0481d45 100644 --- a/检验管理/TradeManage.dof +++ b/检验管理/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= diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 68d8698..734e2f7 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/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; @@ -1739,9 +1766,9 @@ end; procedure TfrmJYOrderCDOne.ToolButton8Click(Sender: TObject); begin - with ADOQueryTemp do + with ADOQueryTemp do begin - Close; + Close; SQL.Clear; sql.Add('exec P_JYorder_Cxdh '); sql.add('@mainID=' + quotedstr(Trim(Order_Main.fieldbyname('MainId').AsString)));