#1
|
|||
|
|||
Ayuda Alv Block
Buenos dias a todos, mi nombre es alejandro y es la primera vez que posteo aqui. luego de buscar en muchos lugares y encontrar poca info necesitaria saber como puedo hacer para en una sola pantalla, mostrar 3 listados diferentes.
No me refiero a un alv jerarqiuco sino a 3 bloques distintos. Muchas gracias por su ayuda!!
__________________
Gracias, Alejo86. |
#2
|
|||
|
|||
Hola
Fijate en este Saludos Carlos Alanis |
#3
|
|||
|
|||
hola, espero no te moleste que use este hilo para hacer una pregunta que esta relacionada con los alv por bloques.
la cuestion es que se como hacerlo con la fucion REUSE_ALV_BLOCK_LIST_DISPLAY, pero en problema que tengo es que necesito que me muetre los totales y subtotales. lo mas curioso es que tengo dos formas en el mismo report para mostrar los datos por bloques y sin bloques. monto para ambas opciones el mismo catalogo y el mismo layaut pero en uno si me muestra los subtotales y totales y en el otro no... hay que lanzar el REUSE_ALV_BLOCK_LIST_DISPLAY con alguna opcion para que te salgan los subtotales y totales. gracias de antemano. Alejo si con el ejemplo que te a puesto celanis no lo pillas me dices que te pongo algun otro ejemplo. |
#4
|
|||
|
|||
Hola
Observa si estas cargando bien un catalogo distinto por cada REUSE_ALV_BLOCK_LIST_APPEND que realices. Acá tienen un y con otras cositas más por si les sirve Saludos. Carlos Alanis |
#5
|
|||
|
|||
buenas calanis, primero gracias por responder,
te cuento uso el mismo catalogo por cada append que hago, te copio el codigo que tengo haber si ves algo raro. ******************************************************* PERFORM BUILD. "creo el catalogo if modo = 'X'. PERFORM GENERAR_ALV_LIST. "genero los alv list y llamo al bloque else. PERFORM CALL_ALV. "genero el alv list que si me salen los subtotales endif. FORM BUILD . DATA: FIELDCAT_IN TYPE SLIS_FIELDCAT_ALV. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'BELNR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Num. Factura'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'EBELN'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Doc.Compras'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'MATNR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Articulo'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'DMBTR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Imp.MonedaLocal'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'BNBTR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Coste ind.'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'NETWR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Valor Neto'. APPEND FIELDCAT_LN TO GT_FIELDCAT. *el de la RSEG CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'WRBTR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-REF_FIELDNAME = 'WRBTR'. "<- REF FIELD IN THE DICTIONNARY *FIELDCAT_LN-REF_TABNAME = 'RSEG'. "<- REF TABLE IN THE DICTIONNARY FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Imp.Pedido'. FIELDCAT_LN-DO_SUM = 'X'. "SUM UPON DISPLAY APPEND FIELDCAT_LN TO GT_FIELDCAT. *el de la RBKP CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'RMWWR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Imp.Factura'. *FIELDCAT_LN-DO_SUM = 'X'. "SUM UPON DISPLAY APPEND FIELDCAT_LN TO GT_FIELDCAT. * DATA SORTING AND SUBTOTAL DATA: GS_SORT TYPE SLIS_SORTINFO_ALV. CLEAR GS_SORT. GS_SORT-FIELDNAME = 'BELNR'. GS_SORT-SPOS = 1. GS_SORT-UP = 'X'. GS_SORT-SUBTOT = 'X'. APPEND GS_SORT TO GT_SORT. ENDFORM. FORM CALL_ALV. * ABAP List Viewer CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = G_REPID I_STRUCTURE_NAME = 'i_interna' IS_LAYOUT = GS_LAYOUT IT_FIELDCAT = GT_FIELDCAT[] IT_SORT = GT_SORT[] TABLES T_OUTTAB = i_interna EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. ENDFORM. "CALL_ALV FORM GENERAR_ALV_LIST. DATA:L_STUFF TYPE TY_STUFF. data:cont type integer value 0. G_PROGRAM = SY-REPID. CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT' EXPORTING I_CALLBACK_PROGRAM = G_PROGRAM. LIMPIAR_TABLA i_interna_DETAIL. loop at i_interna. W_TABIX = SY-TABIX. if i_interna-belnr <> ''. APPEND i_interna to i_interna_DETAIL. else. CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND' EXPORTING IT_FIELDCAT = GT_fieldcat[] IS_LAYOUT = GS_LAYOUT I_TABNAME = 'i_interna_detail' IT_EVENTS = GT_EVENTS IT_SORT = GT_SORT[] TABLES T_OUTTAB = T_TABLE. cont = cont + 1. if cont = 2. CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY' EXPORTING IS_PRINT = GT_PRINT. LIMPIAR_TABLA i_interna_DETAIL. cont = 0. ENDIF. endif. endloop. ENDFORM. La cuestion es que si lanzo el alv con CALL ALV me salen bien los subtotales y si lo hago por GENERAR_ALV_LIST no me salen los subtotales. no se cual puede ser el problema por que a priori todo me parece correcto. les agradeceria la posible ayuda que me puedan dar. es que estoy un poco desorientado con esto, gracias de antemano. |
#6
|
|||
|
|||
buenas calanis, primero gracias por responder,
te cuento uso el mismo catalogo por cada append que hago, te copio el codigo que tengo haber si ves algo raro. ******************************************************* PERFORM BUILD. "creo el catalogo if modo = 'X'. PERFORM GENERAR_ALV_LIST. "genero los alv list y llamo al bloque else. PERFORM CALL_ALV. "genero el alv list que si me salen los subtotales endif. FORM BUILD . DATA: FIELDCAT_IN TYPE SLIS_FIELDCAT_ALV. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'BELNR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Num. Factura'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'EBELN'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Doc.Compras'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'MATNR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Articulo'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'DMBTR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Imp.MonedaLocal'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'BNBTR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Coste ind.'. APPEND FIELDCAT_LN TO GT_FIELDCAT. CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'NETWR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Valor Neto'. APPEND FIELDCAT_LN TO GT_FIELDCAT. *el de la RSEG CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'WRBTR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT *FIELDCAT_LN-REF_FIELDNAME = 'WRBTR'. "<- REF FIELD IN THE DICTIONNARY *FIELDCAT_LN-REF_TABNAME = 'RSEG'. "<- REF TABLE IN THE DICTIONNARY FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Imp.Pedido'. FIELDCAT_LN-DO_SUM = 'X'. "SUM UPON DISPLAY APPEND FIELDCAT_LN TO GT_FIELDCAT. *el de la RBKP CLEAR FIELDCAT_IN. FIELDCAT_LN-FIELDNAME = 'RMWWR'. FIELDCAT_LN-TABNAME = 'i_interna'. *FIELDCAT_LN-NO_OUT = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT FIELDCAT_LN-KEY = ' '. "SUBTOTAL KEY FIELDCAT_LN-NO_OUT = ' '. FIELDCAT_LN-SELTEXT_L = 'Imp.Factura'. *FIELDCAT_LN-DO_SUM = 'X'. "SUM UPON DISPLAY APPEND FIELDCAT_LN TO GT_FIELDCAT. * DATA SORTING AND SUBTOTAL DATA: GS_SORT TYPE SLIS_SORTINFO_ALV. CLEAR GS_SORT. GS_SORT-FIELDNAME = 'BELNR'. GS_SORT-SPOS = 1. GS_SORT-UP = 'X'. GS_SORT-SUBTOT = 'X'. APPEND GS_SORT TO GT_SORT. ENDFORM. FORM CALL_ALV. * ABAP List Viewer CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = G_REPID I_STRUCTURE_NAME = 'i_interna' IS_LAYOUT = GS_LAYOUT IT_FIELDCAT = GT_FIELDCAT[] IT_SORT = GT_SORT[] TABLES T_OUTTAB = i_interna EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2. ENDFORM. "CALL_ALV FORM GENERAR_ALV_LIST. DATA:L_STUFF TYPE TY_STUFF. data:cont type integer value 0. G_PROGRAM = SY-REPID. CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT' EXPORTING I_CALLBACK_PROGRAM = G_PROGRAM. LIMPIAR_TABLA i_interna_DETAIL. loop at i_interna. W_TABIX = SY-TABIX. if i_interna-belnr <> ''. APPEND i_interna to i_interna_DETAIL. else. CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND' EXPORTING IT_FIELDCAT = GT_fieldcat[] IS_LAYOUT = GS_LAYOUT I_TABNAME = 'i_interna_detail' IT_EVENTS = GT_EVENTS IT_SORT = GT_SORT[] TABLES T_OUTTAB = T_TABLE. cont = cont + 1. if cont = 2. CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY' EXPORTING IS_PRINT = GT_PRINT. LIMPIAR_TABLA i_interna_DETAIL. cont = 0. ENDIF. endif. endloop. ENDFORM. La cuestion es que si lanzo el alv con CALL ALV me salen bien los subtotales y si lo hago por GENERAR_ALV_LIST no me salen los subtotales. no se cual puede ser el problema por que a priori todo me parece correcto. les agradeceria la posible ayuda que me puedan dar. es que estoy un poco desorientado con esto, gracias de antemano. |
#7
|
|||
|
|||
ups e duplicado el mensaje, pero no se como borrarlo
|
#8
|
|||
|
|||
Hola a todos, muchas gracias por su ayuda, me vino muy bien pero lo termine resolviendo de otra manera ya que no podia implementar los dos alv que necesitaba en la misma pantalla.
Lo realice utilizando un programa tipo M, al que le dibuje 2 contenedores. A estos contenedores les asigne los alv y luego llame a un metodo para mostrarlos. Un abrazo y gracias nuevamente!
__________________
Gracias, Alejo86. |
#9
|
|||
|
|||
Hola Alejo, podrias postear el codigo? muchas gracias!!! |
Herramientas | Buscar en Tema |
Desplegado | |
|
|