SAP ABAP DICTIONARY - Revision history

WikiSysop: /* Tablas */

2024-12-24T03:12:54Z

Tablas

WikiSysop: /* Ejemplo Evento 01 - Antes de grabar los datos en la base de datos */

2024-12-24T03:05:00Z

Ejemplo Evento 01 - Antes de grabar los datos en la base de datos

WikiSysop: /* Tablas */

2024-12-23T20:59:41Z

Tablas

WikiSysop: /* =Log de Modificaciones */

2024-10-19T00:01:53Z

=Log de Modificaciones

WikiSysop: /* Tablas */

2024-10-19T00:01:37Z

Tablas

WikiSysop at 00:24, 6 December 2023

2023-12-06T00:24:09Z

WikiSysop at 01:13, 1 September 2022

2022-09-01T01:13:25Z

WikiSysop: /* Ejemplo evento 05 */

2022-09-01T01:09:17Z

Ejemplo evento 05

WikiSysop at 01:07, 1 September 2022

2022-09-01T01:07:05Z

WikiSysop: /* Eventos en SE11-->Utilidades-->Generador actualiz.tab. */

2021-12-15T01:19:21Z

Eventos en SE11-->Utilidades-->Generador actualiz.tab.

@@ Line 45: / Line 45: @@
      IF ls_data-nresfin < ls_data-nresini and ls_data-nresfin is NOT INITIAL.
        l_string = |Para Período { ls_data-perca } Nr.Res.Fin { ls_data-nresfin } menor a|.
-       MESSAGE I000(0k) WITH l_string 'Nr.Res.Ini' ls_data-nresini display like 'E'.
+       MESSAGE S000(0k) WITH l_string 'Nr.Res.Ini' ls_data-nresini display like 'E'.
        vim_abort_saving = 'X'.
        exit.

@@ Line 45: / Line 45: @@
      IF ls_data-nresfin < ls_data-nresini and ls_data-nresfin is NOT INITIAL.
        l_string = |Para Período { ls_data-perca } Nr.Res.Fin { ls_data-nresfin } menor a|.
-       MESSAGE e000(0k) WITH l_string 'Nr.Res.Ini' ls_data-nresini.
+       MESSAGE I000(0k) WITH l_string 'Nr.Res.Ini' ls_data-nresini display like 'E'.
        vim_abort_saving = 'X'.
      ENDIF.
    ENDLOOP.
@@ Line 66: / Line 67: @@
          l_string = |Para Período { ls_data-perca } Nr.Res.Ini { ls_data-nresini } menor/igual a|.
          l_string2 = |Nr.Res.Fin { ls_data2-nresfin } de Período { ls_data2-perca }|.
-         MESSAGE e000(0k) WITH l_string l_string2.
+         MESSAGE E000(0k) WITH l_string l_string2.
        ENDIF.
      ENDLOOP.

← Older revision		Revision as of 20:59, 23 December 2024
Line 226:		Line 226:

	ENDIF.</nowiki>		ENDIF.</nowiki>
		+
		+	===actualizar tabla vía rango===
		+	<nowiki>
		+	* Objetivo : Actualizar vista V_T508A
		+	* Copiado de RPTDSH20
		+	REPORT ZT508A.
		+
		+	* 3.1G
		+	* XAYP30K127599 290197 SQL Fehler im dynamischen Select in Form
		+	* GET_V_T550A_DATA innerhalb VIEW_MAINTENANCE_CALL
		+	* durch neuen Funktionsbaustein behoben
		+	* 3.0D
		+	* XWIP30K051797 220296 Datumsaufberietung gemäß Benutzerfestwerte
		+	* beim View_Maintenance_Call
		+	* 3.0C
		+	* XBSP30K036111 110196 Report neu erstellt
		+
		+	TABLES: T508A.
		+
		+	* entries to be selected by view-m-call
		+	DATA: BEGIN OF DBA_SELLIST OCCURS 1.
		+	INCLUDE STRUCTURE VIMSELLIST.
		+
		+	* functions to be excluded during view_maintenance
		+	DATA: END OF DBA_SELLIST.
		+	DATA: BEGIN OF EXCL_CUAFUNCT OCCURS 1.
		+	INCLUDE STRUCTURE VIMEXCLFUN.
		+	DATA: END OF EXCL_CUAFUNCT.
		+
		+	*data: datum_vmc(10). "date for view_maintenance_call "XAYP30K127599
		+
		+	* selection-criteria
		+	SELECTION-SCREEN BEGIN OF BLOCK SEL WITH FRAME TITLE TEXT-001.
		+	SELECT-OPTIONS: SCHKZ FOR T508A-SCHKZ,
		+	mofid FOR T508A-mofid,
		+	mosid FOR T508A-mosid.
		+	SELECTION-SCREEN END OF BLOCK SEL.
		+
		+	START-OF-SELECTION.
		+	EXCL_CUAFUNCT-FUNCTION = 'AEND'.
		+	APPEND EXCL_CUAFUNCT.
		+	PERFORM FILL_DBA_SELLIST.
		+	CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
		+	EXPORTING
		+	ACTION = 'U'
		+	VIEW_NAME = 'V_T508A'
		+	COMPLEX_SELCONDS_USED = 'X' "XAYP30K127599
		+	TABLES
		+	DBA_SELLIST = DBA_SELLIST
		+	EXCL_CUA_FUNCT = EXCL_CUAFUNCT.
		+	CHECK SY-SUBRC EQ 0.
		+
		+	---------------------------------------------------------------------
		+	* FORM FILL_ARG_T550A *
		+	---------------------------------------------------------------------
		+	* ........ *
		+	---------------------------------------------------------------------
		+	FORM FILL_DBA_SELLIST.
		+	CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST' "XAYP30K127599
		+	EXPORTING "XAYP30K127599
		+	FIELDNAME = 'SCHKZ' "XAYP30K127599
		+	TABLES "XAYP30K127599
		+	SELLIST = dba_sellist "XAYP30K127599
		+	RANGETAB = SCHKZ "XAYP30K127599
		+	EXCEPTIONS "XAYP30K127599
		+	OTHERS = 1. "XAYP30K127599
		+	CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST' "XAYP30K127599
		+	EXPORTING "XAYP30K127599
		+	FIELDNAME = 'MOFID' "XAYP30K127599
		+	APPEND_CONJUNCTION = 'AND' "XAYP30K127599
		+	TABLES "XAYP30K127599
		+	SELLIST = dba_sellist "XAYP30K127599
		+	RANGETAB = MOFID "XAYP30K127599
		+	EXCEPTIONS "XAYP30K127599
		+	OTHERS = 1. "XAYP30K127599
		+
		+	CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST' "XAYP30K127599
		+	EXPORTING "XAYP30K127599
		+	FIELDNAME = 'MOSID' "XAYP30K127599
		+	APPEND_CONJUNCTION = 'AND' "XAYP30K127599
		+	TABLES "XAYP30K127599
		+	SELLIST = dba_sellist "XAYP30K127599
		+	RANGETAB = MOSID "XAYP30K127599
		+	EXCEPTIONS "XAYP30K127599
		+	OTHERS = 1. "XAYP30K127599
		+	ENDFORM.
		+
		+	---------------------------------------------------------------------
		+	* FORM SHOW_VALUES *
		+	---------------------------------------------------------------------
		+	* ........ *
		+	---------------------------------------------------------------------
		+	* --> TPROG *
		+	---------------------------------------------------------------------
		+	FORM SHOW_VALUES USING TPROG.
		+
		+	DATA: INDEX LIKE SY-INDEX.
		+	CALL FUNCTION 'HELP_VALUES_GET'
		+	EXPORTING
		+	FIELDNAME = 'TPROG'
		+	TABNAME = 'T550A'
		+	IMPORTING
		+	SELECT_VALUE = TPROG
		+	SELECT_INDEX = INDEX
		+	EXCEPTIONS
		+	OTHERS = 1.
		+
		+	ENDFORM.
		+
		+	</nowiki>

	===Bloquear Tablas===		===Bloquear Tablas===

@@ Line 265: / Line 265: @@
 </nowiki>
-===Log de Modificaciones==
+===Log de Modificaciones===
 Trn. SCU3 - Reporte RSTBHIST : Evaluación de objetos Customizing y tablas grabados en log

← Older revision		Revision as of 00:01, 19 October 2024
Line 264:		Line 264:
	.		.
	</nowiki>		</nowiki>
		+
		+	===Log de Modificaciones==
		+	Trn. SCU3 - Reporte RSTBHIST : Evaluación de objetos Customizing y tablas grabados en log

← Older revision		Revision as of 00:24, 6 December 2023
Line 226:		Line 226:

	ENDIF.</nowiki>		ENDIF.</nowiki>
		+
		+	===Bloquear Tablas===
		+	<nowiki>
		+	data l_VARKEY TYPE RSTABLE-VARKEY.
		+
		+	l_varkey = sy-mandt.
		+
		+	CALL FUNCTION 'ENQUEUE_E_TABLEE'
		+	EXPORTING
		+	* MODE_RSTABLE = 'E'
		+	TABNAME = 'T7RUSCHOOL'
		+	VARKEY = l_varkey
		+	* X_TABNAME = ' '
		+	* X_VARKEY = ' '
		+	* _SCOPE = '2'
		+	* _WAIT = ' '
		+	* _COLLECT = ' '
		+	EXCEPTIONS
		+	FOREIGN_LOCK = 1
		+	SYSTEM_FAILURE = 2
		+	OTHERS = 3
		+	.
		+	IF sy-subrc <> 0.
		+	* Implement suitable error handling here
		+	ENDIF.
		+
		+	CALL FUNCTION 'DEQUEUE_E_TABLE'
		+	EXPORTING
		+	* MODE_RSTABLE = 'E'
		+	TABNAME = 'T7RUSCHOOL'
		+	VARKEY = l_varkey
		+	* X_TABNAME = ' '
		+	* X_VARKEY = ' '
		+	* _SCOPE = '3'
		+	* _SYNCHRON = ' '
		+	* _COLLECT = ' '
		+	.
		+	</nowiki>

@@ Line 2: / Line 2: @@
 ===Eventos en SE11-->Utilidades-->Generador actualiz.tab.===
 Ver tabla TVIMF
-==== Ejemplo Evento 01====
+==== Ejemplo Evento 01 - Antes de grabar los datos en la base de datos====
   <nowiki>
 FORM check_resolucion_ini.
@@ Line 75: / Line 75: @@
 </nowiki>
-==== Ejemplo evento 05====
+==== Ejemplo evento 05 - Al crear una entrada nueva====
   <nowiki>
 FORM check_resolucion_ini_new.
@@ Line 176: / Line 176: @@
 ENDFORM.</nowiki>
-====ejemplo evento AA====
+====ejemplo evento AA - en lugar de la rutina estándar para cargar datos====
   <nowiki>
 FORM read_z_my_table.

@@ Line 1: / Line 1: @@
 ==Tablas==
 ===Eventos en SE11-->Utilidades-->Generador actualiz.tab.===
 * Ejemplo Evento 01
   <nowiki>