|
Программное создание Операции БУХ (СТОРНО) в программе 1С8:Бухгалтерия 3.0 | ☑ | ||
---|---|---|---|---|
0
Bell
17.09.16
✎
17:44
|
Программно создаю документ "Операция БУХ"/СТОРНО, заполняю поле "Сторнируемый документ" и т.д.
Но при программном создании не заполняются движения из сторнируемого документа. Если в созданном документе ручками перевыбрать документ, тогда движения заполняются. Как решить это программно? Не сталкивался... |
|||
1
hhhh
17.09.16
✎
17:49
|
(0) посмотреть, что там происходит при нажатии кнопки, повторить у себя.
|
|||
2
Bell
17.09.16
✎
17:53
|
(1) Сложное решение.
|
|||
3
jsmith
17.09.16
✎
17:54
|
В форме документа
&НаКлиенте Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора) Если Элементы.СторнируемыйДокумент.ОграничениеТипа.СодержитТип(ТипЗнч(ВыбранноеЗначение)) Тогда КорректируемыйДокумент = ВыбранноеЗначение; СформироватьДвиженияСторноСервер(); УстановитьВидимостьГруппыСторно(); КонецЕсли; КонецПроцедуры &НаСервере Процедура СформироватьДвиженияСторноСервер() Если НЕ ПроверитьЗаполнение() Тогда Возврат; КонецЕсли; Для каждого СтрокаРегистра Из Регистры Цикл Если Объект.Движения[СтрокаРегистра.Имя].Количество() = 0 Тогда Продолжить; КонецЕсли; Объект.Движения[СтрокаРегистра.Имя].Очистить(); КонецЦикла; //Формирование движений Если ФлажокСписок Тогда ВыполнитьСторнированиеДокументов(Объект.ЗаполнениеДвижений); Иначе ТЗДокументов = новый ТаблицаЗначений; ТЗДокументов.Колонки.Добавить("Документ"); ТЗДокументов.Добавить().Документ = КорректируемыйДокумент; ВыполнитьСторнированиеДокументов(ТЗДокументов); КонецЕсли; ОбновитьИтогиПоДокументу(ЭтотОбъект); УстановитьДоступностьСубконто(); ОбновитьФорму(); КонецПроцедуры |
|||
4
Bell
17.09.16
✎
18:17
|
Исходно было написано следующее:
ДокСт = Документы.ОперацияБух.СоздатьДокумент(); ДокСт.Дата =ОбщийМодульТур.УстановитьВремяДокумента(ДатаОперации,16); ДокСт.СпособЗаполнения ="Сторно"; ДокСт.Организация = Объект.Организация; ДокСт.СторнируемыйДокумент = ТекДок.СвязанныйДок; ДокСт.Комментарий = "Сторнирование компоненты тура = "+Объект.Номер; ДокСт.Записать(РежимЗаписиДокумента.Запись); |
|||
5
jsmith
17.09.16
✎
18:28
|
(4) В чом и косяк, бро
Такшта давай, дописывай |
|||
6
Bell
17.09.16
✎
18:51
|
Так документы разные. Как я влезу в док.ОперацияБух из своего?
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |