Ayuda Alv Block

Colapsar
X
Colapsar
 
  • Página de 1
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
Anterior template Próximo
  • Alejo86
    Junior Member
    • feb
    • 2
    #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.
    Etiquetas: Ninguno
    • calanis
      Senior Member
      • oct
      • 147
      #2
      Hola

      Fijate en este link

      Saludos
      Carlos Alanis
      Carlos D. Alanis
      <=<< Compartir conocimiento es una manera de innovar >>=>

        Comentario

        • jflinaj
          Junior Member
          • oct
          • 16
          #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.

            Comentario

            • calanis
              Senior Member
              • oct
              • 147
              #4
              Hola

              Observa si estas cargando bien un catalogo distinto por cada REUSE_ALV_BLOCK_LIST_APPEND que realices.
              Acá tienen un ejemplo completo y con otras cositas más por si les sirve

              Saludos.
              Carlos Alanis
              Carlos D. Alanis
              <=<< Compartir conocimiento es una manera de innovar >>=>

                Comentario

                • jflinaj
                  Junior Member
                  • oct
                  • 16
                  #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.

                    Comentario

                    • jflinaj
                      Junior Member
                      • oct
                      • 16
                      #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.

                        Comentario

                        • jflinaj
                          Junior Member
                          • oct
                          • 16
                          #7
                          ups e duplicado el mensaje, pero no se como borrarlo

                            Comentario

                            • Alejo86
                              Junior Member
                              • feb
                              • 2
                              #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.

                                Comentario

                                • chous
                                  #9
                                  Originalmente publicado por Alejo86
                                  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!
                                  Hola Alejo, podrias postear el codigo?

                                  muchas gracias!!!

                                    Comentario

                                    Anterior template Próximo
                                    Trabajando...