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

10. Текст програми.

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

clear

CLOSE DATABASES

CLEAR WINDOWS

set deleted on

do dtop

set century on

set clock on

use amortiz.dbf

set talk off

set message to 30 center

set century on

set date german

do rezerv.prg

use zah

replace zax with .f.

close databases

do nowkvart.prg

clear windows

do dtop

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _01 OF _MSYSMENU PROMPT " Робота з даними "

DEFINE PAD _02 OF _MSYSMENU PROMPT "Вивід звітів "

DEFINE PAD _03 OF _MSYSMENU PROMPT "Вихід "

ON PAD _01 OF _MSYSMENU ACTIVATE POPUP menu1

ON PAD _02 OF _MSYSMENU ACTIVATE POPUP menu2

ON selection PAD _03 OF _MSYSMENU do vixod

DEFINE POPUP MENU12 FROM 1,0 MARGIN RELATIVE SHADOW COLOR SCHEME 4