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

@ 1,1 say 'На початок кв.='

@ 1,17 say d.scena

@ 2,1 say 'Знос за квартал='

@ 2,17 say d.soper

@ 3,1 say 'Вартість на кінець кварталу='

@ 3,35 say d.samrt

@ 4,35 prompt ' ДАЛІ '

MENU TO R

IF R=1

DEACTIVATE WINDOW W044

select a

RETURN

ELSE

ENDIF

DEACTIVATE WINDOW W044

RETURN



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

parameter bar

set date german

set century on

set talk off

close databases

clear windows

do dtop

select a

use filter

define window w1201 from 6,10 to 10,70 double shadow color scheme 1

define popup r1 from 0,40

define bar 1 of r1 prompt 'Переглянути 23 рахунок'