Доброго времени суток.Задача: Сформировать выгрзку номенклатуры в дбф файл,подскажите как реализовать это?!


//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
   Перем Запрос, ТекстЗапроса, Таб;
   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Обрабатывать НеПомеченныеНаУдаление;
   |Номенклатура = Справочник.Номенклатура.ТекущийЭлемент;
   | Док= Справочник.Номенклатура.ТекущийЭлемент;
   |Группировка Номенклатура упорядочить по Номенклатура.Наименование;
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;                        
           НовТабл=СоздатьОбъект("ТаблицаЗначений");
   НовТабл.НоваяКолонка("Наименование","Справочник.Номенклатура",,,"Наименование");
             Пока Запрос.Группировка(1) = 1 Цикл
       Док=Запрос.Док;
       //               Док.ВыбратьСтроки();  
       Если (СокрЛП(Строка(Док.Товар.ТипНоменклатуры)) <> "Товар") Тогда
           НовТабл.НоваяСтрока();  
           НовТабл.Наименование=Док.Товар;
           
           глВывестиТЗ(НовТабл ,"1");
       конецесли;
   КонецЦикла ;    
       
   // Подготовка к заполнению выходных форм данными запроса
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   // Заполнение полей "Заголовок"
   Таб.ВывестиСекцию("Заголовок");
   Состояние("Заполнение выходной таблицы...");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   Пока Запрос.Группировка(1) = 1 Цикл
       // Заполнение полей Номенклатура
       Таб.ВывестиСекцию("Номенклатура");
   КонецЦикла;
   // Вывод заполненной формы
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать", "");
КонецПроцедуры

Таб.Наименование

не имеет смысла

(16)таб мне  для  пред.просмотра

Книга знаний: DBF-файлы (XBase)

ахренеть :)) за 4 часа восемь строк
Кто сказал что спидеров уже нет?

(0) Сохрани Таблицу в формат Ексель, Открой в Екселе, пересохрани в дбф.
Для твоего уровня владения языком 1С это самый быстрый путь.

Запрос.Номенклатура.Наименование
или
Номенклатура.Наименование

(22) у  меня  разные  варианты  были переставлял  смотрел по аналогии,не  получилось.

(16) выгружи в тз на форме

(0)Иди в полицию работать

СпрНом=СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
Пока СпрНом.ПолучитьЭлемент()=1 Цикл
   Если Лев(СпрНом.Наименование,2)<>"ЦГ"  Тогда  
       Продолжить;
   Иначе
    ДБФ = СоздатьОбъект("XBASE");
     ДБФ.КодоваяСтраница(0); // Windows
ДБФ.СоздатьФайл("c:\export.dbf");
   КонецЕсли;
КонецЦикла;

(14) вот профукал эту объяву .. когда прочтешь - спрашивай, что не понял

ДБФ.СоздатьФайл("c:\export.dbf"); {D:\БАЗЫ 7\НОВАЯ ПАПКА\1ВНЕШНИЕ ОТЧЕТЫ\511.ERT(51)}: Неопределена структура базы!

как её определить?

(30) Читай (21) уже.

(28) ? скока у тя создасться пустых дбф?

(32) 1 создался но пустой

(33)
    ДБФ = СоздатьОбъект("XBASE");
ДобавитьПоле("NAME","S",50,0);
     ДБФ.КодоваяСтраница(0); // Windows
 ДБФ.СоздатьФайл("c:\export.dbf");
СпрНом=СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
Пока СпрНом.ПолучитьЭлемент()=1 Цикл
   Если Лев(СпрНом.Наименование,2)<>"ЦГ"  Тогда  
       Продолжить;
   Иначе
ДБФ.Добавить();
ДБФ.NAME = СпрНом.Наименование;
   КонецЕсли;
КонецЦикла;
ДБФ.Закрыть();

Дядя Вова

31 - 18.01.12 - 16:27    (30) Читай (21) уже.


 Papa1

14 - 18.01.12 - 16:11        (10)спасибо после  прочитаю

IvanovIV

10 - 18.01.12 - 16:08        http://1czone.ru/code/12-primer-dbf.html

ну пусть прочитает попозже и мою ссылку и на Мисту

(33)
Те их скока надо? На каждый элемент справочника? Или один на всех?

(34) не взлетит

(37)Почему?

(38) м.б. установитьзначение поля?

(38) записать забыл

СпрНом=СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
ДБФ = СоздатьОбъект("XBASE");
ДБФ.СоздатьФайл("c:\export.dbf");
ДБФ.КодоваяСтраница(0); // Windows
Пока СпрНом.ПолучитьЭлемент()=1 Цикл
   Если Лев(СпрНом.Наименование,2)<>"ЦГ"  Тогда  
       Продолжить;
   Иначе
     дбф.Добавить();
     дбф.NAME =СпрНом.Наименование;
          дбф.Записать();
   КонецЕсли;
КонецЦикла;
 
КонецПроцедуры




ДБФ.СоздатьФайл("c:\export.dbf");
{F:\2.ERT(46)}: Неопределена структура базы!
дбф.Добавить();
{F:\2.ERT(52)}: Перед выполнением операции нужно открыть базу!
дбф.NAME =СпрНом.Наименование;
{F:\2.ERT(53)}: Поле агрегатного объекта не обнаружено (NAME) ошибки выдает

(39) Можно и так.
(40) Да я и ДБФ. перед ДобавитьПоле не нарисовал. Заметил когда уже отправил. но надеюсь автор поста догадался.  А то там ему выдало видимо функция ДобавитьПоле не обнаружена...

(41) Так нужно закрыть export.dbf открытый - чем там смотрите его

(41) хоть одну из ссылок открой уже(

Книга знаний: DBF-файлы (XBase) по этой  втавлял по аналогии

)43( закрыл перез конецпроцедуры ошибки тежи

Развод какой то. (45) - всё уже разжевали тебе!

СпрНом=СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
ДБФ = СоздатьОбъект("XBASE");
ДБФ.СоздатьФайл("c:\export.dbf");
ДБФ.КодоваяСтраница(0); // Windows
Пока СпрНом.ПолучитьЭлемент()=1 Цикл
   Если Лев(СпрНом.Наименование,2)<>"ЦГ"  Тогда  
       Продолжить;
   Иначе
     дбф.Добавить();
     дбф.NAME =СпрНом.Наименование;
          дбф.Записать();
   КонецЕсли;
КонецЦикла;
   дбф.ЗакрытьФайл()
КонецПроцедуры

чего не хватает не  пойму

(47) он просто не читатель, он пейсатель :)
автор, а (41) поле не добавил, базу не открыл и не закрыл

//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
//    Перем Запрос, ТекстЗапроса, Таб;
//    //Создание объекта типа Запрос
//    Запрос = СоздатьОбъект("Запрос");
//    ТекстЗапроса =
//    "//{{ЗАПРОС(Сформировать)
//    |ОбрабатыватьДокументы все;
//    |Обрабатывать НеПомеченныеНаУдаление;
//    |Наименование = Справочник.Номенклатура.Наименование;
//    |Группировка Наименование;
//    |"//}}ЗАПРОС
//    ;
//    // Если ошибка в запросе, то выход из процедуры
//    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
//        Возврат;
//    КонецЕсли;
//
//    // Подготовка к заполнению выходных форм данными запроса
//    Таб = СоздатьОбъект("Таблица");
//    Таб.ИсходнаяТаблица("Сформировать");
//    // Заполнение полей "Заголовок"
//    Таб.ВывестиСекцию("Заголовок");
//    Состояние("Заполнение выходной таблицы...");
//    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
//    Пока Запрос.Группировка(1) = 1 Цикл
//        // Заполнение полей Наименование
//             Если  лев(Таб.Наименование,2)<>"ЦГ"  Тогда  
//            продолжить;
//            
//          конецесли
//    КонецЦикла;
//    // Вывод заполненной формы
//        Таб.ВывестиСекцию("Наименование");
//    Таб.ТолькоПросмотр(1);
//    Таб.Показать("Сформировать", "");  


СпрНом=СоздатьОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
ДБФ = СоздатьОбъект("XBASE");
ДБФ.СоздатьФайл("c:\export.dbf");
ДБФ.КодоваяСтраница(0); // Windows
Пока СпрНом.ПолучитьЭлемент()=1 Цикл
   Если Лев(СпрНом.Наименование,2)<>"ЦГ"  Тогда  
       Продолжить;
   Иначе
     дбф.Добавить();
     дбф.NAME =СпрНом.Наименование;
          дбф.Записать();
   КонецЕсли;
КонецЦикла;
   дбф.ЗакрытьФайл()
КонецПроцедуры

(48) не хватает прочитать фсе!

ДобавитьПоле  - где?

(45) "по этой  втавлял по аналогии"

вот уж враки

сравни коды

52 тебе  ржаки а  мне  печалько

(53) найди одно отличие в (34) и (48)
(пробелы и пустые строки не учитываются)

(53) печально д.б. не тебе

если после всего вышенаписанного у тя не получается
я пас
вызовите специалиста (це)

Файл = создатьОбъект("XBASE"); //создаем ссылку на файл DBF

//определяем структуру файла
//Синтаксис: ДобавитьПоле(<Название>,<Тип>,<Длина>,<Точность>)

Файл.ДобавитьПоле("NAME","S",50,0);
Файл.ДобавитьПоле("PRICE","N",10,2);

Файл.СоздатьФайл("catalog.dbf"); //создаем файл физически

СпрТовары.ВыбратьЭлементы();
Пока СпрТовары.ПолучитьЭлемент()=1 Цикл
      Файл.Добавить();
      Файл.NAME = СпрТовары.Наименование;
      Файл.УстановитьЗначениеПоля("PRICE",СпрТовары.Цена) //так тоже можно;
      Файл.Записать();
КонецЦикла;

Файл.ЗакрытьФайл(); //не забывайте пожалуйста ну  вот  от сюда  списывал

хех=) с праздником всех ,спасибо всем!!!!!!!!!!

19 января
Крещение, или Богоявление, празднуется Православной Церковью 19 января по новому стилю. Накануне праздника, 18 января установлен строгий пост.

Праздник Крещения Господня — один из самых древних праздников христианской Церкви. Его установление относится еще ко временам апостолов. Древнее название праздника — «Епифания» — явление, или «Теофания» — Богоявление, также его называли «праздник Светов», «Святые Светы» или просто «Светы». Ибо Бог приходит в мир в этот день, чтобы явить миру Свет Неприступный.

? дня защиты пингвинов или дятлов нет ?  

ЗЫ

а с"цылки нада чЕтать .. их не просто так дают

а как проверить создан ли файл и удалить файл,после сохранить новую версию?

Если фс.("c:\export.dbf")=1  Тогда
        фс.УдалитьФайл("c:\export.dbf")
   КонецЕсли;

Очень просто.

(60) ну уже хотя бы встроенный хелп почитай, а!
Я тут почитал ветку и волосы на моей лысой голове встали дыбом...

(62)почитал,от этого только  больше  вопросов.
все когда то начинали и задавали глупые вопросы, в этом ничего зазорного нет!

(61) как правило самое сложное, это все самое простое.

(62)+1
Читал и плакал :)

плакал, но читал

(63) для начала учат азбуку, а потом уж берутся за чтение

(0) А до 1С был какой-нибудь опыт в программировании?

(63) цитирую хелп. Дорого! :)


СуществуетФайл(<?>)
Синтаксис:
СуществуетФайл(<ИмяФайла>)
Назначение:
Проверяет существование файла..
Возвращает: 1 - файл существует; 0 - не существует.
Параметры:
<ИмяФайла> - Строковое выражение с именем файла.
Подробнее см. в документации, глава 'Работа с Файлами'

(60) Вот почему удаляешь файл правильно, а проверить не можешь???

(68) был,но не внушительный,квалифицированных уроков 1с по конфиг нету...вот и приходится воевать одному.

Пока (ФС.СуществуетФайл("c:\export.dbf")=1) Или (ФС.СуществуетФайл("c:\export.dbf")=1) Цикл
       ФС.УдалитьФайл("c:\export.dbf");
       //    ФС.УдалитьФайл("c:\export"+".dbf");
       Сообщить("Удалено!!!");
   конеццикла;


воот как то так?как  сделать выбор сетевого сохранения?

(72) потерпи до завтра. Завтра Пятница

(72) баден-баден?

(72) что есть "сетевое сохранение"??? o_o

ВыбратьКаталог(<?>,,)
Синтаксис:
ВыбратьКаталог(<ИмяКаталога>,<ЗаголовокОкна>,<Таймаут>)
Назначение:
Открывает окно диалога выбора каталога.
Возвращает: 0 - если в окне диалога нажата кнопка 'Отмена'; 1 - если в окне диалога нажата кнопка 'ОК', при этом в переменную <ИмяНачКаталога> возвращается имя выбранного каталога; -1 (минус единица) - закончилось время <Таймаут> ожидания отклика пользователя.
Параметры:
<ИмяКаталога> - переменная, содержащая на входе строку с  начальным каталогом, на выходе имя выбранного каталога;
<ЗаголовокОкна> - строка с заголовком окна;
<Таймаут> - время ожидания отклик пользователя в секундах (необязателен).
Подробнее см. в документации, глава 'Работа с Файлами'

(75) это когда путь начинается с двух слешей :))

(76) как бы телепатирую следующий вопрос: "А как теперь задать имя файла"?

Поскольку файл мы создаем программно(речь вроде о выгрузке в ДБФ шла), то например так:
ИмяНашегоФайла = "ourfile.dbf"
В итоге путь = ИмяКаталога/ИмяНашегоФайла

а как получить путь?
Что такое конкатенация строк?
Зачем вообще это нужно? :)

(80) ДБФ.СоздатьФайл(ИмяКаталога+"\"+ИмяНашегоФайла);
Доволен? :)
А зачем это вообще нужно, вопрос к (0) :)

(81) да я-то давно доволен. Смешно просто, а вот (0) конспектирует потихоньку, а на вопрос зачем это всё так и не ответит. :)

(82) Так потому и не ответил что он конспектирует потихоньку. И так достаточно инфы ему дал. Дальшее сам пущай.

спасибо.......а вот кинул я кнопку  в которой отображается путь,а куда вставить её переменную,начало процедуры ??

(84) по свойствам кнопки полазий, найдёшь

(85) это я  знаю делал  уже,проблем нет ,подписать кнопку вставить.Вопрос в том куда вставить её?!

(86) блин, пиши по русски. Нифига не понятно что тебе надо.

В свойствах > Дополнительно > Формула напиши название процедуры. Типа ПоКнопке()

потом в модуле:

Процедура ПоКнопке()
   ...
КонецПроцедуры

"Вопрос в том куда вставить её?!"
кого ?

перем  ИмяФайла;
       Если ПустоеЗначение(ИмяФайлаБД)=0 Тогда
       ИмяКаталога=ИмяФайлаБД;
   Иначе
       ИмяКаталога=КаталогИБ();
   КонецЕсли;
   Если ФС.ВыбратьФайл(0,ИмяФайла,ИмяКаталога,"Выберите путь сохранения данных","Файлы баз данных *.dbf|*.dbf",,20)=1 Тогда
       ИмяФайлаБД=ИмяКаталога+ИмяФайла;  
         
         конецесли;

(89) Круто. И что?

выглядит как то так у меня,сохраняет!!!это прогресс господа=)значит в моём случае не все потерено!!!!но как то не правильно сохраняет.

(90)то что когда нажимаешь на кнопку,открывается путь и на ней написано открыть,открывать нечего  нажимаешь отмена он сохраняет.

факмоймоск

а я предупреждал еще в (78)

(92) дарю:

//* Открывает Диалог выбора файла. Если Выбор произведен, то помещает в переменную новое имя файла
Функция ДиалогВыбораФайла(ИмяФайла,ТипДиалога=0,Заголовок="Выберите файл",Фильтр="Все файлы (*.*)|*.*")
   ы=СокрЛП(ИмяФайла);
   ИК="";
   Пока Найти(ы,"\")>0 Цикл
       ИК = ИК + Лев(ы,Найти(ы,"\"));
       ы = Сред(ы,Найти(ы,"\")+1);
   КонецЦикла;
   ИФ = ы;
   Если ФС.ВыбратьФайл(ТипДиалога,ИФ,ИК,Заголовок,Фильтр)=1 Тогда
       ИмяФайла = ИК+ИФ;
       Возврат 1;
   КонецЕсли;
   Возврат 0;
КонецФункции // ДиалогВыбораФайла

(94) зря ты это сделал. Сейчас посыплются вопросы...

(93) имя файла по умолчанию идет, фак твой моймоск.проблема в том что  в открывшемся пути  он не сохраняет на кнопку сохранить,даже кнопки сохранить нет есть только открыть.

(96) ты СП ещё не купил чтоли?

(94)спасибо!!!!!!!!!1но это слижком легко я  сам  должен до этого  дойти иначе толка не  будет...значит  через функцию делать.
а если  вывести в начало,сделать её первой процедурой так ведь тоже  можно?

(98) можно. но, сначала (97)

(96)

ФС.ВыбратьФайл

Параметры:
<ТипДиалога> -: 0 - диалог типа <открыть>, 1 - диалог типа <сохранить>;


ничего не наталкивает на мысль?????

(97)Сергей извините,но я не  понял что такое "СП ещё не купил чтоли?".

спасибо всем тем, кто помогает!

(98) неужели получилось (94) ?

(100)сменил значение "0" на "1" сменилось на  сохранить=)спасибо за наводку.

(103) теперь должен мне на водку :)

(101) нажми Ctrl+F1 в конфигураторе и попадёшь в СП, где найдёшь ответы на многие вопросы

(105) человек же сказал что это слишком просто и легко. До всего нужно дойти самому!

(104) не употребляю алкоголь вообще.

(107) купи у ДенисЧ СП, сегодня у него ДР, думаю в полцены отдаст!

(108)  "купи у ДенисЧ СП, сегодня у него ДР, думаю в полцены отдаст! " не понял,что за "СП" если он  идет стандартным приложением к 1с?-> Данная функия пахнет разводом, истина=1 или ложь=0 тогда ,купить у ДенисЧ СП;->Данная функия пахнет разводом, истина=0 или ложь=1 тогда ,не покупать у ДенисЧ СП конецпроцедуры.так вроде???

(109)чем дело то закончилось? денег дали за труды?)))

(109) если ты не употребляешь алкоголь, то, вероятно, крепко сидишь на наркоте

(110)забыл вставить сообщение "у студентов денег нет,за труды студента необходимо вознаграждение,нажмите ок "если  вознаграждение=1 тогда отправить 1000р на 910355013*!!!

(111) нет,презираю таких людей.

а как  сделать так чтоб имя файла было текущей датой?

ИмяФайла = ""+ТекущаяДата();

(115)спасибо

(115) быстро сдал, скучно...
(107) зато я употребляю :)

(117) главное чтоб в рамках разумного!!!а то пол страны напьются и  давай свои законы выстраивать...