Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Допроведение документа, 8-ка

BelikovS
читатель
офлайн
Дата регистрации: 05.03.2007
Сообщений: 1701
Пост №11
 
27.11.2009 12:09

"В большинстве документов (например в УПП) стоит Не удалять движения, при этом в ОбработкеПроведения написано:<br>Если мУдалятьДвижения Тогда<br> ОбщегоНазначения.УдалитьДвиженияРегистратора(ЭтотОбъект, Отказ);<br>КонецЕсли;"

uinny
читатель
офлайн
Дата регистрации: 12.01.2008
Сообщений: 4814
Пост №12
 
27.11.2009 12:14

спасибо за пояснение.

ПСВ
читатель
офлайн
Дата регистрации: 06.04.2009
Сообщений: 379
Пост №13
 
28.11.2009 13:50

"перем ДокументПроведен экспорт;<br><br>Процедура ОбработкаПроведения(Отказ, Режим)<br> Если ДокументПроведен = Истина Тогда <br> <br> Движения.ТоварыНаСкладах.Записывать = Истина;<br> Для Каждого ТекСтрокаТовары Из Товары Цикл<br> // регистр ТоварыНаСкладах Приход<br> Движение = Движения.ТоварыНаСкладах.Добавить();<br> Движение.ВидДвижения = ВидДвиженияНакопления.Приход;<br> Движение.Период = Дата;<br> Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;<br> Движение.Количество = ТекСтрокаТовары.Количество;<br> Движение.Сумма = ТекСтрокаТовары.Сумма;<br> КонецЦикла;<br> <br> Иначе<br> <br> Движения.Покупки.Записывать = Истина;<br> Для Каждого ТекСтрокаТовары Из Товары Цикл<br> // регистр Покупки Приход<br> Движение = Движения.Покупки.Добавить();<br> Движение.ВидДвижения = ВидДвиженияНакопления.Приход;<br> Движение.Период = Дата;<br> Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;<br> Движение.Количество = ТекСтрокаТовары.Количество;<br> Движение.Сумма = ТекСтрокаТовары.Сумма;<br> КонецЦикла;<br> <br> КонецЕсли;<br>КонецПроцедуры<br><br>Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)<br> //Сообщить("ПередЗаписью "+ ЭтотОбъект.Проведен);<br> ДокументПроведен = ЭтотОбъект.Проведен;<br>КонецПроцедуры<br><br>ДокументПроведен = ЭтотОбъект.Проведен;"

uinny
читатель
офлайн
Дата регистрации: 12.01.2008
Сообщений: 4814
Пост №14
 
30.11.2009 12:07

спасибо большое за пример.

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация