Xailer & OZ Software

No logro borrar un registro de una tabla DBF
If MsgNoYes("Está seguro?","Borrar el renglón")
::oTablaFactura:Delete() // tambien probe NW->( dbDelete() )
::oTablaFactura:Refresh()
EndIf
Siendo ::oTablaFactura un TDbfDataSet inicializado asi
Use Factura New Exclusive
cTemp := NombreTemp() // me devuelve un nombre de archivo temporal
Copy to (cTemp)
Factura->( dbCloseArea() )
WITH OBJECT ::oTablaFactura
:cName := cTemp
:cAlias := "NW"
:lShared := .F.
:lOpen := .T.
END
No tengo ningun mensaje de error, simplemente no lo borra.
Gracias
Juan

Hola Juan,
Ya probaste colocar al inicio de tu programar los siguiente:
SET DELETE ON
Lo que hace esto es no tomar en cuenta los registros marcados como borrados
Saludos
Armando Ruiz
"Juan Castañeda" <jrcsistemas@speedy.com.ar> escribió en el mensaje de
noticias news:[email=492c7895@svctag-j7w3v3j....]492c7895@svctag-j7w3v3j....[/email]
> No logro borrar un registro de una tabla DBF
>
> If MsgNoYes("Está seguro?","Borrar el renglón")
> ::oTablaFactura:Delete() // tambien probe NW->( dbDelete() )
> ::oTablaFactura:Refresh()
> EndIf
>
> Siendo ::oTablaFactura un TDbfDataSet inicializado asi
>
> Use Factura New Exclusive
> cTemp := NombreTemp() // me devuelve un nombre de archivo temporal
> Copy to (cTemp)
> Factura->( dbCloseArea() )
>
> WITH OBJECT ::oTablaFactura
> :cName := cTemp
> :cAlias := "NW"
> :lShared := .F.
> :lOpen := .T.
> END
>
> No tengo ningun mensaje de error, simplemente no lo borra.
>
> Gracias
>
> Juan
>
>

Perdón.
Pero no puedo creer que despues de 20 años de clipper me olvidaba de hacer
Pack
(lo tome como que delete ya borraba fisicamente el registro)
Ya funciona perfecto
Gracias Armando por tu respuesta
Juan