no guarda en la segunda vez
Publicado por Sebastian (253 intervenciones) el 14/10/2008 20:21:16
Buenas programadores tengo un formulario de mantenimiento pero cuando guardo por segunda vez me sale un error que dice " No coinciden los tipos de datos " y solo guarda el nombre y me falta dos campos mas este codigo lo tengo en el load del formulario
selec staff
public c,nom,esp
nom=space(62)
esp=space(3)
c=0
y en el boton guardar tengo este codigo
select staff
set order to cmp
seek (thisform.codigo.value)
if found()
=messagebox("Codigo existente intente de nuevo",48,"Error")
thisform.codigo.value=""
thisform.nombre.value=""
thisform.combo1.value=0
thisform.codigo.setfocus()
thisform.refresh
else
if messagebox("Desea grabar los registros",36,"Mensaje del Sistema")=6
selec staff
append blank
replace cmp with c
replace medico with nom
replace pf_servi with esp
thisform.codigo.value=""
thisform.nombre.value=""
thisform.combo1.value=0
thisform.codigo.setfocus()
thisform.refresh
else
=messagebox("No se grabaron los datos",64,"Mensaje del Sistema")
thisform.codigo.setfocus()
endif
endif
pueden ayudarme a encontrar el error gracias
selec staff
public c,nom,esp
nom=space(62)
esp=space(3)
c=0
y en el boton guardar tengo este codigo
select staff
set order to cmp
seek (thisform.codigo.value)
if found()
=messagebox("Codigo existente intente de nuevo",48,"Error")
thisform.codigo.value=""
thisform.nombre.value=""
thisform.combo1.value=0
thisform.codigo.setfocus()
thisform.refresh
else
if messagebox("Desea grabar los registros",36,"Mensaje del Sistema")=6
selec staff
append blank
replace cmp with c
replace medico with nom
replace pf_servi with esp
thisform.codigo.value=""
thisform.nombre.value=""
thisform.combo1.value=0
thisform.codigo.setfocus()
thisform.refresh
else
=messagebox("No se grabaron los datos",64,"Mensaje del Sistema")
thisform.codigo.setfocus()
endif
endif
pueden ayudarme a encontrar el error gracias
Valora esta pregunta
0