Error al asignar Values a TDBMaskEdit
Publicado: Vie Jun 01, 2007 10:03 am
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.
--
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.
--