Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Процедура Печать1()
таб=СоздатьОбъект("ТАБЛИЦА" );
таб.ИсходнаяТаблица("СчФак" );
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
ИтСуБНДС=0;
Пока ПолучитьСтроку()>0 Цикл
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
СтранПР = ", "+СокрП(СокрЛ(Партия.Страна� �роисхождения));
ИначеЕсли ПустаяСтрока(Товар.СтранаП роисхождения)=0 Тогда
СтранПР = ", "+СокрП(СокрЛ(Товар.СтранаП� �оисхождения));
Иначе
СтранПР="";
КонецЕсли;
ЦенаПер=ЦенаИзготовителя;
СумбНДС=Окр(ЦенаОтп*Количе� �тво,0,0);
ИтСуБНДС=СумбНДС+ИтСуБНДС;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.ВывестиСекцию("Дно");
Таб.ВывестиСекцию("Дно1");
Таб.ВывестиСекцию("Дно2");
Таб.ПараметрыСтраницы(1,,,5,5, 5,,,,1);
Таб.Опции(0,0,0,0);
Таб.Показать() ;
КонецПроцедуры


Процедура ОбработкаПодбора(ВыбрТова� �)
Кол = 1;
Спис = СоздатьОбъект("СписокЗначе ний");
Спис.ДобавитьЗначение(Выбр Товар,"Товар");
Если ПустоеЗначение(ТекущийДок� �мент()) = 1 Тогда //документ еще не записан
//Тогда передаем дату документа
Спис.ДобавитьЗначение(Дата Док,"Док");
Иначе
//иначе позицию документа
Спис.ДобавитьЗначение(Теку щийДокумент(),"Док");
КонецЕсли;
Спис.ДобавитьЗначение(Мест оХранения,"Склад");
ОткрытьФормуМодально("Обра ботка.ПодборПартий",Спис);
Если ВвестиЧисло(Кол, "Введите количество", 14, 3) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;

НоваяСтрока();
Товар = ВыбрТовар;

Партия = Спис.Получить("Партия");


Прейскурант=Партия.Прейску рант;
Сертификат=Партия.Сертифик ат;
ПредпрИзготовитель=Товар.П редприятиеИзготовитель;
СтранаПроисхождения=Товар. СтранаПроисхождения;
//Единица=Товар.ЕдиницаИзмер ения;
Количество = Кол;

НдСПр=Товар.СтавкаНДС.Полу� �ить(ДатаДок).Ставка;
Если партия.выбран()=1 Тогда
Если партия.ПервыйИмпортер=1 Тогда
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наОтп;
ЦенаОтп=Партия.ЦенаОтп;
Иначе
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наИзготовителя;
ЦенаОтп=Партия.ЦенаОтп;
КонецЕсли;
//Надб=Партия.Надб;
//НадбавкаДругая=Партия.Надб авкаДругая;
Пересчет("Товар");
Пересчет2(); //Расчет надбавок
Иначе
//Себ=0;
//Если ВвестиЧисло(Себ, "Введите Себестоимость", 16, 2) = 0 Тогда
// Себестоимость=Себ;
//Иначе
Себестоимость=0;
//КонецЕсли;
//ЦенаИз=0;
//Если ВвестиЧисло(ЦенаИз, "Введите Цену Изготовителя", 16, 2) = 0 Тогда
// ЦенаИзготовителя=ЦенаИз;
//Иначе
ЦенаИзготовителя=0;
//КонецЕсли;
//ЦенаОп=0;
//Если ВвестиЧисло(ЦенаОп, "Введите Цену Оптовую", 16, 2) = 0 Тогда
// ЦенаОптовая=ЦенаОп;
//Иначе
ЦенаОптовая=0;
//КонецЕсли;
//НадбДр=0;
//НадбДр=0;
КонецЕсли;

---------- Post added at 09:19 ---------- Previous post was at 09:18 ----------

Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Процедура Печать1()
таб=СоздатьОбъект("ТАБЛИЦА" );
таб.ИсходнаяТаблица("СчФак" );
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
ИтСуБНДС=0;
Пока ПолучитьСтроку()>0 Цикл
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
СтранПР = ", "+СокрП(СокрЛ(Партия.Страна� �роисхождения));
ИначеЕсли ПустаяСтрока(Товар.СтранаП роисхождения)=0 Тогда
СтранПР = ", "+СокрП(СокрЛ(Товар.СтранаП� �оисхождения));
Иначе
СтранПР="";
КонецЕсли;
ЦенаПер=ЦенаИзготовителя;
СумбНДС=Окр(ЦенаОтп*Количе� �тво,0,0);
ИтСуБНДС=СумбНДС+ИтСуБНДС;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.ВывестиСекцию("Дно");
Таб.ВывестиСекцию("Дно1");
Таб.ВывестиСекцию("Дно2");
Таб.ПараметрыСтраницы(1,,,5,5, 5,,,,1);
Таб.Опции(0,0,0,0);
Таб.Показать() ;
КонецПроцедуры


Процедура ОбработкаПодбора(ВыбрТова� �)
Кол = 1;
Спис = СоздатьОбъект("СписокЗначе ний");
Спис.ДобавитьЗначение(Выбр Товар,"Товар");
Если ПустоеЗначение(ТекущийДок� �мент()) = 1 Тогда //документ еще не записан
//Тогда передаем дату документа
Спис.ДобавитьЗначение(Дата Док,"Док");
Иначе
//иначе позицию документа
Спис.ДобавитьЗначение(Теку щийДокумент(),"Док");
КонецЕсли;
Спис.ДобавитьЗначение(Мест оХранения,"Склад");
ОткрытьФормуМодально("Обра ботка.ПодборПартий",Спис);
Если ВвестиЧисло(Кол, "Введите количество", 14, 3) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;

НоваяСтрока();
Товар = ВыбрТовар;

Партия = Спис.Получить("Партия");


Прейскурант=Партия.Прейску рант;
Сертификат=Партия.Сертифик ат;
ПредпрИзготовитель=Товар.П редприятиеИзготовитель;
СтранаПроисхождения=Товар. СтранаПроисхождения;
//Единица=Товар.ЕдиницаИзмер ения;
Количество = Кол;

НдСПр=Товар.СтавкаНДС.Полу� �ить(ДатаДок).Ставка;
Если партия.выбран()=1 Тогда
Если партия.ПервыйИмпортер=1 Тогда
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наОтп;
ЦенаОтп=Партия.ЦенаОтп;
Иначе
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наИзготовителя;
ЦенаОтп=Партия.ЦенаОтп;
КонецЕсли;
//Надб=Партия.Надб;
//НадбавкаДругая=Партия.Надб авкаДругая;
Пересчет("Товар");
Пересчет2(); //Расчет надбавок
Иначе
//Себ=0;
//Если ВвестиЧисло(Себ, "Введите Себестоимость", 16, 2) = 0 Тогда
// Себестоимость=Себ;
//Иначе
Себестоимость=0;
//КонецЕсли;
//ЦенаИз=0;
//Если ВвестиЧисло(ЦенаИз, "Введите Цену Изготовителя", 16, 2) = 0 Тогда
// ЦенаИзготовителя=ЦенаИз;
//Иначе
ЦенаИзготовителя=0;
//КонецЕсли;
//ЦенаОп=0;
//Если ВвестиЧисло(ЦенаОп, "Введите Цену Оптовую", 16, 2) = 0 Тогда
// ЦенаОптовая=ЦенаОп;
//Иначе
ЦенаОптовая=0;
//КонецЕсли;
//НадбДр=0;
//НадбДр=0;
КонецЕсли;

---------- Post added at 09:20 ---------- Previous post was at 09:19 ----------

Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Процедура Печать1()
таб=СоздатьОбъект("ТАБЛИЦА" );
таб.ИсходнаяТаблица("СчФак" );
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
ИтСуБНДС=0;
Пока ПолучитьСтроку()>0 Цикл
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
СтранПР = ", "+СокрП(СокрЛ(Партия.Страна� �роисхождения));
ИначеЕсли ПустаяСтрока(Товар.СтранаП роисхождения)=0 Тогда
СтранПР = ", "+СокрП(СокрЛ(Товар.СтранаП� �оисхождения));
Иначе
СтранПР="";
КонецЕсли;
ЦенаПер=ЦенаИзготовителя;
СумбНДС=Окр(ЦенаОтп*Количе� �тво,0,0);
ИтСуБНДС=СумбНДС+ИтСуБНДС;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.ВывестиСекцию("Дно");
Таб.ВывестиСекцию("Дно1");
Таб.ВывестиСекцию("Дно2");
Таб.ПараметрыСтраницы(1,,,5,5, 5,,,,1);
Таб.Опции(0,0,0,0);
Таб.Показать() ;
КонецПроцедуры


Процедура ОбработкаПодбора(ВыбрТова� �)
Кол = 1;
Спис = СоздатьОбъект("СписокЗначе ний");
Спис.ДобавитьЗначение(Выбр Товар,"Товар");
Если ПустоеЗначение(ТекущийДок� �мент()) = 1 Тогда //документ еще не записан
//Тогда передаем дату документа
Спис.ДобавитьЗначение(Дата Док,"Док");
Иначе
//иначе позицию документа
Спис.ДобавитьЗначение(Теку щийДокумент(),"Док");
КонецЕсли;
Спис.ДобавитьЗначение(Мест оХранения,"Склад");
ОткрытьФормуМодально("Обра ботка.ПодборПартий",Спис);
Если ВвестиЧисло(Кол, "Введите количество", 14, 3) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;

НоваяСтрока();
Товар = ВыбрТовар;

Партия = Спис.Получить("Партия");


Прейскурант=Партия.Прейску рант;
Сертификат=Партия.Сертифик ат;
ПредпрИзготовитель=Товар.П редприятиеИзготовитель;
СтранаПроисхождения=Товар. СтранаПроисхождения;
//Единица=Товар.ЕдиницаИзмер ения;
Количество = Кол;

НдСПр=Товар.СтавкаНДС.Полу� �ить(ДатаДок).Ставка;
Если партия.выбран()=1 Тогда
Если партия.ПервыйИмпортер=1 Тогда
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наОтп;
ЦенаОтп=Партия.ЦенаОтп;
Иначе
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наИзготовителя;
ЦенаОтп=Партия.ЦенаОтп;
КонецЕсли;
//Надб=Партия.Надб;
//НадбавкаДругая=Партия.Надб авкаДругая;
Пересчет("Товар");
Пересчет2(); //Расчет надбавок
Иначе
//Себ=0;
//Если ВвестиЧисло(Себ, "Введите Себестоимость", 16, 2) = 0 Тогда
// Себестоимость=Себ;
//Иначе
Себестоимость=0;
//КонецЕсли;
//ЦенаИз=0;
//Если ВвестиЧисло(ЦенаИз, "Введите Цену Изготовителя", 16, 2) = 0 Тогда
// ЦенаИзготовителя=ЦенаИз;
//Иначе
ЦенаИзготовителя=0;
//КонецЕсли;
//ЦенаОп=0;
//Если ВвестиЧисло(ЦенаОп, "Введите Цену Оптовую", 16, 2) = 0 Тогда
// ЦенаОптовая=ЦенаОп;
//Иначе
ЦенаОптовая=0;
//КонецЕсли;
//НадбДр=0;
//НадбДр=0;
КонецЕсли;