Проблема - Выводиться только одна МЦ у которой заполнены все атрибуты и классификаторы
=============
КОД
=============
Interface Price_Canc_main 'Прайс - Лист ' Gray;
var
Price_nrec : Comp;
view
as
select
GroupMc.Name,
PRICES.CKLPRICE,
PRICES.KOD,
PRICES.BARKOD,
PRICES.name,
KATOTPED.NAME,
PRICES.PRICE,
AttrVal.VString, // описание 1
AttrVal2.VString, // описание 2
AttrVal3.VString, // описание 3
AttrVal4.VString, // Артикул
EXCLASSSEG.Name, // Фирма производитель (Торговая марка)
AttrVal5.VString, // Страна происхождения
AttrVal6.VString // Кол-во в упаковке (для прайса)
from
synonym AttrVal AttrVal2 ,
synonym ATTRNAM ATTRNAM2 ,
synonym AttrVal AttrVal3 ,
synonym ATTRNAM ATTRNAM3 ,
synonym AttrVal AttrVal4 ,
synonym ATTRNAM ATTRNAM4 ,
synonym AttrVal AttrVal5 ,
synonym ATTRNAM ATTRNAM5 ,
synonym AttrVal AttrVal6 ,
synonym ATTRNAM ATTRNAM6
Where
((
comp(Price_nrec) == PRICES.CKLPRICE and
PRICES.COTPED == KATOTPED.nrec and
// Описание 1
PRICES.CTHING == katmc.nrec and
Katmc.CGroupMc == GroupMC.NRec and
cokatmc == ATTRVAL.Wtable and
katmc.nrec == AttrVal.crec and
ATTRNAM.nrec == AttrVal.CAttrNAM and
cokatmc == ATTRNAM.wtable and
'Наименование для прайса 1' == ATTRNAM.name
and
// Описание 2
cokatmc == ATTRVAL2.Wtable and
katmc.nrec == AttrVal2.crec and
ATTRNAM2.nrec == AttrVal2.CAttrNAM and
cokatmc == ATTRNAM2.wtable and
'Наименование для прайса 2' == ATTRNAM2.name
and
// Описание 3
cokatmc == ATTRVAL3.Wtable and
katmc.nrec == AttrVal3.crec and
ATTRNAM3.nrec == AttrVal3.CAttrNAM and
cokatmc == ATTRNAM3.wtable and
'Наименование для прайса 3' == ATTRNAM3.name
and
// Артикул
cokatmc == ATTRVAL4.Wtable and
katmc.nrec == AttrVal4.crec and
ATTRNAM4.nrec == AttrVal4.CAttrNAM and
cokatmc == ATTRNAM4.wtable and
'Артикул' == ATTRNAM4.name
and
// Фирма производитель (торговая марка)
coKatMc == ExClassName.wTable and
'Торговая марка'== ExClassName.Name and
ExClassName.ClassCode==ExClassVal.ClassCode and
ExClassname.wTable== ExClassVal.wTable and
KatMc.NREC == ExClassVal.cRec and
ExClassVal.cClassSeg == ExClassSeg.NREC
and
// Страна происхождения (АТРИБУТ Страна производитель)
cokatmc == ATTRVAL5.Wtable and
katmc.nrec == AttrVal5.crec and
ATTRNAM5.nrec == AttrVal5.CAttrNAM and
cokatmc == ATTRNAM5.wtable and
'Страна производитель' == ATTRNAM5.name
and
// Кол-во в упаковке (для прайса) (АТРИБУТ Кол-во в упаковке (для прайса))
cokatmc == ATTRVAL6.Wtable and
katmc.nrec == AttrVal6.crec and
ATTRNAM6.nrec == AttrVal6.CAttrNAM and
cokatmc == ATTRNAM6.wtable and
'Кол-во в упаковке (для прайса)' == ATTRNAM6.name
))
;
//Parameters
// SDate, //Фильтр по датам
// EDate; //Фильтр по датам
Browse MyPrice1 ('Прайс Лист');
fields
//
PRICES.BARKOD 'Код' :[10], Protect;
PRICES.name + ' ' + AttrVal.VString + ' ' + AttrVal2.VString + ' ' + AttrVal3.VString 'Наименование' :[50] , Protect;
KATOTPED.NAME 'Ед Изм' :[5] , protect;
EXCLASSSEG.Name 'Фирма производ.' :[10] , Protect,skip;
AttrVal5.VString 'Страна происхожд.' :[10] , Protect,skip;
AttrVal4.VString 'Артикул' :[10] , protect,skip;
AttrVal6.VString 'Кол-во в уп' :[10] , protect,skip;
PRICES.PRICE 'Цена' :[10,2] , protect,skip;
end; // Table ;
HandleEvent
// Инициализация ...
cmInit :
{
RunInterface(GetKlPr, Price_nrec, word(1), word(1), word(0));
}
// По Enter вызываем обработку ....
// cmDefault :
//
End; //HandleEvent
End.