necesito una funcion para agregar ceros a izquierda a un char
Hola, necesito una funcion para agregar ceros a izquierda a un char y otra para quitar ceros a izquierda a un char (MATNR). Espero me puedan ayudar, muchas gracias :)
|
existen estas funciones.
CONVERSION_EXIT_ALPHA_INPUT: llena con 0 la izq. '000000001'. CONVERSION_EXIT_ALPHA_OUTPUT: borra 0 a la izq. ojala te sirvan. salu2. |
No me sirve ya que es un char y cuando pongo una letra no me quita/agrega los ceros. Ej: 00067U3064 |
dale un:
loop at it_File. SHIFT it_file-matnr RIGHT DELETING TRAILING SPACE. Do. replace space with '0 ' into it_file-matnr. if sy-subrc <> 0. exit. endif. enddo. endloop. espero te sirva |
La manera más fácil es haciendo un UNPACK nombredevariable, para que te agregue los 0, y un PACK para que los elimine.
Saludos:) |
WRITE im_data_new-bednr TO l_kostl RIGHT-JUSTIFIED.
TRANSLATE l_kostl USING ' 0'. |
si el problema para usar las funciones que te ha dicho gcid por que es un texto no tienes mas convertirlo a integer y luego aplicar la funcion.
MOVE STRCLAVE(char3) TO INTCLAVE(int). lo de las parentesis no creo que es necesario ponerlo pero cada variable si que tiene del tipo correspondiente. y luego aplicar la funcion con la variable integer. |
Que tal con la funcion instruccion OVERLAY
OVERLAY text1 WITH text2 [ONLY pattern]. Saludos. |
Saludos a todo el foro:
Yo necesité hacer lo mismo (quitar los ceros) y la manera más sencilla y rápida fue con el PACK, gracias a conrad10ar por la información. No he utilizado el unpack, pero les haré llegar mis resultados.. :D |
Husos Horarios son GMT. La hora en este momento es 01:57:38. |
www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web