8.х Не выводит штрихкод в dbf файл

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем ezhik, 2 ноя 2010.

0/5, Голосов: 0
  1. TopicStarter Overlay
    ezhik
    Offline

    ezhik

    Регистрация:
    2 ноя 2010
    Сообщения:
    9
    Симпатии:
    0
    Баллы:
    1
    Добрый день, подскажите, пожалуйста, в чем проблема при использовании выгрузки: не выводит штрихкод, хотя остальные поля выгружаются нормально.

    Спасибо.


    //создаем DBF и выгружаем инфу

    Б = Новый XBase;
    Б.Кодировка = КодировкаXBase.OEM; //DOS кодировка
    //добавление полей
    Б.Поля.Добавить("pnt","N",13,0); //штрихкод
    Б.Поля.Добавить("nt","S",30,0); //название
    Б.Поля.Добавить("a","S",30,0); //аритикул
    Б.Поля.Добавить("m","S",15,0); //модель
    Б.Поля.Добавить("rr","S",15,0); //размер
    Б.Поля.Добавить("Color","S",15,0); //цвет
    Б.Поля.Добавить("ris","S",15,0); //страна
    Б.Поля.Добавить("pk","S",3,0); //сорт
    Б.Поля.Добавить("ei","S",5,0); //ед. измерения
    Б.Поля.Добавить("q","N",9,2); //количество
    Б.Поля.Добавить("cot","N",11,3); //цена
    Б.Поля.Добавить("cot_1gr","N",11,3); //цена за 1 гр
    Б.Поля.Добавить("pce","N",7,3); //Процент оптовой надбавки
    Б.Поля.Добавить("skidka","S",7,3); //процент скидки
    Б.Поля.Добавить("pnds","S",7,3); //процент НДС
    Б.Поля.Добавить("vst","S",20,0); //информация о вставках
    //создание файла
    Б.СоздатьФайл(ПутьКФайлуВыгрузки);
    Б.ЗакрытьФайл();

    //открытие файла
    Б.ОткрытьФайл(ПутьКФайлуВыгрузки);
    Если Б.Открыта()=0 Тогда
    Предупреждение("Не удалось открыть файл DBF", 30);
    Возврат;
    КонецЕсли;
    //добавление записи
    Для каждого СтрДокРеал из ДокументРеализации.Товары Цикл //парсим весь список

    Номенклатура = СтрДокРеал.Номенклатура;
    ХарактеристикаНоменклатуры = СтрДокРеал.ХарактеристикаНоменклатуры;
    СтрТабРеал = ТабЗнФайлОбмена.Добавить();

    Запрос = Новый Запрос("ВЫБРАТЬ
    | Штрихкоды.Штрихкод КАК Штрихкод
    |ИЗ
    | РегистрСведений.Штрихкоды КАК Штрихкоды
    |ГДЕ
    | Штрихкоды.Владелец = &Влад
    |И
    | Штрихкоды.ХарактеристикаНоменклатуры = &Хар");

    Запрос.УстановитьПараметр("Влад", СтрДокРеал.Номенклатура);
    Запрос.УстановитьПараметр("Хар", СтрДокРеал.ХарактеристикаНоменклатуры);
    // Запрос = Запрос.Выполнить().Выбрать();
    Выборка = Запрос.Выполнить().Выбрать();

    Пока Запрос.Следующий() Цикл
    СтрТабРеал.ШтрихКод = Запрос.ШтрихКод;
    КонецЦикла;

    // Если Выборка.Следующий() Тогда
    // СтрТабРеал.ШтрихКод = Выборка.ШтрихКод;
    // КонецЕсли;

    Б.Добавить();
    // Б.pnt=СокрЛП(СтрТабРеал.ШтрихКод);
    Б.pnt=Запрос.ШтрихКод;
    Б.nt=СокрЛП(СтрДокРеал.Номенклатура.НаименованиеПолное);
    Б.a=СокрЛП(СтрДокРеал.Номенклатура.Артикул);
    // Б.m=
    Б.rr=СокрЛП(СтрДокРеал.ХарактеристикаНоменклатуры);
    // Б.Color=
    Б.ris=СокрЛП(Номенклатура.СтранаПроисхождения);
    // Б.pk=
    Б.ei=СокрЛП(Номенклатура.БазоваяЕдиницаИзмерения);
    Б.q=СокрЛП(СтрДокРеал.Количество);
    Б.cot=СокрЛП(СтрДокРеал.Цена);
    // Б.cot_1gr=
    // Б.pce=
    // =СокрЛП(СтрДокРеал.СуммаНДС); //Сумма НДС
    Б.skidka=СокрЛП(СтрДокРеал.ПроцентСкидкиНаценки);
    Б.pnds=СокрЛП(СтрДокРеал.СтавкаНДС);
    // Б.vst=
    Б.Записать();
    КонецЦикла;

    //закрытие файла
    Б.ЗакрытьФайл();
    Предупреждение("Файл сформирован.", 30);

    //конец DBF
    ezhik, 2 ноя 2010
    #1
  2. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.143
    Симпатии:
    553
    Баллы:
    204
    Строчка Б.pnt=Запрос.ШтрихКод; должно быть так:
    Б.pnt=Выборка.ШтрихКод;
    Вы же в цикле запрос перебираете.
    Пока Запрос.Следующий() Цикл
    СтрТабРеал.ШтрихКод = Запрос.ШтрихКод;
    КонецЦикла;
    alexburn, 2 ноя 2010
    #2
  3. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.143
    Симпатии:
    553
    Баллы:
    204
    Ошибки в алгоритме. Выбирается для Выборка, а перебор для Запрос.
    alexburn, 2 ноя 2010
    #3
  4. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.878
    Симпатии:
    452
    Баллы:
    104
    Сделайте поле штрихкода в DBF текстовым и будет вам счастье
    Бухгалтерский угодник, 2 ноя 2010
    #4
  5. TopicStarter Overlay
    ezhik
    Offline

    ezhik

    Регистрация:
    2 ноя 2010
    Сообщения:
    9
    Симпатии:
    0
    Баллы:
    1
    Спасибо за совет, но все-равно не выводит
    ezhik, 2 ноя 2010
    #5
  6. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.878
    Симпатии:
    452
    Баллы:
    104
    ШК - это текст. А поле числовое
    Бухгалтерский угодник, 2 ноя 2010
    #6
  7. TopicStarter Overlay
    ezhik
    Offline

    ezhik

    Регистрация:
    2 ноя 2010
    Сообщения:
    9
    Симпатии:
    0
    Баллы:
    1
    Не помогает(
    Если поле текстовое, ничего не выводит, если цифровое то нули
    ezhik, 2 ноя 2010
    #7
  8. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.878
    Симпатии:
    452
    Баллы:
    104
    Значит СтрТабРеал.ШтрихКод не содержит штрихкод
    Бухгалтерский угодник, 2 ноя 2010
    #8
  9. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.143
    Симпатии:
    553
    Баллы:
    204
    Там походу выборки по штриху нет, нужно одну строчку разкомментировать:
    // Запрос = Запрос.Выполнить().Выбрать();
    alexburn, 2 ноя 2010
    #9
  10. TopicStarter Overlay
    ezhik
    Offline

    ezhik

    Регистрация:
    2 ноя 2010
    Сообщения:
    9
    Симпатии:
    0
    Баллы:
    1
    Бухи утверждают, что есть. Будем смотреть
    Спасибо за помощь.

    alexburn, спасибо, но не помогло
    (вместо Б.pnt=Выборка.ШтрихКод; вернул Б.pnt=Запрос.ШтрихКод; иначе ошибку выдавало "{Форма.Форма(125,7)}: Переменная не определена (Выборка)")
    ezhik, 2 ноя 2010
    #10
  11. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.143
    Симпатии:
    553
    Баллы:
    204
    Так и цикл организуйте по Запрос:
    Код:
    Запрос = Запрос.Выполнить().Выбрать();
Пока Запрос.Следующий() Цикл
ШтрихКод = Запрос.ШтрихКод;
КонецЦикла;
Б.pnt=.ШтрихКод;
    В этом коде понятно что происходит?
    alexburn, 2 ноя 2010
    #11
  12. TopicStarter Overlay
    ezhik
    Offline

    ezhik

    Регистрация:
    2 ноя 2010
    Сообщения:
    9
    Симпатии:
    0
    Баллы:
    1
    Пробегает по файлу, запрашивает штрихкод и заносит в переменную ШтрихКод и выводим через Б.pnt.ШтрихКод ?
    ezhik, 2 ноя 2010
    #12
  13. shurikvz
    Offline

    shurikvz Модераторы Команда форума Модератор

    Регистрация:
    1 окт 2009
    Сообщения:
    8.469
    Симпатии:
    333
    Баллы:
    104
    ezhik, у вас первый пост не оформлен тэгом code, мне трудно разобрать. Запостите еще раз ваш код на текущий момент (только пожалуйста с использованием оформления), и закоментированные строки (кода) тоже удалите.
    shurikvz, 2 ноя 2010
    #13
  14. TopicStarter Overlay
    ezhik
    Offline

    ezhik

    Регистрация:
    2 ноя 2010
    Сообщения:
    9
    Симпатии:
    0
    Баллы:
    1
    Код:
    //создаем DBF и выгружаем инфу

Б = Новый XBase;
Б.Кодировка = КодировкаXBase.OEM; //DOS кодировка
//добавление полей
Б.Поля.Добавить("pnt","N",13,0); //штрихкод
Б.Поля.Добавить("nt","S",30,0); //название
Б.Поля.Добавить("a","S",30,0); //аритикул
Б.Поля.Добавить("m","S",15,0); //модель
Б.Поля.Добавить("rr","S",15,0); //размер
Б.Поля.Добавить("Color","S",15,0); //цвет
Б.Поля.Добавить("ris","S",15,0); //страна
Б.Поля.Добавить("pk","S",3,0); //сорт
Б.Поля.Добавить("ei","S",5,0); //ед. измерения
Б.Поля.Добавить("q","N",9,2); //количество
Б.Поля.Добавить("cot","N",11,3); //цена
Б.Поля.Добавить("cot_1gr","N",11,3); //цена за 1 гр
Б.Поля.Добавить("pce","N",7,3); //Процент оптовой надбавки
Б.Поля.Добавить("skidka","S",7,3); //процент скидки
Б.Поля.Добавить("pnds","S",7,3); //процент НДС
Б.Поля.Добавить("vst","S",20,0); //информация о вставках
//создание файла
Б.СоздатьФайл(ПутьКФайлуВыгрузки);
Б.ЗакрытьФайл();

//открытие файла
Б.ОткрытьФайл(ПутьКФайлуВыгрузки);
Если Б.Открыта()=0 Тогда 
Предупреждение("Не удалось открыть файл DBF", 30);
Возврат;
КонецЕсли;
//добавление записи
Для каждого СтрДокРеал из ДокументРеализации.Товары Цикл //парсим весь список

Номенклатура = СтрДокРеал.Номенклатура;
ХарактеристикаНоменклатуры = СтрДокРеал.ХарактеристикаНоменклатуры;
СтрТабРеал = ТабЗнФайлОбмена.Добавить();

Запрос = Новый Запрос("ВЫБРАТЬ
| Штрихкоды.Штрихкод КАК Штрихкод
|ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
| Штрихкоды.Владелец = &Влад
|И
| Штрихкоды.ХарактеристикаНоменклатуры = &Хар");

Запрос.УстановитьПараметр("Влад", СтрДокРеал.Номенклатура);
Запрос.УстановитьПараметр("Хар", СтрДокРеал.ХарактеристикаНоменклатуры);

Запрос = Запрос.Выполнить().Выбрать();
Пока Запрос.Следующий() Цикл
ШтрихКод = Запрос.ШтрихКод;
КонецЦикла;

Б.Добавить();
Б.pnt=Запрос.ШтрихКод;
Б.nt=СокрЛП(СтрДокРеал.Номенклатура.НаименованиеПолное);
Б.a=СокрЛП(СтрДокРеал.Номенклатура.Артикул);
Б.rr=СокрЛП(СтрДокРеал.ХарактеристикаНоменклатуры);
Б.ris=СокрЛП(Номенклатура.СтранаПроисхождения);
Б.ei=СокрЛП(Номенклатура.БазоваяЕдиницаИзмерения);
Б.q=СокрЛП(СтрДокРеал.Количество);
Б.cot=СокрЛП(СтрДокРеал.Цена);
Б.skidka=СокрЛП(СтрДокРеал.ПроцентСкидкиНаценки);
Б.pnds=СокрЛП(СтрДокРеал.СтавкаНДС);
Б.Записать();
КонецЦикла;

//закрытие файла
Б.ЗакрытьФайл();
Предупреждение("Файл сформирован.", 30);

//конец DBF
    ezhik, 2 ноя 2010
    #14
  15. shurikvz
    Offline

    shurikvz Модераторы Команда форума Модератор

    Регистрация:
    1 окт 2009
    Сообщения:
    8.469
    Симпатии:
    333
    Баллы:
    104
    Ну чисто теоретически должно работать, только кривовато.
    Перепишите участок кода, так попробуйте (не проверял):
    Код:
    //добавление записи
Запрос = Новый Запрос;
Запрос.ТекстЗапроса = "ВЫБРАТЬ РАЗЛИЧНЫЕ
|	ЕСТЬNULL(Штрихкоды.Штрихкод, "") КАК Штрихкод,
|	ВЫРАЗИТЬ(РеализацияТоваровУслугТовары.Номенклатура.НаименованиеПолное КАК СТРОКА(200)) КАК ПолноеНаименование,
|	РеализацияТоваровУслугТовары.Номенклатура.Артикул КАК Артикул,
|	РеализацияТоваровУслугТовары.ХарактеристикаНоменклатуры,
|	РеализацияТоваровУслугТовары.Номенклатура.СтранаПроисхождения КАК СтранаПроисхождения,
|	РеализацияТоваровУслугТовары.Номенклатура.БазоваяЕдиницаИзмерения КАК БазоваяЕдиницаИзмерения,
|	РеализацияТоваровУслугТовары.Количество,
|	РеализацияТоваровУслугТовары.Цена,
|	РеализацияТоваровУслугТовары.ПроцентСкидкиНаценки,
|	РеализацияТоваровУслугТовары.СтавкаНДС
|ИЗ
|	Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
|		ПО РеализацияТоваровУслугТовары.Номенклатура = Штрихкоды.Владелец
|			И РеализацияТоваровУслугТовары.ХарактеристикаНоменклатуры = Штрихкоды.ХарактеристикаНоменклатуры
|ГДЕ
|	РеализацияТоваровУслугТовары.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", ДокументРеализации);
Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл
//Для отладки
//Сообщить(СокрЛП(Выборка.ПолноеНаименование) + " - " + Строка(Выборка.ШтрихКод));
Б.Добавить();

Б.pnt	= Строка(Выборка.ШтрихКод);
Б.nt	= СокрЛП(Выборка.ПолноеНаименование);
Б.a	= СокрЛП(Выборка.Артикул);
Б.rr	= Строка(Выборка.ХарактеристикаНоменклатуры);
Б.ris	= Строка(Выборка.СтранаПроисхождения);
Б.ei	= Строка(Выборка.БазоваяЕдиницаИзмерения);
Б.q	= Выборка.Количество;
Б.cot	= Выборка.Цена;
Б.skidka	= Выборка.ПроцентСкидкиНаценки;
Б.pnds	= Строка(Выборка.СтавкаНДС);

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

//закрытие файла



    И поле штрихкод в dbf на строковое переделайте.
    shurikvz, 2 ноя 2010
    #15
  16. TopicStarter Overlay
    ezhik
    Offline

    ezhik

    Регистрация:
    2 ноя 2010
    Сообщения:
    9
    Симпатии:
    0
    Баллы:
    1
    поле строковое

    Ваш вариант выдает ошибку:
    {Форма.Форма(97)}: Поле объекта не обнаружено (ТекстЗапроса)
    Запрос.ТекстЗапроса = "ВЫБРАТЬ РАЗЛИЧНЫЕ
    ezhik, 2 ноя 2010
    #16
  17. shurikvz
    Offline

    shurikvz Модераторы Команда форума Модератор

    Регистрация:
    1 окт 2009
    Сообщения:
    8.469
    Симпатии:
    333
    Баллы:
    104
    Описка.
    Код:
    Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
    М? Точно?
    Код:
    Б.Поля.Добавить("pnt","N",13,0); //штрихкод
    "N"!
    shurikvz, 2 ноя 2010
    #17
  18. TopicStarter Overlay
    ezhik
    Offline

    ezhik

    Регистрация:
    2 ноя 2010
    Сообщения:
    9
    Симпатии:
    0
    Баллы:
    1
    Ошибка:
    {Форма.Форма(116)}: Ошибка при вызове метода контекста (Выполнить): {(2, 31)}: Строка, не закрывающаяся кавычкой
    ЕСТЬNULL(Штрихкоды.Штрихкод, <<?>>") КАК Штрихкод,
    Выборка = Запрос.Выполнить().Выбрать();

    я имел ввиду, что исправил на строковое
    ezhik, 2 ноя 2010
    #18
  19. shurikvz
    Offline

    shurikvz Модераторы Команда форума Модератор

    Регистрация:
    1 окт 2009
    Сообщения:
    8.469
    Симпатии:
    333
    Баллы:
    104
    Ну я же в консоли писал не проверяя - исправьте на ЕСТЬNULL(Штрихкоды.Штрихкод, """")
    shurikvz, 2 ноя 2010
    #19
  20. TopicStarter Overlay
    ezhik
    Offline

    ezhik

    Регистрация:
    2 ноя 2010
    Сообщения:
    9
    Симпатии:
    0
    Баллы:
    1
    Всем большое спасибо.
    ezhik, 2 ноя 2010
    #20
Похожие темы
  1. Сандра

    7.7 как к справочнику присоеденить файл в формате .pdf и затем просматривать этот файл

    Сандра, 5 июл 2010, в разделе: Общие вопросы "1С:Предприятие 7.7"
    Ответов:
    12
    Просмотров:
    2.832
    Бухгалтерский угодник
    9 июл 2010
  2. dobrodeev

    8.х Отчет «Анализ доступности товаров на складах»Почему одни строчки выводит в отчет, другие не выводит.

    dobrodeev, 20 окт 2010, в разделе: Общие вопросы "1С:Предприятие 8"
    Ответов:
    1
    Просмотров:
    817
    Misha123
    21 окт 2010
  3. materiy_boec

    8.х Файл Temp не обнаружен! При попытке обновить кофнигурацию вылезает ошибка - не найден файл Temp

    materiy_boec, 21 окт 2014, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    7
    Просмотров:
    1.532
    materiy_boec
    21 окт 2014
Загрузка...

Поделиться этой страницей