Торговля и склад

У меня тоже есть текстовый файл, и чёто тоже приходники не создаются.
Забыл сказать, что текстовый файл - "Кама сутра" называется.

ineoosaki +1
А у меня мобильник старый не работает. Подскажите - почему?

Скорее всего забыл команду Документ.Записать();

Gena_2007, еще подсказка: не забыл СуммаВзаиморасчетов заролнить?

Держи куски из рабочей конфы. Поразмышляй на досуге.

// В доке есть кнопки "Загрузить", "Выгрузить".
// Этот код находиться в модуле формы дока:

Перем ИмяФайла;

//-----------------------------------------------------------------------------------------
Процедура Выгрузить()
Текст=СоздатьОбъект("Текст");
ВыбратьСтроки();
Пока ПолучитьСтроку() > 0 Цикл
СВрем=Товар.Код+"~"+Товар.Наименование+"~"+Количество+"~"+Единица.Код+"~"+Цена+"~";
СВрем=СВрем+Цена+"~"+Коэффициент+"~"+Сумма+"~"+Сумма+НДС+"~"­+НДС+"~";
Текст.ДобавитьСтроку(СВрем);
КонецЦикла;
Текст.Записать(ИмяФайла);
Предупреждение("В файл "+ИмяФайла+" выдано "+КоличествоСтрок()+" стр.");

КонецПроцедуры // Выгрузить()

//------------------------------------------------------------------------------------------
Процедура Загрузить()
Текст=СоздатьОбъект("Текст");
Текст.Открыть(ИмяФайла);
Тов=СоздатьОбъект("Справочник.Товары");
Для Ном=1 по Текст.КоличествоСтрок() Цикл
Стр=Текст.ПолучитьСтроку(Ном);
Если СтрДлина(Стр) = 0 Тогда
Продолжить;
КонецЕсли;
Инд=Найти(Стр,"~");
Если Инд>0 Тогда
НоваяСтрока();
Поле=0;
Пока СтрДлина(Стр)>0 Цикл
Поле=Поле+1;
Инд=Найти(Стр,"~");
Если Инд>1 Тогда
Стр1=Сред(Стр,1,Инд-1);
Иначе // если значение поля пропущено
Стр1="";
КонецЕсли;
Стр=Сред(Стр,Инд+1);
Если Поле=1 Тогда
Тов.НайтиПоКоду(Число(Стр1));
Если Тов.Выбран() > 0 Тогда
Товар= Тов.ТекущийЭлемент();
УстанЦеныПрих(Контекст);
КонецЕсли;
ИначеЕсли Поле=3 Тогда
Количество= Число(Стр1);
ИначеЕсли Поле=4 Тогда
Ед= Стр1;
ИначеЕсли Поле=5 Тогда
Цена= Число(Стр1);
ИначеЕсли Поле=6 Тогда
Цена_покуп= Число(Стр1);
ИначеЕсли Поле=7 Тогда
Коэффициент= Число(Стр1);
ИначеЕсли Поле=8 Тогда
Сумма= Число(Стр1);
ИначеЕсли Поле=9 Тогда
Сумма_покуп= Число(Стр1);
ИначеЕсли Поле=10 Тогда
НДС= Число(Стр1);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Предупреждение("Из файла "+ИмяФайла+" считано "+КоличествоСтрок()+" стр.");

КонецПроцедуры // Загрузить()

//------------------------------------------------------------------------------------------

ИмяФайла="c:\temp\1cvotp.txt";

И ещё.
Блин, научись конкретно вопросы задавать.