Автоматизація господарської діяльності ВАТ "Коломийський сирзавод"

clear window ER

replace zax with .f.

close database

return

case r=2

clear window ER

replace zax with .f.

close database

return

endcase

endcase

replace zax with .f.

close database

return

Лістінг модуля Vixod.prg

CLOSE DATABASES

define popup vp01 from 1,50 shadow

define bar 1 of vp01 prompt 'Вийти з програми'

define bar 2 of vp01 prompt '\-'

define bar 3 of vp01 prompt 'Командний режим'

define bar 4 of vp01 prompt 'Назад в програму'

on selection popup vp01 do p01 with bar() in vixod.prg

activate popup vp01

procedure p01

parameter bar

do case

case bar=1



DEFINE WINDOW EXITW FROM 10,30 TO 13,50 DOUBLE SHADOW COLOR SCHEME 7

ACTIVATE WINDOW EXITW