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

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