работа с внешним атрибутом

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
GTHack
Местный житель
Сообщения: 517
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск Новосибирск
Контактная информация:

работа с внешним атрибутом

Сообщение GTHack »

подскажите как мне в отчет вывести внешний аттрибут

подробнее
у таблицы "Партии товаров" (1430, katparty)есть внеш.аттрибут ГТД
его нужно запихать в счет-фактуру

как к нему вообще обращаться то ?

наименования внеш.атрибутов вообще в табл. attrnam храняться

в общем кому не трудно проясните ситуацию плиз с внешними атрибутами
[url=http://blog.gtalex.ru]Блог GTAlex[/url]
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Re: работа с внешним атрибутом

Сообщение m0p3e »

Я использую такой фейс:
//Получение значения атрибута с указанным форматом по имени

interface GetAttrForNameV AlwaysReturn;

Create View
var
RecNrec : comp;
NameAtr : string;
AtrValue: string;
FormatV : string;
as select
AttrNam.AttrType,
AttrVal.*
from
AttrNam(READONLY),
AttrVal(READONLY)
where ((
Attrnam.nrec == AttrVal.cAttrNam
and Attrnam.wTable == AttrVal.wTable
and RecNrec == AttrVal.crec
))and
(UpCase(AttrNam.name) = UpCase(NameAtr))
;

Parameters NameAtr,RecNrec,AtrValue,FormatV;

HandleEvent
cmInit : {
If GetFirst AttrNam <> tsOk
then Message('Запрошенный атрибут отсутствует в БД' + chr(13) +
NameAtr,1);
else {
If GetFirst AttrVal <> tsOk
then AtrValue := '';
else Case AttrNam.attrType Of
0: AtrValue := string(AttrVal.vString);
1: If FormatV = '' then AtrValue := DoubleToStr(AttrVal.vDouble,'6666666666667.88999999999999999999')
else AtrValue := DoubleToStr(AttrVal.vDouble,FormatV);
2: If FormatV = '' then AtrValue := DateToStr(AttrVal.vDate,'DD.MM.YYYY')
else AtrValue := DateToStr(AttrVal.vDate,FormatV);
3: If FormatV = '' then AtrValue := TimeToStr(AttrVal.vTime,'HH:MM')
else AtrValue := TimeToStr(AttrVal.vTime,FormatV);
else AtrValue := 'Ошибка атрибута';
end
}
Abort;
}
END;

END.
Alla
Постоянный обитатель
Сообщения: 109
Зарегистрирован: 29 мар 2005, 17:49
Контактная информация:

Re: работа с внешним атрибутом

Сообщение Alla »

.create view atr1 as
select katparty.name(fieldname=Partiya),
attrval.vstring(fieldname=Atribut)
from katparty,attrnam,attrval
where ((attrnam.nrec==attrval.cattrnam
and katparty.nrec==attrval.crec(noindex)))
and attrnam.wtable=1430
and attrnam.name='ГТД';
GTHack
Местный житель
Сообщения: 517
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск Новосибирск
Контактная информация:

Re: работа с внешним атрибутом

Сообщение GTHack »

Алла - спасибо огромное, прямо для меня написано !!!

МОРЗЕ - ну ты ваще крут! универсальный фейс - для меня пока еще рано, но в будущем пригодится

благодарствую всех!
выручили!
[url=http://blog.gtalex.ru]Блог GTAlex[/url]
vitali
Постоянный обитатель
Сообщения: 192
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г.Иркутск (это где Байкал, озеро такое) ОАО "Кедр" (ликеро-водка)
Контактная информация:

Re: работа с внешним атрибутом

Сообщение vitali »

Господа, зачем создавать себе кучу работы.
Все уже сделано до вас. Единственное, что надо - это правильно назвать атрибут и классификатор (внешний атрибут к партии должен называться ГТД, классификатор к партии - Страна происхождения) и в стандартной форме в нужных полях все появится. Если не указывать страну в классификаторе, то по умолчанию Россия.
GTHack
Местный житель
Сообщения: 517
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск Новосибирск
Контактная информация:

Re: работа с внешним атрибутом

Сообщение GTHack »

тут ты прав, но не все так просто в этом мире
щас новую тему в форуме Галактики задам - название будет "ГТД в счет-фактурах - связь с накладными" почитай
[url=http://blog.gtalex.ru]Блог GTAlex[/url]
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Re: работа с внешним атрибутом

Сообщение m0p3e »

>Если не указывать страну в классификаторе, то по умолчанию Россия.
А по законодательству должен быть прочерк!!! :)
Ответить