Счет-фактура выданная, проблема с ГТД

Форум Учет и отчетность Бухгалтерский учет и налоги (БУ)

1С:Комплексная 7.7 Бухгалтерский учет 7.7 Оперативный учет 7.7 Расчет 7.7

1. alex_gus 3 31.03.14 22:39 Сейчас в теме

Доброго времени суток!
Неожиданно столкнулись с проблемой, печати счета-фактуры, выписанной на основании "реализации" с товарами с ГТД, ошибка состоит в том, что при каждом следующем разбиении наименование и цену проставляет ОТ первой позиции в документе!
Ошибка вот тут

					Если Не(РаспредГТД.НомерСтроки = 1) Тогда
				
						МнЧ.НоваяСтрока();
						МнЧ.Номенклатура = МнЧ.ПолучитьЗначение(1,"Номенклатура");
						МнЧ.Цена		 = МнЧ.ПолучитьЗначение(1,"Цена");
						МнЧ.СтавкаНДС	 = МнЧ.ПолучитьЗначение(1,"СтавкаНДС");
						МнЧ.Единица      = МнЧ.ПолучитьЗначение(1,"Единица");
						МнЧ.ЕдиницаКод   = МнЧ.ПолучитьЗначение(1,"ЕдиницаКод");
						МнЧ.АкцизЦена    = МнЧ.ПолучитьЗначение(1,"АкцизЦена");				        			
					КонецЕсли;

Показать

Но задумка настолько извращенская, что я пока ничего не придумал, может кто сталкивался уже.

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Jill 17 01.04.14 00:03 Сейчас в теме

(1) alex_gus, вы бы всю форму (обработку) показали.

3. CheBurator 3119 01.04.14 01:46 Сейчас в теме

вот здесь
МнЧ.ПолучитьЗначение(1,
вместо 1 - должна быть какая-то переменная (смотрите выше по коду), в которой запомнена строка, которую разбиваете. а у вас тупо написано "брать все из первой строки"

4. alex_gus 3 01.04.14 09:19 Сейчас в теме

(3) CheBurator, да это не у меня, это 1С типовая Комплексная, оказывается тянется это черти с каких времен...надо же было такой бредовый код сделать, для разбиваемых строк по ГТД, по их коду все время подставлялась первая строка.

					Если Не(РаспредГТД.НомерСтроки = 1) Тогда
				        
						НомСтрок=0;
						МнЧ.НайтиЗначение(ТекТМЦ.ПолнНаименование,НомСтрок,"Номенклатура");
						
						МнЧ.НоваяСтрока();
						МнЧ.Номенклатура = МнЧ.ПолучитьЗначение(НомСтрок,"Номенклатура");
						МнЧ.Цена		 = МнЧ.ПолучитьЗначение(НомСтрок,"Цена");
						МнЧ.СтавкаНДС	 = МнЧ.ПолучитьЗначение(НомСтрок,"СтавкаНДС");
						МнЧ.Единица      = МнЧ.ПолучитьЗначение(НомСтрок,"Единица");
						МнЧ.ЕдиницаКод   = МнЧ.ПолучитьЗначение(НомСтрок,"ЕдиницаКод");
						МнЧ.АкцизЦена    = МнЧ.ПолучитьЗначение(НомСтрок,"АкцизЦена");				        			
					КонецЕсли;

Показать

Сделал, вот так и все заработало!

Оставьте свое сообщение

E-mail: