Ver Mensaje Individual
  #2  
Viejo 08/01/07, 17:52:46
Gregoryg Gregoryg is offline
Senior Member
 
Fecha de Ingreso: abr 2006
Localización: Caracas, Venezuela
Mensajes: 115
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.
Responder Con Cita