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?

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

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

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida