1C в медицине

[serkus]

Прошу помощи! У меня нестандартная для 1С ситуация: использование программы в поликлинике для учета выписанных пациентам льготных рецептов и возврат аптеками отпущенных для учета. Наш программист (средней квалификации) написал мне конфигурацию, но некоторые недоработки все-же исправить не может. Помогите довести программу до должного уровня. Заинтересовавшихся прошу за подробностями обращаться в ЛС. Я работал с программой раньше, немного знаком с конфигуратором и немного с программированием. Заранее благодарен.

[serkus]

// Процедура розрахунок кількості рецептів
Процедура РозрахуватиРецепти()

Спр=СоздатьОбъект("Справочник.Пацієнти");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
   _свл=Спр.Ена*Константа.Еналаприл+Спр.Ліз*Константа.Лізиноприл+Спр.Біс*Константа.Бісопролол+Спр.Мет*Константа.Метопролол+Спр.Неб*Константа.Небівалол+Спр.Ніф*Константа.Ніфідіпін+Спр.Амл*Константа.Амлодипін;
   Спр.СВЛнаРік=_свл; // подсчет расчетной суммы на год
   _кри=0;
   Если (ПустоеЗначение(Спр.Еналаприл)=0) Тогда
      _кри=_кри+1;   // посчет рецептов по каждому препарату
   КонецЕсли;
   Если (ПустоеЗначение(Спр.Лізиноприл)=0) Тогда
      _кри=_кри+1;
   КонецЕсли;
   Если (ПустоеЗначение(Спр.Бісопролол)=0) Тогда
      _кри=_кри+1;
   КонецЕсли;
   Если (ПустоеЗначение(Спр.Метопролол)=0) Тогда
      _кри=_кри+1;
   КонецЕсли;
   Если (ПустоеЗначение(Спр.Небівалол)=0) Тогда
      _кри=_кри+1;
   КонецЕсли;
   Если (ПустоеЗначение(Спр.Ніфідіпін)=0) Тогда
      _кри=_кри+1;
   КонецЕсли;
   Если (ПустоеЗначение(Спр.Амлодипін)=0) Тогда
      _кри=_кри+1;
   КонецЕсли;
   Спр.КРвиписаних=_кри;
   Спр.Записать();   
КонецЦикла; 

КонецПроцедуры