In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Error al asignar Values a TDBMaskEdit

Foro de Xailer profesional en español
Angel
Mensajes: 135
Registrado: Mié Mar 21, 2007 1:11 pm

Error al asignar Values a TDBMaskEdit

Mensaje por Angel »

Saludos!
Cuando estoy intentanto asignar valores calculados mediante a una
función a campos TDBMaskEdit, me aparece el error que en la imagen adjunto.
Esta es la función a la cual se llama desde el formulario.
METHOD CalculosEntrada( oSender ) CLASS FRMVoEdit
LOCAL nBaseImp,nIva,nPrecio,nTotal, lCalculado:=.F.
//A continuación se toman los valores de los objetos TDBMaskEdit.
//Tienen como propiedad Picture: 999999999
nBaseImp:=(::oEdiEntBaseImp:Value)
nIva:=(::oEdiEntIva:Value)
nPrecio:=(::oEdiEntPrecio:Value)
nTotal:=(::oEdiEntTotal:Value)
IF ::oEdiEntRegimen:nIndex = 1 //índice Objeto ComboBox
IF(!EMPTY(nBaseImp) .AND. !EMPTY(nIva))
nTotal:=nBaseImp + nIva
::oEdiEntTotal:=nTotal //Se asigna el total
lCalculado:=.T.
END IF
IF(!EMPTY(nBaseImp) .AND. EMPTY(nIva))
nIva:=(nBaseImp * 0.16)
nTotal:=nBaseImp + nIva
::oEdiEntTotal:=nTotal //Se asigna el total
lCalculado:=.T.
END IF
IF(EMPTY(nBaseImp) .AND. !EMPTY(nIva))
nBaseImp:=(nIva / 0.16)
nTotal:=nBaseImp + nIva
::oEdiEntTotal:=nTotal //Se asigna el total
lCalculado:=.T.
END IF
IF (lCalculado = .T.)
::oEdiEntBaseImp:Value:=ABS(nBaseImp)
::oEdiEntIva:Value:=ABS(nIva)
::oEdiEntPrecio:Value:=ABS(nPrecio
::oEdiEntTotal:Value:=ABS(nTotal)
END IF
ELSE
//Especial
END IF
RETURN Nil
¿A que es debido este error? He intentado solucionarlo, pero no
encuentro la manera. No se si es debido al picture, o si es debido a lo
que se comenta en la ayuda, de que el método Value de un TDBMaskEdit lo
convierte en ¿formato caracter?
P.D. El metodo CalculosEntrada, es el evento OnClick del Bitmap de la
calculadora.
--
Responder