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



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

say 'Введіть коефіцієнти для 2• групи'

@ 6,1 say 'Введіть норму амортизаці• ' get g2p1 picture '##.##'

@ 7,1 say 'Введіть понижуючий коефіцієнт ' get g2p2 picture '##.##'

@ 8,1 say '-------------------------------------------'

@ 9,3 say 'Введіть коефіцієнти для 3• групи'

@ 10,1 say 'Введіть норму амортизаці• ' 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<=12

kvrt=4

endcase

define window nk from 5,10 to 14,67 double shadow color scheme 7 title 'Перехід на новий квартал'

activate window nk

@ 0,10 say 'СЬОГОДНІ '+dmy(dt)

@ 1,10 say 'ПОТОЧНИЙ КВАРТАЛ '+STR(kvrt)

select b

if kvt=kvrt

@ 2,1 say 'УВАГА перехід на новий квартал проводиться завчасно !'

else

endif

@ 4,6 prompt ' ПРОВЕСТИ ПЕРЕРАХУНОК ДЛЯ НОВОГО КВАРТАЛУ '

@ 6,13 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

select a

go top

do while !eof()

replace cena with amrt

skip(1)

enddo

do M1_1.prg &&виклик перерах

clear window nk

select b

replace kvt with kvrt

close databases

return

case r=2

clear windows

do dtop

return

endcase

clear windows

do dtop

return

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

parameter bar

set date german

set century on

set talk off

close databases

clear windows

do dtop

erase prm12.idx

select a

use amortiz

index on nazva to prm12.idx compact

ERASE m12m1ind.idx

select b

use dovvid

index ON NAZVAV TO m12m1ind.idx COMPACT

select c

use filter

select a

if c.frax!=0

set filter to a.nrax=c.frax

else

endif

set filter to between(a.data,c.fdata1,c.fdata2)

if c.fgrp!=0

set filter to grupa=c.fgrp

else

endif

if alltrim(c.fnazva)!='Назва'

set filter to nazva=c.fnazva

else

endif

if c.fbalv1!=0.and.c.fbalv2!=0

set filter to between(balrax,c.fbalv1,c.fbalv2)

else

endif

if c.fzal1!=0.and.c.fzal2!=0

set filter to between(Amrt,c.fzal1,c.fzal2)

else

endif

define popup m12m01 prompt field b.nazvav from 1,50 shadow

on selection popup m12m01 do m01b1pr with recno() in m12_2.prg

DEFINE WINDOW m12w1 FROM 2,0 TO 22,79 double shadow COLOR SCHEME 1

ACTIVATE WINDOW m12w1

@ 0,10 say '*** КОРЕКЦІЯ ТА СПИСАННЯ ОЗ ***'

@ 2,2 say 'ESC-вийти, F4-підсумок F8-зписати'

ON KEY LABEL F4 DO SUMPR in m12_2.prg

on KEY LABEL F8 delete

do case

case bar=2

@ 1,2 SAY 'Визначіть відділ якій треба переглянути'

select b

activate popup m12m01

case bar=1

do browser in m12_2.prg

otherwise

return

endcase

procedure m01b1pr

parameter recn

select b

go top

goto(recn)

DVKEY1=RECN

dvkey=kodv

select a

set filter to grp=dvkey

do browser

clear windows

do dtop

deactivate popup m12m01

CLOSE DATABASES

RETURN

procedure browser

parameter ddd

define window w0201 from 6,1 to 21,78 DOUBLE

activate window w0201

browse title 'Oсновні засоби відділу - '+b.nazvav fields invnom :h='інв.N',;

grupa :h='група', nrax :h='рахунок', Nazva :h='Назва ОЗ',balrax :h='балансова вартість',;

cena :h='варт.на початок кврт',;

oper1 :h='Знос за кв.',amrt :h='замортизована варт'

return

procedure sumpr

parameter k

select a

go top

select d

use sumator

replace d.sbalv with 0

replace d.scena with 0

replace d.soper with 0

replace d.samrt with 0

do while !eof()

select a

replace d.sbalv with d.sbalv+a.balrax

replace d.scena with d.scena+a.cena

replace d.soper with d.soper+a.oper1

replace d.samrt with d.samrt+a.amrt

skip(1)

enddo

define window w044 from 17,1 to 24,77 double shadow color scheme 1 title 'ПІДСУМКИ'

activate window w044

@ 0,1 say 'Cумарна балансова вартість ОЗ відділу='

@ 0,40 say d.sbalv

@ 1,1 say 'На початок кв.='

@ 1,17 say d.scena

@ 2,1 say 'Знос за квартал='

@ 2,17 say d.soper

@ 3,1 say 'Вартість на кінець кварталу='

@ 3,35 say d.samrt

@ 4,35 prompt ' ДАЛІ '

MENU TO R

IF R=1

DEACTIVATE WINDOW W044

select a

RETURN

ELSE

ENDIF

DEACTIVATE WINDOW W044

RETURN

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

parameter bar

set date german

set century on

set talk off

close databases

clear windows

do dtop

select a

use filter

define window w1201 from 6,10 to 10,70 double shadow color scheme 1

define popup r1 from 0,40

define bar 1 of r1 prompt 'Переглянути 23 рахунок'

define bar 2 of r1 prompt 'Переглянути 231 рахунок'

define bar 3 of r1 prompt 'Переглянути 24 рахунок'

define bar 4 of r1 prompt 'Переглянути 26 рахунок'

define bar 5 of r1 prompt 'Переглянути 44 рахунок'

define bar 6 of r1 prompt 'Переглянути 81 рахунок'

on selection popup r1 do pr01 with bar() in m12proc.prg

define popup r2 from 0,40

define bar 1 of r2 prompt 'Переглянути 1 групу'

define bar 2 of r2 prompt 'Переглянути 2 групу'

define bar 3 of r2 prompt 'Переглянути 3 групу'

on selection popup r2 do pr02 with bar() in m12proc.prg

DO CASE

CASE BAR=1

do m12_2 with bar()

CASE BAR=2

do m12_2 with bar()

CASE BAR=4

activate window w1201

@ 0,1 say 'Виберіть рахунок '

@ 1,1 say 'який треба переглянути'

activate popup r1

clear windows

do dtop

return

CASE


 
Загрузка...