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

replace ngrp with 0

replace grupa with 'Звіт по всіх групах'

endcase

deactivate popup mg01

RETURN



procedure prmd01

parameter nv

select b

go top

goto(nv)

x1kv=kodv

x2nv=nazvav

select c

replace nvid with x1kv

replace vid with x2nv

deactivate popup zmd01

return

procedure print02

parameter bbb

clear windows

do dtop

select a

set filter to

select b

go top

do while !eof()



replace c.nvid with b.kodv

replace c.vid with b.nazvav