Выбор периода и вызов подпрограммы в цикле за каждый месяц этого периода
Материал из Фабиус wiki
local ip, m, data, ii 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 ii := 0 to m sql := [ select * From mtun] + ret_f_ext( data,, ii ) + [ where datdoc between '] + sqldate( ip[1] ) + [' and '] + sqldate( ip[2] ) + [' ] next
Смотрите также
Шаблоны программ на внутреннем языке фабиуса для повторного использования
