Comentarios en: ¿CONVERSION_EXIT_ALPHA_OUTPUT? http://blog.sap4.com/2007/01/10/%c2%bfconversion_exit_alpha_output/ Weblogs de SAP en Castellano Tue, 06 Jan 2009 04:57:51 +0000 http://wordpress.org/?v=2.6.2 By: vlozano http://blog.sap4.com/2007/01/10/%c2%bfconversion_exit_alpha_output/#comment-20 vlozano Mon, 12 Feb 2007 10:47:52 +0000 http://blog.sap4.com/2007/01/10/%c2%bfconversion_exit_alpha_output/#comment-20 estamos en el REPLACE... no estoy muy seguro de que esa sintaxis sea la mejor... primero pq es un método obsoleto (según la documentación de SAP en la 4.6), y segundo pq no tenemos control sobre las posiciones que reemplazará... el texto+posición(posiciones) es una cabronada de leer, pero te aseguras que a no ser que los chicos de walldorf cambien todo el sistema de sub-cadenas, siga funcionando ad aeternum... otra opción es utilizar el REPLACE SECTION para controlar las posiciones a reemplazar échale un vistazo a la documentación y me cuentas (que no pienso hacer pruebas en horarios de trabajo, y en casa el ordenador está para jugar) estamos en el REPLACE… no estoy muy seguro de que esa sintaxis sea la mejor… primero pq es un método obsoleto (según la documentación de SAP en la 4.6), y segundo pq no tenemos control sobre las posiciones que reemplazará…

el texto+posición(posiciones) es una cabronada de leer, pero te aseguras que a no ser que los chicos de walldorf cambien todo el sistema de sub-cadenas, siga funcionando ad aeternum…

otra opción es utilizar el REPLACE SECTION para controlar las posiciones a reemplazar

échale un vistazo a la documentación y me cuentas (que no pienso hacer pruebas en horarios de trabajo, y en casa el ordenador está para jugar)

]]> By: Blag http://blog.sap4.com/2007/01/10/%c2%bfconversion_exit_alpha_output/#comment-16 Blag Fri, 02 Feb 2007 12:42:44 +0000 http://blog.sap4.com/2007/01/10/%c2%bfconversion_exit_alpha_output/#comment-16 Hola VLozano: Tu idea es bastante bueno y un poco más corta que la mía -:) Le hice unos pequeños ajustes y aquí está....Gracias por la colaboración!!! REPORT ZPRUEBA. DATA: L_LEN TYPE I, LPOS TYPE SY-INDEX, CERO(1) TYPE C VALUE 0. DATA: TEXTO TYPE STRING. TEXTO = '00000E123450'. L_LEN = STRLEN( TEXTO ). DO L_LEN TIMES. LPOS = SY-INDEX - 1. IF TEXTO+LPOS(1) NE CERO. EXIT. ELSE. REPLACE '0' WITH SPACE INTO TEXTO. ENDIF. ENDDO. CONDENSE TEXTO. WRITE:/ TEXTO. Saludos, Blag. Hola VLozano:

Tu idea es bastante bueno y un poco más corta que la mía -:) Le hice unos pequeños ajustes y aquí está….Gracias por la colaboración!!!

REPORT ZPRUEBA.

DATA: L_LEN TYPE I,
LPOS TYPE SY-INDEX,
CERO(1) TYPE C VALUE 0.
DATA: TEXTO TYPE STRING.

TEXTO = ‘00000E123450′.

L_LEN = STRLEN( TEXTO ).
DO L_LEN TIMES.
LPOS = SY-INDEX - 1.
IF TEXTO+LPOS(1) NE CERO.
EXIT.
ELSE.
REPLACE ‘0′ WITH SPACE
INTO TEXTO.
ENDIF.
ENDDO.
CONDENSE TEXTO.

WRITE:/ TEXTO.

Saludos,

Blag.

]]> By: VLozano http://blog.sap4.com/2007/01/10/%c2%bfconversion_exit_alpha_output/#comment-15 VLozano Fri, 02 Feb 2007 10:13:39 +0000 http://blog.sap4.com/2007/01/10/%c2%bfconversion_exit_alpha_output/#comment-15 No sería más sencillo algo del tipo: *--- sin garantía de funcionamiento, un esbozo DATA: l_len TYPE i, l_pos TYPE sy-index. l_len = STRLEN( texto ). DO l_len TIMES. l_pos = sy-index. IF texto+lpos(1) NE cero. EXIT. ELSE. texto+lpos(1) = space. ENDIF. ENDDO. CONDENSE texto. * -----hasta aquí el código El DO n TIMES ya controla que no nos salgamos del texto, y el IF inicial ya nos echa del bucle cuando la posición no es cero (podría incluirse el blanco por si acaso). Estamos sustituyendo los ceros iniciales por espacios, y el CONDENSE los eliminará, dejando ese E1234 que buscamos. ¿O la estoy cagando en alguna parte? No sería más sencillo algo del tipo:

*— sin garantía de funcionamiento, un esbozo
DATA: l_len TYPE i,
l_pos TYPE sy-index.

l_len = STRLEN( texto ).
DO l_len TIMES.
l_pos = sy-index.
IF texto+lpos(1) NE cero.
EXIT.
ELSE.
texto+lpos(1) = space.
ENDIF.
ENDDO.
CONDENSE texto.
* —–hasta aquí el código

El DO n TIMES ya controla que no nos salgamos del texto, y el IF inicial ya nos echa del bucle cuando la posición no es cero (podría incluirse el blanco por si acaso).
Estamos sustituyendo los ceros iniciales por espacios, y el CONDENSE los eliminará, dejando ese E1234 que buscamos.

¿O la estoy cagando en alguna parte?

]]>