Para mas información lean su blog en el SDN Something’s Coming
Saludos,
Blag.
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.
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
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.
*&———————————————————-*
*& 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.
t_codigo = new_text.
ENDFORM. “quitar_ceros
Lo que logramos con esto, es obtener el valor E12345
Saludos,
Blag.
Saludos,
Blag.
Y que hace tan especial a esta transacción? Pues es muy simple…Nos permite verificar si nuestros programas son compatibles con el modelo UNICODE.
Una excelente herramienta que todos deberíamos utilizar para evitar trabajo adicional al momento de trabajar en proyectos de migración.
Saludos,
Blag.
Technorati tags: sdn blogger
Saludos,
Blag.
Siguiendo con las cosas curiosas que se encuentran gracias a del.icio.us, he descubierto la web www.slideshare.net donde es posible compartir y visualizar online presentaciones en PowerPoint, al mismo estilo que en Youtube
Podéis encontrar algunas interesantes para la comunidad buscando por los tags: abap y sap.
Como muestra, dejo estas presentaciones:
SAP Interactive Forms by Adobe Overview
Enhancing the Usability of SAP Applications Using a Rich Client