Форум » [x]Harbour » Заблокировать набор в GET » Ответить
Заблокировать набор в GET
Dima: Есть 2 Get @ 0,0 Say 'Test1' get N1 Picture "@Z 9999.99" @ 1,0 Say 'Test2' get N2 Picture "@Z 9999.99" Read При попадании в Get c N2 , нужно заблокировать наборку. When не подходит (в это поле попадать надо). Есть у кого идеи ? Собственно есть сумма к оплате , кассир набирает сумму которую ему дал покупатель, жмет ввод и оказывается в GET где уже посчитана сдача ( Цифру сдачи он менять не должен ) Жмет снова ввод и операция проводится (по запросу).
Ответов - 3
SergKis: Во when запомнил сдачу, в valid востановил, можно проверять и пропускать в valid только Enter
SergKis: Dima может в таком духе @ 0,0 Say 'Test1' get N1 Picture "@Z 9999.99" @ 1,0 Say 'Test2' get N2 Picture "@Z 9999.99" When {|| __Keyboard( chr(13) ), .T. } @ Row(), Col()+1 get N3 Picture "X" COLOR <белое на белом или синее на синем> Read
Dima: SergKis пишет: белое на белом или синее на синем Тоже посетила такая мысль. Пока еще думаю. Спасибо Сергей !
полная версия страницы