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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м
 
(не показаны 4 промежуточные версии этого же участника)
Строка 1: Строка 1:
 
[[REPS_GROUP]] - это функция из справочника [[R266]]
 
[[REPS_GROUP]] - это функция из справочника [[R266]]
 
 
  Возвращает код группы отчета по переданному наименованию и номера модуля
 
  Возвращает код группы отчета по переданному наименованию и номера модуля
 
+
[[REPS_GROUP]]( task_name,  task_num [ ,  task_anal ] )
REPS_GROUP( task_name,  task_num [ ,  task_anal ] )
+
  
 
task_name - наименование модуля
 
task_name - наименование модуля
Строка 9: Строка 7:
 
task_num  - номер модуля
 
task_num  - номер модуля
  
task_anal - вместо наименования модуля и номера модуля достаточно передать код аналитики из R10
+
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]]
 
[[Функции Delphi]]

Текущая версия на 12:33, 11 января 2020

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

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

REPS_GROUP( task_name, task_num [ , task_anal ] )

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

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

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

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

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

Функции Delphi