.form "base2"
.ard
.var
vids:string
t:string
z1:longint
z2:longint
z3:longint
.endvar
.create view t1 as select
basedoc.*, stepdoc.*, spstep.*, katmc.*,
katusl.*, katotped.*, klval.*
where ((
basedoc.nrec == stepdoc.cbasedoc and
stepdoc.nrec == spstep.cstepdoc and
spstep.cmcusl == katmc.nrec and
spstep.cmcusl == katusl.nrec and
spstep.cotped == katotped.nrec and
spstep.cval == klval.nrec
))
;
.fields
basedoc.nodoc
if(spstep.prmc=1,katmc.name,katusl.name):"p:l"
spstep.kol:"p:r"
katotped.name:"p:l"
klval.simvolv:"p:r"
spstep.price
spstep.summa
z1
z2:"p:r"
z3
.endfields
спецификация документов - оснований
--------------------------------------------------------------
Наименование Колич. Ед.измер. Вал Цена Сумма
товара-услуги
--------------------------------------------------------------
.{table "t1" by basedoc.nrec;
номер документа-основания - &&&&&&&
.{ by spstep.nrec;
.begin
if spstep.cval=0 then
z1:=z1+spstep.summa;
if spstep.cval=2 then
z2:=z2+spstep.summa;
if spstep.cval=3 then
z3:=z3+spstep.summa;
end.
@@@@@@@@@@@@@@@@@@@@ &&&&&&&& @@@@@@@@@@ &&&&&& &&&&&&&& &&&&&&
.}
--------------------------------------------------------------
.}
Всего:
Российских рублей - &&&&&&&&&
Долларов США - &&&&&&&&&
Марок ФРГ - &&&&&&&&&
.endform
