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

case kvrt=2

copy file c:\amortiz\amortiz.dbf to c:\amortiz\kvartal2\oz2.dbf case kvrt=3

copy file c:\amortiz\amortiz.dbf to c:\amortiz\kvartal3\oz3.dbf

case kvrt=4

copy file c:\amortiz\amortiz.dbf to c:\amortiz\kvartal4\oz4.dbf

endcase

select a

go top

do while !eof()

replace cena with amrt

skip(1)

enddo

do M1_1.prg &&виклик перерах

clear window nk

select b

replace kvt with kvrt

close databases

return

case r=2

clear windows

do dtop

return

endcase

clear windows

do dtop

return

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

parameter bar

set date german

set century on