Tweet
Hola buen dia, soy nuevo en esto de ABAP.
Y realizndo un pequeño reporte de prueba con ALV, veo que al export a Hoja de Calculo (Excel) solo me exporta los titulos sin datos.
Alguno le paso algo similar'??
Incluso agarre uno de los tantos ejemplos dando vueltas, y exporta, cuando le hago mis cambios, no me lo exporta.
Lo otro raro es que utlizando el boton de excel, donde te abre el excel embebido dentro de sap, si me muestra los datos. Esto no me sirve del todo ya que no todos lo usuarios tienen licencia de excel.
Desde ya muchas gracias.-
ejemplo
REPORT Z_REPORT_ALV3.
** EJEMPLO SIMPLE
***********************************
***********************************
TABLES: mchb.
DATA: BEGIN OF ti_tabla OCCURS 0,
matnr LIKE mchb-matnr, "Código
charg LIKE mchb-charg, "Lote
END OF ti_tabla.
DATA: BEGIN OF st_tabla OCCURS 0,
matnr LIKE mchb-matnr, "Código
charg LIKE mchb-charg, "Lote
END OF st_tabla.
TYPE-POOLS: slis.
DATA: wa_layout TYPE slis_layout_alv.
DATA: ti_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
START-OF-SELECTION.
PERFORM carga.
PERFORM armadosalida.
PERFORM salida.
*&---------------------------------------------------------------------*
*& Form carga
*&--------------------------------------------------------------------
FORM carga .
SELECT a~matnr a~charg
FROM mchb AS a
INTO TABLE TI_TABLA
WHERE a~matnr = '000000000000000077'"s_matnr
AND a~werks = '0100'."s_werks
LOOP AT ti_tabla into st_tabla.
* quita ceros de codigo de material
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
EXPORTING
INPUT = st_tabla-matnr
IMPORTING
OUTPUT = st_tabla-matnr.
MODIFY ti_tabla from st_tabla.
ENDLOOP.
ENDFORM. " carga
*&---------------------------------------------------------------------*
*& Form armadosalida
*&--------------------------------------------------------------------
FORM armadosalida .
CLEAR ti_fieldcat.
ti_fieldcat-fieldname = 'matnr'. " NOMBRE CAMPO
ti_fieldcat-tabname = 'ti_tabla'. " NOMBRE TABLA
ti_fieldcat-seltext_s = 'Nro. Mat'. " NOMBRE DEL CAMPO CORTO
APPEND ti_fieldcat .
CLEAR ti_fieldcat.
ti_fieldcat-fieldname = 'charg'.
ti_fieldcat-tabname = 'ti_tabla'.
ti_fieldcat-seltext_s = 'Lote'.
APPEND ti_fieldcat .
WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM. " armadosalida
*&---------------------------------------------------------------------*
*& Form salida
*&--------------------------------------------------------------------
FORM salida .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* i_callback_program = c_repid
* i_callback_pf_status_set = 'PF_STATUS'
* i_callback_user_command = 'USER_COMMAND'
* i_structure_name = 'TI_ALV'
* is_layout = wa_layout
it_fieldcat = ti_fieldcat[]
* i_save = 'A'
TABLES
t_outtab = ti_tabla
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc NE 0.
MESSAGE i398(00) WITH 'fallo la funcion'.
ENDIF.
ENDFORM. " salida
Y realizndo un pequeño reporte de prueba con ALV, veo que al export a Hoja de Calculo (Excel) solo me exporta los titulos sin datos.
Alguno le paso algo similar'??
Incluso agarre uno de los tantos ejemplos dando vueltas, y exporta, cuando le hago mis cambios, no me lo exporta.
Lo otro raro es que utlizando el boton de excel, donde te abre el excel embebido dentro de sap, si me muestra los datos. Esto no me sirve del todo ya que no todos lo usuarios tienen licencia de excel.
Desde ya muchas gracias.-
ejemplo
REPORT Z_REPORT_ALV3.
** EJEMPLO SIMPLE
***********************************
***********************************
TABLES: mchb.
DATA: BEGIN OF ti_tabla OCCURS 0,
matnr LIKE mchb-matnr, "Código
charg LIKE mchb-charg, "Lote
END OF ti_tabla.
DATA: BEGIN OF st_tabla OCCURS 0,
matnr LIKE mchb-matnr, "Código
charg LIKE mchb-charg, "Lote
END OF st_tabla.
TYPE-POOLS: slis.
DATA: wa_layout TYPE slis_layout_alv.
DATA: ti_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
START-OF-SELECTION.
PERFORM carga.
PERFORM armadosalida.
PERFORM salida.
*&---------------------------------------------------------------------*
*& Form carga
*&--------------------------------------------------------------------
FORM carga .
SELECT a~matnr a~charg
FROM mchb AS a
INTO TABLE TI_TABLA
WHERE a~matnr = '000000000000000077'"s_matnr
AND a~werks = '0100'."s_werks
LOOP AT ti_tabla into st_tabla.
* quita ceros de codigo de material
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
EXPORTING
INPUT = st_tabla-matnr
IMPORTING
OUTPUT = st_tabla-matnr.
MODIFY ti_tabla from st_tabla.
ENDLOOP.
ENDFORM. " carga
*&---------------------------------------------------------------------*
*& Form armadosalida
*&--------------------------------------------------------------------
FORM armadosalida .
CLEAR ti_fieldcat.
ti_fieldcat-fieldname = 'matnr'. " NOMBRE CAMPO
ti_fieldcat-tabname = 'ti_tabla'. " NOMBRE TABLA
ti_fieldcat-seltext_s = 'Nro. Mat'. " NOMBRE DEL CAMPO CORTO
APPEND ti_fieldcat .
CLEAR ti_fieldcat.
ti_fieldcat-fieldname = 'charg'.
ti_fieldcat-tabname = 'ti_tabla'.
ti_fieldcat-seltext_s = 'Lote'.
APPEND ti_fieldcat .
WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM. " armadosalida
*&---------------------------------------------------------------------*
*& Form salida
*&--------------------------------------------------------------------
FORM salida .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* i_callback_program = c_repid
* i_callback_pf_status_set = 'PF_STATUS'
* i_callback_user_command = 'USER_COMMAND'
* i_structure_name = 'TI_ALV'
* is_layout = wa_layout
it_fieldcat = ti_fieldcat[]
* i_save = 'A'
TABLES
t_outtab = ti_tabla
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc NE 0.
MESSAGE i398(00) WITH 'fallo la funcion'.
ENDIF.
ENDFORM. " salida