|
БП 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) у меня тоже корп
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |