Имя: Пароль:
1C
 
БП 3.5 ОперацияБух программно
0 zenik
 
26.05.15
09:11
Доброе утро. Второй день бьюсь... Создаю документ "ОперацияБух", заполняю "движения". Открываю документ - проводки есть. кнопка "ДтКт" тоже показывает что движения есть. Смотрю ОСВ - тишина. Открываю свой документ, жму "Сохранить и Закрыть". В ОСВ появляется оборот. Форумы курил, везде одно и тоже, мой код вроде ничем не отличается. Но чего то не хватает.

Пробовал так:
    Документ = ПолучитьДокумент("ОперацияБух");
    Документ.Дата = Документ.Дата + 1;
    Документ.Организация                = Организация;
    Документ.СуммаОперации                = РеквизитыДокумента.Получить("Сумма");
    Документ.Содержание                = "Оплата бонусами";
    Документ.Записать();
    
    Движения = Документ.Движения.Хозрасчетный;
    Движение = Движения.Добавить();
    Движение.Регистратор     = Документ.Ссылка;
    Движение.Период            = Документ.Дата;
    Движение.СчетДт            = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПокупателямиИЗаказчиками;
    Движение.СчетКт         = ПланыСчетов.Хозрасчетный.ПрочиеДоходы;
    Движение.Сумма            = Документ.СуммаОперации;
    Движения.Записать();

и так (документ создаем так же)
    //Проводки = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    //Проводки.Отбор.Регистратор.Установить(Документ.Ссылка);
    //Проводки.Прочитать();
    //Проводки.Очистить();

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

И через движения и через наборзаписей документ заполняется а в ОСВ обороты падают только после записи из документа. Чего не хватает?
1 Andy13
 
26.05.15
09:12
Активность?
2 zenik
 
26.05.15
09:16
Да была такая, пропустил на копипасте:
ПроВодка.Активность = Истина;
3 zenik
 
26.05.15
09:17
И в движения сейчас попробовал - результат не изменился:
Движение.Активность        = Истина;
4 hhhh
 
26.05.15
09:23
что такое БП 3.5?
5 zenik
 
26.05.15
09:25
(4) ы :) Маху дал
Бухгалтерия предприятия КОРП, редакция 3.0 (3.0.40.24)
6 DJ Anthon
 
26.05.15
09:26
(4) чувак из будущего просто
7 bedrikd
 
26.05.15
09:27
может надо еще
Докумнет.Движения.Хозрасчетный.Записывать=Истина;
8 Славен
 
26.05.15
09:31
Организация не?
9 zenik
 
26.05.15
09:31
(7) нипомогло :(
10 Славен
 
26.05.15
09:31
+(8)  в движениях
11 ДенисЧ
 
26.05.15
09:32
Организация не задана
12 DJ Anthon
 
26.05.15
09:35
что мешает сделать Документ.Записать() ?
13 DJ Anthon
 
26.05.15
09:35
БП 3.0, у меня работает. и без всяких организаций

        Документ.Движения.Хозрасчетный.Очистить();
        Для Каждого Строка Из Проводки Цикл
            Проводка = Документ.Движения.Хозрасчетный.Добавить();
            Документ.Движения.Хозрасчетный.Записывать = Истина;
            Проводка.СчетДт = Строка.СчетД;
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, Строка.СубконтоД1Вид, Строка.СубконтоД1);
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, Строка.СубконтоД2Вид, Строка.СубконтоД2);
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, Строка.СубконтоД3Вид, Строка.СубконтоД3);
            Проводка.СчетКт = Строка.СчетК;
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, Строка.СубконтоК1Вид, Строка.СубконтоК1);
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, Строка.СубконтоК2Вид, Строка.СубконтоК2);
            БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, Строка.СубконтоК3Вид, Строка.СубконтоК3);
            Проводка.Сумма = Строка.Сумма;
            Если Проводка.СчетДт.НалоговыйУчет Тогда
                Проводка.СуммаНУДт = Строка.Сумма;
            КонецЕсли;
            Если Проводка.СчетКт.НалоговыйУчет Тогда
                Проводка.СуммаНУКт = Строка.Сумма;
            КонецЕсли;
            Проводка.Содержание = Строка.Содержание;
            Если Проводка.СчетДт.Количественный Тогда
                Проводка.КоличествоДт = Строка.Количество;
            КонецЕсли;
            Если Проводка.СчетКт.Количественный Тогда
                Проводка.КоличествоКт = Строка.Количество;
            КонецЕсли;
            Если Проводка.СчетДт.Валютный Тогда
                Проводка.ВалютаДт = Строка.Валюта;
                Проводка.ВалютнаяСуммаДт = Строка.ВалютнаяСумма;
            КонецЕсли;
            Если Проводка.СчетКт.Валютный Тогда
                Проводка.ВалютаКт = Строка.Валюта;
                Проводка.ВалютнаяСуммаКт = Строка.ВалютнаяСумма;
            КонецЕсли;
            БухгалтерскийУчет.УстановитьПодразделенияПроводки(Проводка, Неопределено, Неопределено);
        КонецЦикла;
        
                
        Документ.СуммаОперации = ?(СуммаПоДокументу = Неопределено, Проводки.Итог("Сумма"), СуммаПоДокументу);
        Документ.Содержание = "" + База.глНазваниеДокументаВЖурнале(Док.ТекущийДокумент()) + " " + СокрЛП(Док.НомерДок) + " от " + СтрЗаменить(Док.ДатаДок, "0:00:00", "");
        Документ.Комментарий = "Загружен " + ТекущаяДата();
14 zenik
 
26.05.15
09:35
Организация - она родимая!!! Спасибо, братцы!!!
15 DJ Anthon
 
26.05.15
09:36
+
        Документ.Ответственный = Пользователи.ТекущийПользователь();
        Документ.ДополнительныеСвойства.Вставить("ОбновлятьРеквизитыПриЗаписи", Ложь);
        Документ.Записать();
16 DJ Anthon
 
26.05.15
09:37
(14) так у тебя же вверху указано, организация = организация
17 ДенисЧ
 
26.05.15
09:39
(16) У него организация в документе. Но не в проводках
18 DJ Anthon
 
26.05.15
09:45
(17) у меня тоже. но работает. что не так? в начале строчка такая есть еще
    Документ.Организация = БухгалтерскийУчетПереопределяемый.ПолучитьЗначениеПоУмолчанию("ОсновнаяОрганизация");
19 DJ Anthon
 
26.05.15
09:46
(17) наверное, здесь, да? ) я просто делаю по образцу из той же конфиги, не знаю, почему надо что-то делать по-другому.
БухгалтерскийУчет.УстановитьПодразделенияПроводки(Проводка, Неопределено, Неопределено);
20 zenik
 
26.05.15
09:50
(19) Нет, там действительно только подразделение устанавливается, организация не затрагивается. Возможно из-за того что у меня "КОРП"...
з.ы. У меня тоже в коде есть и установить подразделение и установить субконто - просто лишнее оно тут было.
21 DJ Anthon
 
26.05.15
09:52
(20) у меня тоже корп