Курсовая работа: Учет товаров в фирме по продаже аудиотехники

@ 1,15 GET a PICTURE '999' DEFAULT 0

CASE y=4

@ 1,15 GET a DEFAULT SPACE(18)

ENDCASE

@3,11 GET choice FUNCTION '*th \! Фильтр; \? Выход' DEFAULT 2 SIZE 1,6,4

READ CYCLE

DEACTIVATE WINDOW FiltrWindow

SET CURSOR OFF

IF choice=1

DO CASE

CASE y=1

SET FILTER TO a. nazv_f=alltrim(a)

CASE y=2

SET FILTER TO a. tip_nosit=a

CASE y=3

SET FILTER TO a. kod_post=a

CASE y=4

SET FILTER TO a. kachestvo=alltrim(a)

ENDCASE

DO BrowseData WITH 1

ENDIF

RETURN

FUNCTION Zag

PARAMETER p,k

PUSH KEY clear

s='абвгдежзийклмнопрстуфхцчшщыьъэюя'

z='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЫЬЪЭЮЯ'

IF k

REPLACE &p WITH CHRTRAN(&p,s,z)