Имя: Пароль:
1C
1С v8
Определения процедур и функций должны размещаться перед операторами тела модуля
0 Евгений39
 
21.03.21
01:27
При написании следующего кода всплывает сообщение:"{МодульУправляемогоПриложения(40,1)}; Определения процедур и функций должны размещаться перед операторами тела модуля". При этом никаких точек с запятыми после концов процедур в моём коде не стоит.

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

Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    // регистр Взаиморасчёты Приход
    Движения.Взаиморасчёты.Записывать = Истина;
    Движение = Движения.Взаиморасчёты.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
    Движение.Период = Дата;
    Движение.Контрагент = Клиент;
    Движение.Сумма = СуммаДокумента;

    // регистр Продажи
    Движения.Продажи.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        Движение = Движения.Продажи.Добавить();
        Движение.Период = Дата;
        Движение.Клиент = Клиент;
        Движение.Номенклатура = ТекСтрокаТовары.Товар;
        Движение.Количество = ТекСтрокаТовары.Количество;
        Движение.Сумма = ТекСтрокаТовары.Сумма;
    КонецЦикла;

    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
    // Вставить содержимое обработчика.
КонецПроцедуры


Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
    Для Каждого СтрокаТЧ ИЗ Товары Цикл
          СуммаДокумента=СуммаДокумента + СтрокаТЧ.Сумма;
    КонецЦикла;
КонецПроцедуры
1 VladZ
 
21.03.21
01:33
А теперь посмотри на код и сам скажи в чем проблема
2 Chameleon1980
 
21.03.21
09:12
{0}это весь код?
3 Ненавижу 1С
 
гуру
21.03.21
09:28
у тебя ошибка в модуле управляемого приложения причем тут документ?

>>{МодульУправляемогоПриложения(40,1)}
4 Провинциальный 1сник
 
21.03.21
09:38
(3) "А тут светлее" (с)
5 Вафель
 
21.03.21
10:02
после конецпроцедуры наверняка где-то стоит ;
6 Chameleon1980
 
21.03.21
12:15
щелкни уже по ошибке, чтобы перейти к ней
7 Евгений39
 
21.03.21
13:31
Друзья, прошу прощения за беспокойство. Проблема была в модуле приложения, так как там был написан лишний код.
8 RetardedToBoot
 
21.03.21
16:53
>СуммаДокумента=СуммаДокумента + СтрокаТЧ.Сумма;

Потенциальная ошибка. Без обнуления перед этим.