Скачать: CL | DM;

Cтаричок Clipper...   Найти похожие ветки 

← →
Дремучий ©   (2002-11-07 12:16) [0]

Может есть еще среди нас знатоки таких экзотических языков?
нужно, при заведении значения "Код оплати" в переменную aRecord[ fieldpos("NPLAT")] пролукапить по коду значение PAYTEXT->paytext
и тут выскакивает подлая ошибка...
EDITPL.PRG(283) Error C2001 Syntax error: "{"
Как бороться?

@ row_ +2, col_+56 say "Код оплати: "
get aRecord[ fieldpos("PAYCODE")] picture "@N 999"
valid {| oG | ;
if ( PAYTEXT->DBSEEK(oG:varGet()), ;
aRecord[ fieldpos("NPLAT")]= PAYTEXT->paytext) }

---

← →
Странник ©   (2002-11-07 13:25) [1]

В стандартный SAY ... GET ... VALID exp нельзя подставлять блок, т.к. препроцессор сам строит блок на основе выражения exp, см. CLIPPER\INCLUDE\std.ch
Чтобы обойти это нужно либо написать собственный макрос SAY...GET...VALIDBLK..., либо блок оформить как функцию.

---

← →
Дремучий ©   (2002-11-07 13:32) [2]

> блок оформить как функцию.

это счас попробую

но вот, что самое обидное, что вот эта штуковина работает...


@ row_ + 4, 4 say " Сума:" ;
get aRecord[ fieldpos("PSUM") ] picture "@К 999999999.99" ;
valid {| oG | ;
setpos(row_ + 4, col() + 1 ), ;
if( oG:varGet() >= 1000, ;
dispout( oG:varGet(),"R+/N"), ;
dispout(padl("",len(str(oG:varGet())) ) ) ), ;
setpos(row_ + 4, col() + 1 ), ;
if( KLIENT->PRC < 0, ;
dispout( transform( - KLIENT->PRC * oG:varGet() / 100, ;
"@R Послуги 999.99" ),"R+/N"), ;
dispout(padl("",15) ) ), ;
if( KOMUSL->LROUND, oG:varGet() % KOMUSL->SROUND == 0, ;
TRUE ) .and. oG:varGet() > 0 }

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c