нулевой » Поиск

Результаты по ключевому слову: нулевой

Программная корректировка движений документа

В некоторых типовых конфигурациях фирмы 1С существует возможность ручной корректировки движений документа по регистрам. В конфигурации 1С: Бухгалтерия 8 для этого, при наличии соответствующих прав, нужно открыть движения документа и установить флаг “Ручная корректировка”. Однако, иногда возникает необходимость выполнить корректировку движений большого количества документов. В этом случае нам понадобится обработка, которая изменит движения документов без перепроведения.

Рассмотрим как изменить движения документа на примере конфигурации 1С: Бухгалтерия 8. Менять будем движения по регистру бухгалтерии “Хозрасчетный”. Пусть перед нами стоит задача заполнить суммы налогового учета по данным бухгалтерского. Предположим, что у нас уже есть обработка, которая выбирает необходимые нам документы и последовательно обрабатывает их с помощью описанной нами процедуры “ИзменитьДвиженияДокумента”. Посмотрим как должна выглядеть эта процедура.

Код 1C v 8.х

 Процедура ИзменитьДвиженияДокумента(ДокументСсылка)

 // прочитаем набор записей регистра по документу	

 НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

 НаборЗаписей.Отбор.Регистратор.Установить(ДокументСсылка);

 НаборЗаписей.Прочитать();    





 Если НаборЗаписей.Количество() = 0 Тогда

  Возврат;

 КонецЕсли;

 // переберем все записи набора и заполним суммы по налоговому учету

 Для каждого Запись из НаборЗаписей Цикл

  // перед изменением сумм проверяем ведется ли налоговый учет на выбранном счёте

  Если Запись.СчетДт.НалоговыйУчет Тогда

   Запись.СуммаНУДт = Запись.Сумма;

  КонецЕсли;

  Если Запись.СчетКт.НалоговыйУчет Тогда

   Запись.СуммаНУКт = Запись.Сумма;

  КонецЕсли;

 КонецЦикла;

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

 НаборЗаписей.ОбменДанными.Загрузка = Истина;

 НаборЗаписей.Записать();

 // установим признак ручной корректировки документа,

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

 ДокументОбъект = ДокументСсылка.ПолучитьОбъект();

 ДокументОбъект.ОбменДанными.Загрузка = Истина;

 ДокументОбъект.РучнаяКорректировка   = Истина;

 ДокументОбъект.Записать(); 

КонецПроцедуры

Хотелось бы отметить, что без проверки ведения налогового учета на счёте, при попытке записать набор, содержащий проводку с ненулевой суммой по счёту на котором не ведется налоговый учет, возникнет ошибка следующего содержания:

Запись не верна! Поле “Сумма (налоговый учет)” должно быть пустым! (Регистр бухгалтерии: Журнал проводок (бухгалтерский и налоговый учет); Номер строки: 1)

Режим обмена данными устанавливается следующими строками:

Код 1C v 8.х

 НаборЗаписей.ОбменДанными.Загрузка = Истина;

ДокументОбъект.ОбменДанными.Загрузка = Истина;

Это необходимо для того, чтобы не выполнялся программный код, находящийся в обработчиках событий “ПередЗаписью” модуля набора записей регистра бухгалтерии “Хозрасчетный” и модуля корректируемого документа. В каждом из них (для типовых конфигураций) есть проверка следующего вида:

Код 1C v 8.х

 Если ОбменДанными.Загрузка Тогда



Возврат;



КонецЕсли;

Признак ручной корректировки документа (ДокументОбъект.РучнаяКорректировка = Истина) необходимо устанавливать для того, чтобы изменения сохранились при повторном проведении документа. При проведении такого документа в конфигурации 1С:Бухаглерия 8 выдается следующее сообщение:

Движения документа отредактированы вручную и не могут быть автоматически актуализированы.

Источник

Категория: Регистры бухгалтерии

Функция пересчитывает сумму из валюты ВалютаНач по курсу КурНач в валюту ВалютаКон по курсу КурКон

Код 1C v 8.х

 

// Эта функция пересчитывает сумму из валюты ВалютаНач по курсу ПоКурсуНач 

// в валюту ВалютаКон по курсу ПоКурсуКон

//

// Параметры:      

//	Сумма          - сумма, которую следует пересчитать;

//	ВалютаНач      - ссылка на элемент справочника Валют;

//                   определяет валюты из которой надо пересчитвать;

//	ВалютаКон      - ссылка на элемент справочника Валют;

//                   определяет валюты в которую надо пересчитвать;

// 	ПоКурсуНач     - курс из которого надо пересчитать;

// 	ПоКурсуКон     - курс в который надо пересчитать;

// 	ПоКратностьНач - кратность из которого надо пересчитать (по умолчанию = 1);

// 	ПоКратностьКон - кратность в который надо пересчитать  (по умолчанию = 1);

//

// Возвращаемое значение: 

//  Сумма, пересчитанная в другую валюту

//

Функция ПересчитатьИзВалютыВВалюту(Сумма, ВалютаНач, ВалютаКон, ПоКурсуНач, ПоКурсуКон, 

	                               ПоКратностьНач = 1, ПоКратностьКон = 1 ) Экспорт



	Если (ВалютаНач = ВалютаКон) Тогда



		// Считаем, что пересчет не нужен.

		Возврат Сумма;



	КонецЕсли;



	Если (ПоКурсуНач     = ПоКурсуКон) 

	   и (ПоКратностьНач = ПоКратностьКон) Тогда



		// ну, тут и считать нечего...

		Возврат Сумма;



	КонецЕсли;



	Если ПоКурсуНач     = 0 

	 или ПоКурсуКон     = 0 

	 или ПоКратностьНач = 0 

	 или ПоКратностьКон = 0 Тогда

		СообщитьОбОшибке(" при пересчете обнаружен нулевой курс.");

		Возврат 0;



	КонецЕсли;



	Возврат Окр((Сумма * ПоКурсуНач * ПоКратностьКон) / (ПоКурсуКон * ПоКратностьНач), 2);



КонецФункции

Категория: Работа с Датами (Временем)