Número de más de 4 decimales en Textbox

[Fito]

Hola Amigos:

Necesito ingresar un número que tiene mas de 4 decimales, el textbox solamente me permite 4, qué control puedo usar.

Probé con el ctNedit de dbi-tech, pero debe haber alguna incompatibilidad porque me da un errror y se cierra el proyecto.

Saludos.

Fito...

[Kuk]

Fito, define el "RenderText" en "Standard" y haz lo siguiente:


WORKING-STORAGE SECTION.
01 EDT-DECIMAL PIC Z(5)9,9(6).

PROCEDURE DIVISION:

MOVE 1234,456789 TO EDT-DECIMAL

MOVE EDT-DECIMAL TO POW-TEXT OF CmText1

[Fito]

Hola KUK: Gracias por responder.

Para cuando quiero mostrar lo puedo hacer de esa manera, el tema es que quiero que el operador ingrese ese dato, y siempre me redondea en 4 decimales.

Gracias. Fito...

[lfarias]

Hola Fito:
Net Cobol soporta hasta 4 digitos decimales.. no mas que eso.
Es increible pero es asi.
Saludos. luis

[Fito]

Hola amigos:

Buscando en mi "baúl de descargas" (siempre descargo cosas que en algún momento te sirve) encontré una solución, siempre hay alguno que le pasó lo mismo. No sé de quien es el código para agradecerle.

En el rendertext lo puse como COBOL PICTURE, y definí el picture z.z(6), me dio el error de que no puede tener mas de 4 decimales, pero no le di importancia.

Para mover los valores creé un par de variables.


01 w-texto pic x(9).
01 w-numero redefines w-texto pic +z.z(6).


y para asignar un valor al textbox


move campo to w-numero.
move w-texto to "text" of txtTextBox.


y para tomar el valor ingresado por el operador hago al reves.

move "text" of txtTextBox to w-texto.
move w-numero to campo.


Saludos.

Fito.

[Kuk]

Fito, quieres decir que con PIC editado aunque de error no lo modifica automáticamente a 4 decimales?

Yo lo que haría es meter 2 TextBox, evaluando cuando se haya llenado uno y enfocando el segundo.
También está el OCX MaskEdit de Microsoft.

[Fito]

Exacto KUK.

En realidad se maneja como texto y lo convertís a número con el redefines. Pero con el picture así validás que sean números y que el punto decimal esté donde queremos.

Fijate que la variable numérica editada tiene el signo, es importante.

El tema de los dos textbox no me gusta tanto, hay que hacer varios controles.

Saludos.

Fito