Выбор периода и вызов подпрограммы в цикле за каждый месяц этого периода — различия между версиями
Материал из Фабиус 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 | |
| − | 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] ) + [' ] | |
| − | next | + | next |
[[Шаблоны программ на внутреннем языке фабиуса для повторного использования|Назад]] | [[Шаблоны программ на внутреннем языке фабиуса для повторного использования|Назад]] | ||
Версия 15:10, 5 мая 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
