码单

打卷检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\陈亿项目代码\项目代码\炬顺\打卷检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJjushun\打卷检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

打卷检验管理/U_JYOrderCDOne.dfm

@@ -142,19 +142,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       AutoSize = True
       Caption = #25209#37327#20462#25913#30382#37325
       ImageIndex = 54
-      Wrap = True
       OnClick = ToolButton8Click
     end
     object ToolButton1: TToolButton
-      Left = 0
+      Left = 1139
-      Top = 30
+      Top = 0
       AutoSize = True
       Caption = #25171#21360#26631#31614
       ImageIndex = 96
+      Wrap = True
       OnClick = ToolButton1Click
     end
     object TCPDB: TToolButton
-      Left = 87
+      Left = 0
       Top = 30
       AutoSize = True
       Caption = #25104#21697#25171#21253
@@ -162,7 +162,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TCPDBClick
     end
     object ToolButton3: TToolButton
-      Left = 174
+      Left = 87
       Top = 30
       AutoSize = True
       Caption = #25171#21360#21253#26631#31614
@@ -171,7 +171,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton3Click
     end
     object ToolButton2: TToolButton
-      Left = 273
+      Left = 186
       Top = 30
       AutoSize = True
       Caption = #25171#21360#26816#39564#25253#21578
@@ -179,7 +179,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton2Click
     end
     object ToolButton5: TToolButton
-      Left = 384
+      Left = 297
       Top = 30
       AutoSize = True
       Caption = #25171#21360
@@ -187,7 +187,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton5Click
     end
     object Edit3: TEdit
-      Left = 447
+      Left = 360
       Top = 30
       Width = 68
       Height = 30
@@ -202,7 +202,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnKeyPress = Edit3KeyPress
     end
     object ComboBox1: TComboBox
-      Left = 515
+      Left = 428
       Top = 33
       Width = 149
       Height = 24
@@ -227,7 +227,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         #26816#39564#30721#21333)
     end
     object Edit4: TEdit
-      Left = 664
+      Left = 577
       Top = 30
       Width = 121
       Height = 30
@@ -241,7 +241,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Visible = False
     end
     object ToolButton12: TToolButton
-      Left = 785
+      Left = 698
       Top = 30
       Caption = #20462#25913#30721#21333
       ImageIndex = 54
@@ -249,7 +249,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton12Click
     end
     object ToolButton9: TToolButton
-      Left = 916
+      Left = 829
       Top = 30
       AutoSize = True
       Caption = #24322#24120#25968#25454
@@ -257,7 +257,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton9Click
     end
     object TBExport: TToolButton
-      Left = 1003
+      Left = 916
       Top = 30
       AutoSize = True
       Caption = #23548#20986
@@ -265,7 +265,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TBExportClick
     end
     object TBClose: TToolButton
-      Left = 1066
+      Left = 979
       Top = 30
       AutoSize = True
       Caption = #20851#38381
@@ -273,7 +273,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TBCloseClick
     end
     object ToolButton16: TToolButton
-      Left = 1129
+      Left = 1042
       Top = 30
       Caption = #25209#37327#20462#25913#27611#37325#20928#37325
       ImageIndex = 57

打卷检验管理/U_JYOrderCDOne.pas

@@ -1529,7 +1529,30 @@ begin
 //    showmessage(sql.text);
     ExecSQL;
   end;
+  if trim(ComboBox1.Text) = '쇱駱쯤데(낀똑路좆)' then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMDYDL_QXMD ');
+      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=''23'' ');
+      Open;
+    end;
+  end;
   if (trim(ComboBox1.Text) = '쇱駱쯤데(亶匡)') then
   begin
     with ADOQueryTemp do
@@ -1682,7 +1705,33 @@ begin
       Open;
     end;
   end;
+  if (trim(ComboBox1.Text) = '쇱駱쯤데(관)') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd20 ');
+      sql.add('@mainID=' + quotedstr(Trim('')));
+      sql.add(',@DName=' + quotedstr(Trim(DCode)));
+      sql.add(',@flag=''0'' ');
+      sql.add(',@CNum=''12'' ');
+      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) = '嵐寡玖쯤데(쯤)') or (trim(ComboBox1.Text) = '嵐寡玖쯤데(쵠)') then
   begin
     with ADOQueryTemp do
@@ -2404,7 +2453,7 @@ begin
     Order_Main.DisableControls;
     ADOQueryCmd.Connection.BeginTrans;
     with Order_Main do
-    begin                                        
+    begin
       First;
       while not Eof do
       begin