|
Управляемая форма: не обновляется ТЧ после заполнения | ☑ | ||
---|---|---|---|---|
0
futarama
26.11.12
✎
11:46
|
После записи данные пропадают из табличной части (Счета учета (Тип, ПланСчетовСсылка.Хозрасчетный), СкладУчета(Тип, СправочникСсылка.Склады), СчетПриема (Тип, ПланСчетовСсылка.Хозрасчетный), СкладПриема (тип,СправочникСсылка.Склады), как сделать чтоб данные "не исчезали".
реализовал в общем модуле процедуру -------------------------------------- &НаСервере Процедура ПроведениеПеремещенияОСОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт Для Каждого СтрОС из Источник.Ос Цикл Если не ЗначениеЗаполнено(СтрОС.СчетУчета) или не ЗначениеЗаполнено(СтрОС.СчетПриема) или не ЗначениеЗаполнено(СтрОС.СкладУчета) или не ЗначениеЗаполнено(СтрОС.СкладПриема) Тогда Сообщить("В строке "+СтрОС.НомерСтроки+"заполнены не все реквизиты"); отказ = Истина; КонецЕсли; СуммаОстатокОС = ПолучитьСуммуОС(Источник.Дата,СтрОС.ОсновноеСредство,Источник.Организация,СтрОС.СчетУчета); Проводка = Источник.Движения.Хозрасчетный.Добавить(); Проводка.организация = Источник.Организация; Проводка.Период = Источник.Дата; Проводка.СчетДт = СтрОС.СчетПриема; Проводка.СчетКт = СтрОС.СчетУчета; БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "Склады", СтрОС.СкладПриема); БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "ОсновныеСредства", СтрОС.ОсновноеСредство); БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, "Склады", СтрОС.СкладУчета); БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, "ОсновныеСредства", СтрОС.ОсновноеСредство); Проводка.Сумма = СуммаОстатокОС; Проводка.Содержание = "Перемещение ОС"; БухгалтерскийУчет.УстановитьПодразделенияПроводки(Проводка, Источник.ПодразделениеПолучатель, Источник.ПодразделениеОрганизации); //////////////// // исзменение счетов учета ОС Запрос=новый Запрос; Запрос.Текст="ВЫБРАТЬ | СчетаБухгалтерскогоУчетаОССрезПоследних.СчетНачисленияАмортизации |ИЗ | РегистрСведений.СчетаБухгалтерскогоУчетаОС.СрезПоследних( | &Дата, | Организация = &Организация | И ОсновноеСредство = &ОсновноеСредство) КАК СчетаБухгалтерскогоУчетаОССрезПоследних"; Запрос.УстановитьПараметр("Дата",Источник.Дата-1); Запрос.УстановитьПараметр("Организация",Источник.Организация); Запрос.УстановитьПараметр("ОсновноеСредство",СтрОС.ОсновноеСредство); Результат = Запрос.Выполнить().Выбрать(); Если Результат.Следующий() Тогда СчетНачисленияАмортизации = Результат.СчетНачисленияАмортизации; Иначе СчетНачисленияАмортизации = ПланыСчетов.Хозрасчетный.АмортизацияОС_01; КонецЕсли; Движение = Источник.Движения.СчетаБухгалтерскогоУчетаОС.Добавить(); Движение.Период = Источник.Дата; Движение.ОсновноеСредство = СтрОС.ОсновноеСредство; Движение.Организация = Источник.Организация; Движение.СчетУчета = СтрОС.СчетПриема; Движение.СчетНачисленияАмортизации = СчетНачисленияАмортизации; КонецЦикла; Если не Отказ Тогда Источник.Движения.Хозрасчетный.Записать(); КонецЕсли; КонецПроцедуры |
|||
1
zak555
26.11.12
✎
11:47
|
это типовой код ?
|
|||
2
futarama
26.11.12
✎
11:47
|
Нет (1)
|
|||
3
futarama
26.11.12
✎
12:45
|
Создал в документе ТЧ просто текстовый ревизит, при записи стирается, объясните почему ?
|
|||
4
zak555
26.11.12
✎
12:49
|
(2) стереть и написать нормальный
|
|||
5
zak555
26.11.12
✎
12:49
|
(3) зачем тебе текст ?
|
|||
6
Buster007
26.11.12
✎
12:50
|
приведенный код не влияет на очистку твоего текстового реквизита.
|
|||
7
futarama
26.11.12
✎
12:54
|
(6) да это я понял
|
|||
8
Garkin
26.11.12
✎
13:03
|
||||
9
futarama
26.11.12
✎
14:40
|
(8) можно с примером не могу понять
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |