XBrut @ 18.01.14, 17:43
,
У меня работае в таком варианте, иначе не заполняет количество, а из цены еще раз вычитает НДС.
Процедура Печать2014_2()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("2014-2");
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Номер = НомерСтроки;
Товар = Товар;
Ед = Единица;
КвоМест = Количество;
// Кво = КвоМест;
Код = Код;
Цена=ЦенаСНДС;
// Если ПустоеЗначение(ТМЦ)=1 Тогда
// Цена=ЦенаСНДС;
// Иначе
// Цена= ЦенаСНДС/(1+ТМЦ.СтавкаНДС.Ставка.Получить(ДатаДок));
// КонецЕсли;
ПечДокумент = Док;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
XBrut @ 18.01.14, 17:43
,
Поправил ошибки, не печатало количество и еще раз вычитало НДС из цены.
Процедура Печать2014_2()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("2014-2");
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Номер = НомерСтроки;
Товар = Товар;
Ед = Единица;
КвоМест = Количество;
// Кво = КвоМест;
Код = Код;
Цена=ЦенаСНДС;
// Если ПустоеЗначение(ТМЦ)=1 Тогда
// Цена=ЦенаСНДС;
// Иначе
// Цена= ЦенаСНДС/(1+ТМЦ.СтавкаНДС.Ставка.Получить(ДатаДок));
// КонецЕсли;
ПечДокумент = Док;
Таб.ВывестиСекцию("Строка");
КонецЦикла;