开放 导出清单部位明细Excel 功能

Forms/MainFrm.pas

@@ -989,7 +989,7 @@ end;
 
 procedure TMainForm.actnExportBillsJsonUpdate(Sender: TObject);
 begin
-  TAction(Sender).Visible := _IsDebugView;
+  TAction(Sender).Visible := True;//_IsDebugView;
   TAction(Sender).Enabled := jtsProjects.Tabs.Count > 1;
 end;