#IRP-728 (#2866)

Co-authored-by: Andrey Vorobyov <andrey.vorobyov@mail.com>

IRP/src/AccumulationRegisters/R2001T_Sales/ManagerModule.bsl

@@ -1,5 +1,9 @@
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
+	
 	If Not RowIDInfoServer.LinkedRowsIntegrityIsEnable() Then
 		Return True;
 	EndIf;

IRP/src/AccumulationRegisters/R3010B_CashOnHand/ManagerModule.bsl

@@ -4,7 +4,10 @@ Function GetLockFieldNames() Export
 EndFunction
 
 Function CheckBalance(Ref, CurrentRecords, ExistsRecords, Unposting, AddInfo = Undefined) Export
-	
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
+
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R3010B_CashOnHand", True) Then
 		Return True;
 	EndIf;

IRP/src/AccumulationRegisters/R4010B_ActualStocks/ManagerModule.bsl

@@ -17,7 +17,10 @@ Function GetExistsRecords(Ref, RecordType = Undefined, AddInfo = Undefined) Expo
 EndFunction
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
-	
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
+
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R4010B_ActualStocks", True) Then
 		Return True;
 	EndIf;

IRP/src/AccumulationRegisters/R4011B_FreeStocks/ManagerModule.bsl

@@ -17,6 +17,9 @@ Function GetExistsRecords(Ref, RecordType = Undefined, AddInfo = Undefined) Expo
 EndFunction
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
 
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R4011B_FreeStocks", True) Then
 		Return True;

IRP/src/AccumulationRegisters/R4014B_SerialLotNumber/ManagerModule.bsl

@@ -18,6 +18,9 @@ Function GetExistsRecords(Ref, RecordType = Undefined, AddInfo = Undefined) Expo
 EndFunction
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
 
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R4014B_SerialLotNumber", True) Then
 		Return True;

IRP/src/AccumulationRegisters/R4035B_IncomingStocks/ManagerModule.bsl

@@ -15,6 +15,9 @@ Function GetExistsRecords(Ref, RecordType = Undefined, AddInfo = Undefined) Expo
 EndFunction
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
 
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R4035B_IncomingStocks", True) Then
 		Return True;

IRP/src/AccumulationRegisters/R4036B_IncomingStocksRequested/ManagerModule.bsl

@@ -15,6 +15,9 @@ Function GetExistsRecords(Ref, RecordType = Undefined, AddInfo = Undefined) Expo
 EndFunction
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
 
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R4036B_IncomingStocksRequested", True) Then
 		Return True;

IRP/src/AccumulationRegisters/R4037B_PlannedReceiptReservationRequests/ManagerModule.bsl

@@ -15,6 +15,9 @@ Function GetExistsRecords(Ref, RecordType = Undefined, AddInfo = Undefined) Expo
 EndFunction
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
 
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R4037B_PlannedReceiptReservationRequests", True) Then
 		Return True;

IRP/src/AccumulationRegisters/R4050B_StockInventory/ManagerModule.bsl

@@ -113,6 +113,9 @@ Function GetLockFieldNames() Export
 EndFunction
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
 
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R4050B_StockInventory", True) Then
 		Return True;

IRP/src/AccumulationRegisters/R6025B_SimpleBatch/ManagerModule.bsl

@@ -17,5 +17,9 @@ Procedure AdditionalDataFilling(MovementsValueTable) Export
 EndProcedure
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
+
 	Return True;
 EndFunction

IRP/src/AccumulationRegisters/R6070T_OtherPeriodsExpenses/ManagerModule.bsl

@@ -1,5 +1,8 @@
 
 Function CheckBalance(Ref, CurrentRecords, ExistsRecords, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
 	
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R6070T_OtherPeriodsExpenses", True) Then
 		Return True;

IRP/src/AccumulationRegisters/R6080T_OtherPeriodsRevenues/ManagerModule.bsl

@@ -1,5 +1,8 @@
 
 Function CheckBalance(Ref, CurrentRecords, ExistsRecords, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
 	
 	If Not PostingServer.CheckingBalanceIsRequired(Ref, "CheckBalance_R6080T_OtherPeriodsRevenues", True) Then
 		Return True;

IRP/src/AccumulationRegisters/TM1010B_RowIDMovements/ManagerModule.bsl

@@ -15,6 +15,10 @@ Function GetExistsRecords(Ref, RecordType = Undefined, AddInfo = Undefined) Expo
 EndFunction
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
+	
 	Query = New Query();
 	Query.TempTablesManager = PostingServer.PrepareRecordsTables(GetLockFieldNames(), "RowID", ItemList_InDocument,
 		Records_InDocument, Records_Exists, Unposting, AddInfo);

IRP/src/AccumulationRegisters/TM1010T_RowIDMovements/ManagerModule.bsl

@@ -1,5 +1,9 @@
 
 Function CheckBalance(Ref, ItemList_InDocument, Records_InDocument, Records_Exists, RecordType, Unposting, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return True;
+	EndIf;
+
 	Query = New Query();
 	//@skip-check bsl-ql-hub
 	Query.Text = 

IRP/src/Documents/AdditionalCostAllocation/ManagerModule.bsl

@@ -200,7 +200,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Parameters.Insert("RecordType", AccumulationRecordType.Receipt);
 	
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);

IRP/src/Documents/AdditionalRevenueAllocation/ManagerModule.bsl

@@ -200,7 +200,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Parameters.Insert("RecordType", AccumulationRecordType.Receipt);
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;

IRP/src/Documents/BankPayment/ManagerModule.bsl

@@ -98,7 +98,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/BankReceipt/ManagerModule.bsl

@@ -99,7 +99,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/CashExpense/ManagerModule.bsl

@@ -74,7 +74,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/CashPayment/ManagerModule.bsl

@@ -98,7 +98,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/CashReceipt/ManagerModule.bsl

@@ -97,7 +97,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/CashRevenue/ManagerModule.bsl

@@ -73,7 +73,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/CashStatement/ManagerModule.bsl

@@ -80,7 +80,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/CommissioningOfFixedAsset/ManagerModule.bsl

@@ -179,7 +179,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref,

IRP/src/Documents/DecommissioningOfFixedAsset/ManagerModule.bsl

@@ -180,7 +180,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+	
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref,

IRP/src/Documents/GoodsReceipt/ManagerModule.bsl

@@ -460,7 +460,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/InventoryTransfer/ManagerModule.bsl

@@ -174,7 +174,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	CheckAfterWrite_CheckStockBalance(Ref, Cancel, Parameters, AddInfo);
 EndProcedure
 

IRP/src/Documents/InventoryTransferOrder/ManagerModule.bsl

@@ -190,7 +190,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/ItemStockAdjustment/ManagerModule.bsl

@@ -176,7 +176,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref,

IRP/src/Documents/ModernizationOfFixedAsset/ManagerModule.bsl

@@ -197,7 +197,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref,

IRP/src/Documents/MoneyTransfer/ManagerModule.bsl

@@ -72,7 +72,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/OpeningEntry/ManagerModule.bsl

@@ -309,7 +309,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref,"Document.OpeningEntry.Inventory");

IRP/src/Documents/PlannedReceiptReservation/ManagerModule.bsl

@@ -69,7 +69,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref,

IRP/src/Documents/ProductionPlanning/ManagerModule.bsl

@@ -374,7 +374,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/ProductionPlanningCorrection/ManagerModule.bsl

@@ -418,7 +418,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/PurchaseInvoice/ManagerModule.bsl

@@ -527,7 +527,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	

IRP/src/Documents/PurchaseOrder/ManagerModule.bsl

@@ -78,7 +78,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/PurchaseReturn/ManagerModule.bsl

@@ -210,7 +210,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref,

IRP/src/Documents/RetailGoodsReceipt/ManagerModule.bsl

@@ -176,7 +176,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/RetailReturnReceipt/ManagerModule.bsl

@@ -461,7 +461,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref, "Document.RetailReturnReceipt.ItemList");

IRP/src/Documents/RetailSalesReceipt/ManagerModule.bsl

@@ -219,7 +219,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref,

IRP/src/Documents/RetailShipmentConfirmation/ManagerModule.bsl

@@ -168,7 +168,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/SalesInvoice/ManagerModule.bsl

@@ -225,7 +225,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref, "Document.SalesInvoice.ItemList");

IRP/src/Documents/SalesOrder/ManagerModule.bsl

@@ -227,7 +227,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	StatusInfo = ObjectStatusesServer.GetLastStatusInfo(Ref);
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;

IRP/src/Documents/SalesReportFromTradeAgent/ManagerModule.bsl

@@ -204,8 +204,10 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
-	Return;
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
 EndProcedure
 
 #EndRegion

IRP/src/Documents/SalesReturn/ManagerModule.bsl

@@ -448,7 +448,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref, "Document.SalesReturn.ItemList");

IRP/src/Documents/ShipmentConfirmation/ManagerModule.bsl

@@ -176,7 +176,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 

IRP/src/Documents/StockAdjustmentAsSurplus/ManagerModule.bsl

@@ -203,7 +203,11 @@ EndProcedure
 
 #Region CheckAfterWrite
 
-Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined)
+Procedure CheckAfterWrite(Ref, Cancel, Parameters, AddInfo = Undefined) Export
+	If CommonFunctionsClientServer.GetFromAddInfo(AddInfo, "UnitTest", False) Then
+		Return;
+	EndIf;
+
 	Unposting = ?(Parameters.Property("Unposting"), Parameters.Unposting, False);
 	AccReg = AccumulationRegisters;
 	LineNumberAndItemKeyFromItemList = PostingServer.GetLineNumberAndItemKeyFromItemList(Ref,

Unit/src/CommonModules/Unit_RegistersCheckBalance/Module.bsl

@@ -0,0 +1,120 @@
+
+#Region Info
+
+Function Tests() Export
+	TestList = New Array;
+	TestList.Add("RegistersCheckBalance");	
+	Return TestList;
+EndFunction
+
+#EndRegion
+
+#Region Test
+
+Function RegistersCheckBalance() Export
+	ArrayOfErrors = New Array();
+	
+	_RegistersCheckBalance(ArrayOfErrors);
+	
+	If ArrayOfErrors.Count() Then
+		Unit_Service.assertFalse("Registers check balance errors: " + Chars.LF +
+			StrConcat(ArrayOfErrors, Chars.LF));
+	EndIf;
+	Return "";
+EndFunction
+
+Function RegisterSupport_API1(RegisterName)
+	AddInfo = New Structure("UnitTest", True);
+	Try
+		Return AccumulationRegisters[RegisterName].CheckBalance(
+			Undefined, 
+			Undefined, 
+			Undefined,
+			Undefined, AddInfo);
+	Except
+		Return False;
+	EndTry;
+EndFunction
+
+Function RegisterSupport_API2(RegisterName)
+	AddInfo = New Structure("UnitTest", True);
+	Try
+		Return AccumulationRegisters[RegisterName].CheckBalance(
+			Undefined, 
+			Undefined, 
+			Undefined, 
+			Undefined, 
+			Undefined, 
+			Undefined, AddInfo);
+	Except
+		Return False;
+	EndTry;
+EndFunction
+
+Procedure _RegistersCheckBalance(ArrayOfErrors)
+	ArrayOfRegisters = New Array();
+	
+	Ignored_Registers = GetIgnored_Registers();
+	
+	For Each RegMetadata In Metadata.AccumulationRegisters Do
+		If Ignored_Registers.Find(RegMetadata.Name) <> Undefined Then
+			Continue;
+		EndIf;
+		
+		If RegisterSupport_API1(RegMetadata.Name) Then
+			ArrayOfRegisters.Add(RegMetadata.Name);
+			Continue;
+		EndIf;
+		If RegisterSupport_API2(RegMetadata.Name) Then
+			ArrayOfRegisters.Add(RegMetadata.Name);
+			Continue;
+		EndIf;
+	EndDo;
+		
+	Ignored_Documents = GeIgnored_Documents();
+	
+	For Each RegisterName In ArrayOfRegisters Do
+		Recorders = Metadata.AccumulationRegisters[RegisterName].StandardAttributes.Recorder.Type.Types();
+		For Each Recorder In Recorders Do
+			DocMetadata = Metadata.FindByType(Recorder);
+			
+			If Ignored_Documents.Find(DocMetadata.Name) <> Undefined Then
+				Continue;
+			EndIf;
+		
+			AddInfo = New Structure("UnitTest", True);
+			Expression = StrTemplate("Documents.%1.CheckAfterWrite(Undefined, Undefined, Undefined, AddInfo)", DocMetadata.Name);
+			Try
+				SetSafeMode(True);
+				Execute Expression;
+			Except
+				ArrayOfErrors.Add(StrTemplate("Document[%1]: Register[%2]", DocMetadata.Name, RegisterName));
+			EndTry;
+		EndDo;
+	EndDo;
+EndProcedure 
+
+Function GeIgnored_Documents()
+	Array = New Array();
+	Array.Add("ManualRegisterEntry");
+	Array.Add("ForeignCurrencyRevaluation");
+	Return Array;
+EndFunction
+
+Function GetIgnored_Registers()
+	Array = New Array();
+	Array.Add("TM1010T_RowIDMovements");
+	Array.Add("TM1010B_RowIDMovements");
+	Array.Add("R6025B_SimpleBatch");
+	Array.Add("R4010B_ActualStocks");
+	Array.Add("R4011B_FreeStocks");
+	Array.Add("R4014B_SerialLotNumber");
+	Array.Add("R4035B_IncomingStocks");
+	Array.Add("R4036B_IncomingStocksRequested");
+	Array.Add("R6080T_OtherPeriodsRevenues");
+	Array.Add("R6070T_OtherPeriodsExpenses");
+	Array.Add("R4050B_StockInventory");
+	Return Array;
+EndFunction
+
+#EndRegion

Unit/src/CommonModules/Unit_RegistersCheckBalance/Unit_RegistersCheckBalance.mdo

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<mdclass:CommonModule xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="a643e645-e8cd-4aab-8768-eb76d154b80c">
+  <name>Unit_RegistersCheckBalance</name>
+  <synonym>
+    <key>en</key>
+    <value>Document reistration</value>
+  </synonym>
+  <server>true</server>
+  <externalConnection>true</externalConnection>
+  <clientOrdinaryApplication>true</clientOrdinaryApplication>
+</mdclass:CommonModule>

Unit/src/Configuration/Configuration.mdo

@@ -33,7 +33,6 @@
   <usePurposes>PersonalComputer</usePurposes>
   <defaultRoles>Role.Unit_MainRole</defaultRoles>
   <defaultLanguage>Language.English</defaultLanguage>
-  <compatibilityMode>8.3.27</compatibilityMode>
   <languages uuid="a12cbfb0-6dc3-4d28-97a9-113587c1e0c5">
     <name>English</name>
     <objectBelonging>Adopted</objectBelonging>
@@ -69,6 +68,7 @@
   <commonModules>CommonModule.EquipmentFiscalPrinter_CommonAPI</commonModules>
   <commonModules>CommonModule.DocSalesInvoiceServer</commonModules>
   <commonModules>CommonModule.DocPurchaseInvoiceServer</commonModules>
+  <commonModules>CommonModule.Unit_RegistersCheckBalance</commonModules>
   <commonAttributes>CommonAttribute.Author</commonAttributes>
   <commonAttributes>CommonAttribute.Branch</commonAttributes>
   <commonAttributes>CommonAttribute.Comment</commonAttributes>