1c/IRP
1
0
Fork 0
mirror of https://github.com/IRPTeam/IRP.git synced 2025-09-16 08:56:27 +02:00
Code Activity

IRP-2

Browse Source
This commit is contained in:
AzureAD\ANDREYVOROBYOV
2020-01-24 11:07:17 +02:00
parent 4bd77f17ce
commit 70d5071e18
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
IRP/src/CommonModules/PostingServer/Module.bsl
View File

@@ -44,14 +44,17 @@ Function Post(DocObject, Cancel, PostingMode, AddInfo = Undefined) Export
EndIf;
For Each KeyValue In PostingDataTables Do
RegisterName = KeyValue.Key.Metadata().Name;
RegisterMetadata = KeyValue.Key.Metadata();
RegisterName = RegisterMetadata.Name;
If Metadata.AccumulationRegisters.Find(RegisterName) = Undefined Then
Continue;
EndIf;
RecordInfo = KeyValue.Value;
If RecordInfo.RecordSet.Columns.Find("RowKey") = Undefined Or Not RecordInfo.RecordSet.Count() Then
If RecordInfo.RecordSet.Columns.Find("RowKey") = Undefined
Or RegisterMetadata.Dimensions.Find("RowKey") <> Undefined
Or Not RecordInfo.RecordSet.Count() Then
Continue;
EndIf;
@@ -70,7 +73,7 @@ Function Post(DocObject, Cancel, PostingMode, AddInfo = Undefined) Export
If Not RecordsForExpense.Count() Then
Continue;
EndIf;
FixRowKey(KeyValue.Key.Metadata(), RecordInfo, RecordsForExpense, DocObject);
FixRowKey(RegisterMetadata, RecordInfo, RecordsForExpense, DocObject);
EndDo;
// Multi currency integration