Problema Con Alv Jerarquico

[daniel_daniel1]

PARECE MENTIRA PERO SI HAY DOS LUGARES NOS HACEMOS BIOLOGOS AMBOS!!!!!

NO, NO FUNCIONO, LO QUE SI NOTO ES QUE LA BARRA DE STATUS CUANDO MUESTRO EL ALV NO ME LA MUESTRA ALGUNOS BOTONES, LOS QUE DEFINE LA BARRA STANDARD EN "APLICATION TOOLBARS". OSEA NO SE SI ME ESTA LEVANTANDO BIEN LA BARRA STANDARD. TE PASO EL CODIGO COMO LO DEJE AHORA:

*&---------------------------------------------------------------------*
*& Report Z____ALV_JERAQUICO
*&
*&---------------------------------------------------------------------*

REPORT z____alv_jeraquico.

TYPE-POOLS: slis.

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
ga_key TYPE slis_keyinfo_alv,
ga_layout TYPE slis_layout_alv,
g_repid TYPE sy-repid,
g_tabname_header TYPE slis_tabname,
g_tabname_item TYPE slis_tabname,
g_consulta TYPE c,
g_status TYPE slis_formname.

DATA: gt_header TYPE STANDARD TABLE OF sflight,
gt_item TYPE STANDARD TABLE OF sflight,
ga_header TYPE sflight.

PARAMETERS: p_carrid TYPE sflight-carrid DEFAULT 'AA',
p_connid TYPE sflight-connid DEFAULT '017'.

START-OF-SELECTION.

g_tabname_header = 'GT_HEADER'.
g_tabname_item = 'GT_ITEM'.
g_repid = 'Z____ALV_JERARQUICO'.

SELECT SINGLE carrid connid FROM sflight
INTO CORRESPONDING FIELDS OF ga_header
WHERE carrid = p_carrid
AND connid = p_connid.

APPEND ga_header TO gt_header.

SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE gt_item.

PERFORM f_key.
PERFORM f_fieldcat USING gt_fieldcat.
PERFORM f_layout.
PERFORM f_llamar_alv.

*&---------------------------------------------------------------------*
*& Form f_fieldcat
*&---------------------------------------------------------------------*

FORM f_fieldcat CHANGING rt_fieldcat TYPE slis_t_fieldcat_alv.

DATA ls_fieldcat TYPE slis_fieldcat_alv.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'CARRID'.
ls_fieldcat-reptext_ddic = 'AEROLINEA'.
ls_fieldcat-just = 'C'.
ls_fieldcat-tabname = 'GT_ITEM'.
APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'CONNID'.
ls_fieldcat-reptext_ddic = 'NUMERO DE VUELO'.
ls_fieldcat-just = 'C'.
ls_fieldcat-tabname = 'GT_ITEM'.
APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'FLDATE'.
ls_fieldcat-reptext_ddic = 'FECHA DE VUELO'.
ls_fieldcat-just = 'C'.
ls_fieldcat-tabname = 'GT_ITEM'.
APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'CARRID'.
ls_fieldcat-just = 'R'.
ls_fieldcat-reptext_ddic = 'AEROLINEA'.
ls_fieldcat-tabname = 'GT_HEADER'.
APPEND ls_fieldcat TO rt_fieldcat.

CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'CONNID'.
ls_fieldcat-just = 'R'.
ls_fieldcat-reptext_ddic = 'NUMERO DE VUELO'.
ls_fieldcat-tabname = 'GT_HEADER'.
APPEND ls_fieldcat TO rt_fieldcat.

ENDFORM. " p_fc_cabecera


*&---------------------------------------------------------------------*
*& Form f_key
*&---------------------------------------------------------------------*

FORM f_key .

CLEAR ga_key.
ga_key-header01 = 'CARRID'.
ga_key-item01 = 'CARRID'.
ga_key-header02 = 'CONNID'.
ga_key-item02 = 'CONNID'.

ENDFORM. " P_KEY

*&---------------------------------------------------------------------*
*& Form f_layout
*&---------------------------------------------------------------------*

FORM f_layout .

ga_layout-zebra = 'X'.

ENDFORM. " layout

*&---------------------------------------------------------------------*
*& Form f_llamar_alv
*&---------------------------------------------------------------------*

FORM f_llamar_alv .
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_PF_STATUS_SET = 'SET_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
IS_LAYOUT = GA_LAYOUT
IT_FIELDCAT = GT_FIELDCAT
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
i_tabname_header = G_TABNAME_HEADER
i_tabname_item = G_TABNAME_ITEM
* I_STRUCTURE_NAME_HEADER =
* I_STRUCTURE_NAME_ITEM =
is_keyinfo = GA_KEY
* IS_PRINT =
* IS_REPREP_ID =
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
* IR_SALV_HIERSEQ_ADAPTER =
* IT_EXCEPT_QINFO =
* I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
tables
t_outtab_header = GT_HEADER
t_outtab_item = GT_ITEM
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. " f_llamar_alv

*&---------------------------------------------------------------------*
*& Form USER_COMMAND
*&---------------------------------------------------------------------*

FORM user_command USING r_ucomm TYPE sy-ucomm
ra_selfield TYPE slis_selfield.
CASE r_ucomm.
WHEN '&IC1'.
MESSAGE i001(z_daniel).
ENDCASE.

ENDFORM. "USER_COMMAND

*&---------------------------------------------------------------------*
*& Form set_status
*&---------------------------------------------------------------------*

FORM set_status USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'STANDARD'.

ENDFORM. "set_status

FIJATE QUE ESTA ACTIVA LA GUI QUE COPIE Y ES LA QUE ME DIJISTES
LA VERDAD ES QUE NO SE QUE HACER, ES INCREIBLE, PERO ES VERDAD.

increible a mi si me funciona. extraño no!

[daniel_daniel1]

Si, La Verdad Que Si, Es Muy Extraño!!! Porque Es Mas, Lo Tengo Casi Igual En Otro Lado Y Me Funciona Perfecto, Este Programita Se Lo Pase A Una Amiga Mia Para Que Le Enseñe A Unos Chicos Que Estaban Recien Empesando Un Alv Jerarquico Y Como Los Del Standard Son Mucho Mas Jodidos Me Dijo Si No Le Podia Hacer Uno Facil, Tarde 10 Min En Hacerlo, Pero No Me Punciona El Evento Doble Click, Lo Deje, No Me Calente En Buscar Mucho Porque No Funciono Pero Ahora Me Da Rabia Porque Se Que Esta Bien Echo, Y No Sale!!! Es Muy Pero Muy Raro!!!! Igual Agradezco Tu Ayuda Y Te Doy Las Gracias Por Molestarte!!!! Y Si Encuentro Cual Es El Problema Lo Posteo!!!!

[daniel_daniel1]

No Te Hagas Biologo, Encontre La Solucion!!!!!

Lo Unico Que Hice Fue Copiar Todo El Programa Tal Cual Estaba En Otro Programa Nuevo Con Otro Nombre, Le Cambie El Nombre A La Variable Del Tipo Sy-repid Y Listo, Funciono Perfecto!!!!

Asi Que Todo Lo Que Me Dijistes Estaba Bien.

Muchas Gracias Por Todo.

[daniel_daniel1]

que tal me voy a auto contestar, por si alguien necesitaba saber tambien el porque del mal funcionamiento de mi programa, yo en una variable del tipo sy-repid no le asigne sy-repid sino que le harcodie el nombre del reporte, y si le ponia el sy-repid funcionaba perfectamente; asi que era eso solamente, gracias por todo, todo lo demas estaba bien tambien.