Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use TipAbon
- index on codabon to icodabon
- use
- use Persoane
- index on CNP to ICNP
- index on codabon to icodabon
- use
- use Convorbire
- index on CNP to ICNPC
- Procedure From-OnOpen
- use TipAbon in 1 index icodabon alias tip
- use Persoane in 2 index ICNP,icodabon alias per
- use Convorbiri in 3 index ICNPC alias con
- select 2
- set relation to codbalon into 1
- select 3
- set relation to CNP into 2
- return
- Procedure Form-OnClose
- close all
- return
- Procedure EntryField1_OnClick
- select 2
- form.entryfield2.value=nume
- form.entryfield3.value=codbalon
- form.entryfield4.value=plata
- form.entryfield5.value=datan
- form.entryfield6.value=adresa
- endif
- seek per -> codbalon
- if found()
- form.entryfieldf.value=costminut
- endif
- return
- Procedure PushButton 1-OnClick
- select 3
- CCNP = form.entryfield1.value
- nnrtel=form.entryfield11.value
- select 2
- seek CCNP
- if found()
- select 1
- seek per -> codbalon
- if found()
- ccost=costminut
- endif
- endif
- select 3
- seek CCNP
- if found(). and.nrtel=nnrtel
- replace nrtel with val(form.entryfield11)
- replace telapelat with val (form.entryfield12)
- replace ora with val (form.entryfield9)
- replace data with ctod(form.entryfield8)
- replace minute with form.entryfield10
- replace suma with minute *cost
- return
- Procedure Pushbutton 2-OnClick
- select 3
- use ftemp exclusive in 4
- select 4
- CCNP=form.entryfield
- seek CCNP
- if found()
- select 2
- seek con->CCNP
- if found()
- form.entryfield2.value=nume
- form.entryfield3.value=codbalon
- form.entryfield4.value=plata
- form.entryfield5.value=datan
- form.entryfield6.value=adresa
- select 1
- seek per->codabon
- if found()
- form.entryfield7.value=costminut
- endif
- endif
- endif
- do while.not.eof(3).and.CNP=CCNP
- append blank
- replace CNP with per->CNP
- replace nume with per->nume
- replace nrtel with per->nrtel
- replace telapelat with per->telapelat
- replace ora with per->ora
- replace data with per->data
- replace minute with per->minute
- replace suma with per->suma
- select 3
- skip
- enddo
- form.browse1.alias='ftemp'
- endif
- return
- Procedure PushButton3_OnClick
- select c.CNP,c.nrtel,p.nume,count(c.minute),count(c.CNP) from Convorbiri c,
- Persoana p where p.CNP=c.CNP group by c.CNP,c.nrtel,p.nume save to stat.dbf
- use stat in 4
- from.browse1.alias='stat'
- return endclass
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement