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