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

replace sks with 0

replace szs with 0

replace s23s with 0

replace s231s with 0

replace s24s with 0

replace s26s with 0

replace s44s with 0

replace s81s with 0

store 0 to zspom,zspomz,zsbg1,zspg1,zskg1,zszg1,zs23g1,zs231g1, zs24g1,zs26g1, zs44g1,zs81g1,zsbg2,zspg2,zskg2,zszg2,zs23g2,zs231g2,zs24g2,zs26g2,zs44g2,zs81g2,zsbg3,zspg3,zskg3,zszg3,zs23g3,zs231g3,zs24g3,zs26g3,zs44g3,zs81g3,zsbs,zsps,zsks,zszs,zs23s,zs231s,zs24s,zs26s,zs44s,zs81s

Define window d01 from 5,10 to 11,60 double shadow color scheme 5

activate window d01

@ 0,4 say 'Проводиться підбиття підсумків. Почекайте !'

select a

x=reccount()

@ 2,1 say 'Всього записів '

@ 2,18 say x

@ 3,1 say 'Залишилось записів '

do while !eof()

if a.grupa=1

zsbg1=zsbg1+a.balrax

zspg1=zspg1+a.cena

zskg1=zskg1+a.amrt

zszg1=zszg1+a.oper1

do case

case a.nrax=23

zs23g1=zs23g1+a.amrt

case a.nrax=23

zs231g1=zs231g1+a.amrt

case a.nrax=24

zs24g1=zs24g1+a.amrt