Una Solucion?

[Mike Serra]

Buenas Noches foro, a ver si me podeis echar una mano. . .
En una tabla tengo lo siguiente:

140001
140002
410001
410002
410003

Ahora bien, en un get introduzco 2 digitos (o 14 o 41), y en ese mismo get tiene que completarlo con el siguiente valor, es decir, si en el get pulso 14 se completara y quedara 140003 o 41 y el get quedará 410004

Casi todo funciona bien, ya que la función que me calcula y actualiza el get está en su valid

Code: Select all  Expand view  RUN

redefine get oget1 var Codigo id 201 of odlg valid CalculaNumero(@Codigo,oget1)


pero la funcion se ejecuta 2 veces, 1 cuando introduzco los 2 dígitos y pulso intro, y otro cuando ya lo ha calculado y refresca/actualiza el get, se lanza.

He probado poniendo en la funcion CalculaNumero (antes de actualizar el get) un:
oGet1:bValid:=nil y tambien
oGet1:bValid:={||.t.}
pero no funciona.

¿Sabeis como puedo hacer que se ejecute solo la primera vez?

MUCHAS GRACIAS y buenas noches

[Antonio Linares]

Mike,

Puedes usar la longitud del código:

Code: Select all  Expand view  RUN

redefine get oget1 var Codigo id 201 of odlg valid If( Len( AllTrim( Str( Codigo ) ) ) == 2, ( CalculaNumero(@Codigo,oget1), .T. ), .T. )


[triumvirato]

Mike,

Una cosa que se me ocurre, es que fueses haciendo el cálculo desde la cláusa ON CHANGE del get, según se van pulsando teclas, en lugar de hacer ese cálculo con el VALID. Después en el VALID puedes hacer la comprobación, sin variar el contenido del GET...

Saludos.

[Ramon Paredes]

Mike,

Prueba esto, a mi me funciona ok,

// este es el get
REDEFINE oGet1 Var mNumero ID 110 of oDlg VALID(SIGUE(@mNumero,@oGet1))


function sigue(Fnum,foNum)

// debes de tener una tabla con 2 campos numericos donde llevar el control del consecutivo

if substr(fnum,1,2) = "14"
SELECT CONTROL
MULTIMO = control->ULTIMO
else
//SELECT CONTROL
MULTIMO = control->ULTIMO1
endif

xNumero = str(mUltimo + 1)
xNumero = rellena(xNumero,"0",3)
fNum = substr(fNum,1,2)+xNumero

foNum:Varput(fNum)
foNum:Refresh()

RETURN .t.

// despues al momento de grabar el registro actualizas tu tabla de control asi :

SELECT CONTROL
xdato = substr(mNumero,3,3)
control->ULTIMO = val(xdato)

// y listo para el siguiente registro

//====================
FUNCTION RELLENA()
//====================

PARAMETERS FCAMPO,FCAR,FLONG

LOCAL oRet, FC, FL, FD

IF LEN(ALLTRIM(FCAMPO)) = FLONG
FD := FCAMPO
ELSE
FC = ALLTRIM(FCAMPO)
FL = LEN(FC)
FD = REPLICATE(FCAR,FLONG-FL)+FC
ENDIF

RETURN FD


Saludes desde Managua, Nicaragua

Ramon Paredes