Имя: Пароль:
1C
 
XBase
0 Frederico
 
25.08.10
13:42
Есть у кого кусок кода, где идет работа с XBase для примера?
1 Frederico
 
25.08.10
13:45
Точнее работа с dbf ми, пример кода как подключаться и записывать в таблицу(Отчет)
2 Смешной 1С
 
25.08.10
13:45
(0)http://www.firststeps.ru/1c/1cbuh3.html

Там смотри Шаг 110 и далее
3 ДенисЧ
 
25.08.10
13:47
Если ПустаяСтрока(ИмяФайла) Тогда
       Сообщить("Не указано имя файла");
       Возврат;
   КонецЕсли;
   
   База = Новый XBase;
   База.поля.Добавить("Code", "N", 5, 0);
   База.поля.Добавить("ParCode", "N", 5, 0);
   База.поля.Добавить("IsFolder", "N", 1, 0);
   База.поля.Добавить("Name", "S", 100, 0);
   База.поля.Добавить("NameFull", "S", 100, 0);
   База.поля.Добавить("INN", "S", 12, 0);
   База.поля.Добавить("KPP", "S", 10, 0);
   База.поля.Добавить("OKPO", "S", 10, 0);
   База.поля.Добавить("PostAddr", "S", 60, 0);
   База.поля.Добавить("UrAddr", "S", 60, 0);
   База.поля.Добавить("Phones", "S", 60, 0);
   
   База.СоздатьФайл(ИмяФайла);
   
   спр = Справочники.Контрагенты;
   выб = спр.ВыбратьИерархически();
   Пока выб.Следующий() Цикл
       Состояние("" + выб.Наименование);
       База.Добавить();
       База.Code = выб.Код;
       База.ParCode = ?(выб.Родитель = Справочники.Контрагенты.ПустаяСсылка(), "", выб.Родитель.Код);
       База.IsFolder = ?(выб.ЭтоГруппа, 1, 0);
       База.Name = выб.Наименование;
       База.NameFull = выб.НаименованиеПолное;
       База.INN = выб.ИНН;
       База.KPP = выб.КПП;
       База.OKPO = выб.КодПоОКПО;
       База.PostAddr = выб.ПочтовыйАдрес;
       База.UrAddr = выб.ЮридическийАдрес;
       База.Phones = выб.КонтактныеТелефоны;
       База.Записать();
   КонецЦикла;
   
   База.Записать();
   База.ЗакрытьФайл();
4 Смешной 1С
 
25.08.10
13:47
Процедура КнопкаВыполнитьНажатие(Кнопка)

     ДБФ=Новый Xbase;

     Дбф.поля.Добавить("A", "S", 60);

     Дбф.поля.Добавить("B", "S", 60);

     ИмяБазы="D:\dbf.dbf";

     Дбф.СоздатьФайл(ИмяБазы);

     Запрос=Новый запрос;

     Запрос.Текст="ВЫБРАТЬ

                  |      ЗарплатаКВыплатеЗарплата.Физлицо КАК Физлицо,

                  |      ЗарплатаКВыплатеЗарплата.Сумма КАК Сумма

                  |ИЗ

                  |      Документ.ЗарплатаКВыплате.Зарплата КАК ЗарплатаКВыплатеЗарплата";

     Результат=Запрос.Выполнить().Выбрать();

     Пока Результат.Следующий Цикл
           Дбф.Добавить();
           ДБФ.A=Результат.Физлицо;

           ДБФ.B=Результат.Сумма;
           Дбф.Записать();
     КонецЦикла;

КонецПроцедуры
5 Смешной 1С
 
25.08.10
13:47
+
ДБФ.ЗакрытьФайл();
6 Frederico
 
25.08.10
13:48
Эт не 7.7 случаем
7 Frederico
 
25.08.10
13:50
мне надо в 8.1
8 miki
 
25.08.10
13:50
(7)пользуйся
9 НастоящееИмя
 
25.08.10
13:51
(0) Выгрузка для Сбера пишешь
10 Смешной 1С
 
25.08.10
13:51
(7) У тебя же в теме написано v8: XBase -> это по 8
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.