Показано с 1 по 10 из 13
Древовидный режим
-
07.08.2016, 02:49 #1
- Регистрация
- 10.07.2016
- Сообщений
- 12
- Сказал(а) спасибо
- 2
- Поблагодарили 0 раз(а) в 0 сообщениях
Движения по регистрам в программно созданном документе (8.2 КА 1.1)
Доброй ночи уважаемые форумчане!
Толкнулся с проблемой проведения программно созданного документа - Выпуск требование. При проведении не пишет в регистры почему то.
Всю голову сломал, не знаю что делать.
Если писать все движения вручную -
Код:ВыпускПродукции.Движения.ТоварыНаСкладах.Добавить и т.д.
Уверен, что что-то делаю не так. Но не пойму что, так как эта обработка - первое, что я сделал в 1С, поэтому спрячьте пожалуйста помидоры и тухлые яйца, я учусь только...
Вот что я соорудил:
Код:// Создание и Заполнение данными документа ВЫПУСК ПРОДУКЦИИ; ОкончаниеПериода = КонецДня(КонецПериода); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ТоварыНаСкладахОстаткиИОбороты.Склад.Наименование КАК Склад, | ТоварыНаСкладахОстаткиИОбороты.КоличествоКонечныйОстаток, | ТоварыНаСкладахОстаткиИОбороты.Номенклатура КАК Номенклатура, | ТоварыНаСкладахОстаткиИОбороты.Номенклатура.ЕдиницаХраненияОстатков КАК ЕдИзм |ИЗ | РегистрНакопления.ТоварыНаСкладах.ОстаткиИОбороты(&НачалоПериода, &ОкончаниеПериода, , , ) КАК ТоварыНаСкладахОстаткиИОбороты |ГДЕ | ТоварыНаСкладахОстаткиИОбороты.КоличествоКонечныйОстаток < 0 | И ТоварыНаСкладахОстаткиИОбороты.Номенклатура.ВидНоменклатуры.Код В (""000000003"", ""000000004"") | И ТоварыНаСкладахОстаткиИОбороты.Склад.Код = ""000000051"" | |УПОРЯДОЧИТЬ ПО | Номенклатура"; Запрос.УстановитьПараметр("НачалоПериода",НачалоПериода); Запрос.УстановитьПараметр("ОкончаниеПериода",ОкончаниеПериода); РезультатЗапроса = Запрос.Выполнить(); Если НЕ РезультатЗапроса.Пустой() Тогда Выборка = РезультатЗапроса.Выбрать(); НовыйВыпускГМЦ = Документы.ВыпускПродукции.СоздатьДокумент(); НовыйВыпускГМЦ.Склад = Справочники.Склады.НайтиПоКоду("000000051"); НовыйВыпускГМЦ.Организация = Справочники.Организации.НайтиПоКоду("000000005"); НовыйВыпускГМЦ.Подразделение = Справочники.Подразделения.НайтиПоКоду("000000033"); НовыйВыпускГМЦ.ПодразделениеОрганизации = Справочники.ПодразделенияОрганизаций.НайтиПоКоду("000000025"); НовыйВыпускГМЦ.Комментарий = "Выпуск продукции за период "+НачалоПериода+" по "+ОкончаниеПериода; Пока Выборка.Следующий () Цикл НоваяСтрокаТЧ = НовыйВыпускГМЦ.Продукция.Добавить(); НоваяСтрокаТЧ.Номенклатура = Выборка.Номенклатура; НоваяСтрокаТЧ.ЕдиницаИзмерения = Выборка.ЕдИзм; НоваяСтрокаТЧ.Количество = -Выборка.КоличествоКонечныйОстаток; НоваяСтрокаТЧ.СчетУчетаБУ = ПланыСчетов.Хозрасчетный.ВыпускПродукции; НоваяСтрокаТЧ.Качество = Справочники.Качество.НайтиПоНаименованию("Новый"); КонецЦикла; Иначе Возврат КонецЕсли; НовыйВыпускГМЦ.ПолучитьФорму("ФормаДокумента").Открыть(); НовыйВыпускГМЦ.ОтражатьВУправленческомУчете = Истина; НовыйВыпускГМЦ.ОтражатьВБухгалтерскомУчете = Истина; НовыйВыпускГМЦ.Продукция.Сортировать("Номенклатура Возр"); НовыйВыпускГМЦ.Дата = ОкончаниеПериода - 3519; НовыйВыпускГМЦ.СчетЗатрат = ПланыСчетов.Хозрасчетный.НайтиПоКоду("20.01.2");
Код:НовыйВыпускГМЦ.Движения.ТоварыНаСкладах (не только этот регистр. но и се остальные, куда должен писать этот документ).Записывать = Истина;
Надеюсь на Вашу помощь. Спасибо!
Социальные закладки