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

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

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

1. SnakePlisskin 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 2725 01.04.14 01:46 Сейчас в теме

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

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

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

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

Показать

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

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

E-mail: