Табличное пространство
Добавлено: 03 апр 2008, 14:21
Вопрос:
Как перейти к следующей записи?
Допустим если if (ed='услуга'), то тогда не выдаём строку(пропускаем), и переходим к следующей.
.{
.{ table 'vSpStep.SpStep'
.begin
npp:=npp + 1;
!--------------------------------------
#include SFBla2vp.frn
!--------------------------------------
Akciz := Ak/kol
CenaAk := cenabez + AkCiz
SumAk := sbez + Ak
TotSumAk := TotSumAk + SumAk
end.
.fields
npp
mc
ed
doubletostr(round( kol ,2),'666`666`666.88')
doubletostr(round( cenaAk ,2),'666`666`666.88')
doubletostr(round( sumAk ,2),'666`666`666.88')
.endfields
.begin
if (ed='услуга') {
message('Этот акт только для услуг ');
}
end.
^ ^ ^ ^ ^ ^
.}
.}
Как перейти к следующей записи?
Допустим если if (ed='услуга'), то тогда не выдаём строку(пропускаем), и переходим к следующей.
.{
.{ table 'vSpStep.SpStep'
.begin
npp:=npp + 1;
!--------------------------------------
#include SFBla2vp.frn
!--------------------------------------
Akciz := Ak/kol
CenaAk := cenabez + AkCiz
SumAk := sbez + Ak
TotSumAk := TotSumAk + SumAk
end.
.fields
npp
mc
ed
doubletostr(round( kol ,2),'666`666`666.88')
doubletostr(round( cenaAk ,2),'666`666`666.88')
doubletostr(round( sumAk ,2),'666`666`666.88')
.endfields
.begin
if (ed='услуга') {
message('Этот акт только для услуг ');
}
end.
^ ^ ^ ^ ^ ^
.}
.}