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

@ 3,0 say 'Введіть нижню межу вартості ' get fbalv1

@ 4,0 say 'Введіть верхню межу вартості ' get fbalv2

read

CASE BAR=9

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

activate window w1206

@ 0,1 say 'Визначіть діапазон балансово• вартості для засобів, '

@ 1,1 say 'які треба переглянути'

@ 3,0 say 'Введіть нижню межу залишку ' get fzal1

@ 4,0 say 'Введіть верхню межу залишку ' get fzal2

read

case bar=11

replace frax with 0

replace fdata1 with {01/01/1900}

replace fdata2 with {01/01/2200}

replace fgrp with 0

replace fnazva with 'Назва'

replace fbalv1 with 0

replace fbalv2 with 0

replace fzal1 with 0

replace fzal2 with 0

use amortiz

set filter to

close databases

OTHERWISE

CLEAR WINDOWS

DO DTOP

close databases

RETURN

ENDCASE