Driau
22/11/07, 10:24:08
Hola a todos!
Acabo de implementar mi primera cabecera en el ALV-Grid. Pero no acaba de ser como yo quiero. Sale todo bien, pero en la tercera linea donde deberia poner "Descripción: nombre de prodcuto" se corta y soo sale "Descripción: nomb". Alguien sabe porque???
Por otro lado las lineas salen en negrilla toda entera es decir, sale:
Material: ESUN
Pero a mi me interesaria:
Material: ESUN
Como puedo conseguir esto???
Os pego mi código del FORM TOP_OF_PAGE:
************************************************************************
* FORM: TOP-OF-PAGE *
* *
************************************************************************
FORM TOP-OF-PAGE.
DATA: T_HEADER TYPE SLIS_T_LISTHEADER,
WA_HEADER TYPE SLIS_LISTHEADER,
T_LINE LIKE WA_HEADER-INFO,
LD_LINES TYPE I,
LD_LINESC(50) TYPE C.
*ORDEN DE FABRICACIÓN
CONCATENATE 'OF: ' P_AUFNR INTO V_AUFNR_DESC SEPARATED BY SPACE.
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = V_AUFNR_DESC.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
*MATERIAL
CONCATENATE 'Material: ' V_MATNR INTO V_MATNR_DESC SEPARATED BY SPACE.
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = V_MATNR_DESC.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
*DESCRIPCIÓN
CONCATENATE 'Descripción: ' V_DESC_TMP INTO V_DESC SEPARATED BY SPACE.
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = V_DESC.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
WA_HEADER-TYP = 'A'.
WA_header-info = t_line.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER, T_LINE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = T_HEADER.
* i_logo = 'Z_LOGO'.
ENDFORM. "TOP-OF-PAGE
Muchas gracias a todos!
Acabo de implementar mi primera cabecera en el ALV-Grid. Pero no acaba de ser como yo quiero. Sale todo bien, pero en la tercera linea donde deberia poner "Descripción: nombre de prodcuto" se corta y soo sale "Descripción: nomb". Alguien sabe porque???
Por otro lado las lineas salen en negrilla toda entera es decir, sale:
Material: ESUN
Pero a mi me interesaria:
Material: ESUN
Como puedo conseguir esto???
Os pego mi código del FORM TOP_OF_PAGE:
************************************************************************
* FORM: TOP-OF-PAGE *
* *
************************************************************************
FORM TOP-OF-PAGE.
DATA: T_HEADER TYPE SLIS_T_LISTHEADER,
WA_HEADER TYPE SLIS_LISTHEADER,
T_LINE LIKE WA_HEADER-INFO,
LD_LINES TYPE I,
LD_LINESC(50) TYPE C.
*ORDEN DE FABRICACIÓN
CONCATENATE 'OF: ' P_AUFNR INTO V_AUFNR_DESC SEPARATED BY SPACE.
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = V_AUFNR_DESC.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
*MATERIAL
CONCATENATE 'Material: ' V_MATNR INTO V_MATNR_DESC SEPARATED BY SPACE.
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = V_MATNR_DESC.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
*DESCRIPCIÓN
CONCATENATE 'Descripción: ' V_DESC_TMP INTO V_DESC SEPARATED BY SPACE.
WA_HEADER-TYP = 'S'.
WA_HEADER-KEY = V_DESC.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER.
WA_HEADER-TYP = 'A'.
WA_header-info = t_line.
APPEND WA_HEADER TO T_HEADER.
CLEAR: WA_HEADER, T_LINE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = T_HEADER.
* i_logo = 'Z_LOGO'.
ENDFORM. "TOP-OF-PAGE
Muchas gracias a todos!