Общая консолидация

Процедура Общая консолидация (CTBA220) собирает данные из филиалов компании или из нескольких компаний для другой компании.

Перед выполнением консолидации необходимо предпринять ряд мер предосторожности, в частности.

Укажите в параметре MV_CONSOLD номер компании и филиал, который получит консолидированные данные (компания/филиал). Правильная настройка этого параметра гарантирует, что только указанные компании получат консолидированные данные.

Например, предположим, что компании/филиалы 02/01 и 03/01 являются консолидаторами (компаниями назначения); для этого параметра необходимо указать 0201/0301.

Совет: При выполнении этой операции рекомендуется, чтобы никто не использовал записи модуля Учет и отчетность (включая записи интеграции). Это просто рекомендация, но она позволит предотвратить появление возможных несогласованностей в учетных данных.

Точка входа CT200SEL позволяет отправлять содержимое массива с данными компаний и файлов для группировки.

Точка выполнения: в момент подготовки среды к процессу консолидации загружаются данные компаний и файлы для группировки.

Ожидаемый результат: возврат логического значения для проверки, какие компании/филиалы и файлы необходимо группировать.

Пример точки входа:

User Function CT220Sel( aEmp )
Local cMVSchedu := Getnewpar( 'MV_XSCHEDU' , '' )
Local axEmp2 = Â 
Local nJ = 0
Local nI = 0
Local lRet := .T.
If lRet
// (только когда переменная не пустая)
If ! Empty (cMVSchedu) .and. ( ValType( aEmp ) == 'A' .And. len( aEmp ) > 0 )
 while ! Empty( cMVSchedu )
 cResult := Substr( cMVSchedu , 1 , 4 )
 aAdd(axEmp2 , cResult )
 cMVSchedu := Substr( cResult , 2)
 End
 // (нуль: массив компаний для информирования из параметра)
 FOR nI = 1 to len(aEmp)
 aEmp[nI][1] := .F.
 NEXT
// Â (задана как истинные позиции компании)
 FOR nI = 1 to len(aEmp)
 FOR nI = 1 to len(aEmp)
If ( aEmp[nJ][1] == axEmp2[nI][1] )
aEmp[nJ][2] := .T.
Endif
 NEXT
 NEXT Â Â Â Â Â Â Â 
Endif   
Endif
Return .T.