Aclaro que para poder hacer esto, se necesita que en la máquina donde se esté ejecutando el programa tenga instalada una versión de excel (yo lo intenté con libre office, pero me marca error y mandatoriamente tenemos que tener instalado el microsoft excel, cosas de SAP u_u ).

El código que he desarrollado para interactuar con esta función estándar de SAP es muy sencillo:

*&———————————————————————*
*& Report  Z_EXCEL_A_TI_10
*&
*&———————————————————————*
*&
*& PichuS
*&———————————————————————*

REPORT  Z_EXCEL_A_TI_10.

*PEDIMOS EL ARCHIVO A SUBIR
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME.
PARAMETERS  p_file  like rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BLK1.

*DECLARACIÓN DE ESTRUCTURA, LA CUAL DEBE CONCORDAR CON LOS DATOS DEL
*ARCHIVO DE EXCEL
TYPES: BEGIN OF TY_DATOS,
DISTRO(60),
VERSION(100),
DIFICULTAD(60),
END OF TY_DATOS.

DATA: P_FILE_NAME TYPE STRING,
P_FULLPATH TYPE STRING,
error(255),

IT_DATOS TYPE TABLE OF ty_datos,
WA_DATOS LIKE LINE OF  it_datos,

IT_EXCEL TYPE STANDARD TABLE OF alsmex_tabline,
WA_EXCEL TYPE alsmex_tabline,
V_ID TYPE I,
v_value(30).

at selection-screen on value-request for p_file.
*ESTA FUNCIÓN NOS AYUDA A UBICAR EL ARCHIVO COMO LO HARÍAMOS EN WINDOWS
CALL FUNCTION ’GUI_FILE_LOAD_DIALOG’
EXPORTING
WINDOW_TITLE            = ’Selecciona el archivo a cargar…’
FILE_FILTER             = ’,*.XLS,*.xls.’
IMPORTING
FILENAME                = P_FILE_NAME
FULLPATH                = P_FULLPATH.
IF SY-SUBRC = 0.
p_file = P_FULLPATH.
ENDIF.

start-of-selection.
*VERIFICAMOS QUE SE HAYA SELECCIONADO UN ARCHIVO DE EXCEL
*TAMBIÉN APLICA PARA EL FORMATO DE OFFICE 2007 ”.XLSX”
IF P_FILE_NAME IS INITIAL.
IF P_FILE NS ’.xls’.
perform mensaje_error.
MESSAGE error type ’E’.
EXIT.
ENDIF.
ELSE.
IF P_FILE_NAME NS ’.xls’.
perform mensaje_error.
MESSAGE error type ’E’.
EXIT.
ENDIF.
ENDIF.

*PASAMOS EL ARCHIVO DE EXCEL A LA TABLA INTERNA
CALL FUNCTION ’ALSM_EXCEL_TO_INTERNAL_TABLE’
EXPORTING
filename                = P_FILE
*COLUMNA DONDE SE EMPIEZA A BUSCAR DATOS
i_begin_col             = 1
*RENGLÓN DONDE SE EMPIEZA A BUSCAR DATOS
i_begin_row             = 1
*COLUMNA DONDE TERMINA DE BUSCAR DATOS
i_end_col               = 3
*RENGLÓN DONDE TERMINA DE BUSCAR DATOS
i_end_row               = 10
TABLES
*TABLA INTERNA DONDE ME REGRESA LOS DATOS
intern                  = it_excel
EXCEPTIONS
inconsistent_parameters = 1
upload_ole              = 2
OTHERS                  = 3.
IF SY-SUBRC <> 0.
MESSAGE e010(ad) WITH ’Error en el archivo, verifique datos’.
ELSE.
*ORDENAMOS DATOS EN TABLA FINAL.
DO.
V_ID = V_ID + 1.
LOOP AT it_excel INTO wa_excel WHERE ROW = V_ID.
CASE wa_excel-col.
WHEN ’0001′.
WA_DATOS-DISTRO      = wa_excel-value.
WHEN ’0002′.
WA_DATOS-VERSION     = wa_excel-value.
WHEN ’0003′.
WA_DATOS-DIFICULTAD  = wa_excel-value.
ENDCASE.
ENDLOOP.
“Si se cargaron datos a la tabla interna, validamos que venga
“información en campos que sean obligatorios
IF SY-SUBRC = 0.
IF WA_DATOS-DISTRO  IS INITIAL OR WA_DATOS-VERSION IS INITIAL.
MESSAGE i010(ad) WITH ’Faltan datos en el archivo’ DISPLAY LIKE ’E’.
EXIT.
ELSE.
append wa_datos to it_datos.
ENDIF.
ELSE.
EXIT.
ENDIF.
ENDDO.
IF it_datos[] IS INITIAL.
MESSAGE e010(ad) WITH ’Error en el archivo, verifique datos’.
“SI TODO HA SALIDO BIEN, YA TENEMOS LOS DATOS EN NUESTRA TABLA INTERNA
ELSE.
WRITE: SY-ULINE,10 ’DISTRO’,40 ’VERSION’,70 ’DIFICULTAD’,SY-ULINE,/.
LOOP AT IT_DATOS INTO WA_DATOS.
WRITE: 10 WA_DATOS-DISTRO,
40 WA_DATOS-VERSION,
70 WA_DATOS-DIFICULTAD,/.
ENDLOOP.
WRITE SY-ULINE.
ENDIF.
ENDIF.

form mensaje_error.
concatenate ’Archivo’ P_FILE_NAME ’Inválido’
‘Verifique que su archivo sea de tipo excel .xls’
into error separated by space.
endform.

Y listo, tan sencillo como eso, después de pasar los datos de excel a la tabla interna,  muestro en pantalla la información de la tabla para verificar que la los datos son correctos.

El archivo de Excel que yo enviaré es un fichero llamado “distribuciones_linux.xls” con la siguiente información:

Al correr el programa obtenemos lo siguiente:

• Primero debemos dar la ruta en donde está nuestro archivo, puedes utilizar el match code de ayuda que está en la parte derecha de la casilla “Archivo”:

• Después de indicar la dirección y el nombre del archivo excel de nuestro equipo, este se grabará en la casilla de “Archivo”:

• Posteriormente ejecutamos el programa y obtendremos los datos que se guardaron en nuestra tabla interna:

Cualquier duda o comentario, favor de contactarme por correo electrónico o dejen aquí sus comentarios.

Para esto, utilizamos una función de abap llamada “WS_DOWNLOAD” para realizar la transferencia de datos, y también utilizaremos la función “WS_FILENAME_GET ” para indicar el nombre y la ruta en donde deberá ser guardado nuestro archivo.

Veamos el código para realizar estas acciones:

*&———————————————————————*
*& Report  Z_IT_TO_FILE
*&
*&———————————————————————*
*&
*& PichuS
*&
*&———————————————————————*

REPORT  Z_IT_TO_FILE

TABLES: lfa1.

TYPES:
BEGIN OF itab_lfa1,
lifnr(10),    ”Account Number of Vendor or Creditor
land1(3),     ”Country Key
name1(35),    ”Name 1
ort1(35),     ”City
ort2(35),     ”District
regio(3),     ”Region (State, Province, Country)
adrnr(10),    ”Address
END OF itab_lfa1.

DATA:
it_vendor type STANDARD TABLE OF itab_lfa1.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: s_vendor for lfa1-lifnr.
PARAMETERS: s_key like lfa1-land1.
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS: p_file(128) type c LOWER CASE OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B2.
“por default, iniciará el path en C:
DATA: def_path(50) type c value ’c:\’.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION ’WS_FILENAME_GET’  “Definimos la ruta y el nombre del archivo
EXPORTING
DEF_FILENAME           = p_file
DEF_PATH               = def_path
MASK                   = ’,*.*,*.*.’
MODE                   = ’o’
TITLE                  = ’Select Path & Filename: ’
IMPORTING
FILENAME               = p_file
EXCEPTIONS
INV_WINSYS             = 1
NO_BATCH               = 2
SELECTION_CANCEL       = 3
SELECTION_ERROR        = 4
OTHERS                 = 5
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

“”"”"   Evento start-of-selection
start-OF-SELECTION.

perform select_data.

if it_vendor[] is not initial.
“realizamos la transferencia de información
CALL FUNCTION ’WS_DOWNLOAD’
EXPORTING
FILENAME                      = p_file
FILETYPE                      = ’DAT’ ” DAT OR ASCI
TABLES
DATA_TAB                      = it_vendor
EXCEPTIONS
FILE_OPEN_ERROR               = 1
FILE_WRITE_ERROR              = 2
INVALID_FILESIZE              = 3
INVALID_TYPE                  = 4
NO_BATCH                      = 5
UNKNOWN_ERROR                 = 6
INVALID_TABLE_WIDTH           = 7
GUI_REFUSE_FILETRANSFER       = 8
CUSTOMER_ERROR                = 9
NO_AUTHORITY                  = 10
OTHERS                        = 11
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
else. message ’No se encontraron datos’ type ’I’. stop.
endif.

form select_data. “seleccionamos los datos en la tabla interna

SELECT lifnr land1 name1 ort01 ort02 regio adrnr
INTO TABLE it_vendor
FROM lfa1
WHERE lifnr IN s_vendor AND
land1 = s_key.
endform.

Podemos observar que el código es muy sencillo de implementar, y la transferencia en los datos es muy rápida, al ejecutar el programa obtenemos lo siguiente:

• Primero debemos definir la ruta y el nombre (incluyendo el formato) del archivo a guardar

• Después SAP nos verifica el tamaño de datos transmitidos al archivo

• En la ruta seleccionada, observamos que se crea el archivo con el tipo de formato que le asignamos

• Finalmente verificamos que la información está contenida en el archivo.

Como podemos ver, podemos sacar mucha utilidad de este par de funciones.  Cualquier duda, ya saben me pueden contactar por correo electrónico. =D

En sap existe algo llamado ALV (Abap List Viewer) que es el encargado de presentar nuestros reportes de una manera mas práctica y funcional, su interfaz es mas elegante y nos permite realizar mas funcionalidades que un reporte normal.

CARACTERISTICAS DE ALV´s:

• Crear variantes de visualización: Se puede modificarse el formato de la lista. Se puede seleccionar los campos que desea visualizar, modificar la secuencia de campos y cambiar el ancho de las columnas para adecuarlo a sus necesidades.

• Clasificar: Las líneas pueden clasificarse en orden ascendente o descendente según el valor de columna.

• Fijar filtro: Es posible visualizar sólo aquellas líneas que cumplen determinados criterios.

• Valores totales y subtotales : En una lista pueden calcularse los totales y subtotales de una o más columnas seleccionadas.

• Exportar la información a un archivo de excel o word

Un ejemplo simple de un reporte en formato ALV es el siguiente:

*&———————————————————————*
*& Report  Z_ALV
*&
*&———————————————————————*
*&
*&
*&———————————————————————*

REPORT  Z_ALV.

TABLES sflight.

type-pools: slis.

“************     DECLARACIÓN DE ESTRUCTURAS     ************”
“************                                                                                ************”
TYPES:    BEGIN OF st_sflight,
carrid like sflight-carrid,
connid like sflight-connid,
fldate like sflight-fldate,
price  like sflight-price,
end of st_sflight.

“************     DECLARACIÓN DE DATOS           ************”
“************     TABLAS INTERNAS Y WORK AREAS   ************”
DATA:
ti_sflight type table of st_sflight,
wa_sflight type st_sflight,

layout_alv type slis_layout_alv,
ti_fieldcat_alv type slis_t_fieldcat_alv,
wa_fieldcat_alv type slis_fieldcat_alv.

“************     EVENTO START-OF-SELECTION      ************”
“************                                    ************”
start-of-selection.
perform obten_datos.
perform inicializa_layout.
perform arma_fieldcatalog.
perform muestra_alv.

“************     DECLARACIÓN DE SUBRUTINAS      ************”
“************                                    ************”

form obten_datos.                     “”"   Obtiene datos de la tabla de sistema
select carrid connid fldate price
from sflight
into  TABLE ti_sflight
up to 22 ROWS.
endform.

form inicializa_layout.
layout_alv-colwidth_optimize = ‘X’.
layout_alv-zebra = ‘X’.
layout_alv-window_titlebar = ‘Reporte en formato ALV’.  “”"Título de la ventana
endform.

form arma_fieldcatalog.

wa_fieldcat_alv-col_pos = ’1′.                  “”   Posición en que la columna será mostrada
wa_fieldcat_alv-fieldname = ‘CARRID’.           “”   Nombre del Campo de la tabla
wa_fieldcat_alv-just = ‘L’.                     “”   Justificación
wa_fieldcat_alv-reptext_ddic = ‘Airline Code’.  “”   Título de la Columna
APPEND wa_fieldcat_alv TO ti_fieldcat_alv.

wa_fieldcat_alv-col_pos = ’2′.                  “”   Posición en que la columna será mostrada
wa_fieldcat_alv-fieldname = ‘CONNID’.           “”   Nombre del Campo de la tabla
wa_fieldcat_alv-just = ‘L’.                     “”   Justificación
wa_fieldcat_alv-reptext_ddic = ‘Flight Connection Number’.  “”   Título de la Columna
APPEND wa_fieldcat_alv TO ti_fieldcat_alv.

wa_fieldcat_alv-col_pos = ’3′.                  “”   Posición en que la columna será mostrada
wa_fieldcat_alv-fieldname = ‘FLDATE’.           “”   Nombre del Campo de la tabla
wa_fieldcat_alv-just = ‘L’.                     “”   Justificación
wa_fieldcat_alv-reptext_ddic = ‘Flight date’.  “”   Título de la Columna
APPEND wa_fieldcat_alv TO ti_fieldcat_alv.

wa_fieldcat_alv-col_pos = ’4′.                  “”   Posición en que la columna será mostrada
wa_fieldcat_alv-fieldname = ‘PRICE’.           “”   Nombre del Campo de la tabla
wa_fieldcat_alv-just = ‘L’.                     “”   Justificación
wa_fieldcat_alv-reptext_ddic = ‘Airfare’.  “”   Título de la Columna
APPEND wa_fieldcat_alv TO ti_fieldcat_alv.

endform.

form muestra_alv.

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
EXPORTING
I_CALLBACK_PROGRAM                = sy-repid
I_CALLBACK_TOP_OF_PAGE            = ‘ARMA_TOPOFPAGE’
IS_LAYOUT                         = layout_alv     “ Variable de Layout
IT_FIELDCAT                       = ti_fieldcat_alv  “ Variable de Field Catalog
TABLES
T_OUTTAB                          = ti_sflight
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

endform.

form ARMA_TOPOFPAGE.  “Realiza el encabezado de la página

DATA:
ti_event type slis_t_listheader, “”"   Declaración de TI para eventos
st_event type slis_listheader.   “”"   Estructura para eventos

st_event-typ = ‘S’.
CONCATENATE ‘Fecha:  ’ sy-datlo+6(2) ‘/’ sy-datlo+4(2) ‘/’ sy-datlo+0(4)
into  st_event-info separated by space.
APPEND st_event TO ti_event.

st_event-typ = ‘A’.
st_event-info = ‘PichuS’.
append st_event to ti_event.

st_event-typ = ‘H’.
CONCATENATE ‘Hora–> ’ sy-timlo+0(2) ‘:’ sy-timlo+2(2) ‘:’ sy-timlo+4(2)
into st_event-info.
append st_event to ti_event.

CALL FUNCTION ‘REUSE_ALV_COMMENTARY_WRITE’
EXPORTING
IT_LIST_COMMENTARY       =  ti_event.
.
endform.

Esto es algo básico en formato ALV, existen muchas otras funcionalidades.

Al momento de ejecutar el programa obtenemos algo asi:

Se puede observar un reporte mas elegante, tipo excel, junto con una barra de botones muy útiles como es el caso de realizar subtotales a cualquier columna que contenga números, encontramos tambien filtros, formas de ordenación, exportar información a documentos, etc.

Es en realidad una función muy sencilla de implementar llamada  “SAPGUI_PROGRESS_INDICATOR “, pero bueno, vayamos al código:

*&———————————————————————*
*& Report  Z_ESPERA
*&
*&———————————————————————*
*&
*&  Desarrollador:  PichuS.
*&
*&———————————————————————*

REPORT  Z_ESPERA.
data mensaje(200) value ’Se está ejecutando su solicitud, un momento por favor…. ’.
start-of-selection. ”"”"”"”" EVENTO START OF SELECTION ”"”"”"”"”"
perform reloj_de_espera.

form reloj_de_espera.

CALL FUNCTION ’SAPGUI_PROGRESS_INDICATOR’
EXPORTING
PERCENTAGE       = 1
TEXT             = mensaje
.

endform.

Simplemente agregamos este módulo a un programa, por ejemplo de reportes que tarde un poco en ejecutarse, de esta manera, el usuario sabrá que el programa sigue en funcionamiento y que no se ha trabado, teniendo algo asi:

Como se puede observar, es algo sencillo de implementar, y que puede llegar a ser muy útil en algunas ocasiones.

El siguiente es un programa que únicamente muestra un listado de nuestras variantes en formato de lista o en formato ALV (ABAP List Viewer). Si lo deseas, puedes agregar código para que los resultados se guarden en un archivo por ejemplo, sin mas, veámos el código fuente:

NOMBRE DE PROGRAMA: Z_VALOR_VARIANTES
__________________________________________________________________________________

*&———————————————————————*
*& Report  Z_VALOR_VARIANTES
*&
*&———————————————————————*
*& DESARROLLADOR: PichuS
*& PROPÓSITO DEL PROGRAMA: Listar el total de variantes almacenadas
*&                         en un programa ABAP
*&———————————————————————*

REPORT Z_VALOR_VARIANTES.

include z_valor_variantes_top.
include z_valor_variantes_f01.

AT SELECTION-SCREEN.
perform verifica_programa.

START-OF-SELECTION.
perform obten_variantes.
if it_tabla_datos[] is not initial.
if p_listrb EQ ‘X’.
perform imprime_datos.
elseif p_alvrb EQ ‘X’.
perform prepare_layout_alv.
endif.
endif.

__________________________________________________________________________________

INCLUDE: z_valor_variantes_top

*&———————————————————————*
*&  Include           Z_VALOR_VARIANTES_TOP
*&———————————————————————*

tables: varid, trdir.
type-pools: slis.

data:
separador like varid-variant,
mensaje_error(200).

types: begin of ty_varid,
report like varid-report,
variant like varid-variant,
end of ty_varid,

begin of ty_tabla_datos,
variant like varid-variant,
selname like rsparams-selname,
low     like rsparams-low,
high    like rsparams-high,
end of ty_tabla_datos.

data: it_varid type table of ty_varid,
it_valtab like STANDARD TABLE OF RSPARAMS,
it_tabla_datos type table of ty_tabla_datos,

wa_varid like line of it_varid,
wa_valtab like line of it_valtab,
wa_tabla_datos like line of it_tabla_datos.

********** DATOS NECESARIOS PARA GENERAR EL FORMATO ALV **********
data:    layout_alv type slis_layout_alv,
ti_fieldcat_alv type slis_t_fieldcat_alv,
wa_fieldcat_alv type slis_fieldcat_alv.
*******************************************************************

SELECTION-SCREEN begin of block b1 with frame title text-t01.
parameters: p_nprog like trdir-name obligatory,
p_listrb radiobutton group g1 default ‘X’,
p_alvrb  radiobutton group g1.
selection-screen end of block b1.

__________________________________________________________________________________

INCLUDE: z_valor_variantes_f01

*&———————————————————————*
*&  Include           Z_VALOR_VARIANTES_F01
*&———————————————————————*
*&———————————————————————*
*&      Form  VERIFICA_PROGRAMA
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM VERIFICA_PROGRAMA .
“Verificación de que el programa exista y que contenga variantes guardadas

SELECT single * FROM TRDIR WHERE NAME = p_nprog.

IF SY-SUBRC EQ 0.
select single * from varid where report = p_nprog.
if SY-SUBRC <> 0.
concatenate text-e01 p_nprog text-e02
into mensaje_error separated by ‘ ’.
message mensaje_error type ‘I’.
stop.
endif.
else.
CONCATENATE text-e01 p_nprog text-e03
INTO mensaje_error SEPARATED BY ‘ ’.
message mensaje_error type ‘E’.
endif.
ENDFORM.                    “ VERIFICA_PROGRAMA
*&———————————————————————*
*&      Form  RESPALDA_VARIANTES
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM RESPALDA_VARIANTES .
“Obtiene el valor de las variantes y las almacena en la tabla interna it_valtab
loop at it_varid into wa_varid.
refresh it_valtab.
try.
CALL FUNCTION ‘RS_VARIANT_CONTENTS’
EXPORTING
REPORT = wa_varid-report
VARIANT                     = wa_varid-variant
TABLES
VALUTAB                     = it_valtab
EXCEPTIONS
VARIANT_NON_EXISTENT        = 1
VARIANT_OBSOLETE            = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
catch CX_SY_DYN_CALL_ILLEGAL_TYPE.
message text-e04 type ‘I’.
stop.
endtry.
perform salva_datos_variantes.

endloop.
ENDFORM.                    “ RESPALDA_VARIANTES
*&———————————————————————*
*&      Form  OBTEN_VARIANTES
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM OBTEN_VARIANTES .
“Obtiene el nombre de las variantes de programa
select report variant
into table it_varid
from varid
where report = p_nprog.
perform respalda_variantes.
ENDFORM.                    “ OBTEN_VARIANTES
*&———————————————————————*
*&      Form  SALVA_DATOS_VARIANTES
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM SALVA_DATOS_VARIANTES .
“Guarda todos los valores de todas las variantes en la tabla interna
“it_tabla_datos
loop at it_valtab into wa_valtab.
if SY-TABIX EQ 1.
separador = wa_tabla_datos-variant.
endif.
wa_tabla_datos-variant = wa_varid-variant.
wa_tabla_datos-selname = wa_valtab-selname.
wa_tabla_datos-low = wa_valtab-low.
wa_tabla_datos-high = wa_valtab-high.
append wa_tabla_datos to it_tabla_datos.
clear wa_valtab.
endloop.
ENDFORM.                    “ SALVA_DATOS_VARIANTES
*&———————————————————————*
*&      Form  IMPRIME_CABECERA
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM IMPRIME_CABECERA .
format frames on.

write: SY-ULINE,text-001,text-002,text-003,text-004,SY-ULINE,/.
ENDFORM.                    “ IMPRIME_CABECERA
*&———————————————————————*
*&      Form  IMPRIME_DATOS
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM IMPRIME_DATOS .
loop at it_tabla_datos into wa_tabla_datos.
if separador NE wa_tabla_datos-variant.
write: /.
separador = wa_tabla_datos.
perform imprime_cabecera.
endif.
write:
wa_tabla_datos-variant under text-001,
wa_tabla_datos-selname under text-002,
wa_tabla_datos-low under text-003,
wa_tabla_datos-high under text-004,/.
endloop.
write SY-ULINE.
ENDFORM.                    “ IMPRIME_DATOS
*&———————————————————————*
*&      Form  PREPARE_LAYOUT_ALV
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM PREPARE_LAYOUT_ALV .
layout_alv-colwidth_optimize = ‘X’.
layout_alv-zebra = ‘X’.
layout_alv-window_titlebar = text-t02.
perform prepare_fieldcatalog.
ENDFORM.                    “ PREPARE_LAYOUT_ALV
*&———————————————————————*
*&      Form  PREPARE_FIELDCATALOG
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM PREPARE_FIELDCATALOG .
wa_fieldcat_alv-col_pos = ’1′.
wa_fieldcat_alv-fieldname = ‘VARIANT’.
wa_fieldcat_alv-just = ‘L’.
wa_fieldcat_alv-reptext_ddic = text-001.
APPEND wa_fieldcat_alv TO ti_fieldcat_alv.

wa_fieldcat_alv-col_pos = ’2′.
wa_fieldcat_alv-fieldname = ‘SELNAME’.
wa_fieldcat_alv-just = ‘L’.
wa_fieldcat_alv-reptext_ddic = text-002.
APPEND wa_fieldcat_alv TO ti_fieldcat_alv.

wa_fieldcat_alv-col_pos = ’3′.
wa_fieldcat_alv-fieldname = ‘LOW’.
wa_fieldcat_alv-just = ‘L’.
wa_fieldcat_alv-reptext_ddic = text-003.
APPEND wa_fieldcat_alv TO ti_fieldcat_alv.

wa_fieldcat_alv-col_pos = ’4′.
wa_fieldcat_alv-fieldname = ‘HIGH’.
wa_fieldcat_alv-just = ‘L’.
wa_fieldcat_alv-reptext_ddic = text-004.
APPEND wa_fieldcat_alv TO ti_fieldcat_alv.

perform show_alv.
ENDFORM.                    “ PREPARE_FIELDCATALOG
*&———————————————————————*
*&      Form  SHOW_ALV
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM SHOW_ALV .

CALL FUNCTION ‘REUSE_ALV_LIST_DISPLAY’
EXPORTING
I_CALLBACK_PROGRAM             = SY-REPID
IS_LAYOUT                      = layout_alv
IT_FIELDCAT                    = ti_fieldcat_alv
TABLES
T_OUTTAB                       = it_tabla_datos
EXCEPTIONS
PROGRAM_ERROR                  = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    “ SHOW_ALV

__________________________________________________________________________________

Los text symbols son los siguientes:

Como se puede observar es un programa, simple pero muy útil por ejemplo cuando tenemos más de 200 variantes en un programa (de hecho por eso codifiqué este desarrollo) y no queremos ver los valores uno por uno. El resultado del programa sería el siguiente:

• Primero, agregamos el nombre de nuestro programa del cual queremos obtener el valor de las variantes (este debe de existir y tener variantes guardadas, de lo contrario el programa marcará un error y solicitará nuevamente el nombre del programa).

• En este programa tengo dos variantes guardadas (TEST y VARIANT), Ejecutamos y obtenemos el siguiente resultado:

• También podemos seleccionar el formato de salida en ALV

• Obteniendo el siguiente resultado:

En lo personal, me agrada mas este último formato, pues podemos exportar los resultados a un archivo de word por ejemplo y algunas otras funcionalidades mas.

Espero que este código les sea de alguna utilidad, y ya saben, cualquier cosa dejen un comentario o contactenme directamente por correo electrónico.

La última versión de mi navegador preferido, ya está disponible,  algunas de las características de este nuevo navegador son:

• Navegación más Fácil.
• Alto Rendimiento.
• Seguridad Avanzada.
• Poderosa Personalización.
• Está a la vanguardia.
• Acceso Universal.
• Gratuito.

Descárgalo en Español (México):

Pues sin mas que agregar, les dejo la dirección de donde podrán disfrutar de este entretenido juego (muy desestresante y divertido).

Link: http://www.evilplayer.com//games/killflanders/kill-flanders-free-flash-ganes.php

Es un navegador simple y elegante, personalmente me gustaron las pestañas de navegación (muy similares a las de Firefox), y la opción de navegar de manera anónima en las páginas, también tiene un depurador de java para desarrolladores web, también puedes importar todo tu historial y marcadores a este navegador, también debemos agregar que su código es libre =P. Aunque los puntos malos son que cada pestaña abre un proceso nuevo en el sistema (vas a gastar mas memoria por cada pestaña que abras) y algunas paginas con pluggins no se visualizan de la mejor manera. 

También es una lástima que esta versión beta solamente haya salido para Window$, las versiones de Linux y Mac, siguen en desarrollo y tendremos que esperar un poco mas para poder probarlas.

Apesar de esto, Chrome de Google va por buen rumbo, aunque aún le falta camino por recorrer.  Personalmente aún me quedaré con Firefox, pero si utilizas el IExplorer, el chrome es una buena opción para tí.  Puedes descargar el navegador desde la Página de Google Chrome.

Google Chrome

Existen varios cursos relacionados a la tecnología informática, esta es una lista de lo que podrán encontrar aqui:

M2101 – Introducción al software libre, Febrero 2008

M2102 – Sistema operativo GNU/Linux básico, Febrero 2008

M2103 – Administración avanzada del sistema operativo GNU/Linux, Septiembre 2007

M2104 – Implantación de sistemas de software libre, Febrero 2005

M2105 – Redes de computadores, Marzo 2004

M2106 – Ampliación de redes de computadores, Febrero 2008

M2107 – Aspectos avanzados de seguridad en redes, Febrero 2007

M2108 – Desarrollo de aplicaciones web, Marzo 2004

M2109 – Bases de datos, Febrero 2007

M2110 – Introducción al desarrollo de software, Marzo 2004

M2111 – Conceptos avanzados en desarrollo de software libre, Febrero 2007

M2112 – Ingeniería del software en entornos del software libre, Febrero 2007

M2113 – Utilidades y herramientas de software libre, Septiembre 2007

M2114 – Aspectos legales y de explotación del software libre, Febrero 2007

Pueden bajar los cursos en formate PDF, o bien en formato ODT (oppenofice). El link de la página oficial es el siguiente: http://ocw.uoc.edu/

La siguiente es una presentación de Eme Navarro (por cierto creado con software libre) sobre este tipo de música, es muy interesante, por favor, leanla con atención.

Ya lo sabes, baja este tipo de música y apoya a estos artistas, si disfrutas tanto la música como yo, sin duda podrás encontrar muchas cosas interesantes y también las vas a poder escuchar y agregar a tu biblioteca musical personal. Algunos enlaces para bajar este tipo de musica son:

1. http://www.jamendo.com/es/
2. http://www.dpop.es/
3. http://exgae.net/repertorio/musicagrupos
4. http://musicleft.net/index.php

Recuerda, LA MÚSICA ES ARTE, disfrútala =)