|
|
|
XBase | ☑ | ||
|---|---|---|---|---|
|
0
Frederico
25.08.10
✎
13:42
|
Есть у кого кусок кода, где идет работа с XBase для примера?
|
|||
|
1
Frederico
25.08.10
✎
13:45
|
Точнее работа с dbf ми, пример кода как подключаться и записывать в таблицу(Отчет)
|
|||
|
2
Смешной 1С
25.08.10
✎
13:45
|
||||
|
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
|
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |