![]() |
|
Декларация 6 или путь к выгрузке | ☑ | ||
---|---|---|---|---|
0
demous
17.01.12
✎
11:50
|
УПП 8.1
ВПФ Декларация - 6 Суть в том, что бы определить, к какому файлу требуется прописывать путь выгрузки, что бы из него автоматически подтянуть данный в программу ( декларирование производства и оборота алкогольной продукции ) Вот на эту процедуру ругается отладчик с такой ошибкой {Обработка.П_Декларация6.Форма.Форма(535)}: Ошибка при вызове метода контекста (Первая): Перед выполнением операции нужно открыть базу ФайлПр.Первая(); Процедура Проц(ФайлПр) ЗапросТабл = Новый Запрос; Текст = "ВЫБРАТЬ | Номенклатура.Наименование, | Номенклатура.К_КодПродукции.Наименование, | Номенклатура.К_КодПродукции.КодПродукции |ИЗ | Справочник.Номенклатура КАК Номенклатура |ГДЕ | Номенклатура.Ссылка В(&СпПрод)"; ЗапросТабл.Текст = Текст; ЗапросТабл.УстановитьПараметр("СпПрод",СпПрод); Результат = ЗапросТабл.Выполнить(); //ТЗ = Результат.Выгрузить(); //ТЗ.Свернуть("Наименование,Группа,НаименованиеРег,СтранаПроисхождения,ГосРегДата,ГосРегКод"); // Сп=Новый СписокЗначений; ФайлПр.Первая(); Пока не ФайлПр.ВКонце() Цикл Сп.Добавить(СокрЛП(ФайлПр.PROD_NAME)); ФайлПр.Следующая(); КонецЦикла; Выборка = Результат.Выбрать(ОбходРезультатаЗапроса.Прямой); Пока Выборка.Следующий() Цикл Если не Сп.НайтиПоЗначению(СокрЛП(Выборка.Наименование))=Неопределено тогда Продолжить; КонецЕсли; //Для Каждого Выборка Из ТЗ Цикл // Если Выборка.Наименование <> "" тогда ФайлПр.Добавить(); ФайлПр.PROD_NAME = Выборка.Наименование; ФайлПр.GOST = "#"; ФайлПр.PROD_KOD = Выборка.К_КодПродукцииКодПродукции; ФайлПр.PROD_GROUP = Выборка.К_КодПродукцииНаименование; ФайлПр.REG_UDOST = ""; ФайлПр.PROISHOZHD = "КРД"; ФайлПр.REG_DATE = ""; ФайлПр.REG_NOM = ""; ФайлПр.Записать(); // КонецЕсли; КонецЦикла; ФайлПр.ЗакрытьФайл(); КонецПроцедуры // Проц() |
|||
1
demous
17.01.12
✎
12:08
|
помогите кто-нибудь
|
|||
2
Рэйв
17.01.12
✎
12:12
|
ОткрытьФайл
Открыть существующую базу. Синтаксис: ОткрытьФайл(<ПутьКБазе>, <ПутьКИндексу>, <ТолькоЧтение>) Англоязычный синоним: OpenFile Параметры: <ПутьКБазе> Строковое выражение, содержащее путь к файлу базы данных формата DBF. <ПутьКИндексу> Необязательный параметр. Строковое выражение, содержащее путь к индексному файлу базы данных. <ТолькоЧтение> Необязательный параметр. Число: 1 — файл открывается в режиме только чтение; 0 — файл открывается в режиме полного доступа (при этом файл открывается в эксклюзивном режиме). Значение по умолчанию — 0. Описание: Метод ОткрытьФайл открывает существующую базу данных формата DBF. Пример: // Подразумевается, что объект ДБФ уже создан и // доступен в данном контексте Процедура ОткрДБ() ИмяФайла = ""; ИмяПути = ""; ФС.ВыбратьФайл(0, ИмяФайла, ИмяПути, , "*.*", , ); ПутьДБ = ИмяПути + ИмяФайла; ДБФ.ОткрытьФайл(ПутьДБ); Если ДБФ. Открыта() = 1 Тогда Предупреждение("База открыта", 2); Иначе Предупреждение("Не смогли открыть Базу!", 2); КонецЕсли; КонецПроцедуры |
|||
3
demous
17.01.12
✎
12:22
|
я прописываю путь выгрузки к катологу в котором хранятся все указанные файлы БД... ошибки не выдает, но и файлы по итогам формирования печатной формы не заполняет(
|
|||
4
Рэйв
17.01.12
✎
12:23
|
(3)Отладчик в руки - и смотри почему.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |