Имя: Пароль:
1C
1С v8
Выгрузка в dbf
,
0 Irina1c
 
03.11.12
11:31
Выгружаю по примеру  http://www.1s-portal.ru/index.php/besplatnye-materialy/stati/obmendannymi/13-dbf/73-vygruzka-i-zagruzka-dannyh-cherez-dbf.html

мой код

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

   БД = Новый XBase;
   БД.Поля.Добавить("DATADOC","D",8);    
   БД.Поля.Добавить("NOMDOC","C",15);    
   БД.Поля.Добавить("IZDAT","C",20);
   БД.Поля.Добавить("NAIMEN","C",250);
   БД.Поля.Добавить("AVTOR","C",50);
   БД.Поля.Добавить("SERIA","C",100);
   БД.Поля.Добавить("ASSORTGR","C",150);
   БД.Поля.Добавить("JANR","C",100);
   БД.Поля.Добавить("ARTICUL","C",18);
   БД.Поля.Добавить("EAN","C",13);
   БД.Поля.Добавить("ISBN","C",150);
   БД.Поля.Добавить("EAN","C",13);
   БД.Поля.Добавить("KOL","N",11);
   БД.Поля.Добавить("CENA","N",15);
   БД.Поля.Добавить("SUMMA","N",15);
   БД.Поля.Добавить("STNDS","N",2);
   БД.Поля.Добавить("SUMMANDS","N",15);
   БД.Поля.Добавить("CENBNDS","N",15);
   БД.Поля.Добавить("SUMMBNDS","N",15);
   БД.Поля.Добавить("STNDRT","N",3);
   БД.Поля.Добавить("SHSERIA","C",100);
   БД.Поля.Добавить("WEIGHT","N",15);
   БД.Поля.Добавить("TIRAGE","D",8);
   БД.Поля.Добавить("GTD","C",30);
   БД.Поля.Добавить("COUNTRY","C",30);
   БД.Поля.Добавить("GODIZD","C",30);
   БД.Поля.Добавить("KOLSTR","N",6);
   БД.Поля.Добавить("PUBLIC","C",30);
   БД.Поля.Добавить("TEMA","C",30);
   БД.СоздатьФайл("E:\1.dbf");
   Для каждого СтрокаТовар из СсылкаНаОбъект.Товары Цикл
       БД.Добавить();
       БД.DATADOC =Лев(СсылкаНаОбъект.Дата,10);
       БД.NOMDOC = СсылкаНаОбъект.Номер;
       БД.NAIMEN = СтрокаТовар.Номенклатура.ПолноеНаименование();
       БД.ARTICUL = СтрокаТовар.Номенклатура.Код;
       БД.EAN = СтрокаТовар.Штрихкод;
       БД.ISBN = СтрокаТовар.Номенклатура.Артикул;
       БД.KOL = СтрокаТовар.Количество;
       БД.CENA = СтрокаТовар.Цена;
       БД.SUMMA = СтрокаТовар.Сумма;
       БД.STNDS =  СтрокаТовар.СтавкаНДС;
       БД.SUMMBNDS = СтрокаТовар.СуммаНДС;
       БД.COUNTRY = СтрокаТовар.Номенклатура.СтранаПроисхождения;
       БД.PUBLIC = "";
       БД.TEMA = "";
   КонецЦикла;
   БД.ЗакрытьФайл();

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

Файл с нужной структурой создается, но там нет ни одной строки. В чем может быть проблема?
1 ДенисЧ
 
03.11.12
11:31
А где Запимсать*( ???
2 zak555
 
03.11.12
11:35
вы случаем не из перми ?
3 Конфигуратор1с
 
03.11.12
11:38
(1)+100500
4 Отладчик
 
03.11.12
11:47
(1)-(2) - молодец, просто К.О.
5 Конфигуратор1с
 
03.11.12
11:52
(4) К.О. - Капитан Отладчик?
6 Отладчик
 
03.11.12
11:54
(5) Это двойка (
7 Конфигуратор1с
 
03.11.12
11:57
(6)Вы так туманно изъясняетесь, что вводите меня в состояния ступора. Не могли бы Вы пояснить суть ваших постов?
8 Wobland
 
03.11.12
12:09
(1) а это надо у Асмодея спросить, почему девушка фото добавляет в личку, а оно не записывается
9 Отладчик
 
03.11.12
12:33
(7) Лень. Пускай (2) разъяснит нахера ему два ника.
А К.О. - это всегда ваш кэп, капитан Очевидность. Собственно (1) Всё сказал. А если до сих пор ничего не работает, советую сделать так: regsv32 directhands.dll
10 Отладчик
 
03.11.12
12:36
Да, БД.Запимсать в тело цикла не ступи запихнуть. А то же впишешь между
КонецЦикла;
БД.ЗакрытьФайл();
11 zak555
 
03.11.12
13:23
(9) ты про какие два ника ?
12 Конфигуратор1с
 
03.11.12
14:18
(9)Так это два разных товарища )
Закон Брукера: Даже маленькая практика стоит большой теории.