1C - отчет, штрих коды.

[bamchi]

в конфигурации Торговля и склад, есть отчет. Отчеты-> товары-> остатки товаров.
стояло две задачи, в сформированном отчете сделать сортировку по группам товара и по цене.

Код:

		
        Запрос=СоздатьОбъект("Запрос");
	ТекстЗапроса="";
	ТекстЗапроса= ТекстЗапроса+"                         
		|ПЕРИОД С ДатаКонца По ДатаКонца;
		|Фирма=Регистр.ОстаткиТоваров.Фирма;
		|Склад=Регистр.ОстаткиТоваров.Склад;
		|Товар=Регистр.ОстаткиТоваров.Товар;
		|Кол=Регистр.ОстаткиТоваров.ОстатокТовара;

		 |Группировка Товар Упорядочить по Товар.УчетнаяЦена"+?(ПоказатьОстатки.ТекущаяСтрока()>=2," Все","")+";
//  	|Группировка Товар Упорядочить по Товар.Наименование"+?(ПоказатьОстатки.ТекущаяСтрока()>=2," Все","")+"; //так было раньше
		|Группировка Склад Все ВошедшиеВЗапрос;
		|Функция КонКол=КонОст(Кол);
		|Условие (Фирма=глПустаяФирма);";

При правке Упорядочить товар по наименованию, на учетная цена, происходит сортировка по цене, но переодически по тексту отчета встречается

• товар 100руб
• товар 110руб
• товар 120руб
• товар 170руб
• товар 130руб
• товар 180руб

хотя  никакой закономерности выявить не удалось
Вопрос - почему так может быть.


Вопрос номер два:
В том же самом отчете необходимо напротив каждого товара вывести его штрих-код, для формирования штрих-кода используется  barcode.ocx
Сейчас у меня выводится с таком виде:

наименование товара

шт

цена

штрихкод

Велосипед

100

500руб

2000001419014

а интересно, что необходимо дописать, что бы формировался сам штрих-код(черточки - полосочки)

Код:

     // получим параметры цены
			
		ЦенаЦены	= ЦенаТовара.Цена.Получить(ДатаКонца);
		ПечЦена = ЦенаЦены;                                               
		ПечСумма = Число(ПечОстаток)*ЦенаЦены;
		ОбщС = ОбщС + Число(ПечСумма);
      //   ВыбТовар=(Запрос.Товар.ШтрихКод);
     //	АВС=СоздатьОбъект("BARCODE.BarcodeCtrl.1");
    // ПечШтрихкод=Строка(ШтрихКод);
       
	    ПечШтрихкод=(Запрос.Товар.ШтрихКод); // этот запрос формирует мне цифровой штрихкод

[Kivals]

Вопрос 1: не понятно где и какую цену ты выводишь - может в выводе у тебя участвует не учетная цена, а что-то другое?
Вопрос 2: с barcode.ocx не работал - я использую бесплатные barcode шрифты
Судя по цифрам - у тебя обычный ЕАН-13, для его перевода в шрифт EANJK я использую следующую функцию:

Код:

// ===============================
Функция глШКодЕАН13(Знач Стр) Экспорт
	Перем С, С2, Ч, Режим, И1;

	С2="";
	// 290 - внутренний код, согласно http://ean.ua/uk/eanucc/vn_code.csp
	//С="290"+глКод9Цифр(Стр);

	С=глПроверитьШКод(Стр); // Имеем полный код ЕАН из 13 цифр

	Режим=ЕАН[Число(Лев(С,1))+1]+"AAAAAA";
	С=Сред(С,2); // убираем первую цифру;

	Для И1=1 По СтрДлина(С) Цикл
		С2=С2+Симв(КодСимв(Сред(Режим,И1,1))+Число(Сред(С,И1,1)));
	КонецЦикла;

	С2="|"+Лев(С2,6)+"-"+Сред(С2,7)+"|";

	Возврат С2;
КонецФункции

// где:
ЕАН[1] ="000000"; ЕАН[2] ="00a0aa"; ЕАН[3] ="00aa0a"; ЕАН[4] ="00aaa0"; ЕАН[5] ="0a00aa";
ЕАН[6] ="0aa00a"; ЕАН[7] ="0aaa00"; ЕАН[8] ="0a0a0a"; ЕАН[9] ="0a0aa0"; ЕАН[10]="0aa0a0";

Соответственно:

Код:

ПечШтрихкод=глШКодЕАН13(Запрос.Товар.ШтрихКод);

А для колонки на печатной форме должен быть установлен шрифт EAN JK или EAN JK Auto, проинсталированные из прикрепренного архива

[Глория]

|Группировка Товар Упорядочить по Товар.УчетнаяЦена"+?(ПоказатьОстатки.ТекущаяСтрока()>=2," Все","")+";

Что дает +?(ПоказатьОстатки.ТекущаяСтрока()>=2," Все","")+"?? Может ее следует вовсе убрать.