ayuda con este pkño codigo

Campos "Autoincrementales" en VFP
http://www.portalfox.com/article.php?sidR7

Espero te sirva.

Mostrar la cita

k tal amigos como verán soy principiante y estoy en la captura de unos
datos y le agregúe a la tabla un campo k lleve una numeración por cada
registro nuevo. está de la siguiente forma

GO bottom
m.nValor = dainsumos.numero + 1
replace dainsumos.numero WITH m.nValor

pero en la sección donde está +1 no sé como hacer k el siguiente numero
sea 2 y asi sucesivamente por cada registro, creo k me explique estoy
usando la version 7.

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
email:mexicoSINSPAM[Arroba]portalfox.com

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

La opcion que da Esparta es la mas adecuada ya que hace el trabajo
automaticamente. Pero en tu codigo el problema es qu estas incrementando
el registro actual; debes abrir otro registro para que te funcione. Ej:

GO bottom
m.nValor = dainsumos.numero + 1
Append blank
replace dainsumos.numero WITH m.nValor

o

insert into DBF (numero) values (m.nValor)

Suerte...




-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

hola amigo yo utilizo este codigo :


* -- Funcion que se encarga de establecer el proximo correlativo del los
codigos
Function ProximoNumero(_Tipo)
Private wAlias,lEstaAbierto,wValor
wAlias = Select()
lEstaAbierto = .F.
If !Used("Contadores")
Abrir(oApp.CaminodelosDatos,"sap","Contadores","Contadores","S",.F.)
Else
lEstaAbierto = .T.
Endif
Select Contadores
Set Order To Codigo
Go Top
_Tipo=Upper(Alltrim(_Tipo))
Seek _Tipo
If !Found()
Select Contadores
Append Blank
Replace Codigo With _Tipo
=Tableupdate(.T.)
Endif
Select Contadores
Replace Contador With Contador + 1
=Tableupdate(.T.)
wValor = Contador

If !lEstaAbierto
Use In Contadores
Endif
Select(wAlias)
Return wValor
Endfunc


Saludos Cordiales!!!!

Ylber Aponte AP.
Coordinador Portalfox Venezuela Region Central <a
href="mailto:aragua&#64;portalfox.com">aragua&#64;portalfox.com</a>
<a href="mailto:carabobo&#64;portalfox.com">carabobo&#64;portalfox.com</a>
elzorro2004

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa