Выбор периода и вызов подпрограммы в цикле за каждый месяц этого периода — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
Строка 2: | Строка 2: | ||
ip := InputPeriod() | ip := InputPeriod() | ||
+ | |||
+ | if Empty( ip ) | ||
+ | |||
+ | return | ||
+ | |||
+ | 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] ) ) |
Версия 14:42, 2 февраля 2015
local ip, m, data, i
ip := InputPeriod()
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