🚀PROMO #PLANCARRERA2024 - 🔥Bonificaciones, Precios Congelados y Cuotas

 X 

✒️ABAP Social Break - Laboratorio de Ideas

ABAP Social Break - Laboratorio de Ideas

ABAP Social Break - Laboratorio de Ideas

Z_PLANTILLA_ALV

Plantilla listado ALV

REPORT Z_PLANTILLA_ALV.

***********************************************************************

* Plantilla para listados ALV .

* Andrés Picazo (http://sapabap.cc)

****************************************************************

TYPE-POOLS: SLIS.

*------I N C L U D E S ------------------------------------------------*

*------C O N S T A N T E S --------------------------------------------*

*------TABLAS/ESTRUCTURAS----------------------------------------------*

TABLES: ???:

*------TABLAS INTERNAS-------------------------------------------------*

data: begin of i_datos occurs 100,

xxxx,

end of i_datos.

*------VARIABLES-------------------------------------------------------*

* Variables necesarias para el lisado ALV

DATA: FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,

HEADING TYPE SLIS_T_LISTHEADER,

LAYOUT TYPE SLIS_LAYOUT_ALV,

EVENTS TYPE SLIS_T_EVENT,

REPNAME LIKE SY-REPID,

F2CODE LIKE SY-UCOMM VALUE '&ETA',

G_SAVE(1) TYPE C,

G_EXIT(1) TYPE C,

G_VARIANT LIKE DISVARIANT,

GX_VARIANT LIKE DISVARIANT.

*------CONSTANTES -----------------------------------------------*

CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

*------PARAMETER/SELECT-OPTIONS EN PANTALLA----------------------------*

SELECTION-SCREEN BEGIN OF BLOCK SEL WITH FRAME TITLE TEXT-001.

*SELECT-OPTIONS: S_xxxxx FOR xxxxxxxx.

SELECTION-SCREEN END OF BLOCK SEL.

PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT. " ALV Variant

*------INITIALIZATION -------------------------------------------------*

INITIALIZATION.

*** Inicialización ALV

REPNAME = SY-REPID.

PERFORM INITIALIZE_FIELDCAT USING FIELDTAB[].

PERFORM BUILD_EVENTTAB USING EVENTS[].

PERFORM BUILD_COMMENT USING HEADING[].

PERFORM INITIALIZE_VARIANT.

***

*------AT SELECTION-SCREEN---------------------------------------------*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.

PERFORM F4_FOR_VARIANT.

AT SELECTION-SCREEN.

PERFORM PAI_OF_SELECTION_SCREEN.

*------START-OF-SELECTION----------------------------------------------*

START-OF-SELECTION.

* PERFORM SELECCION_DATOS.

*------END-OF-SELECTION------------------------------------------------*

END-OF-SELECTION.

*** Impresión listado ALV

PERFORM BUILD_LAYOUT USING LAYOUT.

PERFORM WRITE_OUTPUT.

**************************** FORMS ALV ********************************

*&---------------------------------------------------------------------*

*& Form INITIALIZE_FIELDCAT

*&---------------------------------------------------------------------*

* Cambia atributos de los campos del listado

*----------------------------------------------------------------------*

FORM INITIALIZE_FIELDCAT USING P_FIELDTAB TYPE SLIS_T_FIELDCAT_ALV.

DATA: L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

* fixed columns (obligatory)

* CLEAR L_FIELDCAT.

* L_FIELDCAT-TABNAME = 'I_DATOS'.

* L_FIELDCAT-FIX_COLUMN = 'X'.

* L_FIELDCAT-NO_OUT = 'O'.

* L_FIELDCAT-FIELDNAME = 'WERKS'.

* APPEND L_FIELDCAT TO P_FIELDTAB.

* totalized columns

* CLEAR L_FIELDCAT.

* L_FIELDCAT-TABNAME = 'I_DATOS'.

* L_FIELDCAT-SP_GROUP = 'A'.

* L_FIELDCAT-DO_SUM = 'X'.

* L_FIELDCAT-FIELDNAME = 'LABST'.

* columns not displayed

* CLEAR L_FIELDCAT.

* L_FIELDCAT-TABNAME = 'I_DATOS'.

* L_FIELDCAT-SP_GROUP = 'A'.

* L_FIELDCAT-NO_OUT = 'X'.

* L_FIELDCAT-FIELDNAME = 'MEINS'.

* APPEND L_FIELDCAT TO P_FIELDTAB.

ENDFORM. " INITIALIZE_FIELDCAT

*&---------------------------------------------------------------------*

*& Form BUILD_EVENTTAB

*&---------------------------------------------------------------------*

* Gestión de evntos del listado ALV

*----------------------------------------------------------------------*

FORM BUILD_EVENTTAB USING P_EVENTS TYPE SLIS_T_EVENT.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_EVENTS.

READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.

APPEND LS_EVENT TO P_EVENTS.

ENDIF.

ENDFORM. " BUILD_EVENTTAB

*&---------------------------------------------------------------------*

*& Form BUILD_COMMENT

*&---------------------------------------------------------------------*

* Texto de cabecera de página

*----------------------------------------------------------------------*

FORM BUILD_COMMENT USING P_HEADING TYPE SLIS_T_LISTHEADER.

DATA: HLINE TYPE SLIS_LISTHEADER,

TEXT(60) TYPE C,

SEP(20) TYPE C.

CLEAR: HLINE, TEXT.

HLINE-TYP = 'H'.

WRITE: TEXT-101 TO TEXT+23.

HLINE-INFO = TEXT.

APPEND HLINE TO P_HEADING.

CLEAR TEXT.

WRITE: 'User: ' TO TEXT,

SY-UNAME TO TEXT+6,

'Date: ' TO TEXT+25,

SY-DATUM TO TEXT+31,

'Page: ' TO TEXT+50,

SY-PAGNO TO TEXT+56.

HLINE-INFO = TEXT.

APPEND HLINE TO P_HEADING.

ENDFORM. " BUILD_COMMENT

*---------------------------------------------------------------------*

* FORM TOP_OF_PAGE *

*---------------------------------------------------------------------*

*---------------------------------------------------------------------*

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEADING.

ENDFORM.

*&---------------------------------------------------------------------*

*& Form INITIALIZE_VARIANT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM INITIALIZE_VARIANT.

G_SAVE = 'A'.

CLEAR G_VARIANT.

G_VARIANT-REPORT = REPNAME.

GX_VARIANT = G_VARIANT.

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

I_SAVE = G_SAVE

CHANGING

CS_VARIANT = GX_VARIANT

EXCEPTIONS

NOT_FOUND = 2.

IF SY-SUBRC = 0.

P_VARI = GX_VARIANT-VARIANT.

ENDIF.

ENDFORM. " INITIALIZE_VARIANT

*&---------------------------------------------------------------------*

*& Form F4_FOR_VARIANT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM F4_FOR_VARIANT.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

IS_VARIANT = G_VARIANT

I_SAVE = G_SAVE

IMPORTING

E_EXIT = G_EXIT

ES_VARIANT = GX_VARIANT

EXCEPTIONS

NOT_FOUND = 2.

IF SY-SUBRC = 2.

MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

IF G_EXIT = SPACE.

P_VARI = GX_VARIANT-VARIANT.

ENDIF.

ENDIF.

ENDFORM. " F4_FOR_VARIANT

*&---------------------------------------------------------------------*

*& Form PAI_OF_SELECTION_SCREEN

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM PAI_OF_SELECTION_SCREEN.

*

IF NOT P_VARI IS INITIAL.

MOVE G_VARIANT TO GX_VARIANT.

MOVE P_VARI TO GX_VARIANT-VARIANT.

CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'

EXPORTING

I_SAVE = G_SAVE

CHANGING

CS_VARIANT = GX_VARIANT.

G_VARIANT = GX_VARIANT.

ELSE.

PERFORM INITIALIZE_VARIANT.

ENDIF.

ENDFORM. " PAI_OF_SELECTION_SCREEN

*&---------------------------------------------------------------------*

*& Form BUILD_LAYOUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_LAYOUT text *

*----------------------------------------------------------------------*

FORM BUILD_LAYOUT USING P_LAYOUT TYPE SLIS_LAYOUT_ALV.

P_LAYOUT-F2CODE = F2CODE.

P_LAYOUT-ZEBRA = 'X'.

P_LAYOUT-DETAIL_POPUP = 'X'.

ENDFORM. " BUILD_LAYOUT

*&---------------------------------------------------------------------*

*& Form WRITE_OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM WRITE_OUTPUT.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = REPNAME

I_INTERNAL_TABNAME = 'I_DATOS'

I_INCLNAME = REPNAME

CHANGING

CT_FIELDCAT = FIELDTAB.

IF SY-SUBRC <> 0.

WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_FIELDCATALOG_MERGE'.

ENDIF.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = REPNAME

I_STRUCTURE_NAME = 'INV'

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FIELDTAB

I_DEFAULT = 'A'

I_SAVE = G_SAVE

IS_VARIANT = G_VARIANT

IT_EVENTS = EVENTS[]

TABLES

T_OUTTAB = I_DATOS.

IF SY-SUBRC <> 0.

WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_LIST_DISPLAY'.

ENDIF.

ENDFORM. " WRITE_OUTPUT

*********************** FIN FORMS ALV ********************************

*********************** LOGICA PROGRAMA ********************************


 

 

 


Sobre el autor

Publicación académica de Marcelo Alejandro Iacovino, en su ámbito de estudios para la Carrera Consultor ABAP.

SAP SemiSenior

Marcelo Alejandro Iacovino

Profesión: Consultor Abap - Argentina - Legajo: WH43P

✒️Autor de: 4 Publicaciones Académicas

🎓Egresado de los módulos:

Disponibilidad Laboral: FullTime

Presentación:

Actitud proactiva, excelente trato interpersonal, organizado dinámico y responsable. acepto nuevos desafíos, buscando expectativas de progreso y dispuesto a capacitación constante

Certificación Académica de Marcelo Iacovino

✒️+Comunidad Académica CVOSOFT

Continúe aprendiendo sobre el tema "Social Break - Laboratorio de Ideas" de la mano de nuestros alumnos.

SAP Expert


Un "laboratorio de ideas" es un espacio o un entorno donde las personas se reúnen para generar, compartir y desarrollar nuevas ideas, soluciones creativas y conceptos innovadores. También se conoce como "laboratorio de innovación" o "laboratorio de creatividad". Este concepto promueve la colaboración, la exploración y la experimentación con el objetivo de generar ideas frescas y resolver problemas de manera creativa. Los laboratorios de ideas son comunes en entornos empresariales, académicos y de investigación, así como en organizaciones y proyectos que buscan estimular la innovación y la creatividad.

Acceder a esta publicación

Creado y Compartido por: Darling Geraldino

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Master

Saludos, Ante todo deseo y auguro exitos laborales y personales a todo el equipo. Yo vengo trabajando de manera que manejo mi cuaderno de notas donde alli coloco las sentencias y todo lo relacionado a lo tecnico, la parte teorica la llevo en hojas de reciclaje. Hago esto para mi que soy una persona visual y me enredo con tanto escrito y textos separo las aguas para ser mas preciso a la hora de buscar. En la parte tecnica voy descargando los ejercicios practico los mismos una y otra vez, aunque existen complejidades que voy trabajando como entender la logica de programcion que es algo nuevo para mi. Tambien estoy en un grupo de SAP donde hay mucha informacion de estudio y manuales para profundizar lo referente al mundo. Por aca os dejo el link...

Acceder a esta publicación

Creado y Compartido por: Pedro Salazar / Disponibilidad Laboral: FullTime + Carta Presentación

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Senior

USO COMBINADO DE BDL CON ALV JERARQUICO. Hola: Os dejo el código fuente de un reporte que accede a una base de datos lógica y presenta el resultado en un ALV Jerárquico. Espero que sea de utilidad para alguno de vosotros. *&---------------------------------------------------------------------* *& Report ZGZ57B_ALV_BDL *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zgz57b_alv_bdl. TABLES: spfli, sflight, sbook, scarr. *---------------------------------------------------------------------*...

Acceder a esta publicación

Creado y Compartido por: Carlos Piles Rosell / Disponibilidad Laboral: PartTime

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP SemiSenior

Muy buenas, he tenido mucho tiempo viendo tutoriales por youtube de los siguientes canales para tener una amplitud y repaso de los conocimientos adquiridos durante este curso para Consultor ABAP nivel Inicial espero les sea de ayuda los siguientes canales de youtube y que no me hagan problema los moderadores de esta seccion de ser asi modifiquen o mandenme un mensaje por el cual me informen sobre borrar dicha informacion, muchas gracias por el espacio y espero les sirva SAP ABAP Curso del canal PRIME Institute https://www.youtube.com/watch?v=0icf9bH5RgE Curso de ABAP en español del canal Marlon Falcon Hernandez https://www.youtube.com/watch?v=xz5Qn9AdJ6U&list=PLJN7H8Mnf3k9W0Y5w1IziWwECgwPAxmUD Curso gratuito SAP ABAP iniciacion del...

Acceder a esta publicación

Creado y Compartido por: Federico Adrian Paz Garcia / Disponibilidad Laboral: FullTime + Carta Presentación

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Master

Hola, Suelo investigar temas relacionados con procesos para la empresa para la que trabajo que tengan aplicación en SAP. Básicamente tiro de la web MundoSAP de habla hispana y de SCN del SAP oficial en inglés cuando no encuentro nada en español que resuelva mi problema. Por supuesto también el Blog de Óscar https://www.blogdesap.com/2013/10/blogs-espanol-sap.html donde indica otros blogs también muy recurridos como son el de Roberto Espinosa que aclaraban mucho. También uso bibliografía, eso que llaman libros :-D Sobre todo para los inicios. Luego se quedan cortos. De la editorial SAPPRESS, todos en inglés. Estos dos ejemplares Discover ABAP de Karl-Heinz Kühnhauser...

Acceder a esta publicación

Creado y Compartido por: David Brito Melado

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP SemiSenior

Z_PLANTILLA_ALV Plantilla listado ALV REPORT Z_PLANTILLA_ALV. *********************************************************************** * Plantilla para listados ALV . * Andrés Picazo (http://sapabap.cc) **************************************************************** TYPE-POOLS: SLIS. *------I N C L U D E S ------------------------------------------------* *------C O N S T A N T E S --------------------------------------------* *------TABLAS/ESTRUCTURAS----------------------------------------------* TABLES: ???: *------TABLAS INTERNAS-------------------------------------------------* data: begin of i_datos occurs 100, xxxx, end of i_datos. *------VARIABLES-------------------------------------------------------*...

Acceder a esta publicación

Creado y Compartido por: Marcelo Alejandro Iacovino / Disponibilidad Laboral: FullTime + Carta Presentación

*** CVOSOFT - Nuestros Alumnos - Nuestro Mayor Orgullo como Academia ***

SAP Master


Investigaciones Personales Antes de comenzar el curso de Consultor ABAP Nivel inicial, tomé algunos cursos gratuitos para inicarme en el mundo SAP y la programación ABAP. Páginas que utilizo par ampliar conocimientos CVOPedia, ofrece gran variedad de conceptos para complementar los contenidos vistos en cada lección. Página de Logaly group, donde tomé algunos cursos gratuitos antes de comenzar en CVOSOFT Foros, grupos de WhatsApp y Facebook Experimentos Realizados Ejecutar cada ejercicio realizado en las lecciones para verificar su funcionamiento. Trato de realizar por mí misma lis ejercicios propuestos, sin embargo, si veo que me toma mucho tiempo me guío por la solución...

Acceder a esta publicación

Creado y Compartido por: Lizeth Lorena Castro Ruiz / Disponibilidad Laboral: FullTime + Carta Presentación

 


 

👌Genial!, estos fueron los últimos artículos sobre más de 79.000 publicaciones académicas abiertas, libres y gratuitas compartidas con la comunidad, para acceder a ellas le dejamos el enlace a CVOPEN ACADEMY.

Buscador de Publicaciones:

 


 

No sea Juan... Solo podrá llegar alto si realiza su formación con los mejores!