kol_kino =  0 .
kol_misto =  0 .

*     Переключились на таблицу kinoaficha

sele kinoaficha

*    Цикл по всем записям таблиці для которых ваполняется условие равенства поля tip_film
*    введеному на форме kinoaficha_vvod в контрол tip_film1 значению

scan for alltrim(tip_film) = alltrim(kinoaficha_vvod.tip_film1.value)

*    если значение поля kinoteatr равно введеному в на форме kinoaficha_vvod в контрол kinoteatr1 *    значению то увеличиваем счетчик kol_kino и kol_misto на единицу

   if alltrim(kinoteatr) = alltrim(kinoaficha_vvod.kinoteatr1.value)
      kol_kino = kol_kino +  1 
      kol_misto = kol_misto +  1 
   else
*    если нет то увеличиваем только счетчик kol_misto на единицу

      kol_misto = kol_misto +  1 
   endif
endscan

*    Формируем строку с результатом
cMessageTitle = 'Розрахунок'
cMessageText = 'Кіл-сть сеансів у кінотеатрі - ' + alltrim(str(kol_kino)) + '; у місті взагалі - ' + alltrim(str(kol_misto))
nDialogType =  0  +  64 

*   Выводим результат
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle) 

scan for alltrim(tip_film) = alltrim(kinoaficha_vvod.tip_film1.value)
   kol_misto = kol_misto +  1 

   if alltrim(kinoteatr) = alltrim(kinoaficha_vvod.kinoteatr1.value)
      kol_kino = kol_kino +  1 
   endif
endscan