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

SELECT C

USE ZAH

SELECT B

erase M1_12dv.idx

USE DOVVID

index on nazvav to M1_12dv.idx

clear windows

do dtop

define window w033 from 5,5 to 10,75 double shadow

activate window w033

@ 0,0 say '*** Визначіть групу та коєфіцієнти ***'

@ 1,0 say 'Введіть номер групи'

g=1

@ 1,37 get G range 1,3 picture '#' error 'Введіть номер групи від 1 до 3'

read

do case

case g=1

@ 2,1 say 'Введіть норму амортизаці• ' get c.g1p1 picture '##.##'

@ 3,1 say 'Введіть понижуючий коефіцієнт ' get c.g1p2 picture '##.##'

read

replace c.p1 with c.g1p1

replace c.p2 with c.g1p2

case g=2

@ 2,1 say 'Введіть норму амортизаці• ' get c.g2p1 picture '##.##'

@ 3,1 say 'Введіть понижуючий коефіцієнт ' get c.g2p2 picture '##.##'

read

replace c.p1 with c.g2p1

replace c.p2 with c.g2p2

case g=3

@ 2,1 say 'Введіть норму амортизаці• ' get c.g3p1 picture '##.##'