加一份码单格式 指示单里面的 空差 字段要显示在码单里面

打卷检验管理/U_JYOrderCDOne.pas

@@ -1557,7 +1557,7 @@ begin
       Open;
     end;
   end;
-  if (trim(ComboBox1.Text) = '检验码单(中文)') then
+  if (trim(ComboBox1.Text) = '检验码单(中文)') or (trim(ComboBox1.Text) = '检验码单(空加)')  then
   begin
     with ADOQueryTemp do
     begin

打卷检验管理/U_OrderInPut.dfm

@@ -1,6 +1,6 @@
 object frmOrderInPut: TfrmOrderInPut
-  Left = 393
-  Top = 409
+  Left = 363
+  Top = 395
   Width = 1379
   Height = 761
   Caption = #25351#31034#21333#24405#20837
@@ -1889,8 +1889,8 @@ object frmOrderInPut: TfrmOrderInPut
     end
   end
   object cxGrid4: TcxGrid
-    Left = 484
-    Top = 256
+    Left = 780
+    Top = 224
     Width = 237
     Height = 321
     TabOrder = 4

打卷检验管理/U_OrderInPut.pas

@@ -239,6 +239,7 @@ type
     procedure v1PRTCodeNamePropertiesChange(Sender: TObject);
     procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
     procedure v1PRTColorPropertiesChange(Sender: TObject);
+
     //procedure ConNoChange(Sender: TObject);
   private
     procedure InitData();
@@ -253,6 +254,7 @@ type
     function getOrderNo(fconNo: string): string;
     procedure InitDataSetDictionary();
     function SelfConnData(): Boolean;
+
     { Private declarations }
   public
     PState, CopyInt, PriceFlag: Integer;
@@ -1924,11 +1926,13 @@ begin
   end;
   SCreateCDS20(ADOQueryTmp, CDS_Con);
   SInitCDSData20(ADOQueryTmp, CDS_CON);
+
   if CDS_Con.IsEmpty then
     cxGrid4.Visible := False
   else
     cxGrid4.Visible := True;
 
+
 end;
 
 procedure TfrmOrderInPut.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
@@ -1966,5 +1970,7 @@ begin
     cxGrid4.Visible := True;
 end;
 
+
+
 end.