Имя: Пароль:
1C
1С v8
Декларация 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)Отладчик в руки - и смотри почему.