BUG #1399 结算01-1表，变更令编号含有中文时，变更原因及主要内容、主要工程量取值不应为空。

DataModules/ReportMemoryDm/rmXmjBGLDetailDm.pas

@@ -112,6 +112,25 @@ uses
 
 procedure TrmXmjBGLDetailData.AddBGL(ABGLCode: string;
   AClassNode: TXmjNode);
+
+  function FindBGL(const ABGLCode: string): Boolean;
+  begin
+    with FProjectData.BGLData do
+    begin
+      Result := False;
+      cdsBGL.First;
+      while not cdsBGL.Eof do
+      begin
+        if SameText(cdsBGLCode.AsString, ABGLCode) then
+        begin
+          Result := True;
+          Break;
+        end;
+        cdsBGL.Next;
+      end;
+    end;
+  end;
+
 var
   BGLNode: TBGLNode;
 begin
@@ -122,7 +141,7 @@ begin
     BGLNode.FBGLCode := ABGLCode;
     with FProjectData.BGLData do
     begin
-      if cdsBGL.Locate('Code', ABGLCode, []) then
+      if FindBGL(ABGLCode) then
       begin
         BGLNode.FBGLName := cdsBGLName.AsString;
         BGLNode.FBGLReason := cdsBGLPos_Reason.AsString;

Units/ReportManager.pas

@@ -764,7 +764,7 @@ begin
     51: Result := FrmHaBaiCustomizedData.AssignAssistantData(hbgt_CS); //内蒙古哈白、国道306定制表--会签辅助表
   end;
   // For Inner Test
-  //ShowTestForm(Result);
+  ShowTestForm(Result);
 end;
 
 function TMemoryReportManager.GetSqlResultDataSet(const ASql: string;