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

do p00p



select d

stor=stor+1

replace d.st with stor

select b

skip(1)

enddo

do pids

return

procedure print01

parameter b

set filter to

if c.ngrp!=0

select a

set filter to a.grupa=c.ngrp

else

endif



if c.nvid!=0

select a

set filter to a.grp=c.nvid

else

endif

define window i001 from 8,10 to 20,71 double shadow color scheme 4

ACTIVATE WINDOW I001

@ 0,20 say 'ІНДИКАТОР ПРОЦЕСУ'

@ 1,2 SAY 'Виводиться звіт для відділу '+b.nazvav

@ 2,2 say 'По балансовій вартості - '