WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

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

Автоматизація господарської діяльності (на прикладі місцевого ВАТ) - Дипломна робота

коефіцієнти для 3o групи'
@ 10,1 say 'Введіть норму амортизаціo ' get g3p1 picture '##.##'
@ 11,1 say 'Введіть понижуючий коефіцієнт ' get g3p2 picture '##.##'
read
clear windows
do dtop
return
Лістінг модуля M1_16.prg
parameter bar
clear
clear windows
close databases
do dtop
set date german
set century on
select a
use amortiz
select b
use zah
yr=year(date())
ms=month(date())
dt=date()
DO CASE
CASE MS<=1.AND.MS<=3
kvrt=1
CASE MS<=4.AND.MS<=6
kvrt=2
CASE MS<=7.AND.MS<=9
kvrt=3
CASE MS<=10.AND.MS=1.AND.MS=4.AND.MS=7.AND.MS=10.AND.MS<=12
kvrt=4
endcase
use zah
skv=kvt
staw=p1
staw1=p2
close databases
if skv!=kvrt
define window nk from 3,3 to 13,65 double shadow color scheme 7 title 'Перехід на новий квартал'
activate window nk
@ 0,20 say 'СЬОГОДНІ '+dmy(dt)
@ 1,20 say 'ПОТОЧНИЙ КВАРТАЛ '+STR(kvrt)
@ 3,10 prompt ' ПРОВЕСТИ ПЕРЕРАХУНОК ДЛЯ НОВОГО КВАРТАЛУ '
@ 5,17 prompt ' ПРОДОВЖИТИ БЕЗ ПЕРЕРАХУНКУ '
menu to r
do case
case r=1
do case
case kvrt=1
copy file c:amortizamortiz.dbf to c:amortizkvartal1oz1.dbf
case kvrt=2
copy file c:amortizamortiz.dbf to c:amortizkvartal2oz2.dbf
case kvrt=3
copy file c:amortizamortiz.dbf to c:amortizkvartal3oz3.dbf
case kvrt=4
copy file c:amortizamortiz.dbf to c:amortizkvartal4oz4.dbf
endcase
use amortiz
go top
do while !eof()
replace cena with amrt
replace oper1 with round(cena*staw*staw1/100,2)
replace amrt with cena-oper1
skip(1)
enddo
deactivate window nk
use zah
replace kvt with kvrt
close database
return
case r=2
deactivate window nk
return
endcase
else
do dtop
return
endif
do dtop
return
Лістінг модуля Pererah.prg
select a
USE ZAH
select b
use amortiz
go top
do while !eof()
do case
case grupa=1
replace oper1 with round(cena*a.g1P1*a.g1P2/100,2)
replace amrt with cena-oper1
case grupa=2
replace oper1 with round(cena*a.g2P1*a.g2P2/100,2)
replace amrt with cena-oper1
case grupa=3
replace oper1 with round(cena*a.g3P1*a.g3P2/100,2)
replace amrt with cena-oper1
otherwise
replace oper1 with 10101
replace amrt with 10101
endcase
skip(1)
enddo
return
Лістінг модуля Pids.prg
clear windows
close databases
set talk off
do dtop
select a
use amortiz
select b
use pids
replace sbg1 with 0
replace spg1 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 s44g3with 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
Loading...

 
 

Цікаве