REPS GROUP — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст программы)
Строка 15: Строка 15:
 
  parameters task_name, task_num, task_anal
 
  parameters task_name, task_num, task_anal
 
   
 
   
  if Empty( task_name ) or Empty( task_num )
+
  if [[Empty]]( task_name ) or Empty( task_num )
 
   if !Empty( task_anal )
 
   if !Empty( task_anal )
 
     if IsSklad( task_anal )
 
     if IsSklad( task_anal )

Версия 12:18, 26 апреля 2017

REPS_GROUP - это функция из справочника R266

Возвращает код группы отчета по переданному наименованию и номера модуля

REPS_GROUP( task_name, task_num [ , task_anal ] )

task_name - наименование модуля

task_num - номер модуля

task_anal - вместо наименования модуля и номера модуля достаточно передать код аналитики из R10

Текст программы

parameters task_name, task_num, task_anal

if Empty( task_name ) or Empty( task_num )
  if !Empty( task_anal )
    if IsSklad( task_anal )
      task_name := 'SKLAD'
      task_num := GetTaskNum( task_name, task_anal )
    endif
  endif
endif

if task_name = 'SKLAD'
  if GetPrm( 'REPSONPRVS', task_name, task_num )
    if GetPrm( 'RPT_KOD', task_name, task_num ) == 'SKLAD'
      result := '2801'
    elseif GetPrm( 'RPT_KOD', task_name, task_num ) == 'BUNKSKLAD'
      result := '1901'
    else
      result := '1201'
    endif
  else
    result := '0301'
  endif
endif

Смотрите также

Полезные функции

Функции Delphi