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

case b1=1

GGG=1

case b1=2

GGG=2

case b1=3

GGG=3

otherwise

deactivate popup mg01

clear windows

do dtop

return

endcase

return

procedure prmd01

parameter nv,KV

\x0909\x6F67\x6F74\x6E28\x2976\x090D\x4B09\x3D56\x6F6B\x7664\x090D\x7209\x7465\x7275\x0D6E\x0D0D

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

close databases

clear windows

clear

do dtop

set talk off

set date german

set century on

yr=year(date())

ms=month(date())

dt=date()

DO CASE

CASE MS>=1.AND.MS<=3

kvrt=1