Форум программистов, компьютерный форум, киберфорум
1С
Форум программистов и сисадминов Киберфорум > Форум программистов > 1С
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 14.07.2011
Сообщений: 14

Можно ли Документ перегнать в dbf

18.07.2011, 16:14. Показов 1678. Ответов 6
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Хочу узнать, можно ли Документ выгрузить в dbf? Если да, то как?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 18.07.2011, 16:14
Ответы с готовыми решениями:

Есть база *.dbf, как ее перегнать в текстовый файл?
У меня есть база на *.dbf (в ней 7 полей ) и в конце дня мне нужно сформировать файл текстовый и скопировать в него содержимое моей базы...

Как программно перегнать базу из *.dbf в базу access
Как программно перегнать базу из *.dbf в базу access. С указанием полей из которых в которые надо перегнать

Можно ли перегнать массив в строку
Можно ли перегнать массив в строку? Пытался сделать так: Console.WriteLine(i.ToString().ToArray().Reverse().ToString()); ничего не...

6
 Аватар для fimbulwinter
309 / 309 / 1
Регистрация: 16.01.2011
Сообщений: 1,073
18.07.2011, 17:08
можно
объектом XBASE
0
0 / 0 / 0
Регистрация: 14.07.2011
Сообщений: 14
19.07.2011, 09:33  [ТС]
Спасибо fimbulwinter! Но у меня возникли проблемы:
Док=ВыбратьДокументы<<?>>();
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(59)}: Функция не обнаружена (ВыбратьДокументы)
ДБФ.NomerDokumenta =Док.ПолучитьАтрибут(НомерДок<<?>>);
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(62)}: Переменная не определена (НомерДок)
ДБФ.DataDokymenta =Док.ПолучитьАтрибут(ДатаДок<<?>>);
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(63)}: Переменная не определена (ДатаДок)
ДБФ.NomerBlanka =Док.ПолучитьАтрибут(НомерБланка<<?>>);
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(64)}: Переменная не определена (НомерБланка)
ДБФ.Kontragent =Док.ПолучитьАтрибут(Контрагент<<?>>);
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(65)}: Переменная не определена (Контрагент)
ДБФ.Dogovor =Док.ПолучитьАтрибут(Договор<<?>>);
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(66)}: Переменная не определена (Договор)
ДБФ.MestoXranenia =Док.ПолучитьАтрибут(МестоХранения<<?>>) ;
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(67)}: Переменная не определена (МестоХранения)
ДБФ.VidPostavshika =Док.ПолучитьАтрибут(ВидПоставщика<<?>>) ;
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(68)}: Переменная не определена (ВидПоставщика)
ДБФ.RaschitivatNP =Док.ПолучитьАтрибут(РассчитыватьНП<<?>> );
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(69)}: Переменная не определена (РассчитыватьНП)
ДБФ.Otvetstvenni =Док.ПолучитьАтрибут(Ответственный<<?>>)
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(70)}: Переменная не определена (Ответственный)
ДБФ.Otvetstvenni =Док.ПолучитьАтрибут(Ответственный)<<?>>
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(70)}: Пропущен символ ';'
ДБФ.VidPostiplenia =Док.ПолучитьАтрибут(ВидПоступления<<?>> );
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(71)}: Переменная не определена (ВидПоступления)
ДБФ.AvansoviOtchet =Док.ПолучитьАтрибут(АвансовыйОтчет<<?>> );
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(72)}: Переменная не определена (АвансовыйОтчет)
ДБФ.Sotrudnik =Док.ПолучитьАтрибут(Сотрудник<<?>>);
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(73)}: Переменная не определена (Сотрудник)
ДБФ.Proizvodstvo =Док.ПолучитьАтрибут(Производство<<?>>);
{Обработка.ВыгрузкаДокумента.Форма.Модул ь(74)}: Переменная не определена (Производство)

Ниже привожу код процедуры:
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

Процедура ВыгрузитьДанные() 
    
    Если ФайлВыгрузки="" Тогда
        Сообщить("Не выбран файл выгрузки");
        //      Возврат;
    КонецЕсли;
    дбф=СоздатьОбъект("XBASE");
    дбф.ОткрытьФайл(ФайлВыгрузки);
    //Таб=СоздатьОбъект("Таблица");
    Если дбф.Открыта()=0 Тогда
        дбф.ДобавитьПоле("NomerDokumenta","S",10,0);
        дбф.ДобавитьПоле("DataDokymenta","S",10,0);
        дбф.ДобавитьПоле("NomerBlanka","S",10,0);
        дбф.ДобавитьПоле("Kontragent","S",100,0);
        дбф.ДобавитьПоле("Dogovor","S",100,0);
        дбф.ДобавитьПоле("MestoXranenia","S",100,0);
        дбф.ДобавитьПоле("VidPostavshika","S",100,0);
        дбф.ДобавитьПоле("RaschitivatNP","N",1,0);
        дбф.ДобавитьПоле("Otvetstvenni","S",100,0);
        дбф.ДобавитьПоле("VidPostiplenia","N",1,0); 
        дбф.ДобавитьПоле("AvansoviOtchet","N",1,0);
        дбф.ДобавитьПоле("Sotrudnik","S",100,0);
        дбф.ДобавитьПоле("Proizvodstvo","N",10,0); 
        //реквизиты табличной части
        дбф.СоздатьФайл(ФайлВыгрузки);
    КонецЕсли;
    дбф.ОчиститьФайл();
    Док=СоздатьОбъект("Документы.ПоступлениеМатериалов");
    Док=ВыбратьДокументы();
    Если Док=1 Тогда
            ДБФ.Добавить();
            ДБФ.NomerDokumenta =Док.ПолучитьАтрибут(НомерДок); 
            ДБФ.DataDokymenta =Док.ПолучитьАтрибут(ДатаДок);
            ДБФ.NomerBlanka =Док.ПолучитьАтрибут(НомерБланка);
            ДБФ.Kontragent =Док.ПолучитьАтрибут(Контрагент);
            ДБФ.Dogovor =Док.ПолучитьАтрибут(Договор);
            ДБФ.MestoXranenia =Док.ПолучитьАтрибут(МестоХранения);
            ДБФ.VidPostavshika =Док.ПолучитьАтрибут(ВидПоставщика);
            ДБФ.RaschitivatNP =Док.ПолучитьАтрибут(РассчитыватьНП);
            ДБФ.Otvetstvenni =Док.ПолучитьАтрибут(Ответственный)
            ДБФ.VidPostiplenia =Док.ПолучитьАтрибут(ВидПоступления); 
            ДБФ.AvansoviOtchet =Док.ПолучитьАтрибут(АвансовыйОтчет);
            ДБФ.Sotrudnik =Док.ПолучитьАтрибут(Сотрудник);
            ДБФ.Proizvodstvo =Док.ПолучитьАтрибут(Производство);
            ДБФ.Записать();
    КонецЕсли;
    //КонецЦикла;
    дбф.закрытьФайл();
    Сообщить("Выгрузка закончена");
КонецПроцедуры
Я хочу выбрать все документы о поступлении материалов и вывести их содержимое реквизитов шапки в dbf файл, но ничего не получается... Подскажите кто нить плиз, что я не так делаю? И как правильно сделать?
0
34 / 34 / 3
Регистрация: 31.03.2011
Сообщений: 197
19.07.2011, 10:31
вместо Док = ВыбратьДокументы() -> Док.ВыбратьДокументы()
Вместо Док.ПолучитьАтрибут(ДатаДок) -> Док.ДатаДок
Ну или уж тогда Док.ПолучитьАтрибут("ДатаДок")

...а еще можно почитать хоть что-то о платформе, прежде чем ваять свои нетленные обработки...
1
 Аватар для fimbulwinter
309 / 309 / 1
Регистрация: 16.01.2011
Сообщений: 1,073
19.07.2011, 10:34
Цитата Сообщение от Танцор_С_Бубном Посмотреть сообщение
вместо Док = ВыбратьДокументы() -> Док.ВыбратьДокументы()
Вместо Док.ПолучитьАтрибут(ДатаДок) -> Док.ДатаДок
Ну или уж тогда Док.ПолучитьАтрибут("ДатаДок")

...а еще можно почитать хоть что-то о платформе, прежде чем ваять свои нетленные обработки...
лан тебе.. пусть человек учится
сам то, можно подумать, не говнокодил.
Топикстартеру рекомендую поставить openconf
правда эта приблуда учит скорее лени, чем хорошему кодингу.
Для профессионала ускоряет процесс разработки. Оч удобная штука, давно пользуюсь.
1
34 / 34 / 3
Регистрация: 31.03.2011
Сообщений: 197
19.07.2011, 10:37
Утро. Невыспался. Бухгалтер достал. Немного резковат я.
http://mista.ru/tutor_1c/index.htm вот, читать немного, а многие вопросы снимает.
1
0 / 0 / 0
Регистрация: 14.07.2011
Сообщений: 14
19.07.2011, 11:10  [ТС]
Всем биг спс!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 19.07.2011, 11:10
Помогаю со студенческими работами здесь

Можно ли как-то перегнать базу Access в MySQL?
можно ли как-то перегнать базу аксес в мускл? асес поддерживает скл запросы, значит можно?

Каким образом можно программно перегнать картинку bmp в pdf
Подскажите, пожалуйста, каким-то образом можно программно перегнать картинку bmp в pdf? и если да, то каким?

Можно ли как-нибудь расчеты вытащить и перегнать в формат .xmcd?
Доброго времени суток. Дело обстоит так. Есть сайт http://twt.mpei.ac.ru/TTHB/2/tdc.html в котором меня интересует расчет...

Можно из mdb в dbf все таблицы со связями?
Можно экспортировать в Dbase все таблицы нужной БД с сохранением всех связей, т.е. чтобы схема данных осталась такой же?

Можно-ли создать программно на VB базу данных FoxPro (*.dbf)?
Подскажите пожалуйста, а можно-ли создать программно на VB базу данных FoxPro (*.dbf) или так и суждено создавать только 'по умолчанию'...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru