Task #1325 变更令，变更类型取消下拉，允许用户手工输入

Frames/BGLFme.pas

@@ -80,12 +80,13 @@ constructor TBGLFrame.Create(AParent: TFrame; ABGLData: TBGLData);
 begin
   inherited Create(AParent);
   FBGLData := ABGLData;
-  zgBGL.CellClass.Cols[zaBGL.ColumnCol('BGLType')] := TZjComboCell;
+  // 四川交投，变更令类型由用户直接输入
+  //zgBGL.CellClass.Cols[zaBGL.ColumnCol('BGLType')] := TZjComboCell;
   zaBGL.DataSet := FBGLData.cdsBGLView;
 
-  zgBGL.OnGetCellEditor := zgBGLGetCellEditor;
-  zgBGL.OnEditorLoadCell := zgBGLEditorLoadCell;
-  zgBGL.OnEditorSaveCell := zgBGLEditorSaveCell;
+  //zgBGL.OnGetCellEditor := zgBGLGetCellEditor;
+  //zgBGL.OnEditorLoadCell := zgBGLEditorLoadCell;
+  //zgBGL.OnEditorSaveCell := zgBGLEditorSaveCell;
 
   dbmPos_Reason.DataSource := FBGLData.dsBGL;
   dbmDirection.DataSource := FBGLData.dsBGL;
@@ -240,12 +241,13 @@ end;
 
 procedure TBGLFrame.zgBGLCellTextChanged(Sender: TObject; Col,
   Row: Integer);
-begin
-  if Col = 6 then
+begin     
+  // 四川交投，变更令类型由用户直接输入
+  {if Col = 6 then
   begin
     if (zgBGL.Cells[Col, Row].Text <> '') and (cbbBGLType.Items.IndexOf(zgBGL.Cells[Col, Row].Text) = -1) then
       zgBGL.Cells[Col, Row].Text := '';
-  end;
+  end;}
 end;
 
 end.