sandrax
01 de Junio del 2006

bueno este es el codigo:
IF thisform.pageframe1.page1.text1.value <= 0 or empty(thisform.pageframe1.page1.text2.value)
messagebox ("Debe agregar los valores necesarios",16,"Atenci贸n")
return
endif

sqlexec(nCnx,"select POZOS_SECUEN.nextval from dual","INT_POZO") &&INT_POZO

if !used("INT_POZO") &&INT_POZO
MESSAGEBOX ("Error en sequenciadores. No declarados POZOS_SECUEN",16,"ATENCION")
RETURN
ENDIF

v_intpozo = int_pozo.nextval &&INT_POZO
use in "int_pozo" &&INT_POZO

sqlexec(nCnx,"insert into POZOS (interno) values ("+str(v_intpozo,10)+")")
SQLEXEC(nCnx,"update Pozos set descripcion = '"+thisform.pageframe1.page1.text2.value+"' WHERE interno = "+str(int_pozo))
SQLEXEC(nCnx,"update Pozos set numero = "+thisform.pageframe1.page1.text1.value+" WHERE interno = "+str(int_pozo))
messagebox ("Se agreg贸 un registro",64,"Registro Agregado")

THISFORM.RELEASE

El problema es que me arroja el siguiente error:
"No se encuentra la variable INT_POZO"
y se帽ala esta linea:
SQLEXEC(nCnx,"update Pozos set descripcion = '"+thisform.pageframe1.page1.text2.value+"' WHERE interno = "+str(int_pozo)).

gracias

gabrield
01 de Junio del 2006

Es que int_pozo no existe, en realidad la llamaste v_intpozo.
Reemplaza str(int_pozo) por str(v_intpozo)

Gabriel Dame帽ov
www.gdmsargentina.com.ar