Имя: Пароль:
1C
1С v8
Управляемая форма: не обновляется ТЧ после заполнения
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) можно с примером не могу понять