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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
Строка 7: Строка 7:
 
  data := stod( ip[1] )
 
  data := stod( ip[1] )
 
  for i := 0 to m
 
  for i := 0 to m
   sql := [ Select * From mtun] + ret_f_ext( data,, i ) + [ where datdoc between '] + sqldate( ip[1] ) + [' and '] + sqldate( ip[2] ) + [' ]
+
   sql := [ select * From mtun] + ret_f_ext( data,, i ) + [ where datdoc between '] + sqldate( ip[1] ) + [' and '] + sqldate( ip[2] ) + [' ]
 
  next
 
  next
 
= =
 
= =

Версия 10:54, 13 сентября 2019

local ip, m, data, i
ip := inputperiod( true )
if empty( ip )
  return
endif
m := ( year( stod( ip[2] ) ) - year( stod( ip[1] ) ) ) * 12 + month( stod( ip[2] ) ) - month( stod( ip[1] ) )
data := stod( ip[1] )
for i := 0 to m
  sql := [ select * From mtun] + ret_f_ext( data,, i ) + [ where datdoc between '] + sqldate( ip[1] ) + [' and '] + sqldate( ip[2] ) + [' ]
next

local ip, m, data, i
ip := InputPeriod( true )
if Empty( ip )
  return
endif
m := ( Year( StoD( ip[2] ) ) - Year( StoD( ip[1] ) ) ) * 12 + Month( StoD( ip[2] ) ) - Month( StoD( ip[1] ) )
data := StoD( ip[1] )
for i := 0 to m
  sql := [ Select * From MTUN] + Ret_f_ext( data,, i ) + [ Where DATDOC between '] + SqlDate( ip[1] ) + [' and '] + SqlDate( ip[2] ) + [' ]
next

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

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