Подскажите пожалуйста где ошибка?
|
impulse
16.03.2009 - 09:04
|
Создает позицию в спр.номенклатура, а "шт." ей не назначает, Процедура ВыборФайла() Перем имяфайла,имяпути , ст; док = СоздатьОбъект("Документ.РеализацияРозница"); Спр=СоздатьОбъект("Справочник.Номенклатура"); Тст=СоздатьОбъект("Текст"); ЕН=СоздатьОбъект("СписокЗначений"); Имяфайла=""; ИмяПути=""; ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл","Файлы текста|*.txt",,); ИмяФайла=ИмяПути+ИмяФайла; стр =""; Если ПустоеЗначение(ИмяФайла)=0 Тогда Тст.Открыть(ИмяФайла); КоличествоСтрок = тст.КоличествоСтрок(); Для ккк=1 По тст.КоличествоСтрок() Цикл ЕН.УдалитьВсе(); стр = Тст.ПолучитьСтроку(ккк); ЕН.ИзСтрокиСРазделителями(стр); Сообщить(стр); Если ЕН.ПолучитьЗначение(5)<>"РеализацияРозница" Тогда Сообщить("Выбранный файл поврежден или не содержит необходимую для загрузки информацию !"); Возврат; КонецЕсли; Если ЕН.ПолучитьЗначение(1)<>"Н" Тогда Сообщить("Загружена позиция..."); КонецЕсли; Если ЕН.ПолучитьЗначение(1)<>"Д" Тогда Сообщить("Загружена позиция..."); УдалитьСтроки(); сообщить("Загрузка накладной "+строка(ЕН.ПолучитьЗначение(6))+"..."); НомерДок = ЕН.ПолучитьЗначение(6); ДатаДок = ЕН.ПолучитьЗначение(7); НоваяСтрока(); Номенклатура = Спр.НайтиПоКоду(ЕН.ПолучитьЗначение(1),0); ВидТМЦ=Перечисление.ВидыТмц.ЗначениеПоНомеру(1); Номенклатура=Спр.ТекущийЭлемент(); ПриИзмененииНоменклатуры(); Количество = число(ЕН.ПолучитьЗначение(3)); Единица = Спр.ТекущийЭлемент().БазоваяЕдиница; Коэффициент = 1; Цена = число(ЕН.ПолучитьЗначение(2)); РозничнаяЦена = Цена; РозничнаяНаценка = 0; СуммаНаценки = 0; Сумма = число(Цена*Количество); Доставка = ""; сообщить("Всего номенклатуры"+" "+Итог("Количество")); сообщить("Сумма накладной "+" "+глФРМ(Итог("Сумма")+?(СуммаВклНП=1,0,Итог("СуммаНП"))+?(СуммаВклНДС=1,0,Итог("СуммаНДС")))+" "+" руб."); сообщить(строка(ЕН.ПолучитьЗначение(3))+" успешно загружена !"); сообщить("---------------------------------------------------------"); Записать(); Провести(); КонецЕсли; КонецЦикла; Иначе Сообщить("Не был выбран файл загрузки !","!!!"); Сообщить("---------------------------------------------------------"); Возврат; КонецЕсли; КонецПроцедуры //загрузка |