소스 검색

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

MaiXinRong 9 년 전
부모
커밋
d414b0c028
2개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  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;