加码单

检验管理/TradeManage.dof

@@ -101,10 +101,14 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\徐加艳项目代码\项目代码\亚鹭\检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJyalu\检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
 [Version Info]
 IncludeVerInfo=0
 AutoIncBuild=0

检验管理/U_JYOrderCDOne.dfm

@@ -1,8 +1,8 @@
 object frmJYOrderCDOne: TfrmJYOrderCDOne
-  Left = 230
+  Left = 385
   Top = 202
-  Width = 1382
+  Width = 1227
-  Height = 533
+  Height = 689
   Caption = #26816#39564#25253#21578
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1366
+    Width = 1211
     Height = 62
     AutoSize = True
     ButtonHeight = 30
@@ -234,9 +234,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         #26816#39564#30721#21333'('#38271#24230')'
         #26816#39564#30721#21333'('#20928#37325')'
         #26816#39564#30721#21333'('#20840')'
-        ''
+        #26816#39564#30721#21333'('#27454#21495')')
-        ''
-        '')
     end
     object ToolButton9: TToolButton
       Left = 945
@@ -266,7 +264,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object Panel1: TPanel
     Left = 0
     Top = 62
-    Width = 1366
+    Width = 1211
     Height = 88
     Align = alTop
     BevelInner = bvRaised
@@ -795,8 +793,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object cxGrid1: TcxGrid
     Left = 0
     Top = 150
-    Width = 1366
+    Width = 1211
-    Height = 344
+    Height = 500
     Align = alClient
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
@@ -1940,15 +1938,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object RMDB_Main: TRMDBDataSet
     Visible = True
     DataSet = ADOQueryPrint
-    Left = 696
+    Left = 712
-    Top = 280
+    Top = 440
   end
   object ADOQueryPrint: TADOQuery
     Connection = DataLink_TradeManage.ADOLink
     LockType = ltReadOnly
     Parameters = <>
-    Left = 648
+    Left = 568
-    Top = 232
+    Top = 456
   end
   object CDS_CD: TClientDataSet
     Aggregates = <>
@@ -2060,4 +2058,17 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     Left = 376
     Top = 264
   end
+  object RMDBD_Z: TRMDBDataSet
+    Visible = True
+    DataSet = ADOQuery1
+    Left = 656
+    Top = 448
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 616
+    Top = 456
+  end
 end

检验管理/U_JYOrderCDOne.pas

@@ -12,19 +12,19 @@ uses
   RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
   cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue,
-  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
+  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
-  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
+  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
-  dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
+  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
-  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
-  dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
-  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
-  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
-  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
-  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
-  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
-  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
-  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
-  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
+  dxSkinscxPCPainter;
 
 type
   TfrmJYOrderCDOne = class(TForm)
@@ -219,6 +219,8 @@ type
     ToolButton4: TToolButton;
     Label36: TLabel;
     ComboBox2: TComboBox;
+    RMDBD_Z: TRMDBDataSet;
+    ADOQuery1: TADOQuery;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -1658,16 +1660,15 @@ begin
       Open;
     end;
   end;
-{
+
-  if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') OR (trim(ComboBox1.Text) = '쇱駱쯤데(丹빻)') then
+  if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(¿îºÅ)') then
   begin
     with ADOQueryTemp do
     begin
       Close;
       sql.Clear;
-      sql.add('exec P_Print_CKMD ');
+      sql.add('exec P_Print_CKMDHAEIL ');
-      sql.add('@mainID=' + quotedstr(Trim('')));
+      sql.add('@DName=' + quotedstr(Trim(DCode)));
-      sql.add(',@DName=' + quotedstr(Trim(DCode)));     
       Open;
     end;
     SCreateCDS20(ADOQueryTemp, CDS_HZ);
@@ -1680,10 +1681,20 @@ begin
       sql.add('exec P_Do_PrintMd_HZ ');
       sql.add('@mainID=' + quotedstr(Trim('')));
       sql.add(',@DName=' + quotedstr(Trim(DCode)));
-      sql.add(',@flag=''2'' ');
+      sql.add(',@flag=''22'' ');
       Open;
     end;
-  end;   }
+    with ADOQuery1 do //RMDBD_Z
+    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) = '检验码单(染色米数)') or (trim(ComboBox1.Text) = '检验码单(印花米数)') then
   begin
     with ADOQueryTemp do