если в модуте несколько процедур то конфигуратор ругается: что Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
Как этого избежать? (если в другие модули перенести не удается)

Правильно писать.

Проверь код - везде ли есть конеццикла, конецесли и т.п.

ошибка не потому что у тебя несколько процедур

После КонецПроцедуры точку с запятой убери...

(0) быть внимательнее

расшнуровать ботиночки и снять  их с глазиков

//Процедура КонтрагентПриИзменении(Элемент)
//     Если Не КонтактноеЛицо.Пустая()Тогда
//         Если Контрагент<>КонтактноеЛицо.Владелец Тогда
//              КонтактноеЛицо=Справочники.КонтактныеЛица.ПустаяСсылка();
//         КонецЕсли;
//     КонецЕсли;
// КонецПроцедуры

//Процедура ТоварыСуммаПриИзменении(Элемент)
//     //расчет суммы строки табличной части
//    СтрочкаТЧ=ЭлементыФормы.Товары.ТекущиеДанные;
//    СтрочкаТЧ.Сумма=СтрочкаТЧ.Цена*СтрочкаТЧ.Количество.
//КонецПроцедуры

Процедура ТоварыНоменклатураПриИзменении(Элемент)
   СтрочкаТЧ=ЭлементыФормы.Товары.ТекущиеДанные;
   СтрочкаТЧ.Цена=СтрочкаТЧ.Номенклатура.ЦенаПокупки;
   Товары.КоличествоПриИзменении(Элемент);
КонецПроцедуры

Процедура Печать(Элемент)
   //{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
   // Данный фрагмент построен конструктором.
   // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
   ТабДок = Новый ТабличныйДокумент;
   Макет = Документы.Приходная.ПолучитьМакет("Печать");
   // Заголовок
   Область = Макет.ПолучитьОбласть("Заголовок");
   ТабДок.Вывести(Область);

   ТабДок.ОтображатьСетку = Ложь;
   ТабДок.Защита = Ложь;
   ТабДок.ТолькоПросмотр = Ложь;
   ТабДок.ОтображатьЗаголовки = Ложь;
   ТабДок.Показать();
   //}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
КонецПроцедуры

Процедура ОткрытьИсториюНажатие(Элемент)
   ФормаСР=РегистрыСведений.Валюты.ПолучитьФормуСписка(,ЭтаФорма,"Док"+Номер);
   ФормаСР.РегистрСведенийСписок.Отбор.Валюта.Значение=Валюта;
   ФормаСР.РегистрСведенийСписок.Отбор.Валюта.Использование=Истина;
   ФормаСР.ЗакрыватьПриЗакрытииВладельца=Истина;
   Если Не ФормаСР.Открыта() Тогда
       ФормаСР.РазрешитьСостояниеПрячущееся=Истина;
       ФормаСР.РазрешитьСостояниеПрикрепленное=Истина;
       ФормаСР.РазрешитьСоединятьОкно=Истина;
   КонецЕсли;
   ФормаСР.Открыть();
КонецПроцедуры


//НЕПОНЯТНО:
//Необходимо определить как обработчик события  "ПриИзмененении"
//для элемента диалога, связанного с реквизитом диалога "Валюта"
Процедура ВалютаПриИзменении(Элемент)
   Отбор=Новый Структура("Валюта",Валюта);
   Запись=РегистрыСведений.Валюты.ПолучитьПоследнее(Дата.Отбор);
   Курс=Запись.Курс;
КонецПроцедуры


Такой вот модуль. Если одну из первых процедур активировать, то ругается(

здесь ошибка
СтрочкаТЧ.Сумма=СтрочкаТЧ.Цена*СтрочкаТЧ.Количество.

Если Не ФормаСР.Открыта() Тогда
       ФормаСР.РазрешитьСостояниеПрячущееся=Истина;
       ФормаСР.РазрешитьСостояниеПрикрепленное=Истина;
       ФормаСР.РазрешитьСоединятьОкно=Истина;
   КонецЕсли;

//Процедура ТоварыСуммаПриИзменении(Элемент)

//     //расчет суммы строки табличной части

//    СтрочкаТЧ=ЭлементыФормы.Товары.ТекущиеДанные;

//    СтрочкаТЧ.Сумма=СтрочкаТЧ.Цена*СтрочкаТЧ.Количество.

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

а здесь в конце кто будет ";" ставить:

//    СтрочкаТЧ.Сумма=СтрочкаТЧ.Цена*СтрочкаТЧ.Количество.

(9) пардон... не то...

поставь там восклицательный знак! зачем ставить скромную точку?

всем спасибо!
mirosh ты был прав