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