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

do dtop

ps=.t.

do while ps

if printstatus()

ps=.f.

else

define window prer from 10,10 to 15,55 double shadow color scheme 7

activate window prer

@ 0,2 say 'ПРИНТЕР НЕ ГОТОВИЙ !'

@ 1,1 say 'Приведіть принтер до стану ON LINE !'

@ 3,3 PROMPT ' ПОВТОРИТИ '

@ 3,18 PROMPT ' ВІДМІНА '

MENU TO X

IF X=2

clear windows

do dtop

RETURN

ELSE

ENDIF

endif

enddo

report form f1 to printer

return

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

use zah

do case

case zax=.t.

define window r1 from 10,10 to 17,69 double shadow color sCheme 5

activate window r1

r=0