Страница 1 из 1

Табличное пространство

Добавлено: 03 апр 2008, 14:21
ENB83
Вопрос:
Как перейти к следующей записи?

Допустим если 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.
^ ^ ^ ^ ^ ^
.}
.}

Добавлено: 03 апр 2008, 14:33
Goblin

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

{
.{ 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
.{?INTERNAL;(ed<>'услуга') 
^ ^ ^ ^ ^ ^
.}
.}
.}