Имя: Пароль:
1C
1С v8
Создание нового вида документа в БП 8
0 егаис
 
14.09.12
14:06
Новый вид доку-та, включил в подписки на события.
Движения элементарные

Процедура ДвиженияПоРегистрам(Режим, Отказ, Заголовок ,СтруктураШапкиДокумента)

   СодержаниеПроводки = "Удержание мат. ущерба из з/п";
   // Бухгалтерские проводки документа

   ДатаДок            = Дата;
   Проводки           = Движения.Хозрасчетный;
   
   Проводка = Проводки.Добавить();
   Проводка.Период      = ДатаДок;
   Проводка.Организация = Организация;
   Проводка.Содержание  = СодержаниеПроводки;
                   
   Проводка.СчетДт      = ПланыСчетов.Хозрасчетный.РасчетыПоВозмещениюМатериальногоУщерба;
   БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "РаботникиОрганизаций",  ФизЛицо);
   Проводка.СчетКт      = ПланыСчетов.Хозрасчетный.НедостачиИПотериОтПорчиЦенностей;
   Проводка.Сумма       = СуммаДокумента;

   СодержаниеПроводки = "Начисление материального ущерба";
   Проводка = Проводки.Добавить();
   Проводка.Период      = ДатаДок;
   Проводка.Организация = Организация;
   Проводка.Содержание  = СодержаниеПроводки;
                   
   Проводка.СчетКт      = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;
   БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, "НоменклатурныеГруппы",  НоменклатурнаяГруппа);
   Проводка.СчетДт      = ПланыСчетов.Хозрасчетный.НедостачиИПотериОтПорчиЦенностей;
   Проводка.Сумма       = СуммаДокумента;
   
   
КонецПроцедуры


Процедура ОбработкаПроведения(Отказ, Режим)
   
   Перем СтруктураШапкиДокумента;
   
   // Проверка ручной корректировки
   Если ОбщегоНазначения.РучнаяКорректировкаОбработкаПроведения(РучнаяКорректировка,Отказ,ОбщегоНазначения.ПредставлениеДокументаПриПроведении(Ссылка),ЭтотОбъект) Тогда
       Возврат
   КонецЕсли;
   
   // Заголовок для сообщений об ошибках проведения.
   Заголовок = ОбщегоНазначения.ПредставлениеДокументаПриПроведении(Ссылка);
   
   ПроверитьЗаполнениеДокумента(Отказ, Заголовок, СтруктураШапкиДокумента);
   
   Если Не Отказ Тогда
       ДвиженияПоРегистрам(Режим, Отказ, Заголовок, СтруктураШапкиДокумента);
   КонецЕсли;
   
КонецПроцедуры // ОбработкаПроведения

не формирует документ движений и все тут :(
1 егаис
 
14.09.12
14:10
пните, что необходимо еще сделать (
2 Нуф-Нуф
 
14.09.12
14:11
записать? не?
3 егаис
 
14.09.12
14:12
эээ...что записать?
4 ssh2012
 
14.09.12
14:13
(1) в процедуру создания движений заходит вообще?
5 егаис
 
14.09.12
14:14
(4) да
6 егаис
 
14.09.12
14:15
признак проведения видно (флажок появляется), движений нет ((
7 егаис
 
14.09.12
14:17
права, регистратор в РБ Хозрасчетный - все есть
8 Sedoy
 
14.09.12
14:17
"Истина" нужна
9 and2
 
14.09.12
14:18
проводки.записывать= истина;
10 acsent
 
14.09.12
14:18
Записывать = Истина
11 Ranger_83
 
14.09.12
14:19
(0)Состав движений документа какой?
12 егаис
 
14.09.12
14:20
(8)-(10) не помогло
(11) Хозрасчетный
13 Нуф-Нуф
 
14.09.12
14:24
сделать движения конструктором. посмотреть результат. сравнить со своим кодом. много думать
14 Ranger_83
 
14.09.12
14:25
(13)может все-таки записать?:))
15 Sedoy
 
14.09.12
14:26
(12) Есть?   Движения.Хозрасчетный.Записывать = Истина;
16 егаис
 
14.09.12
14:27
ДатаДок            = Дата;
   Проводки           = Движения.Хозрасчетный;
   Проводки.Записывать = Истина;
   
   Проводка = Проводки.Добавить();
   Проводка.Период      = ДатаДок;
   Проводка.Организация = Организация;
   Проводка.Содержание  = СодержаниеПроводки;
                   
   Проводка.СчетДт      = ПланыСчетов.Хозрасчетный.РасчетыПоВозмещениюМатериальногоУщерба;
   БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "РаботникиОрганизаций",  ФизЛицо);
   Проводка.СчетКт      = ПланыСчетов.Хозрасчетный.НедостачиИПотериОтПорчиЦенностей;
   Проводка.Сумма       = СуммаДокумента;
   
   СодержаниеПроводки = "Начисление материального ущерба";
   Проводка = Проводки.Добавить();
   Проводка.Период      = ДатаДок;
   Проводка.Организация = Организация;
   Проводка.Содержание  = СодержаниеПроводки;
                   
   Проводка.СчетКт      = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;
   БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, "НоменклатурныеГруппы",  НоменклатурнаяГруппа);
   Проводка.СчетДт      = ПланыСчетов.Хозрасчетный.НедостачиИПотериОтПорчиЦенностей;
   Проводка.Сумма       = СуммаДокумента;
17 Нуф-Нуф
 
14.09.12
14:30
(14) автор упорно не хочет. вот и предложил ему...
18 Sedoy
 
14.09.12
14:31
(16) И галочка в "Движения" есть?
19 Ranger_83
 
14.09.12
14:33
может ТС просто не видит суслика,а он есть.
(0)проверь по оборотке
20 shuhard
 
14.09.12
14:52
(16) без Проводка.Активность=Истина не взлетит
21 ptiz
 
14.09.12
15:00
(19) +1
(0) открой журнал проводок (сам регистр) и проверь там.
22 егаис
 
17.09.12
13:13
Блин, хелп, мозг кипит :(
конструктором
Процедура ОбработкаПроведения(Отказ, Режим)
   
   Перем СтруктураШапкиДокумента;
   
   // Проверка ручной корректировки
   Если ОбщегоНазначения.РучнаяКорректировкаОбработкаПроведения(РучнаяКорректировка,Отказ,ОбщегоНазначения.ПредставлениеДокументаПриПроведении(Ссылка),ЭтотОбъект) Тогда
       Возврат
   КонецЕсли;
   
   // Заголовок для сообщений об ошибках проведения.
   Заголовок = ОбщегоНазначения.ПредставлениеДокументаПриПроведении(Ссылка);
   
   ПроверитьЗаполнениеДокумента(Отказ, Заголовок, СтруктураШапкиДокумента);

   // регистр Хозрасчетный
   Если Не Отказ Тогда
       СодержаниеПроводки = "Удержание мат. ущерба из з/п";
       
       Движения.Хозрасчетный.Очистить();
       Движение = Движения.Хозрасчетный.Добавить();
       Движение.Период = Дата;
       Движение.Организация = Организация;
       Движение.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыПоВозмещениюМатериальногоУщерба;;
       БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт, Движение.СубконтоДт, "РаботникиОрганизаций",  ФизЛицо);
       Движение.СчетКт      = ПланыСчетов.Хозрасчетный.НедостачиИПотериОтПорчиЦенностей;
       Движение.Сумма       = СуммаДокумента;
       Движение.Содержание  = СодержаниеПроводки;
       
       СодержаниеПроводки = "Начисление материального ущерба";
       Движение = Движения.Хозрасчетный.Добавить();
       Движение.Период = Дата;
       Движение.Организация = Организация;
       Движение.СчетДт      = ПланыСчетов.Хозрасчетный.НедостачиИПотериОтПорчиЦенностей;
       Движение.СчетКт = ПланыСчетов.Хозрасчетный.ВыручкаНеЕНВД;;
       БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, "НоменклатурныеГруппы",  НоменклатурнаяГруппа);
       Движение.Сумма       = СуммаДокумента;
       Движение.Содержание  = СодержаниеПроводки;      
       Движения.Записать();
   КонецЕсли;
   
КонецПроцедуры // ОбработкаПроведения

Не формируются движения и все! проверял в журнале - нет.
Кнопка Дт/Кт недоступна в режиме списка документов, в режиме формы документа - доступна, но журнал не открывается при нажатии :(
23 егаис
 
17.09.12
13:13
включил уже во все подписки, связанные с документами (
24 егаис
 
17.09.12
13:15
опа, пардон, в журнале операций есть. Почему не показываются движения в документе?
25 ptiz
 
17.09.12
13:15
Есть такая обработка: КорректировкаДвижений
Посмотри её внимательно.
26 егаис
 
17.09.12
13:24
спс.
Программист всегда исправляет последнюю ошибку.