Т = создатьОбъект("Текст");
Файл = создатьОбъект("Текст"); //создаем ссылку на файл DBF
Файл.КодоваяСтраница(0);
Файл.Очистить();
Для i = 1 По Список.РазмерСписка() Цикл
ТекДок=Список.ПолучитьЗначение(i);
Если Док_ПосТовВРозн.НайтиДокумент(ТекДок) = 1 Тогда
ТекДок_Найденный= Док_ПосТовВРозн.ТекущийДокумент();
Файл.ДобавитьСтроку("#;"+"02;"+ТекДок_Найденный.МестоХранения+";"+ТекДок_Найденный.НомерДок+";"+"1");
ТекДок_Найденный.ВыбратьСтроки();
Пока ТекДок_Найденный.ПолучитьСтроку()>0 Цикл
Файл.ДобавитьСтроку(СокрЛП(ТекДок_Найденный.Товар)+";"+ТекДок_Найденный.Товар.Код+";"+ТекДок_Найденный.Товар.ЕдиницаИзмерения+";"+ТекДок_Найденный.Количество+";"+ТекДок_Найденный.РозничнаяЦена+";"+ТекДок_Найденный.НДСРозн+";"+"ШТРИХКОД"+";"+";"+";"+ТекДок_Найденный.Товар.СтранаПроисхождения);
//?(ТекДок_Найденный.Товар.СтранаПроисхождения.Выбран()=1,ТекДок_Найденный.Товар.СтранаПроисхождения,Сообщить("не указана страна"))