Имя: Пароль:
1C
1С v8
Помогите найти обработку заполнение ТЧ
0 blueisacolour
 
23.09.14
14:07
Конфигурация БУ 2.0 ,в документах Перемещение ОС,Инвент. Так при нажатие кнопки побор,в таблицу попадают списанные средства,которые были когда то у МОЛа.Есть ли у кого нибудь обработка,зачем изобретать велик,братцы помогите???
1 France
 
23.09.14
14:22
обработок пруд пруди.. вот только которая нужна будет??..
2 боксер
 
23.09.14
14:26
написал бы забесплатно и быстро в гуманитарных целях , но БП под рукой нет
3 KUBIK
 
23.09.14
14:27
(0) ищи на исе, я когда-то выкладывал такую по заполнению тч
4 Teresa
 
23.09.14
14:29
(0) странно, у меня в БП 2.0 типовой механизм работает правильно, ничего лишнего не попадает. Вы уверены, что правильно дату заполняете и все остальное?
5 боксер
 
23.09.14
14:33
вот модуль к обработке заполнению тч набросал, осталось запрос подцепить,
Запрос = Новый Запрос;
Запрос.Текст = ""; //запрос к регистру списанных ос по мол
Запрос.УстановитьПараметр("мол",Объект.мол);
Запрос.УстановитьПараметр("ДоДаты",Объект.дата);
Объект.ос.загрузить = Запрос.Выполнить().Выгрузить();
6 боксер
 
23.09.14
14:34
да и процедура
Процедура Инициализировать(Объект,ИмяТабличнойЧасти,ТабличноеПолеОбъекта)  экспорт
КонецПроцедуры
7 боксер
 
23.09.14
14:35
естественно Объект.ос.загрузить(Запрос.Выполнить().Выгрузить());
8 PLUT
 
23.09.14
14:36
а можно универсальной обормоткой ПоискИОбработкаОбъектов

отобрать нужный документ, выполнить произвольный алгоритм

(удалить ненужные строчки из тч)
9 PLUT
 
23.09.14
14:37
+(8) даже пофигуратор открывать не нужно)))
10 blueisacolour
 
23.09.14
14:40
Вот отрывок:
Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ РАЗРЕШЕННЫЕ
                   |    ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство.Код КАК Код,
                   |    ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ИнвентарныйНомер КАК ИнвентарныйНомер,
                   |    ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство КАК ОсновноеСредство
                   |ИЗ
                   |    РегистрСведений.ПервоначальныеСведенияОСБухгалтерскийУчет.СрезПоследних(&Период, "+ ПараметрОрганизация + ") КАК ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних
                   |    ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СчетаУчетаОС.СрезПоследних(&Период, "+ ПараметрОрганизация + ") КАК СчетаУчетаОССрезПоследних
                   |        ПО ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство = СчетаУчетаОССрезПоследних.ОсновноеСредство
                   |    ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.МестонахождениеОСБухгалтерскийУчет.СрезПоследних(&Период,"+ ПараметрОрганизация + ") КАК МестонахождениеОСБухгалтерскийУчетСрезПоследних
                   |        ПО ПервоначальныеСведенияОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство = МестонахождениеОСБухгалтерскийУчетСрезПоследних.ОсновноеСредство
                   |"+ УсловиеЗапроса + "";
              
    Запрос.УстановитьПараметр("Родитель",          Родитель);              
    Запрос.УстановитьПараметр("МОЛ",                МОЛ);
    Запрос.УстановитьПараметр("Местонахождение", Местонахождение);
    Запрос.УстановитьПараметр("Организация",      Организация);
    Запрос.УстановитьПараметр("СтруктурноеПодразделение", СтруктурноеПодразделение);
    Запрос.УстановитьПараметр("Период",          ДатаРасчетов);
    Запрос.УстановитьПараметр("СчетУчета",         СчетУчета);
    Если ЗначениеЗаполнено(ПолеПоиска) И ЗначениеЗаполнено(ЭлементыФормы.СписокВидовПоиска.Значение) Тогда
        Запрос.УстановитьПараметр("ШаблонПоиска",ШаблонПоиска);    
    КонецЕсли;
Запрос берет от РС "ПервоначальныеСведенияОСБухгалтерскийУчет",все правильно,смотрел регистры.просто при подборе,у текущего МОЛа,списанные ос заполняют ТЧ...
11 PLUT
 
23.09.14
14:47
+(9)

МассивДляУдаления=Новый Массив();
Для каждого СтрокаТЧ из Объект.ОсновныеСредства Цикл //я х.з. как тч называется
   Если СтрокаТЧ.ОсновноеСредство.Списано тогда //я х.з. как проверить, что ОС списано
    МассивДляУдаления.Добавить(СтрокаТЧ);
   КонецЕсли;

КонецЦикла
Если МассивДляУдаления.Количество()>0 Тогда
Для каждого СтрокаТЧ Из МассивДляУдаления Цикл
Объект.ОсновныеСредства.Удалить(СтрокаТЧ); //я х.з. как тч называется
КонецЦикла;
Объект.Записать();
КонецЕсли;
12 blueisacolour
 
23.09.14
14:53
PLUT,спасибо!!!
Увы,РС ПервоначальныеСведенияОСБухгалтерскийУчет не имеет свойство списано,так как регистратором являются документ принятие ос
13 PLUT
 
23.09.14
14:56
(12) что значит списано ОС в вашем случае?
14 Teresa
 
23.09.14
14:59
(12) в РС Состояния ОС Организаций смотрите Состояние "Снято с учета"
15 blueisacolour
 
23.09.14
15:09
В этом запросе не участвует РС РС Состояния ОС Организаций,как раз там можно в параметрах отсекать,походу придется коректировкой делать
16 Teresa
 
23.09.14
15:16
(15) так подтяните его туда и отбирайте те ОС, которые не сняты с учета.
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс