Class Ayuda From XailerTeam

[zeasoftware]

Hola:
Hoy les pregunto a los del Xailer Team, como puedo hacer para cambiar el
AddNew()?
Lo que quiero es limitar el #de registros de las DBF para lanzar unas
versiones DEMO a mis clientes, y prospectos de cliente.
Ya hice pruebas escribiendo el AddNew en una Clase TDataSet from XDataSet,
pero no surte efecto.
de antemano Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/

[jose.luis]

Ramón,
¿Como reescribiste el método addnew?
Saludos,
José Luis Capel
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=454ad2f2@news.xailer.com...]454ad2f2@news.xailer.com...[/email]
> Hola:
>
> Hoy les pregunto a los del Xailer Team, como puedo hacer para cambiar el
> AddNew()?
>
> Lo que quiero es limitar el #de registros de las DBF para lanzar unas
> versiones DEMO a mis clientes, y prospectos de cliente.
>
> Ya hice pruebas escribiendo el AddNew en una Clase TDataSet from XDataSet,
> pero no surte efecto.
>
> de antemano Gracias.
>
> --
> Ramón Zea
> ramonzea@yahoo.com
> zeasoftware@hotmail.com
> zeasoft.movil@hotmail.com
> http://www.paginasprodigy.com/zeasoft/
>

[pablogarciau]

Pues yo no soy del Equipo de Xailer pero voy a meter micuchara, a ver si
atino
CLASS TmyDataSet FROM TDataSet
METHOD AddNew() CLASS TMyDataSet
local lRet:=.f.
IF ::Reccount()<101
lRet:=::super:Addnew()
END
RETURN lRet
supongo que todo lo demas de la clase se hereda automaticamente
solo que tendrias que condicionar en el lugar donde mandas el addnew()
por medio del valor de retorno que accion tomaras (mandar un mensaje y/o
cerrar el formulario)
SALUDOS

[pablogarciau]

Perdon, tal vez deberia ser TmyDBFDATASET heredada de la clase
TDBFDATASET, si no se perderia la jerarquia de las clases descendientes

[zeasoftware]

Class TDataSet From XDataSet
Method AddNew()
EndClass
METHOD AddNew() CLASS TDataSet
Local lOk := .f.
If ( ::RecCount() == 5 )
MsgStop("Esta versión es límitada." + CRLF + ;
"Consulte a un Proveedor para una Licencia.")
Else
lOk := Super:AddNew()
End
RETURN ( lOk )
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"José Luis Capel -" <jose.luis@capelsoft.com> escribió en el mensaje
news:454aed9f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> ¿Como reescribiste el método addnew?
>
> Saludos,
> José Luis Capel
>
> "ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=454ad2f2@news.xailer.com...]454ad2f2@news.xailer.com...[/email]
>> Hola:
>>
>> Hoy les pregunto a los del Xailer Team, como puedo hacer para cambiar el
>> AddNew()?
>>
>> Lo que quiero es limitar el #de registros de las DBF para lanzar unas
>> versiones DEMO a mis clientes, y prospectos de cliente.
>>
>> Ya hice pruebas escribiendo el AddNew en una Clase TDataSet from
>> XDataSet, pero no surte efecto.
>>
>> de antemano Gracias.
>>
>> --
>> Ramón Zea
>> ramonzea@yahoo.com
>> zeasoftware@hotmail.com
>> zeasoft.movil@hotmail.com
>> http://www.paginasprodigy.com/zeasoft/
>>
>
>

[jose.luis]

Ramón,
Puede ser que haces ??
> If ( ::RecCount() == 5 )
Cuando podría ser ??
> If ( ::RecCount() >= 5 )
Saludos,
José Luis Capel

[zeasoftware]

--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"José Luis Capel -" <jose.luis@capelsoft.com> escribió en el mensaje
news:454b5393$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Puede ser que haces ??
>
>> If ( ::RecCount() == 5 )
>
> Cuando podría ser ??
>
>> If ( ::RecCount() >= 5 )
>
> Saludos,
> José Luis Capel
>
>

[zeasoftware]

Si tienes razon, la cosa es que estaba manejando solo 3 registroas antes de
la prueba.
Pero aun asi, no afecta,
Debo sobrecargar TDBFDataSet o TDataSet?
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"José Luis Capel -" <jose.luis@capelsoft.com> escribió en el mensaje
news:454b5393$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Puede ser que haces ??
>
>> If ( ::RecCount() == 5 )
>
> Cuando podría ser ??
>
>> If ( ::RecCount() >= 5 )
>
> Saludos,
> José Luis Capel
>
>

[jose.luis]

Ramón,
Si solo vas a usar dbfs, la tdbfdataset es suficiente. ¿Puedes dejarnos un
proyecto simple donde se pueda ver lo que te está ocurriendo? Mira a ver si
alguno de los ejemplos puedes modificarlo y ver si te ocurre lo mismo.
Saludos,
José Luis Capel
www.capelblog.com
www.mundoxbase.info
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=454b8894@news.xailer.com...]454b8894@news.xailer.com...[/email]
> Si tienes razon, la cosa es que estaba manejando solo 3 registroas antes
> de la prueba.
>
> Pero aun asi, no afecta,
> Debo sobrecargar TDBFDataSet o TDataSet?
>
> Gracias.
> --
> Ramón Zea
> ramonzea@yahoo.com
> zeasoftware@hotmail.com
> zeasoft.movil@hotmail.com
> http://www.paginasprodigy.com/zeasoft/
> "José Luis Capel -" <jose.luis@capelsoft.com> escribió en el mensaje
> news:454b5393$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Ramón,
>>
>> Puede ser que haces ??
>>
>>> If ( ::RecCount() == 5 )
>>
>> Cuando podría ser ??
>>
>>> If ( ::RecCount() >= 5 )
>>
>> Saludos,
>> José Luis Capel
>>
>>
>
>