Выбор периода и вызов подпрограммы в цикле за каждый день этого периода — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показано 14 промежуточных версий этого же участника)
Строка 1: Строка 1:
local ip, my, end_data
+
local sql, ip, my, end_data
 
+
ip := inputperiod( true )
ip := InputPeriod( true )
+
if empty( ip )
 
+
if Empty( ip )
+
 
   return
 
   return
endif
+
endif
 
+
my := stod( ip[1] )
my := StoD( ip[1] )
+
end_data := stod( ip[2] ) + 1
 
+
while my <> end_data
end_data := StoD( ip[2] ) + 1
+
 
+
while my <> end_data
+
  
  // подпрограмма, например CAM_1901( my, _ ), где my - дата, а _ - таблица для заполнения
+
  my := my + 1
 +
end
  
  my := my + 1
+
m->qwrtitle := ' ( ' + stod( ip[1] ) + ' - ' + stod( ip[2] ) + ' )'
 +
= Пример =
 +
[[DRILL_AND_FILL]]
 +
= Смотрите также =
 +
[[Шаблоны программ на внутреннем языке фабиуса для повторного использования]]
  
end
+
[[QwrTitle]]

Текущая версия на 15:48, 22 января 2020

local sql, ip, my, end_data
ip := inputperiod( true )
if empty( ip )
  return
endif
my := stod( ip[1] )
end_data := stod( ip[2] ) + 1
while my <> end_data
  my := my + 1
end
m->qwrtitle := ' ( ' + stod( ip[1] ) + ' - ' + stod( ip[2] ) + ' )'

Пример

DRILL_AND_FILL

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

Шаблоны программ на внутреннем языке фабиуса для повторного использования

QwrTitle