REFERATUA.ORG.UA — База українських рефератів



Головна Інформатика, комп'ютери, програмування → Автоматизація господарської діяльності ВАТ Коломийський сирзавод

with 0

replace skg1 with 0

replace szg1 with 0

replace s23g1 with 0

replace s231g1 with 0

replace s24g1 with 0

replace s26g1 with 0

replace s44g1 with 0

replace s81g1 with 0

replace sbg2 with 0

replace spg2 with 0

replace skg2 with 0

replace szg2 with 0

replace s23g2 with 0

replace s231g2 with 0

replace s24g2 with 0

replace s26g2 with 0

replace s44g2 with 0

replace s81g2 with 0

replace sbg3 with 0

replace spg3 with 0

replace skg3 with 0

replace szg3 with 0

replace s23g3 with 0

replace s231g3 with 0

replace s24g3 with 0

replace s26g3 with 0

replace s44g3 with 0

replace s81g3 with 0

replace sbs with 0

replace sps with 0

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

case a.nrax=26

zs26g1=zs26g1+a.amrt

case a.nrax=44

zs44g1=zs44g1+a.amrt

case a.nrax=81

zs81g1=zs81g1+a.amrt

otherwise

zspom=zspom+a.amrt

endcase

else

endif

if a.grupa=2

zsbg2=zsbg2+a.balrax

zspg2=zspg2+a.cena

zskg2=zskg2+a.amrt

zszg2=zszg2+a.oper1

do case

case a.nrax=23

zs23g2=zs23g2+a.amrt

case a.nrax=231

zs231g2=zs231g2+a.amrt

case a.nrax=24

zs24g2=zs24g2+a.amrt

case a.nrax=26

zs26g2=zs26g2+a.amrt

case a.nrax=44

zs44g2=zs44g2+a.amrt

case a.nrax=81

zs81g2=zs81g2+a.amrt

otherwise

zspom=zspom+a.amrt

endcase

else

endif

if a.grupa=3

zsbg3=zsbg3+a.balrax

zspg3=zspg3+a.cena

zskg3=zskg3+a.amrt

zszg3=zszg3+a.oper1

do case

case a.nrax=23

zs23g3=zs23g3+a.amrt

case a.nrax=23

zs231g3=zs231g3+a.amrt

case a.nrax=24

zs24g3=zs24g3+a.amrt

case a.nrax=26

zs26g3=zs26g3+a.amrt

case a.nrax=44

zs44g3=zs44g3+a.amrt

case a.nrax=81

zs81g3=zs81g3+a.amrt

otherwise

zspom=zspom+a.amrt

endcase

else

endif

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

replace b.skg1 with zskg1

replace b.szg1 with zszg1

replace b.s23g1 with zs23g1

replace b.s231g1 with zs231g1

replace b.s24g1 with zs24g1

replace b.s26g1 with zs26g1

replace b.s44g1 with zs44g1

replace b.s81g1 with zs81g1

replace b.sbg2 with zsbg2

replace b.spg2 with zspg2

replace b.skg2 with zskg2

replace b.szg2 with zszg2

replace b.s23g2 with zs23g2

replace b.s231g2 with zs231g2

replace b.s24g2 with zs24g2

replace b.s26g2 with zs26g2

replace b.s44g2 with zs44g2

replace b.s81g2 with zs81g2

replace b.sbg3 with zsbg3

replace b.spg3 with zspg3

replace b.skg3 with zskg3

replace b.szg3 with zszg3

replace b.s23g3 with zs23g3

replace b.s231g3 with zs231g3

replace b.s24g3 with zs24g3

replace b.s26g3 with zs26g3

replace b.s44g3 with zs44g3

replace b.s81g3 with zs81g3

replace b.sbs with zsbs

replace b.sps with zsps

replace b.sks with zsks

replace b.szs with zszs

replace b.s23s with zs23s

replace b.s231s with zs231s

replace b.s24s with zs24s

replace b.s26s with zs26s

replace b.s44s with zs44s

replace b.s81s with zs81s

report form fsum to printer

return to master

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

parameter bAR

set heading off

close databases

set talk off

set date german

clear windows

clear

do DTOP

clear

erase prm21.idx

select a

use amortiz

index on nazva to prm21.idx compact

erase prm22.idx

select b

use dovvid

index on nazvav to prm22.idx compact

select c

use prstat

select d

use st1

go top

stor=0

DEFINE WINDOW w01 FROM 5,10 TO 10,60 double shadow COLOR SCHEME 1

define popup mg01 from 0,30

define bar 1 of mg01 prompt '1 група'

define bar 2 of mg01 prompt '2 група'

define bar 3 of mg01 prompt '3 група'

on selection popup mg01 do prg01 with bar() in printzv.prg

define popup zmd01 prompt field nazvav shadow

on selection popup zmd01 do prmd01 with recno() in printzv.prg

do case

case bAr=1

ACTIVATE WINDOW w01

@ 1,0 say ' Для яко• групи вивести звіт ? '

activate popup mg01

case bAr=2

DEFINE WINDOW w02 FROM 5,10 TO 15,60 COLOR SCHEME 1 double shadow

ACTIVATE WINDOW w02

@ 0,0 say 'Визначіть для якого відділу вивести звіт ?'

select b

activate popup zmd01

case bAr=3

do print01

case bAr=5

do print02

case bar=6

select a

set filter to

replace c.nvid with 0

replace c.ngrp with 0

replace c.grupa with ' '

replace c.vid with ' '

endcase

select a

set filter to

clear windows

do dtop

close databases

return

procedure prg01

parameter b1

select c

do case

case b1=1

replace ngrp with 1

replace grupa with 'Звіт по


 
Загрузка...