Xailer & OZ Software

Hola en un tdbbrowse, cuando utilizo lo de borrar
METHOD Delete() CLASS tform1
if MsgYesNo( "¿Borrar actual registro?" )
::oDataSet:Delete()
endif
RETURN NIL
al volver me borra los datos y me pone un registro en blanco
y lo que quiero es que se quite del tdbbrowse
y en el tdbfdataset tengo ireusedel = .t.
ikeyexact=.f.
que tengo que hacer para que se quiten los registros en blanco,
con prometeus cuando veo la base de datos los tiene marcados como borrados
Otra cosa un ejemplo de un campo que sea autoincremento si es posible
Graccias a todos de antemano.

Prueba a poner set delete off
Paco V
"PILO" <srmpilo@hotmail.com> wrote:
>Hola en un tdbbrowse, cuando utilizo lo de borrar
>METHOD Delete() CLASS tform1
>
> if MsgYesNo( "¿Borrar actual registro?" )
> ::oDataSet:Delete()
> endif
>
>RETURN NIL
>
>al volver me borra los datos y me pone un registro en blanco
>y lo que quiero es que se quite del tdbbrowse
>
>y en el tdbfdataset tengo ireusedel = .t.
>ikeyexact=.f.
>
>que tengo que hacer para que se quiten los registros en blanco,
>con prometeus cuando veo la base de datos los tiene marcados como borrados
>
>Otra cosa un ejemplo de un campo que sea autoincremento si es posible
>Graccias a todos de antemano.
>
>
>

Me puede decir en dondo lo pongo, estoy empezando con xailer y vengo del
clipper tradicional
gracias de antemano
"Paco V" <ssi@ono.com> escribió en el mensaje
news:[email=44bb570d@news.xailer.com...]44bb570d@news.xailer.com...[/email]
>
> Prueba a poner set delete off
>
> Paco V
>
> "PILO" <srmpilo@hotmail.com> wrote:
>>Hola en un tdbbrowse, cuando utilizo lo de borrar
>>METHOD Delete() CLASS tform1
>>
>> if MsgYesNo( "¿Borrar actual registro?" )
>> ::oDataSet:Delete()
>> endif
>>
>>RETURN NIL
>>
>>al volver me borra los datos y me pone un registro en blanco
>>y lo que quiero es que se quite del tdbbrowse
>>
>>y en el tdbfdataset tengo ireusedel = .t.
>>ikeyexact=.f.
>>
>>que tengo que hacer para que se quiten los registros en blanco,
>>con prometeus cuando veo la base de datos los tiene marcados como borrados
>>
>>Otra cosa un ejemplo de un campo que sea autoincremento si es posible
>>Graccias a todos de antemano.
>>
>>
>>
>

Pilo:
Yo hago lo siguiente, aunque seguro que se puede hacer mas facil:
Ordeno la BD por el campo Numero.
::oDbfDataSet1:OrdSetFocus( 1 )
voy al último registro.
::oDbfDataSet1:gobottom()
Tomo el valor y le sumo uno.
::oDbEdit2:Value := ::OdbfDataset1:Numero +1
Grabo el registro nuevo.
Ten en cuenta que tienes que hacerlo justo al grabar el registro si trabajar
en multipuesto.
>
>Otra cosa un ejemplo de un campo que sea autoincremento si es posible
>Graccias a todos de antemano.
>
>
>

Pilo, lo puedes poner en el MAIN del modulo principal.
Paco V
"PILO" <srmpilo@hotmail.com> wrote:
>Me puede decir en dondo lo pongo, estoy empezando con xailer y vengo del
>clipper tradicional
>gracias de antemano
>
>"Paco V" <ssi@ono.com> escribió en el mensaje
>news:[email=44bb570d@news.xailer.com...]44bb570d@news.xailer.com...[/email]
>>
>> Prueba a poner set delete off
>>
>> Paco V
>>
>> "PILO" <srmpilo@hotmail.com> wrote:
>>>Hola en un tdbbrowse, cuando utilizo lo de borrar
>>>METHOD Delete() CLASS tform1
>>>
>>> if MsgYesNo( "¿Borrar actual registro?" )
>>> ::oDataSet:Delete()
>>> endif
>>>
>>>RETURN NIL
>>>
>>>al volver me borra los datos y me pone un registro en blanco
>>>y lo que quiero es que se quite del tdbbrowse
>>>
>>>y en el tdbfdataset tengo ireusedel = .t.
>>>ikeyexact=.f.
>>>
>>>que tengo que hacer para que se quiten los registros en blanco,
>>>con prometeus cuando veo la base de datos los tiene marcados como borrados
>>>
>>>Otra cosa un ejemplo de un campo que sea autoincremento si es posible
>>>Graccias a todos de antemano.
>>>
>>>
>>>
>>
>
>

el problema lo tengo cuando borro el registro, que me lo deja en blanco y el
browse y lo que quiero es que quite
"Paco V" <ssi@ono.com> escribió en el mensaje
news:44bb59bf$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>
> Pilo:
> Yo hago lo siguiente, aunque seguro que se puede hacer mas facil:
>
> Ordeno la BD por el campo Numero.
> ::oDbfDataSet1:OrdSetFocus( 1 )
>
> voy al último registro.
> ::oDbfDataSet1:gobottom()
> Tomo el valor y le sumo uno.
> ::oDbEdit2:Value := ::OdbfDataset1:Numero +1
>
> Grabo el registro nuevo.
>
> Ten en cuenta que tienes que hacerlo justo al grabar el registro si
> trabajar
> en multipuesto.
>
>
>
>>
>>Otra cosa un ejemplo de un campo que sea autoincremento si es posible
>>Graccias a todos de antemano.
>>
>>
>>
>

Perdona es lo de el auto incremento, gracias
"Paco V" <ssi@ono.com> escribió en el mensaje
news:44bb59bf$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>
> Pilo:
> Yo hago lo siguiente, aunque seguro que se puede hacer mas facil:
>
> Ordeno la BD por el campo Numero.
> ::oDbfDataSet1:OrdSetFocus( 1 )
>
> voy al último registro.
> ::oDbfDataSet1:gobottom()
> Tomo el valor y le sumo uno.
> ::oDbEdit2:Value := ::OdbfDataset1:Numero +1
>
> Grabo el registro nuevo.
>
> Ten en cuenta que tienes que hacerlo justo al grabar el registro si
> trabajar
> en multipuesto.
>
>
>
>>
>>Otra cosa un ejemplo de un campo que sea autoincremento si es posible
>>Graccias a todos de antemano.
>>
>>
>>
>

Gracias funciona bien, hay alguna forma de ponerlo en el dataset
"Paco V" <ssi@ono.com> escribió en el mensaje
news:[email=44bb5a0e@news.xailer.com...]44bb5a0e@news.xailer.com...[/email]
>
> Pilo, lo puedes poner en el MAIN del modulo principal.
> Paco V
>
> "PILO" <srmpilo@hotmail.com> wrote:
>>Me puede decir en dondo lo pongo, estoy empezando con xailer y vengo del
>
>>clipper tradicional
>>gracias de antemano
>>
>>"Paco V" <ssi@ono.com> escribió en el mensaje
>>news:[email=44bb570d@news.xailer.com...]44bb570d@news.xailer.com...[/email]
>>>
>>> Prueba a poner set delete off
>>>
>>> Paco V
>>>
>>> "PILO" <srmpilo@hotmail.com> wrote:
>>>>Hola en un tdbbrowse, cuando utilizo lo de borrar
>>>>METHOD Delete() CLASS tform1
>>>>
>>>> if MsgYesNo( "¿Borrar actual registro?" )
>>>> ::oDataSet:Delete()
>>>> endif
>>>>
>>>>RETURN NIL
>>>>
>>>>al volver me borra los datos y me pone un registro en blanco
>>>>y lo que quiero es que se quite del tdbbrowse
>>>>
>>>>y en el tdbfdataset tengo ireusedel = .t.
>>>>ikeyexact=.f.
>>>>
>>>>que tengo que hacer para que se quiten los registros en blanco,
>>>>con prometeus cuando veo la base de datos los tiene marcados como
>>>>borrados
>>>>
>>>>Otra cosa un ejemplo de un campo que sea autoincremento si es posible
>>>>Graccias a todos de antemano.
>>>>
>>>>
>>>>
>>>
>>
>>
>

Como puedo hacer un pack en el tdbbrowse

Pilo, alguien con mas conocimientos te contestara mejor.
Pero creo que no es buena idea hacer Pack a las bases de datos salvo que
ocurra algo que lo aconseje.
Hay una opción que hace que se utilicen los registros borrados, asi que para
que hacer que los borre.
Creo que es: lReUseDel
Paco V
"PILO" <srmpilo@hotmail.com> wrote:
>Como puedo hacer un pack en el tdbbrowse
>
>

Aparte de usar el
Set Deleted On //al inicio de tu aplicacion
Anexa en tus Indices
Index On MiLLave To MiIndice Tag MiLLave For !Deleted()
y apenas le aplique el delete el browse ya no lo presenta.
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

gracias Ramón