Цитата(Looks @ 16.11.10, 19:58) необходимо зарегистрироваться для просмотра ссылки
ПРоцедура должна загружаться или вызываться из текстового файла.
Так понятно?
Например
1. #ЗагрузитьИзФайла .\EXTFORMS\ExtText\TovariTorgOldela.txt
Это все что прописано в модуле формы списка справочника товары.
2. Formex - создаем дополнительные глобальные модули и при старте 1С загружаем их, как пример:
ExtFunctions.txt содержит:
// Функции дополнительного глобального модуля
Функция дгфЗаполнитьСтроку (СтрокаСимволов, Символ, Кво) Экспорт Далее
Функция дгфДобавитьСимвол (ИсходнаяСтрока, Символ, Длина, Положение = 1) Экспорт Далее
Функция КопияБазы() Экспорт Далее
Функция сзУсловийСоздать() Экспорт Далее
Функция гмРазобратьСтроку(Стр, Рзд) Экспорт Далее
Функция дгмЭтоЦифра(Знак) Экспорт Далее
Функция дгмСформироватьАдрес(Регион) Экспорт Далее
Функция дгмПолныйАдрессКонтрагента(Контрагент) Экспорт Далее
Функция дгмЦенаКлиента (Конт,Клиент,Товар,ЦенаУч,ЦенаПродажи,ТоргНадбавка) Экспорт Далее
Функция дгмЦенаРозница(Конт,Клиент,Товар,ЦенаЗавода,ЦенаУч,ЦенаПродажи,ТоргНадбавка, ЦенаКлиента) Экспорт Далее
// ------------------------------------------------------------
Функция дгмМодуль(Чис) Экспорт
Если Чис < 0 Тогда
Возврат (- Чис)
Иначе
Возврат Чис;
КонецЕсли;
КонецФункции // Функция дгмМодуль()
// ------------------------------------------------------------
Функция дгмРасширить(Тек, Длина) Экспорт
Перем Текст;
Текст = СтрЗаменить(СокрЛП(Тек)," ", Симв(160)); // замена пробелов на 255-й символ
Пока СтрДлина(Текст) < дгмМодуль (Длина) Цикл
Если Длина < 0 Тогда
Текст = Текст + Симв(160);
Иначе
Текст = Симв(160) + Текст;
КонецЕсли;
КонецЦикла;
Возврат (Текст);
КонецФункции // Функция дгмРасширить(Тек, Длина)
по понятным причинам весь текст не привожу.