Галактика в вопросах и ответах

Код: Выделить всё

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
^

Код: Выделить всё

.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
^