Общая консолидация
Процедура Общая консолидация (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.