cos xdata

Class rivegauche.XDataRep Extends %RegisteredObject
{

ClassMethod getFormattedTextByName(name As %String) As %String
{
	s stream = ##class(%Dictionary.CompiledXData).%OpenId(..%ClassName(1)_"||"_"queriesTo1C").Data
	d ##class(%XML.TextReader).ParseStream(stream,.reader)

	s text = ""
	while reader.Read() {
		if reader.Name = name {
			d reader.Read()
			s text = reader.Value
			q
		}
	}

	q text
}

XData queriesTo1C
{
<root>
<accum><![CDATA[
ВЫБРАТЬ
	Остатки.Склад КАК Склад,
	Остатки.Номенклатура КАК Номенклатура,
	Остатки.КоличествоОстаток КАК Количество
ИЗ
	РегистрНакопления.Себестоимость.Остатки(
			НАЧАЛОПЕРИОДА(&Дата, МЕСЯЦ),
			Склад В (&Склады)
				И Номенклатура = &Номенклатура) КАК Остатки
]]></accum>
<barcode><![CDATA[
ВЫБРАТЬ
	Штрихкоды.Владелец КАК Номенклатура,
	Штрихкоды.Штрихкод КАК Штрихкод
ИЗ
	РегистрСведений.Штрихкоды КАК Штрихкоды
ГДЕ
	Штрихкоды.ТипШтрихкода = ЗНАЧЕНИЕ(ПланВидовХарактеристик.ТипыШтрихкодов.EAN13)
	И Штрихкоды.Владелец ССЫЛКА Справочник.Номенклатура
]]></barcode>
</root>
}
}