v8: Удаление Расходной накладной и Налоговой накладной

Aspirant

20.03.2013 17:23

Прочитано: 3317

Ув.Форумчани подскажите как зделать так чтоб при удалений расходной накладной удалялась и налоговая накладная?

Yandex

Возможно, вас также заинтересует

E_Migachev

20.03.2013 17:25

Ответ № 1

(0) Aspirant, пометить налоговую накладную на удаление и удалить через удаление помеченных объектов

Aspirant

20.03.2013 17:32

Ответ № 2

Мб я немного не правильно поставил вопрос просят зделать так чтоб при пометке на удаление расходной накладной и ставилась пометка на удаление на привязаную к ней налоговую накладную

E_Migachev

20.03.2013 23:20

Ответ № 3

(2) Aspirant, это нужно программно прописать в ПередУстановкойПометкиУдаления

Aspirant

21.03.2013 11:06

Ответ № 4

А где прописать это всё?

Aspirant

21.03.2013 11:23

Ответ № 5

Вот все что есть в модуле Расходной накладной

Код 1C v 8.х

 Процедура ОбработкаУдаленияПроведения(Отказ)

		

	ОбщегоНазначения.УдалитьДвиженияРегистратора(ЭтотОбъект, Отказ, РучнаяКорректировка);



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

E_Migachev

21.03.2013 12:04

Ответ № 6

Событие ПередУстановкойПометкиУдаления в Списке документов

Aspirant

21.03.2013 12:44

Ответ № 7

Прошу прошения я туговат) открываю я конфигурацыю - документы в них нахожу РеалезацыяТоваровиУслуг открываю там (ревезиты, формы ,табл часть, макеты.команды) куда дальше лесть? за ранье спосибо

E_Migachev

21.03.2013 13:02

Ответ № 8

2-ной щелчок на список документов и в свойствах закладка события

Aspirant

21.03.2013 13:46

Ответ № 9

Вот сюда нужно прописать удаление потченоного документа налоговой

Код 1C v 8.х

 Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)



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

		Возврат;

	КонецЕсли;

	

  	// Если договор с комиссионером, то надо почистить закладку "Услуги".

	Если Услуги.Количество() > 0

	   И ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда



		Услуги.Очистить();



	КонецЕсли;

	

	// Если договор внешнеэкономический, то надо почистить закладку "ВозвратнаяТара".

	Если ВозвратнаяТара.Количество() > 0

		И ДоговорКонтрагента.ВалютаВзаиморасчетов <> мВалютаРегламентированногоУчета Тогда



		ВозвратнаяТара.Очистить();



	КонецЕсли;

	

	Если АвторасчетНДС Тогда

		// соответствие для хранения погрешностей округлений

		ПогрешностиОкругления = Новый Соответствие();

		// пересчет сумм НДС с учетом ошибок округления

		ОбработкаТабличныхЧастей.ПересчитатьНДСсУчетомПогрешностиОкругления(Товары, ЭтотОбъект, ПогрешностиОкругления, ?(ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.Оборудование, "Оборудование", "Товары"));

		// пересчет сумм НДС с учетом ошибок округления

		ОбработкаТабличныхЧастей.ПересчитатьНДСсУчетомПогрешностиОкругления(Услуги, ЭтотОбъект, ПогрешностиОкругления, "Услуги");

	КонецЕсли;

	

	// Посчитать суммы документа и записать ее в соответствующий реквизит шапки для показа в журналах

	СуммаДокумента = УчетНДС.ПолучитьСуммуДокументаСНДС(ЭтотОбъект, "Товары") + УчетНДС.ПолучитьСуммуДокументаСНДС(ЭтотОбъект, "Услуги");



	УчетнаяПолитикаНеЗадана = Ложь;

	УчетнаяПолитика = ОбщегоНазначения.ПолучитьПараметрыУчетнойПолитики(Дата, УчетнаяПолитикаНеЗадана, Организация);

	Если НЕ УчетнаяПолитика.ЕстьНДС Тогда

		// организация - не плательщик НДС. Установим во всех ТЧ признак соответствующего учета НДС

		НеОБлНДСДеятельность = Справочники.НалоговыеНазначенияАктивовИЗатрат.НДС_НеоблагаемаяХозДеятельность;

		

		Для каждого СтрокаТЧ  Из Товары Цикл

		    СтрокаТЧ.НалоговоеНазначение = НеОБлНДСДеятельность;

		КонецЦикла; 

		Для каждого СтрокаТЧ  Из ВозвратнаяТара Цикл

		    СтрокаТЧ.НалоговоеНазначение = НеОБлНДСДеятельность;

		КонецЦикла; 

		Для каждого СтрокаТЧ  Из Услуги Цикл

		    СтрокаТЧ.НалоговоеНазначение = НеОБлНДСДеятельность;

		КонецЦикла; 

	КонецЕсли; 

	

	Если НЕ УчетнаяПолитика.ЕстьНалогНаПрибыль Тогда

		

		Для каждого СтрокаТЧ  Из Товары Цикл

		    СтрокаТЧ.НалоговоеНазначениеДоходовИЗатрат = Неопределено;

			СтрокаТЧ.СебестоимостьНУ = 0;

		КонецЦикла; 

		

		Для каждого СтрокаТЧ  Из ВозвратнаяТара Цикл

		    СтрокаТЧ.НалоговоеНазначениеДоходовИЗатрат = Неопределено;

		КонецЦикла; 

		

		Для каждого СтрокаТЧ  Из Услуги Цикл

		    СтрокаТЧ.НалоговоеНазначениеДоходовИЗатрат = Неопределено;

		КонецЦикла; 

		

	КонецЕсли; 

	

	Если ЕстьАвансДо01042011 Тогда

		Если НеОтноситьСебестоимостьЗапасовНаРасходыПоНУ Тогда

			СуммаВДВРПоАвансуДо01042011	= СуммаДокумента + ВозвратнаяТара.Итог("Сумма");

		КонецЕсли;

	Иначе	

		НеОтноситьСебестоимостьЗапасовНаРасходыПоНУ = Ложь;

	КонецЕсли;

	

	// ++ Леха 22.03.2013

	

	// -- Леха 22.03.2013 

	

КонецПроцедуры // ПередЗаписью

Aspirant

21.03.2013 16:20

Ответ № 10

Пытаюсь построит запрос вот так

Код 1C v 8.х

 Запрос = Новый Запрос; 

Запрос.Текст = " 

|ВЫБРАТЬ

После зделать выборку

Aspirant

21.03.2013 17:09

Ответ № 11

вот на чом я остановился

Код 1C v 8.х

 	// ++ Леха 21.03.2013

	Запрос = Новый Запрос();

	Запрос.УстановитьПараметр("РасхНакл", ЭтотОбъект);

	Запрос.Текст = "ВЫБРАТЬ

	                |	НалоговаяНакладная.Ссылка,

	                |	НалоговаяНакладная.ДокументОснование

	                |ИЗ

	                |	Документ.НалоговаяНакладная КАК НалоговаяНакладная

					|ГДЕ

					|	НалоговаяНакладная.ДокументОснование = &РасхНакл"

	Результат=Запрос.Выполнить();

	Выборка=Результат.Выбрать();

	Пока Выборка.Следующий() Цикл

		

	

	// -- Леха 21.03.2013

Bell

21.03.2013 18:37

Ответ № 12

Что у тебя за конфигурация?

Код 1C v 8.х

 Процедура ЖурналДокументовСписокПередУстановкойПометкиУдаления(Элемент, Отказ)

	

	Док = ЭлементыФормы.ЖурналДокументовСписок.ТекущиеДанные.Ссылка.ПолучитьОбъект();

	

	Если ЗначениеЗаполнено(Док.ДокументОснование)  Тогда

		Сообщить(Док.ДокументОснование);

				

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

		ААА.УстановитьПометкуУдаления(Истина);

		

	КонецЕсли;



	

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

Если документов много помечают лучше передать док. основание в обработку и потом обработать.
*16

Изменено 21.03.13 19:05:38

Aspirant

28.03.2013 12:56

Ответ № 13

Бухгалтерия для Украины редакция 1.2.

DJ_Serega

28.03.2013 16:40

Ответ № 14

(13) Aspirant, А почему вы хотите ПередЗаписью обрабатывать подчиненные документы?

Aspirant

03.04.2013 15:11

Ответ № 15

При пометке на удаление переходит в процедуру перед записью

gorakh

03.04.2013 16:25

Ответ № 16

Можно все это сделать в подписке на события соответствующего документа. Потом обновлять конфигурацию будет легче.

Aspirant

03.04.2013 16:33

Ответ № 17

Как подскажи если не сложно буду благодарен

Bell

03.04.2013 17:37

Ответ № 18

Заходищь в фому списка документа расходная накладная.
Находишь событие ПередУстановкойПометкиУдаления
Генерируешь собыите и в его пишеть

// ЖурналДокументовСписок (ДокументСписок может быть таким) - имя мтоего поля
// ДокументОснование - реквизит документа Расходная накладная
// все остальное менять не надо.

Код 1C v 8.х

 Док = ЭлементыФормы.ЖурналДокументовСписок.ТекущиеДанные.Ссылка.ПолучитьОбъект();

	

Если ЗначениеЗаполнено(Док.ДокументОснование)  Тогда

	Сообщить(Док.ДокументОснование); // Эту строку можно не писать

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

	ААА.УстановитьПометкуУдаления(Истина);

	КонецЕсли;

КонецЕсли;

Подсказка: Вы получили ответ на свой вопрос - закройте вопрос!