Выбор периода и вызов подпрограммы в цикле за каждый месяц этого периода — различия между версиями

Версия 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] ) + [' ]

@@ Строка 2: / Строка 2: @@
 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] ) )