Выбор периода и вызов подпрограммы в цикле за каждый месяц этого периода — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
local ip, m, data, i | local ip, m, data, i | ||
| − | |||
ip := [[InputPeriod]]( true ) | ip := [[InputPeriod]]( true ) | ||
| − | |||
if [[Empty]]( ip ) | if [[Empty]]( ip ) | ||
return | return | ||
endif | endif | ||
| − | |||
m := ( Year( [[StoD]]( ip[2] ) ) - Year( [[StoD]]( ip[1] ) ) ) * 12 + Month( [[StoD]]( ip[2] ) ) - Month( [[StoD]]( ip[1] ) ) | m := ( Year( [[StoD]]( ip[2] ) ) - Year( [[StoD]]( ip[1] ) ) ) * 12 + Month( [[StoD]]( ip[2] ) ) - Month( [[StoD]]( ip[1] ) ) | ||
| − | |||
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] ) + [' ] | ||
Версия 09:41, 25 октября 2016
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
Смотрите также
Шаблоны программ на внутреннем языке фабиуса для повторного использования
