Имя: Пароль:
1C
1С v8
Бухгалтерия Проведение докуента
0 Black Dragon
 
31.07.12
14:11
Доброго дня!

1С Предприятие 8.2 Бухгалтерия 2.0.35.6

был добавлен документ по производству Отчет по разделке за смену

после проведения операция не хочет открываться, и более того в отчете по проводкам только первая проводка, осталных и не было как бы!

кто с таким встречался? заранее благодарен!
1 butterbean
 
31.07.12
14:13
" операция не хочет открываться" - это что значит??
2 Жан Пердежон
 
31.07.12
14:13
перевожу:

я написал *овнокод, он не работает!
кто с таким встречался?
3 Black Dragon
 
31.07.12
14:14
Процедура ОбработкаПроведения(Отказ, РежимПроведения)

   Если НЕ Отказ Тогда
       Операция = Движения["Хозрасчетный"];
       ДвиженияВыпускПродукцииУслуг = Движения["ВыпускПродукцииУслуг"];
       ТаблицаДвиженийВыпуск        = ДвиженияВыпускПродукцииУслуг.Выгрузить();
   Иначе
       Возврат;
   КонецЕсли;
   
   ВыполнитьДвижения();
4 Black Dragon
 
31.07.12
14:14
при нажатиии на кнопочку КтДт ничего не происходит но док проведен!
5 butterbean
 
31.07.12
14:15
(4) добавляй свой док в обработке КорректировкаДвижений
6 Black Dragon
 
31.07.12
14:15
Процедура ВыполнитьДвижения()
   
   // продукция списание в производство
   
   Для Каждого Строка Из Продукция Цикл
       НоваяПроводка = Операция.Добавить();
       НоваяПроводка.Организация = Организация;
       НоваяПроводка.Период      = Дата;
       НоваяПроводка.СчетДт = СчетЗатрат;
       БухгалтерскийУчет.УстановитьПодразделениеПроводки(НоваяПроводка, ПодразделениеЗатрат, "Дт");
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетДт, НоваяПроводка.СубконтоДт, "НоменклатурныеГруппы", Строка.НоменклатурнаяГруппа);
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетДт, НоваяПроводка.СубконтоДт, "СтатьиЗатрат", Строка.Номенклатура.СтатьяЗатрат);
       НоваяПроводка.СчетКт = Строка.Счет;
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт, НоваяПроводка.СубконтоКт, "Номенклатура", Строка.Номенклатура);
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт, НоваяПроводка.СубконтоКт, "Склады", Склад);
       НоваяПроводка.КоличествоКт = Строка.Количество;
       НоваяПроводка.Сумма = Строка.СуммаПлановая;
       НоваяПроводка.Содержание = "Списание продукции как сырья в производство";
   КонецЦикла;    
   
   // возвратные отходы поступление на склад
   
   Для Каждого Строка Из ВозвратныеОтходы Цикл
       НоваяПроводка = Операция.Добавить();
       НоваяПроводка.Организация = Организация;
       НоваяПроводка.Период      = Дата;
       НоваяПроводка.СчетДт = Строка.Счет;
       БухгалтерскийУчет.УстановитьПодразделениеПроводки(НоваяПроводка, ПодразделениеЗатрат, "Кт");
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетДт, НоваяПроводка.СубконтоДт, "Номенклатура", Строка.Номенклатура);
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетДт, НоваяПроводка.СубконтоДт, "Склады", СкладМПЗ);
       НоваяПроводка.СчетКт = СчетЗатрат;
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт, НоваяПроводка.СубконтоКт, "НоменклатурныеГруппы", Строка.НоменклатурнаяГруппа);
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт, НоваяПроводка.СубконтоКт, "СтатьиЗатрат", Строка.СтатьяЗатрат);
       НоваяПроводка.КоличествоДт = Строка.Количество;
       НоваяПроводка.Содержание = "Поступление возвратных отходов на склад из производства";
   КонецЦикла;    
   
   // материалы поступление на склад
   
   Для Каждого Строка Из Материалы Цикл
       НоваяПроводка = Операция.Добавить();
       НоваяПроводка.Организация = Организация;
       НоваяПроводка.Период      = Дата;
       НоваяПроводка.СчетДт = Строка.Счет;
       БухгалтерскийУчет.УстановитьПодразделениеПроводки(НоваяПроводка, ПодразделениеЗатрат, "Кт");
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетДт, НоваяПроводка.СубконтоДт, "Номенклатура", Строка.Номенклатура);
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетДт, НоваяПроводка.СубконтоДт, "Склады", СкладМПЗ);
       НоваяПроводка.СчетКт = СчетЗатрат;
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт, НоваяПроводка.СубконтоКт, "НоменклатурныеГруппы", Строка.НоменклатурнаяГруппа);
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт, НоваяПроводка.СубконтоКт, "СтатьиЗатрат", Строка.СтатьяЗатрат);
       НоваяПроводка.КоличествоДт = Строка.Количество;
       НоваяПроводка.Содержание = "Поступление материалов на склад из производства";
   КонецЦикла;    
   
   // полуфабрикаты поступление на склад
   
   Для Каждого Строка Из Полуфабрикаты Цикл
       НоваяПроводка = Операция.Добавить();
       НоваяПроводка.Организация = Организация;
       НоваяПроводка.Период      = Дата;
       НоваяПроводка.СчетДт = Строка.Счет;
       БухгалтерскийУчет.УстановитьПодразделениеПроводки(НоваяПроводка, ПодразделениеЗатрат, "Кт");
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетДт, НоваяПроводка.СубконтоДт, "Номенклатура", Строка.Номенклатура);
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетДт, НоваяПроводка.СубконтоДт, "Склады", СкладПолуфабрикаты);
       НоваяПроводка.СчетКт = СчетЗатрат;
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт, НоваяПроводка.СубконтоКт, "НоменклатурныеГруппы", Строка.НоменклатурнаяГруппа);
       БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт, НоваяПроводка.СубконтоКт, "СтатьиЗатрат", Строка.СтатьяЗатрат);
       НоваяПроводка.КоличествоДт = Строка.Количество;
       НоваяПроводка.Содержание = "Поступление полуфабрикатов на склад из производства";
   КонецЦикла;    
   
КонецПроцедуры
7 Black Dragon
 
31.07.12
14:17
(2) наверное так, иначе должно было взлететь мгновенно!
8 Жан Пердежон
 
31.07.12
14:17
движения не записываешь
9 PCcomCat
 
31.07.12
14:18
(7)Оно и взлетело, но ещё нужно (5)
10 Black Dragon
 
31.07.12
14:18
??? так ведь ОбработкаПроведения()
11 Black Dragon
 
31.07.12
14:19
(8) а первая проводка тогда поч записыватс? непонятненько!
12 artems
 
31.07.12
14:19
(6) и хватит уже использовать зарезервированные слова...
13 PCcomCat
 
31.07.12
14:20
И что? В конфигураторе на типовом документе посмотри, что вызывает нажатие кнопки Дт/Кт.
14 PCcomCat
 
31.07.12
14:22
(12) +1000! Поласковей надо - "Строчка", или грубо "СтрокаТЧ"!
15 Black Dragon
 
31.07.12
14:22
а что вызывает нажатие? никогда не задумывался! интересно!
16 PCcomCat
 
31.07.12
14:24
(15) А думать и не надо - посмотри! ;)
17 Black Dragon
 
31.07.12
14:24
(14) Ёпрст! ну я вааще! не замечал даж!!!
18 hhhh
 
31.07.12
14:31
нет ну сразу ясно, что ТаблицаДвиженийВыпуск по-любому пустая. Откуда же взялась тогда строчка с одной проводкой? Может ВыполнитьДвижения() у вас чего-то туда записало?