0
Nemirov
18.05.20
✎
15:11
|
ИмяФайлаОстатков = "OstIs.DBF";
ПолноеИмяФайлаОстатков= КаталогВременныхФайлов();
ПолноеИмяФайла = СокрЛП(ПолноеИмяФайлаОстатков+ИмяФайлаОстатков);
XBase = Новый XBase; //создаем новый объект
XBase.Кодировка = КодировкаXBase.OEM;
XBase.Поля.Добавить("KONTR","S",80,);
XBase.Поля.Добавить("NOMENKL","S",100,);
XBase.Поля.Добавить("REMAINS","S",60,);
XBase.Поля.Добавить("DATE","D",25);
XBase.СоздатьФайл(ПолноеИмяФайла);
XBase.ЗакрытьФайл();
обФТП = Обработки.ftp.Создать();
обФТП.Конструктор(Константы.FTPКодыПоставщиковАдрес.Получить(),Константы.FTPКодыПоставщиковПорт.Получить(),Константы.FTPКодыПоставщиковЛогин.Получить(),Константы.FTPКодыПоставщиковПароль.Получить());
обФТП.Прочитать("OstNa.DBF",ПолноеИмяФайла );
обФТП.Деструктор();
XBase.ОткрытьФайл(ПолноеИмяФайла,,Истина);
XBase.Первая();
МассивDBF = Новый Массив;
Пока НЕ XBase.ВКонце() Цикл
НомСсылкаXBase = Справочники.Номенклатура.НайтиПоНаименованию(XBase.NOMENKL, Истина);
//Вот тут загвоздка как сравнить НомСсылкаXbase с "элемент.Номенклатура" табличной части "Состав" (как вообще обходить все эти не объектные типы или сравнивать) ?
Если НЕ НомСсылкаXBase = "тут сравнение " Тогда
XBase.Следующая();
Продолжить;
Иначе
СтрокаТабличнойЧастиСостав.Остаток = XBase.Remains;
КонецЕсли;
XBase.Следующая();
КонецЦикла;
|
|