SAP HCM OM - Revision history

WikiSysop: /* Ayuda Busqueda para Objeto */

2021-04-09T23:42:36Z

Ayuda Busqueda para Objeto

WikiSysop: /* Ayuda Busqueda para Objeto */

2021-04-09T23:42:09Z

Ayuda Busqueda para Objeto

WikiSysop: /* Ayuda Busqueda para Objeto */

2021-04-09T23:06:28Z

Ayuda Busqueda para Objeto

WikiSysop: /* Ayuda Busqueda para Objeto */

2021-04-09T23:05:33Z

Ayuda Busqueda para Objeto

WikiSysop: /* Ayuda Busqueda para Objeto */

2021-04-09T23:04:38Z

Ayuda Busqueda para Objeto

WikiSysop at 23:04, 9 April 2021

2021-04-09T23:04:17Z

WikiSysop: /* Crear Relación */

2021-01-04T19:52:08Z

Crear Relación

WikiSysop at 19:50, 4 January 2021

2021-01-04T19:50:33Z

WikiSysop: /* RH_DELETE_INFTY */

2020-04-11T19:59:26Z

RH_DELETE_INFTY

WikiSysop: /* RH_DELETE_INFTY */

2020-04-11T19:59:08Z

RH_DELETE_INFTY

@@ Line 346: / Line 346: @@
 ENDFORM.                    "crea_relacion</nowiki>
 ===Ayuda Busqueda para Objeto===
-====Ver include MH5A0I50====
+====En dynpro (include MH5A0I50)====
   <nowiki>
 module objid_request_5000 input.

@@ Line 346: / Line 346: @@
 ENDFORM.                    "crea_relacion</nowiki>
 ===Ayuda Busqueda para Objeto===
-Ver include MH5A0I50
+====Ver include MH5A0I50====
   <nowiki>
 module objid_request_5000 input.
@@ Line 383: / Line 383: @@
   <nowiki>process on value-request.
    field pm0d1-seark module objid_request_5000. </nowiki>

@@ Line 349: / Line 349: @@
   <nowiki>
 module objid_request_5000 input.
-   self_repid = sy-repid.                                    "YNKK100992
+   self_repid = sy-repid.
-   self_dynnr = sy-dynnr.                                    "YNKK100992
+   self_dynnr = sy-dynnr.
-   call function 'RH_OBJID_REQUEST'                       "XMKBCEK002468
+   call function 'RH_OBJID_REQUEST'
         exporting
              plvar                 = pphdr-plvar

@@ Line 351: / Line 351: @@
    self_repid = sy-repid.                                    "YNKK100992
    self_dynnr = sy-dynnr.                                    "YNKK100992
    call function 'RH_OBJID_REQUEST'                       "XMKBCEK002468
@@ Line 385: / Line 373: @@
    if sy-subrc = 0.
      move f4_objec-realo to pm0d1-seark.
      if pphdr-otype = 'K'.
        clear pm0d1-seark+10(2).
@@ Line 398: / Line 382: @@
 En Dynpro
   <nowiki>process on value-request.
-   field pm0d1-seark module objid_request_5000.          "YNKA085575</nowiki>
+   field pm0d1-seark module objid_request_5000. </nowiki>

@@ Line 346: / Line 346: @@
 ENDFORM.                    "crea_relacion</nowiki>
 ===Ayuda Busqueda para Objeto===
- Ver include MH5A0I50
+Ver include MH5A0I50
   <nowiki>
 module objid_request_5000 input.
@@ Line 396: / Line 396: @@
 </nowiki>
- En Dynpro
+En Dynpro
   <nowiki>process on value-request.
    field pm0d1-seark module objid_request_5000.          "YNKA085575</nowiki>

← Older revision		Revision as of 23:04, 9 April 2021
Line 345:		Line 345:

	ENDFORM. "crea_relacion</nowiki>		ENDFORM. "crea_relacion</nowiki>
		+	===Ayuda Busqueda para Objeto===
		+	Ver include MH5A0I50
		+	<nowiki>
		+	module objid_request_5000 input.
		+	self_repid = sy-repid. "YNKK100992
		+	self_dynnr = sy-dynnr. "YNKK100992
		+	* Umstellung auf RH_OBJID_REQUEST "XMKBCEK002468
		+	* PERFORM objid_request(rhobidf4) USING ''
		+	* pphdr-plvar
		+	* pphdr-otype
		+	*(DEL) SY-REPID "YNKK100992
		+	* self_repid "YNKK100992
		+	*(DEL) SY-DYNNR "YNKK100992
		+	* self_dynnr "YNKK100992
		+	* 'PPHDR-PLVAR'
		+	* 'PPHDR-OTYPE'
		+	* 'PM0D1-SEARK'
		+	* pm0d1-seark.
		+
		+	call function 'RH_OBJID_REQUEST' "XMKBCEK002468
		+	exporting
		+	plvar = pphdr-plvar
		+	otype = pphdr-otype
		+	dynpro_repid = self_repid
		+	dynpro_dynnr = self_dynnr
		+	dynpro_plvarfield = 'PPHDR-PLVAR'
		+	dynpro_otypefield = 'PPHDR-OTYPE'
		+	dynpro_searkfield = 'PM0D1-SEARK'
		+	importing
		+	sel_object = f4_objec
		+	exceptions
		+	cancelled = 1
		+	wrong_condition = 2
		+	nothing_found = 3
		+	illegal_mode = 4
		+	internal_error = 5
		+	others = 6.
		+
		+	if sy-subrc = 0.
		+	move f4_objec-realo to pm0d1-seark.
		+	* Eigentlich müßte der Suchbegriff REALO-artig sein, dann paßt auch
		+	* der 14-stellige Schlüssel PKEYK rein, aber da das nicht geht,
		+	* wird einfach nach 10 Stellen abgeschnitten. Dadurch greift die
		+	* SET/GET-Parameter-Logik auf den Buchungskreis wieder.
		+	if pphdr-otype = 'K'.
		+	clear pm0d1-seark+10(2).
		+	endif.
		+	endif.
		+	endmodule. "objid_request_5000 INPUT
		+	</nowiki>
		+
		+	En Dynpro
		+	<nowiki>process on value-request.
		+	field pm0d1-seark module objid_request_5000. "YNKA085575</nowiki>

@@ Line 292: / Line 292: @@
            l_otype TYPE p1000-otype.
      DATA l_like(20).
      CLEAR ls_relation.
@@ Line 321: / Line 309: @@
      APPEND ls_relation TO lt_relation.
-     PERFORM crea_relacion IN PROGRAM zhr_sindicato_rutinas
+     PERFORM crea_relacion USING lt_relation CHANGING p_subrc.
      if p_subrc = 0.
        CALL FUNCTION 'RH_UPDATE_DATABASE'

← Older revision		Revision as of 19:50, 4 January 2021
Line 282:		Line 282:
	RETURN.		RETURN.
	ENDIF.		ENDIF.
		+
		+	===Crear Relación===
		+	<nowiki>FORM relation_ CHANGING p_subrc.
		+	DATA lt_relation TYPE hri1001_tab.
		+	DATA ls_relation LIKE LINE OF lt_relation.
		+	DATA l_subty LIKE ls_relation-relat.
		+
		+	DATA: l_objid TYPE p1000-objid,
		+	l_otype TYPE p1000-otype.
		+	DATA l_like(20).
		+
		+	PERFORM buscar_padre(zhr_sindicato_rutinas_2) USING p_otype p_objid
		+	CHANGING l_objid l_otype.
		+	* l_like = p_otype.
		+	CONCATENATE l_like '%' INTO l_like.
		+
		+	SELECT SINGLE relat INTO l_subty FROM t777e
		+	WHERE clas1 = p_otype
		+	AND clas2 = g_otype
		+	AND rsign = 'A'
		+	AND relat LIKE l_like
		+	.
		+
		+	CLEAR ls_relation.
		+	ls_relation-mandt = sy-mandt.
		+	ls_relation-plvar = '01'.
		+	ls_relation-otype = g_otype.
		+	ls_relation-objid = p1000-objid.
		+	ls_relation-infty = '1001'.
		+	ls_relation-istat = '1'.
		+	ls_relation-rsign = 'B'.
		+	ls_relation-relat = l_subty. "'Z01'.
		+	ls_relation-begda = p1000-begda.
		+	ls_relation-endda = p1000-endda.
		+	ls_relation-sclas = p_otype.
		+	ls_relation-sobid = p_objid.
		+
		+	APPEND ls_relation TO lt_relation.
		+
		+	PERFORM crea_relacion IN PROGRAM zhr_sindicato_rutinas
		+	USING lt_relation CHANGING p_subrc.
		+	if p_subrc = 0.
		+	CALL FUNCTION 'RH_UPDATE_DATABASE'
		+	EXPORTING
		+	vtask = 'D'
		+	commit_flg = 'X' "VWMCOMMIT
		+	clear_buffer = ' '
		+	EXCEPTIONS
		+	corr_exit = 04.
		+	endif.
		+
		+	ENDFORM. "relation_fiscalizacion
		+
		+	FORM crea_relacion USING p_relation TYPE hri1001_tab CHANGING p_subrc.
		+
		+	CALL FUNCTION 'RH_RELATION_WRITE'
		+	EXPORTING
		+	vtask = 'B'
		+	* KEEP_LUPD = ' '
		+	TABLES
		+	relation = p_relation
		+	* ERR_RELATION =
		+	EXCEPTIONS
		+	no_authority = 1
		+	relation_not_allowed = 2
		+	object_not_found = 3
		+	wrong_date_format = 4
		+	time_not_valid = 5
		+	error_during_insert = 6
		+	undefined = 7
		+	OTHERS = 8
		+	.
		+
		+	p_subrc = sy-subrc.
		+
		+	ENDFORM. "crea_relacion</nowiki>

@@ Line 158: / Line 158: @@
   ENDFORM.                    "delete_infotype
+.
-−
   PERFORM delete_infotype USING ls_p9005
                        CHANGING l_subrc.

← Older revision		Revision as of 19:59, 11 April 2020
Line 157:		Line 157:

	ENDFORM. "delete_infotype		ENDFORM. "delete_infotype
−		+	.
		+	.
		+	.
	PERFORM delete_infotype USING ls_p9005		PERFORM delete_infotype USING ls_p9005
	CHANGING l_subrc.		CHANGING l_subrc.