VPF::Выгрузка документов - Форум программистов

Тиль

Дата 5.2.2007, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

Есть такая засада:Надо выгрузить некоторый документы(например Поступление материалов) чтобы выгружалась и шапка (склад, число) и табличная часть (наименование товара, количество). В любой файл, все равно потом в базу Accsess подгружать. Никто не подскажет как сделать?

--------------------

Казалось нам пипец, оказалось что не казалось

Naghual

Дата 5.2.2007, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 5
Всего: 49

Выгружай в ДБФ. Примеров масса!

--------------------

Я желаю всем Счастья!

_Valery_

Дата 5.2.2007, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 22.1.2007
Где: Москва, Вешняки

Репутация: 6
Всего: 6

http://1c-esse.buter.ru/load_esse.php?pg=38

--------------------

Ты добрый, это хорошо. Это по жизни очень пригодится...другим.

Тиль

Дата 6.2.2007, 06:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

Начсет справочника проблем нет. А вот как выгрузить приходку вместе с табличной частью?
чтоб было примерно так  на выходе:
21.12.2005 Приходная накладная№1 Товар№1   3(количество)
21.12.2005 Приходная накладная№1 Товар№2   5(количество)
21.12.2005 Приходная накладная№1 Товар№3   1(количество)
21.12.2005 Приходная накладная№1 Товар№4   2(количество)
21.12.2005 Приходная накладная№1 Товар№5   9(количество)

--------------------

Казалось нам пипец, оказалось что не казалось

_Valery_

Дата 6.2.2007, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 22.1.2007
Где: Москва, Вешняки

Репутация: 6
Всего: 6

Так та же самая фигня, только номер и дата документа - для одного документа не меняются, а табличную часть надо перебирать.
Что-то типа такого:

Код


Х=СоздатьОбъект("XBase"); 
    
    Х.ДобавитьПоле("DATA_DOC", "D", 10, 0);
    Х.ДобавитьПоле("NUMBER_DOC", "S", 10, 0);
    Х.ДобавитьПоле("TOVAR", "S", 25, 0);   
    Х.ДобавитьПоле("KOL", "N", 10, 2); 
    
    Х.СоздатьФайл("C:\tovari.dbf");   
    
    Приходник = СоздатьОбъект("Документ.ПоступлениеМатериалов");
    Приходник.НайтиДокумент(Док); // Док - документ, который надо выгрузить в dbf, если он выбирается в форме
    Приходник.ВыбратьСтроки();
    
    Пока Приходник.ПолучитьСтроку() = 1 Цикл
        Х.Добавить();
        Х.DATA_DOC = Приходник.ДатаДок;
        Х.NUMBER_DOC = Приходник.НомерДок;
        Х.TOVAR = Приходник.Материал.Наименование;
        Х.KOL = Приходник.Количество;
        Х.Записать(); 
    КонецЦикла;

    Х.ЗакрытьФайл();

Если надо выгрузить доки за период, то еще один циклик сверху

Код



Приходник.ВыбратьДокументы(Дата1, Дата2);

Пока Приходник.ПолучитьДокумент() = 1 Цикл
..............................

ну и т.д.

--------------------

Ты добрый, это хорошо. Это по жизни очень пригодится...другим.

Тиль

Дата 7.2.2007, 07:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 27.2.2006

Репутация: нет
Всего: нет

[code=nocolor]
Процедура Сформировать()
Х=СоздатьОбъект("XBase");

    Х.ДобавитьПоле("DATA_DOC", "D", 10, 0);
    Х.ДобавитьПоле("NUMBER_DOC", "S", 10, 0);
    Х.ДобавитьПоле("TOVAR", "S", 25, 0);
    Х.ДобавитьПоле("KOL", "N", 10, 2);

    Х.СоздатьФайл("C:\tovari.dbf");

    Приходник = СоздатьОбъект("Документ.ПоступлениеМатериалов");
    Приходник.НайтиДокумент(Док); // Док - документ, который надо выгрузить в dbf, если он выбирается в форме
    Приходник.ВыбратьСтроки();

    Пока Приходник.ПолучитьСтроку() = 1 Цикл
        Х.Добавить();
        Х.DATA_DOC = Приходник.ДатаДок;
        Х.NUMBER_DOC = Приходник.НомерДок;
        Х.TOVAR = Приходник.Материал.Наименование;
        Х.KOL = Приходник.Количество;

Код



       Х.Записать(); 
    КонецЦикла;

    Х.ЗакрытьФайл();
КонецПроцедуры

дает ошибку

Код


Переменная не определена (Док)

Куда ее сувать то?

--------------------

Казалось нам пипец, оказалось что не казалось

_Valery_

Дата 7.2.2007, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 22.1.2007
Где: Москва, Вешняки

Репутация: 6
Всего: 6

А куда ты этот код засунул?) В отдельную обработку по выгрузке или как?... smile

--------------------

Ты добрый, это хорошо. Это по жизни очень пригодится...другим.

_Valery_

Дата 9.2.2007, 00:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 22.1.2007
Где: Москва, Вешняки

Репутация: 6
Всего: 6

Ну у меня предполагалось что Док - это переменная формы. Т.е. в форме выгрузки есть поле "Док" типа Документ.ПоступлениеМатериалов. Выбирается документ из соответствующего журнала, а потом по кнопке "Сформировать" - выгружается в dbf.
Но целесообразнее организовать выгрузку документов за период, я думаю...

--------------------

Ты добрый, это хорошо. Это по жизни очень пригодится...другим.

_Valery_

Дата 14.2.2007, 00:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 153
Регистрация: 22.1.2007
Где: Москва, Вешняки

Репутация: 6
Всего: 6

Код


Процедура Выполнить()

    Х=СоздатьОбъект("XBase"); 
    
    Х.ДобавитьПоле("DATA_DOC", "D", 10, 0);
    Х.ДобавитьПоле("NUMBER_DOC", "S", 10, 0);
    Х.ДобавитьПоле("TOVAR", "S", 25, 0);   
    Х.ДобавитьПоле("KOL", "N", 10, 2); 
    
    Х.СоздатьФайл("C:\tovari.dbf");   
    
    Приходник = СоздатьОбъект("Документ.ПоступлениеМатериалов");
    ВыгружаемыйДок = СоздатьОбъект("Документ.ПоступлениеМатериалов"); 
 
    Приходник.ВыбратьДокументы("01.01.01","01.02.07");

    Пока Приходник.ПолучитьДокумент() = 1 Цикл
        ВыгружаемыйДок.НайтиДокумент(Приходник.ТекущийДокумент());
        ВыгружаемыйДок.ВыбратьСтроки();
        Пока ВыгружаемыйДок.ПолучитьСтроку() = 1 Цикл
          Х.Добавить();
          Х.DATA_DOC = ВыгружаемыйДок.ДатаДок;
          Х.NUMBER_DOC = ВыгружаемыйДок.НомерДок;
          Х.TOVAR = ВыгружаемыйДок.Материал.Наименование;
          Х.KOL = ВыгружаемыйДок.Количество;
          Х.Записать(); 
        КонецЦикла;
    КонецЦикла;

    Х.ЗакрытьФайл();

КонецПроцедуры

- это если хочешь внешей обработкой выгрузить документы типа "Поступление материалов" за период с 01.01.2001 по 01.02.207. Ну а далее модификации... smile

--------------------

Ты добрый, это хорошо. Это по жизни очень пригодится...другим.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| 1C: Предприятие, SAP, ERP и учётные системы \| Следующая тема »