Имя: Пароль:
1C
 
Операция введенная вручую в Бухгалтерии 3.0
,
0 mastodont
 
11.06.15
13:28
Следующий код прекрасно отрабатывал в бухгалтерии 2.0
А в 3.0 открывается пустая форма документа, без проводок.
В чем может быть дело?

    Док = Документы.ОперацияБух.СоздатьДокумент();
    док.Дата = ПолеВвода1;
    док.Содержание = "Смена МОЛ - перемещение материала в эксплуатации";
    
    суммадок = 0;
    
    Для каждого строка Из ТабличноеПоле1 Цикл
        Если строка.Изменить = ложь Тогда
            Продолжить;    
            
        КонецЕсли;
        
        суммадок = суммадок + строка.СуммаОстаток;
        Про1 = док.Движения.Хозрасчетный.Добавить();
        Про1.Активность=Истина;
        Про1.ВалютаДт = строка.Валюта;
        Про1.Организация = строка.Организация;
        Про1.ПодразделениеДт = строка.Подразделение;
        Про1.КоличествоДт = -(строка.КоличествоОстаток);
        Про1.Сумма = - (строка.СуммаОстаток);
        Про1.Содержание = "Убрали с о старого МОЛ - Смена МОЛ - перемещение материала в эксплуатации";
        Про1.СчетДт = ПланыСчетов.Хозрасчетный.ИнвентарьИХозяйственныеПринадлежностиВЭксплуатации;
        Про1.СубконтоДт.Номенклатура = строка.Субконто1;
        Про1.СубконтоДт.ПартииМатериаловВЭксплуатации = строка.Субконто2;
        Про1.СубконтоДт.РаботникиОрганизаций = строка.Субконто3;
        Про2 = док.Движения.Хозрасчетный.Добавить();
        Про2.Активность=Истина;
        Про2.ВалютаДт = строка.Валюта;
        Про2.Организация = строка.Организация;
        Про2.ПодразделениеДт = строка.Подразделение;
        Про2.КоличествоДт = строка.КоличествоОстаток;
        Про2.Сумма = строка.СуммаОстаток;
        Про2.Содержание = "Поставили на нового МОЛ - Смена МОЛ - перемещение материала в эксплуатации";
        Про2.СчетДт = ПланыСчетов.Хозрасчетный.ИнвентарьИХозяйственныеПринадлежностиВЭксплуатации;
        Про2.СубконтоДт.Номенклатура = строка.Субконто1;
        Про2.СубконтоДт.ПартииМатериаловВЭксплуатации = строка.Субконто2;
        Про2.СубконтоДт.РаботникиОрганизаций = ПолеВвода2;
        
    КонецЦикла;
    
    Док.СуммаОперации = суммадок;
    Форма = Док.ПолучитьФорму("ФормаДокумента");
    Форма.Открыть();
    Сообщение = Новый СообщениеПользователю;
    Сообщение.Текст = "Осталось проверить документ и нажать ОК";
    Сообщение.Сообщить()
1 Рэйв
 
11.06.15
13:43
оно в цикл то хоть заходит?
2 samozvanec
 
11.06.15
13:45
(0) а на форме коллекция движений, или, может, тз какая?
3 mastodont
 
11.06.15
13:46
(1) в цикл заходит.
4 DirecTwiX
 
11.06.15
13:46
Копай ЗначениеВРеквизитФормы/ЗначениеВДанныеФормы
5 Рэйв
 
11.06.15
13:52
Док.Записать() попробуй перед открытием.

Нет записанных движений - пустое таб поле  при открытии.
Не знаю как оно у тебя раньше работало...
6 DirecTwiX
 
11.06.15
13:53
Либо сразу на форму лей.
7 DirecTwiX
 
11.06.15
13:54
(5) Нормально всё. В ОФ точно. Да и УФ, по идее, можно. Ведь можно в новый незаписанный документ проводки добавлять.
8 mastodont
 
11.06.15
14:26
(4) в эту сторону как раз и копаю. Но пока не разобрался.
9 mastodont
 
11.06.15
14:32
(6) а как на форму сразу добавлять в этом документе вообще не понятно.
10 Naumov
 
11.06.15
14:37
Реквизит есть что-то типа "способ заполнения. его надо установить.
11 DirecTwiX
 
11.06.15
15:21
(9) ?
    Форма = Док.ПолучитьФорму("ФормаДокумента");
    Форма.РегистрБухгалтерииНаборЗаписей.Добавить().СчетДт = ...;
    Форма.Открыть();