Выбор периода и вызов подпрограммы в цикле за каждый месяц этого периода — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→) |
Hisava (обсуждение | вклад) м |
||
Строка 1: | Строка 1: | ||
local ip, m, data, i | local ip, m, data, i | ||
− | ip := | + | ip := inputperiod( true ) |
− | if | + | if empty( ip ) |
return | return | ||
endif | endif | ||
− | m := ( | + | m := ( year( stod( ip[2] ) ) - year( stod( ip[1] ) ) ) * 12 + month( stod( ip[2] ) ) - month( stod( ip[1] ) ) |
− | data := | + | data := stod( ip[1] ) |
for i := 0 to m | for i := 0 to m | ||
− | sql := [ Select * From | + | sql := [ Select * From mtun] + ret_f_ext( data,, i ) + [ where datdoc between '] + sqldate( ip[1] ) + [' and '] + sqldate( ip[2] ) + [' ] |
next | next | ||
= = | = = | ||
local ip, m, data, i | local ip, m, data, i | ||
− | ip := | + | ip := [[InputPeriod]]( true ) |
− | if | + | if [[Empty]]( ip ) |
return | return | ||
endif | endif | ||
− | m := ( | + | m := ( [[Year]]( [[StoD]]( ip[2] ) ) - [[Year]]( [[StoD]]( ip[1] ) ) ) * 12 + [[Month]]( [[StoD]]( ip[2] ) ) - [[Month]]( [[StoD]]( ip[1] ) ) |
− | data := | + | data := [[StoD]]( ip[1] ) |
for i := 0 to m | for i := 0 to m | ||
− | sql := [ Select * From | + | sql := [ Select * From [[MTUN]]] + [[Ret_f_ext]]( data,, i ) + [ Where DATDOC between '] + [[SqlDate]]( ip[1] ) + [' and '] + [[SqlDate]]( ip[2] ) + [' ] |
next | next | ||
= Смотрите также = | = Смотрите также = | ||
[[Шаблоны программ на внутреннем языке фабиуса для повторного использования]] | [[Шаблоны программ на внутреннем языке фабиуса для повторного использования]] |
Версия 10:53, 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
Смотрите также
Шаблоны программ на внутреннем языке фабиуса для повторного использования