amable escribió:
Hola
Otra pequeña diferencia entre la v2 y la v3, recojo el Numero de cliente y lo relleno a 0, si el cliente introduce 1 el programa guarda 000000000001, pero con mas de 10 cifras la lia
/*
* Evento OnExit.
*/
METHOD LabeledEdit1OnExit( oSender ) CLASS TTitular
Local buscar := ::labeledEdit1:caption
qout(buscar) //si tiene mas de 10 cifras por ejemplo 123456789012
if VAL(buscar)= 0
MessageDLG("Campo NUMERICO obligatorio",mtError, mbOk)
oSender:setfocus()
return
endif
SELE ftitu
DBSETORDER(1)
buscar := STRZERO(VAL(buscar),12)
qout(buscar) //con la versión 2 devolvía 123456789012 con la V3 aparece -
Creo que se trata de un problema de coma flotante pero no se por donde cogerlo
Saludos
Exactamente, pasa eso.