Browse Source

云版,原报导出的上报文件,无锁文件保持一致,引起的单机版,上报文件默认命名中丢失审核人单位

MaiXinRong 9 years ago
parent
commit
d414b0c028
2 changed files with 2 additions and 1 deletions
  1. 1 1
      Forms/ReportsFrm.pas
  2. 1 0
      Units/ProjectData.pas

+ 1 - 1
Forms/ReportsFrm.pas

@@ -168,7 +168,7 @@ implementation
 
 uses
   UtilMethods, Math, DirectPrintUnit, Globals, ZhAPI, ReportAdjustFrm,
-  Contnrs, mEncryptUnit, Printers, WinSpool, MainFrm;
+  Contnrs, mEncryptUnit, Printers, WinSpool, MainFrm, ConstUnit;
 
 {$R *.dfm}
 

+ 1 - 0
Units/ProjectData.pas

@@ -475,6 +475,7 @@ begin
   FBillsData.Save;
   UpdateSysProgress(170, '正在保存数据');
 
+  FProjProperties.AuditCompany := FStaffData.FinalStaffCompany;
   FProjProperties.Save;
   UpdateSysProgress(180, '正在保存数据');
   FConnection.Save;