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

RELEASE WINDOW SearchWindow

SET CURSOR OFF

IF choice=1

ACTIVATE WINDOW FindWindow

IF y=1. OR. y=2

a=Zag(ALLTRIM(a),. f)

ENDIF

IsFind=. F.

Find=. F.

SCAN

DO CASE

CASE y=1

Find=Zag(ALLTRIM(A. nazv_f),. f) =a

CASE y=2

Find=A. tip_nosit=a

CASE y=3

Find=A. kod_post=a

ENDCASE

IF Find

IsFind=. T.

? 'Название фильма: ',A. nazv_f

? 'Тип носителя: ',A. tip_nosit

? 'Название носителя: ',B. nazv_nosit

? 'Продолжительность: ',A. prodol

? 'Качество: ',A. kachestvo

? 'Цена: ',A. zena

? 'Код поставщика: ',A. kod_post

? 'Название поставщика: ',C. nazv_post

? 'Адрес поставщика: ',C. adres_post