boton eliminar

24/09/2003 - 00:27 por Enrique Rodríguez Aldrete | Informe spam
Hola foro.
VFP 6.0
A ver si alguien me pude ayudar con esto.

Tengo un boton de eliminar en un formulario.
He tratado con estos dos codigos y no me funciona ninguno.

****************
* CODIGO #1 *
****************
If MessageBox('¿Seguro que deseas eliminar este
registro?',4+32+256,'Eliminar Registro')=6
Select proveedores
delete next 1
Thisform.refresh
Else
Loop
EndIf
****************
* CODIGO #2 *
****************
select proveedores
set order to 1
Titulo = 'Eliminar Ficha'
Texto = '¿Seguro que desea eliminar esta Ficha?'
Tipo = 4 + 32 + 256
resp = messagebox(Texto, Tipo, Titulo)

do case
case resp = 6
delete next 1
thisform.refresh
case resp = 7
endcase

Con el codigo#1 no elimina el registro y con el codigo#2 me marca el
siguiente error: Function argument value, type or count is invalid.

Alguien sabe a que se debe?

Preguntas similare

Leer las respuestas

#1 Del Angel Davenport
24/09/2003 - 01:18 | Informe spam
select proveedores
*!* Es mas recomedable hacer referencia del nombre del indice
set order to tag tu_Indice

*!* agrega un seek del registro que quieres...
IF SEEK ('tu_busqueda')
*!* Si lo encontro, ahora si pregunta

If MessageBox('¿Seguro que deseas eliminar este
registro?',4+32+256,'Eliminar Registro')=6
*!*Borra el registro
delete
EndIf
ENDIF



saludos a la banda


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
Respuesta Responder a este mensaje
#2 Enrique Rodríguez Aldrete
24/09/2003 - 18:16 | Informe spam
Gracias Del Angel.
Ya lo intenté de esa manera y tampoco me elimina el registro.
Lo mas raro es que este codigo lo he implementado en otros proyectos y ha
funcionado bien.
Todavia no encuentro cual pude ser la razon que este afectando el
funcionamiento del codigo.

"Del Angel Davenport" escribió en el mensaje
news:#
select proveedores
*!* Es mas recomedable hacer referencia del nombre del indice
set order to tag tu_Indice

*!* agrega un seek del registro que quieres...
IF SEEK ('tu_busqueda')
*!* Si lo encontro, ahora si pregunta

If MessageBox('¿Seguro que deseas eliminar este
registro?',4+32+256,'Eliminar Registro')=6
*!*Borra el registro
delete
EndIf
ENDIF



saludos a la banda


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
Respuesta Responder a este mensaje
#3 Enrique Rodríguez Aldrete
24/09/2003 - 18:52 | Informe spam
Ya pude solucionar el problema, disculpen la molestia.
Era algo tan sencillo como poner SET DELETED ON en el init del formulario.
Pero que con las prisas y el cansancio no me habia dado cuenta.

"Del Angel Davenport" escribió en el mensaje
news:#
select proveedores
*!* Es mas recomedable hacer referencia del nombre del indice
set order to tag tu_Indice

*!* agrega un seek del registro que quieres...
IF SEEK ('tu_busqueda')
*!* Si lo encontro, ahora si pregunta

If MessageBox('¿Seguro que deseas eliminar este
registro?',4+32+256,'Eliminar Registro')=6
*!*Borra el registro
delete
EndIf
ENDIF



saludos a la banda


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida