切换0号台账模式前，提示用户

Frames/ZJJLFme.pas

@@ -170,8 +170,13 @@ end;
 procedure TZJJLFrame.actnGenerateFxZJJLExecute(Sender: TObject);
 begin
   with TPhaseData(FZJJLData.PhaseData).PhaseProperty do
-    ZJJLType := 0;
-  GenerateZJJL;
+  begin
+    if (ZJJLType = 0) or QuestMessage('当前为“0号台账”格式，切换至“总量控制”将清空数据并重新生成，确定要切换吗？') then
+    begin
+      ZJJLType := 0;
+      GenerateZJJL;
+    end;
+  end;
 end;
 
 procedure TZJJLFrame.GenerateZJJL;
@@ -193,8 +198,13 @@ end;
 procedure TZJJLFrame.actnGenerateGclZJJLExecute(Sender: TObject);
 begin
   with TPhaseData(FZJJLData.PhaseData).PhaseProperty do
-    ZJJLType := 1;
-  GenerateZJJL;
+  begin
+    if (ZJJLType = 1) or (QuestMessage('当前为“总量控制”格式，切换至“0号台账”将清空数据并重新生成，确定要切换吗？')) then
+    begin
+      ZJJLType := 1;
+      GenerateZJJL;
+    end;
+  end;
 end;
 
 procedure TZJJLFrame.actnGenerateUpdate(Sender: TObject);