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

activate window w033

USE ZAH

@ 0,4 say '*** ПРОЦЕДУРА КОРЕКЦІ° КОЕФІЦІЄНТІВ ***'

@ 1,3 say 'Введіть коефіцієнти для 1• групи'

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

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

@ 4,1 say '-------------------------------------------'

@ 5,3 say 'Введіть коефіцієнти для 2• групи'

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

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

@ 8,1 say '-------------------------------------------'

@ 9,3 say 'Введіть коефіцієнти для 3• групи'

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

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

read

clear windows

do dtop

return

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

parameter bar

clear

clear windows

close databases

do dtop

set date german

set century on

select a

use amortiz

select b

use zah