Ejemplo de clave consecutiva en catalogos

[Javier Parada]

Pues nada, que sigo en las mismas, y he llegado a la conclusion que
probablemente estoy tratando de "combinar frutas con clavos", por asi
decirlo,
el caso es que como lo he comentado anteriormente me he agarrado del ejemplo
DbfData6, en una parte del FrmClientes
hay este codigo y a mi se me ocurrio que prodria hacer lo siguiente
METHOD MantenAlta( oSender ) CLASS TFrmClientes
WITH OBJECT TFrmCliEdi()
:lOnAppend := .t.
:New( Application:oMainForm )
::oDbfClientes:AddNew()
cNumCte:=SigFolio(::oDbfCli,::oDbfCli:f_num_cte)
.... donde cNumCte es el nombre de control TDBMaskEdit dentro del form
FrmCliEdi
La idea es clara si es un alta que me de el consecutivo de la clave de
cliente, sin que el usuario pueda modificar,
y digo que probablemente estoy tratando de combinar estos codigos mal hecho
pk estoy muy acostumbrado a como lo hacia en clipper
si no es por aki la cosa.. alguien tiene un ejemplo muy claro como para un
principiante como yo como puedo hacer esto que quiero.
si estoy mal intentando por este camino, cual seria la forma correcta..
Saludos
Gracias..
Javier Parada

[pablogarciau]

por lo pronto, y asumiendo que cNumCte es un control :
cNumCte:Value := SigFolio(::oDbfCli,::oDbfCli:f_num_cte)
lo demas supongo lo hara tu funcion,
Saludos, espero que te sirva

[pablogarciau]

:cNumCte:Value := SigFolio(::oDbfCli,::oDbfCli:f_num_cte)

[zeasoftware]

Te dejo el proceso que uso con el evento OnAddNew(),
METHOD ClienteNuevo( oSender ) CLASS TClientes
With Object ::oDataSet
If ( :RecCount() == 0 )
:Clave(dsFIELD) := "00001"
Else
:SaveState(.t.)
:GoBottom()
:Clave(dsVAR) := zFillZero(:Clave(dsFIELD), 5, 1) //lo relleno 0000x
:RestoreState(.t.)
End
End
End
RETURN ( Nil )
Espero te ayude.
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Javier Parada" <jparada_a@hotmail.com> escribió en el mensaje news:[email=46ba6530@ozsrv2.ozlan.local...]46ba6530@ozsrv2.ozlan.local...[/email]
> Pues nada, que sigo en las mismas, y he llegado a la conclusion que
> probablemente estoy tratando de "combinar frutas con clavos", por asi
> decirlo,
>
> el caso es que como lo he comentado anteriormente me he agarrado del ejemplo
> DbfData6, en una parte del FrmClientes
> hay este codigo y a mi se me ocurrio que prodria hacer lo siguiente
>
> METHOD MantenAlta( oSender ) CLASS TFrmClientes
>
> WITH OBJECT TFrmCliEdi()
> :lOnAppend := .t.
> :New( Application:oMainForm )
> ::oDbfClientes:AddNew()
> cNumCte:=SigFolio(::oDbfCli,::oDbfCli:f_num_cte)
>
> ... donde cNumCte es el nombre de control TDBMaskEdit dentro del form
> FrmCliEdi
>
> La idea es clara si es un alta que me de el consecutivo de la clave de
> cliente, sin que el usuario pueda modificar,
>
> y digo que probablemente estoy tratando de combinar estos codigos mal hecho
> pk estoy muy acostumbrado a como lo hacia en clipper
>
> si no es por aki la cosa.. alguien tiene un ejemplo muy claro como para un
> principiante como yo como puedo hacer esto que quiero.
> si estoy mal intentando por este camino, cual seria la forma correcta..
>
> Saludos
>
> Gracias..
>
> Javier Parada
>
>
--

[jfgimenez]

Javier,
como te ha puesto Ramón en su ejemplo, el truco está en llamar a SaveState()
antes de SigFolio() y llamar a RestoreState() después para volver al estado
en el que estaba el dataset antes de la búsqueda. La otra opción sería
llamar a SgiFolio() antes del AddNew().
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Javier Parada]

Gracias por responder amigos pero no me va, con mi funcion como me indico
Juan Pablo, y tampoco con el de Ramón Zea, seguro estoy haciendo algo mal,
seria mucho pedir que me mandaran un pequeño proyecto, donde haga esto del
consecutivo..
Gracias
Javier Parada
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:46bad1b7$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Javier,
>
> como te ha puesto Ramón en su ejemplo, el truco está en llamar a
> SaveState() antes de SigFolio() y llamar a RestoreState() después para
> volver al estado en el que estaba el dataset antes de la búsqueda. La otra
> opción sería llamar a SgiFolio() antes del AddNew().
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>