Выбор периода и вызов подпрограммы в цикле за каждый день этого периода

local ip, my, end_data

ip := InputPeriod( true ) if Empty( ip )

 return

endif

my := StoD( ip[1] ) end_data := StoD( ip[2] ) + 1

while my <> end_data

 // подпрограмма, например CAM_1901( my, _ ), где my - дата, а _ - таблица для заполнения
 my := my + 1

end