problem with Pl/Pgsql function

Hi I have a problem with this function:

Declare

rec_struttura record;
rec_camp record;
prov int;
estra_capo int;
id_lista int;
estra_non int;
rand int8;
count int;
count_estra int;
count_id int;
rand_doub float8;
row int8;
occ boolean;
note varchar;
pre char(4) /*NOT NULL := '02'*/;
tel char(13) /*NOT NULL := '342522'*/;
com int;
citta char(35);
nome varchar;
num int4;
data_oggi date;
capo int;
cap char(5);
capo_bool boolean;

Begin

For rec_struttura in Select * From struttura_campione Loop

/* estraggo i dati della provincia considerata */

prov := rec_struttura.cod_prov;
estra_capo := rec_struttura.num_capo;
estra_non := rec_struttura.num_non_capo;

/* estrazione dei nominativi nel capoluogo */
capo := 1;
count_estra := 0;

/* modificato andrea*/
<<caso>>
while (count_estra < estra_capo) Loop

count_estra := count_estra + 1;

/*modificato andrea*/
/*Select into rand PERFORM random ();*/
/* in ogni caso bisogna rimappre rand da o al ROW_COUNT della select,
immagino che così vada piu'
veloce il tutto anche perche' rand arriva fino a 2^31-1 ;) */

rand_doub:= random() ;
count := 0;

/* Questa select quante volte viene ripetuta? tante volte quanti sono i
soggetti da estrarre? */

For rec_camp in Select
note,prefisso,telefono1,cod_com,cod_prov,citta,nome_cogno,capoluo,estrazione,num_estra,cap
>From nominativi inner join comuni on citta = nome_com Where ((cod_prov =
prov) and (capoluo=capo)) Loop

/* bisogna trovare un modo piu' figo per beccare il record
altrimenti fa troppi giri dentro sti cicli */
GET DIAGNOSTICS row = ROW_COUNT;
rand := round (rand_doub * row);

if (rand > row) then

/*questo l'ho messo perche' altrimenti alla fine ne estrae meno di
quelli che servono*/

exit caso;
end if;

count := count + 1;
if count = rand then
/* modificato andrea, prima la condizione "not occ" */
if not rec_camp.occupato then
note := rec_camp.note;
pre := rec_camp.prefisso;
tel := rec_camp.telefono1;
if pre IS NULL or tel IS NULL then
exit caso;
end if;
com := rec_camp.cod_com;
citta := rec_camp.citta;
cap := rec_camp.cap
nome := rec_camp.nome_cogno;
num := rec_camp.num_estra;
capo := rec_camp.capoluo;
exit;

else count_estra := count_estra -1; exit caso;
end if;
end if;

End Loop; /* end del for*/

/* estraggo i dati dal record prescelto */
/*note := rec_camp.note;
pre := rec_camp.prefisso;
tel := rec_camp.telefono1;
com := rec_camp.cod_com;
citta := rec_camp.citta;
nome := rec_camp.nome_cogno;*/

/* faccio l'update di occupato */

/*num := rec_camp.num_estra;*/
num := num + 1;
data_oggi := now();

update nominativi set occupato = TRUE, num_estra = num, estrazione =
data_oggi Where ((prefisso = pre) and (telefono1 = tel));

/* faccio l'insert su tab_estrazioni */

id_lista := nextval('tab_estrazioni_id_seq');
insert into tab_estrazioni values (id_lista, pre, tel);
Get Diagnostics count_id = RESULT_OID;

/* prendo l'ultimo id utilizzata */

/*Select into id_lista id From tab_estrazioni Where oid = count_id;*/

/* inserisco il record nella tabella campione_out */

if capo = 1 then
capo_bool := True;
else capo_bool := False;
end if;

insert into campione_out values
(note,pre,tel,cap,com,prov,citta,nome,capo_bool,NULL,NULL,id_lista);

End Loop; /* end del while*/

End Loop; /*del primo FOR ? */

return count_id;

End;

The error riported is:

Fail to add null value in not null attribute prefisso

The line which the error refere is:

id_lista := nextval('tab_estrazioni_id_seq');
insert into tab_estrazioni values (id_lista, pre, tel);

Has Anybody any suggest? Thanks!
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.