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

zsbs=zsbs+a.balrax

zsps=zsps+a.cena

zsks=zsks+a.amrt

zszs=zszs+a.oper1

do case

case a.nrax=23

zs23s=zs23s+a.amrt

case a.nrax=23

zs231s=zs231s+a.amrt

case a.nrax=24

zs24s=zs24s+a.amrt

case a.nrax=26

zs26s=zs26s+a.amrt

case a.nrax=44

zs44s=zs44s+a.amrt

case a.nrax=81

zs81s=zs81s+a.amrt

otherwise

zspomz=zspom+a.amrt

endcase





x=x-1

@ 3,20 say x

skip(1)

enddo

select b

go top

replace b.sbg1 with zsbg1

replace b.spg1 with zspg1