Problema con Edit Mask
Hola dominicampower
Chequea este codigo:
*------ EJ: 39900.000- se cambia por -39900.000 -----------------------*
DATA: w_len TYPE i, w_lastc, w_var(50).
LOOP AT t_datos.
CONDENSE t_datos-valor.
w_len = STRLEN( t_datos-valor ).
CHECK w_len GT 1.
SUBTRACT 1 FROM w_len.
w_lastc = t_datos-valor+w_len(1).
IF w_lastc EQ '-'.
w_var = t_datos-valor(w_len).
CONCATENATE '-' w_var INTO t_datos-valor.
ENDIF.
MODIFY t_datos.
ENDLOOP.
*----------------------------------------------------------------------*
El campo t_datos-valor debe ser del tipo char
Basicamente lo que hace el codigo es detectar la posicion donde esta el negativo dentro de una variable char (T_DATOS-VALOR) y separa los numeros del signo y luego los concatena de la forma que se quiere.
Espero haberte ayudado
Saludos
__________________
GregoryG
Úlima edición por Gregoryg fecha: 08/01/07 a las 17:59:03.
|