BGL[Pos_Reason&Direction]均扩容成Memo(60535)

解决变更令[变更部位及原因，变更工程量说明]长度不够用问题

DataModules/BGLDm.dfm

@@ -35,13 +35,13 @@ object BGLData: TBGLData
     object cdsBGLTotalPrice: TFloatField
       FieldName = 'TotalPrice'
     end
-    object cdsBGLPos_Reason: TWideStringField
+    object cdsBGLPos_Reason: TMemoField
       FieldName = 'Pos_Reason'
-      Size = 255
+      BlobType = ftMemo
     end
-    object cdsBGLDirection: TWideStringField
+    object cdsBGLDirection: TMemoField
       FieldName = 'Direction'
-      Size = 255
+      BlobType = ftMemo
     end
     object cdsBGLDrawingCode: TWideStringField
       FieldName = 'DrawingCode'
@@ -84,13 +84,13 @@ object BGLData: TBGLData
     object cdsBGLViewTotalPrice: TFloatField
       FieldName = 'TotalPrice'
     end
-    object cdsBGLViewPos_Reason: TWideStringField
+    object cdsBGLViewPos_Reason: TMemoField
       FieldName = 'Pos_Reason'
-      Size = 255
+      BlobType = ftMemo
     end
-    object cdsBGLViewDirection: TWideStringField
+    object cdsBGLViewDirection: TMemoField
       FieldName = 'Direction'
-      Size = 255
+      BlobType = ftMemo
     end
     object cdsBGLViewLocked: TBooleanField
       FieldName = 'Locked'

DataModules/BGLDm.pas

@@ -47,26 +47,29 @@ type
     dspBGL: TDataSetProvider;
     cdsBGL: TClientDataSet;
     cdsBGLID: TIntegerField;
-    cdsBGLTotalPrice: TFloatField;
-    cdsBGLName: TWideStringField;
     cdsBGLCode: TWideStringField;
-    cdsBGLPos_Reason: TWideStringField;
-    cdsBGLDirection: TWideStringField;
+    cdsBGLName: TWideStringField;
+    cdsBGLTotalPrice: TFloatField;
+    cdsBGLPos_Reason: TMemoField;
+    cdsBGLDirection: TMemoField;
     cdsBGLDrawingCode: TWideStringField;
     cdsBGLLocked: TBooleanField;
     cdsBGLApprovalCode: TWideStringField;
     cdsBGLCreatePhaseID: TIntegerField;
+    cdsBGLExecutionRate: TFloatField;
+
     cdsBGLView: TClientDataSet;
     cdsBGLViewID: TIntegerField;
+    cdsBGLViewCode: TWideStringField;
     cdsBGLViewName: TWideStringField;
     cdsBGLViewTotalPrice: TFloatField;
-    cdsBGLViewCode: TWideStringField;
-    cdsBGLViewPos_Reason: TWideStringField;
-    cdsBGLViewDirection: TWideStringField;
+    cdsBGLViewPos_Reason: TMemoField;
+    cdsBGLViewDirection: TMemoField;
     cdsBGLViewDrawingCode: TWideStringField;
     cdsBGLViewLocked: TBooleanField;
     cdsBGLViewApprovalCode: TWideStringField;
     cdsBGLViewCreatePhaseID: TIntegerField;
+    cdsBGLViewExecutionRate: TFloatField;
 
     dsBGL: TDataSource;
 
@@ -83,6 +86,7 @@ type
     cdsBGBillsTotalPrice: TFloatField;
     cdsBGBillsUsedQuantity: TFloatField;
     cdsBGBillsLocked: TBooleanField;
+    
     cdsBGBillsView: TClientDataSet;
     cdsBGBillsViewID: TIntegerField;
     cdsBGBillsViewBGID: TIntegerField;
@@ -94,8 +98,6 @@ type
     cdsBGBillsViewTotalPrice: TFloatField;
     cdsBGBillsViewUsedQuantity: TFloatField;
     cdsBGBillsViewLocked: TBooleanField;
-    cdsBGLExecutionRate: TFloatField;
-    cdsBGLViewExecutionRate: TFloatField;
     procedure cdsBGBillsViewAfterInsert(DataSet: TDataSet);
     procedure cdsBGBillsViewAfterPost(DataSet: TDataSet);
     procedure cdsBGBillsViewQuantityChange(Sender: TField);

Units/DataBaseTables.pas

@@ -311,9 +311,9 @@ const
     // ½ð¶î
     (FieldName: 'TotalPrice'; FieldType: ftDouble; Size: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // ±ä¸ü²¿Î»¼°Ô­Òò
-    (FieldName: 'Pos_Reason'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False; ForceUpdate: False),
+    (FieldName: 'Pos_Reason'; FieldType: ftMemo; Size: 60535; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // ±ä¸ü¹¤³ÌÁ¿ËµÃ÷
-    (FieldName: 'Direction'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False; ForceUpdate: False),
+    (FieldName: 'Direction'; FieldType: ftMemo; Size: 60535; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // Ëø¶¨
     (FieldName: 'Locked'; FieldType: ftBoolean; Size: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // ±ä¸üͼºÅ