Enero 2007 - Weblogs sobre SAP

Desde que descubrí los listados ALV, y creo que eso fue por el año 2002, practicamente el 90% de los informes que he hecho son de este estilo. Para automizar el desarrollo de los mismos, y poder concentrarme en la lógica funcional del programa cree el include ZBCIALV que encapsulaba las engorrosas funciones que necesitaba.
Eso me permite hacer listados ALV de forma muy rápida, como muestra el siguiente ejemplo:

REPORT ZALV_FACIL.
 
include ZBCIALV.
 
data: begin of i_listado occurs 0,
bukrs like t001-bukrs,
butxt like t001-butxt,
end of i_listado.
 
start-of-selection.
 
select * from t001
into corresponding fields of table i_listado.
 
v_alv_pf_status = ''.
PERFORM listado_tabla_alv TABLES i_listado
USING 'I_LISTADO'
alv_fieldtab.

Compartelo

Permalink Comentarios (3)

Scripting Languages WIKI

Enero 12, 2007 @ 8:35 am · Filed under Otros lenguages

El SDN tiene desde hace algún tiempo un excelente WIKI.

Y ahora, gracias a un pedido de Craig Cmehil, me estoy encargado de actualizar mi sección favorita Scripting Languages WIKI.

Así que ya saben -:P Si necesitan información sobre Lenguajes Script y SAP ya saben en donde buscar…

Saludos,

Blag.

Technorati tags: sdn blogger

Compartelo

Permalink Comentarios

CLOI_PUT_SIGN_IN_FRONT…

Enero 10, 2007 @ 9:27 am · Filed under ABAP

Si alguna vez han querido cambiar la posición del signo negativo en ABAP (El standard es 100-) para que quede así -100, habrán buscado y encontrado la función CLOI_PUT_SIGN_IN_FRONT y claro, se habrán dado cuenta de que no sirve para todos los casos e inclusive no funciona en modo de test…Por eso, hice un pequeño form para solucionar los pequeños inconvenientes -;)

REPORT z_dummy_atg_3.

DATA: value TYPE p DECIMALS 2,
value_text(18) TYPE c,
text1(18) TYPE c.

value = ‘15.2-’.
WRITE value TO value_text.

PERFORM cambiar_signo CHANGING value_text.

WRITE:/ value_text.

*&————————————————–*
*& Form CAMBIAR_SIGNO
*&————————————————–*
* Cambia la posición del signo
*—————————————————*
FORM cambiar_signo CHANGING value_text.

SEARCH value_text FOR ‘-’.
IF sy-subrc = 0 AND sy-fdpos <> 0.
SPLIT value_text AT ‘-’ INTO value_text text1.
CONDENSE value_text.
CONCATENATE ‘-’ value_text INTO value_text.
ELSE.
CONDENSE value_text.
ENDIF.

ENDFORM. “CAMBIAR_SIGNO

Saludos,

Blag.

Compartelo

Permalink Comentarios

¿CONVERSION_EXIT_ALPHA_OUTPUT?

Enero 10, 2007 @ 5:50 am · Filed under ABAP

La función CONVERSION_EXIT_ALPHA_OUTPUT es muy útil cuando queremos eliminar los ceros de una cadena…Por ejemplo si tenemos 0000012345, nos devuelve 12345…Pero…que pasa cuando tenemos 00000E12345, simple…el resultado va a seguir siendo 00000E12345.
Por lo tanto y puesto que ayer me ví en un problema muy similar, decidí crear un form muy simple -;)

*&———————————————————-*
*& Form quitar_ceros *
*&———————————————————-*
* Quitamos les ceros del inicio *
*———————————————————–*
FORM quitar_ceros CHANGING t_codigo.

DATA: long TYPE i,
char TYPE c,
cero TYPE c,
counter TYPE i,
new_text(18) TYPE c,
flag TYPE c.

cero = ‘0′.
long = STRLEN( t_codigo ).

DO long TIMES.
counter = counter + 1.
IF counter EQ long.
EXIT.
ENDIF.
char = t_codigo+counter(1).
IF char NE cero.
CONCATENATE new_text t_codigo+counter(1)
INTO new_text.
flag = ‘X’.
ELSE.
IF flag EQ space.
CONTINUE.
ELSE.
CONCATENATE new_text t_codigo+counter(1)
INTO new_text.
ENDIF.
ENDIF.
ENDDO.