Имя Абонента
Добавлено: 22 сен 2011, 11:08
Доброго времени суток ребят) Расскажите пожалуйста а как вытащить имя Абонента(Имя офиса в котором мы сейчас работаем) ??
За ранее спасибо
![Confused :?](./images/smilies/178.gif)
Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://asu.tyumbit.ru/
Код: Выделить всё
select abonents.name from x$users,abonents where ((userid == x$users.atl_nrec and x$users.xu$useroffice == abonents.officeno ));
m0p3e писал(а):Если правильно понял вопрос:Код: Выделить всё
select abonents.name from x$users,abonents where ((userid == x$users.atl_nrec and x$users.xu$useroffice == abonents.officeno ));
Код: Выделить всё
.create view as select abonents.name from x$users,abonents where ((userid == x$users.atl_nrec and x$users.xu$useroffice == abonents.officeno ));
.....
.fields
If(a.getfirst abonents,a.abonents.name,'')
.endfields
^
m0p3e писал(а):Видимо, что-то неправильно делаете![]()
Код: Выделить всё
.create view as select abonents.name from x$users,abonents where ((userid == x$users.atl_nrec and x$users.xu$useroffice == abonents.officeno )); ..... .fields If(a.getfirst abonents,a.abonents.name,'') .endfields ^
Код: Выделить всё
.LinkForm 'TOVTRANSNAKLAD2011' Prototype is PRBDOC
.Group 'Продажа'
.NameInList 'Накладная Т-1 25.07.11'
!----------------------------------------
.create view Abongorod
as select abonents.name
from
x$users,
abonents
where
((
userid == x$users.atl_nrec
and x$users.xu$useroffice == abonents.officeno
));
.create view vSpStep
from
SpStep (ReadOnly),
KatParty (ReadOnly)
where
((
PosNRec == SpStep.nRec
and SpStep.cParty == KatParty.nRec
));
.Create view SchKpp
from
BaseDoc (ReadOnly),
KatOrg OrgFrom (ReadOnly),
KatOrg OrgTo (ReadOnly),
KatOrg OrgPol (ReadOnly) ,
Dogovor AppDogovor (ReadOnly)
where
((
BaseDocNrec == BaseDoc.nRec
and BaseDoc.corg==OrgTo.nrec
and BaseDoc.cGrOtpr==OrgFrom.nrec
and BaseDoc.cGrPol==OrgPol.nrec
and BaseDoc.cDogovor==Dogovor.nrec
and BaseDoc.cAppDogovor==AppDogovor.nrec
));
!-------------------------------------------------------------------
.var
pos:integer;
kolitog:double;
Akciz : double
CenaAk : double
summatov : double
SumAk : double
totSumAk : double
.endvar
!-------------------------------------------------------------------
.var
SrcCountry, // Новые графы СФ "Страна происхождения"
GTDNumber : string; // "Номер ГТД"
AddrDost : string; // «Адрес доставки»
skladfio :string; // кладовщик
skladfio1 :string; // ещё ФИО
.endvar
!-------------------------------------------------------------------
.function ft_sGetClass(cotbl: word; crec: comp; scl: string): string;
#ifNdef _ExtClass_Func
#error Необходимо подключить ExtClass.vih
#end
var
ExCl: iExtClass;
scl2: string;
begin
ft_sGetClass := '';
scl2 := Trim(scl);
if ((cotbl = 0) or (scl2 = '') or (crec = comp(0))) exit;
ft_sGetClass := ExCl.GetSegName(ExCl.GetClassCode(cotbl, scl2), comp(crec));
end.
.{
.{table 'SchKpp.BaseDoc'
.}
.{ CheckEnter IsBaseFin
.}
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}
.{
.}
.fields
If(Abongorod.getfirst abonents=tsOk, Abongorod.abonents.name,'')
k3
ddoc
nomer
ddoc
nomer
.endfields
^^^^^^
.if DELIMITER
----------------------------------------------------------------------------------------------------------------------------
.end
.}
.endform
Код: Выделить всё
.create view a as select abonents.name from x$users,abonents where ((userid == x$users.atl_nrec and x$users.xu$useroffice == abonents.officeno ));
.....
.fields
If(a.getfirst x$users = tsOk,If(a.getfirst abonents = tsOk,a.abonents.name,''),'')
.endfields
^
ДА в саппорте все ок выводит то что надо)m0p3e писал(а):Маловероятно, но если так:А в сапорте запрос отрабатывает?Код: Выделить всё
.create view a as select abonents.name from x$users,abonents where ((userid == x$users.atl_nrec and x$users.xu$useroffice == abonents.officeno )); ..... .fields If(a.getfirst x$users = tsOk,If(a.getfirst abonents = tsOk,a.abonents.name,''),'') .endfields ^