Difference between revisions of "SAP HCM MEDIDAS DINAMICAS"

From SapWiki
Line 244: Line 244:
 
   g_tabix = 0.
 
   g_tabix = 0.
 
  ENDFORM.
 
  ENDFORM.
 +
 +
===Ejemplo 2: Al ejecutar una Contratación o Recontratación (trn. PA40) se deben generar IT0008 y IT0014, esto se realiza después de crear el IT0007 de la medida===
 +
====Tabla T588Z====
 +
{| class="wikitable"
 +
! Infotipo
 +
! Subtipo
 +
! Nombre campo
 +
! Caracter funcional
 +
! Nro secuencia
 +
! Accion
 +
! Parte variable de la funcion
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 100
 +
|
 +
| *ASIGNACIONES
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 101
 +
| P
 +
| T001P-MOLGA='39'
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 102
 +
| F
 +
| INIT(ZHCM_MEDIDAS_DINAMICAS)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 103
 +
| F
 +
| ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 104
 +
| P
 +
| RP50D-FLAG1='X'
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 105
 +
| I
 +
| INS,0008,0,,(P0000-BEGDA),(P0000-ENDDA)/D
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 106
 +
| W
 +
| P0008-TRFAR=RP50D-ZZFIELD01
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 107
 +
| W
 +
| P0008-TRFGB=RP50D-ZZFIELD02
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 108
 +
| W
 +
| P0008-TRFGR=RP50D-ZZFIELD03
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 109
 +
| W
 +
| P0008-TRFST=RP50D-ZZFIELD04
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 110
 +
| W
 +
| P0008-LGA01=RP50D-ZZFIELD05
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 111
 +
| W
 +
| P0008-BET01=RP50D-ZZFIELD06
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 112
 +
| W
 +
| P0008-SPRPS=RP50D-ZZFIELD07
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 113
 +
| F
 +
| ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 114
 +
| P
 +
| RP50D-FLAG1='X'
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 115
 +
| I
 +
| INS,0014,(RP50D-ZZFIELD01),,(P0000-BEGDA),(P0000-ENDDA)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 116
 +
| W
 +
| P0014-LGART=RP50D-ZZFIELD01
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 117
 +
| W
 +
| P0014-BETRG=RP50D-ZZFIELD02
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 118
 +
| W
 +
| P0014-WAERS=RP50D-ZZFIELD03
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 119
 +
| W
 +
| P0014-ANZHL=RP50D-ZZFIELD04
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 120
 +
| P
 +
| T001P-MOLGA='39'
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 121
 +
| F
 +
| ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 122
 +
| P
 +
| RP50D-FLAG1='X'
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 123
 +
| I
 +
| INS,0014,(RP50D-ZZFIELD01),,(P0000-BEGDA),(P0000-ENDDA)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 124
 +
| W
 +
| P0014-LGART=RP50D-ZZFIELD01
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 125
 +
| W
 +
| P0014-BETRG=RP50D-ZZFIELD02
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 126
 +
| W
 +
| P0014-WAERS=RP50D-ZZFIELD03
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 127
 +
| W
 +
| P0014-ANZHL=RP50D-ZZFIELD04
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 128
 +
| P
 +
| T001P-MOLGA='39'
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 129
 +
| F
 +
| ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 130
 +
| P
 +
| RP50D-FLAG1='X'
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 131
 +
| I
 +
| INS,0014,(RP50D-ZZFIELD01),,(P0000-BEGDA),(P0000-ENDDA)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 132
 +
| W
 +
| P0014-LGART=RP50D-ZZFIELD01
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 133
 +
| W
 +
| P0014-BETRG=RP50D-ZZFIELD02
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 134
 +
| W
 +
| P0014-WAERS=RP50D-ZZFIELD03
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 135
 +
| W
 +
| P0014-ANZHL=RP50D-ZZFIELD04
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 136
 +
| P
 +
| T001P-MOLGA='39'
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 137
 +
| F
 +
| ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 138
 +
| P
 +
| RP50D-FLAG1='X'
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 139
 +
| I
 +
| INS,0014,(RP50D-ZZFIELD01),,(P0000-BEGDA),(P0000-ENDDA)
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 140
 +
| W
 +
| P0014-LGART=RP50D-ZZFIELD01
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 141
 +
| W
 +
| P0014-BETRG=RP50D-ZZFIELD02
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 142
 +
| W
 +
| P0014-WAERS=RP50D-ZZFIELD03
 +
|-
 +
| 0007
 +
|
 +
|
 +
| 06
 +
| 143
 +
| W
 +
| P0014-ANZHL=RP50D-ZZFIELD04
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|-
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|
 +
|}

Revision as of 13:57, 28 March 2020

Medidas Dinámicas

Las medidas dinámicas se crean en la tabla T588Z

Ejemplo 1: en este caso al actualizar ciertos campos del IT0021 se deben crear IT0015. Los nuevos campos se agregaron como tabla con máximo de 12 líneas, cada línea se procesa en este bloque

T001P-MOLGA='39'
PROCESAR(ZHCM_MEDIDAS_DINAMICAS)
RP50D-FLAG1='X'
P0021-ZZFCH_PAGO01<>'00000000'
INS,0015,1159,,(P0021-ZZFCH_PAGO01),(P0021-ZZFCH_PAGO01)
P0015-BETRG=P0021-ZZBET01
P0015-WAERS=P0021-ZZWAERS
P0015-ANZHL=P0021-ZZFASAR01
P0015-ZEINH='025'
P0015-ZUORD=P3226-RUTID

Tabla T588Z

Infotipo Subtipo Nombre campo Caracter funcional Nro secuencia Accion Parte variable de la funcion
0021 06 400 * MI MEDIDA DINAMICA *
0021 06 401 P T001P-MOLGA='39'
0021 06 402 F PROCESAR(ZHCM_MEDIDAS_DINAMICAS)
0021 06 403 P RP50D-FLAG1='X'
0021 06 404 P P0021-ZZFCH_PAGO01<>'00000000'
0021 06 405 I INS,0015,1159,,(P0021-ZZFCH_PAGO01),(P0021-ZZFCH_PAGO01)
0021 06 406 W P0015-BETRG=P0021-ZZBET01
0021 06 407 W P0015-WAERS=P0021-ZZWAERS
0021 06 408 W P0015-ANZHL=P0021-ZZFASAR01
0021 06 409 W P0015-ZEINH='025'
0021 06 410 W P0015-ZUORD=P3226-RUTID
0021 06 420 P T001P-MOLGA='39'
0021 06 421 F PROCESAR(ZHCM_MEDIDAS_DINAMICAS)
0021 06 422 P RP50D-FLAG1='X'
0021 06 423 P P0021-ZZFCH_PAGO02<>'00000000'
0021 06 424 I INS,0015,1159,,(P0021-ZZFCH_PAGO02),(P0021-ZZFCH_PAGO02)
0021 06 425 W P0015-BETRG=P0021-ZZBET02
0021 06 426 W P0015-WAERS=P0021-ZZWAERS
0021 06 427 W P0015-ANZHL=P0021-ZZFASAR02
0021 06 428 W P0015-ZEINH='025'
0021 06 429 W P0015-ZUORD=P3226-RUTID

Programa ZHCM_MEDIDAS_DINAMICAS

REPORT ZHCM_MEDIDAS_DINAMICAS.
TABLES: p0021,
        p3226,
        RP50D.

DATA g_tabix LIKE sy-tabix.
DATA gt_p0015 TYPE TABLE OF p0015.


FORM PROCESAR.

  DATA: ls_p0021 TYPE p0021,
        ls_p3226 TYPE p3226,
        ls_p0015 TYPE p0015.

  ls_p0021 = p0021.
  ls_p3226 = p3226.

  ADD 1 TO  g_tabix.

  RP50D-FLAG1 = space.
  CHECK ls_p3226-RUTID IS NOT INITIAL . "Si carga no tiene RUT no se crea IT0015

  DATA: ZZFCH_PAGO TYPE zq0021-ZZFCH_PAGO,
        ZZBET TYPE zq0021-ZZBET,
        zzfasar TYPE zq0021-zzfasar,
        ZZFLAG0015 TYPE zq0021-ZZFLAG0015.

  DATA: l_subrc TYPE sy-subrc,
        l_message TYPE bapiret2-MESSAGE.

  DO 12 TIMES VARYING ZZFCH_PAGO FROM ls_p0021-ZZFCH_PAGO01 NEXT ls_p0021-ZZFCH_PAGO02
              VARYING ZZBET      FROM ls_p0021-ZZBET01      NEXT ls_p0021-ZZBET02
              VARYING zzfasar    FROM ls_p0021-zzfasar01    NEXT ls_p0021-zzfasar02
              VARYING ZZFLAG0015 FROM ls_p0021-ZZFLAG001501 NEXT ls_p0021-ZZFLAG001502.

    IF sy-INDEX = g_tabix.
      CHECK ZZFCH_PAGO IS NOT INITIAL AND ZZFLAG0015 <> 'X'.
      RP50D-FLAG1 = 'X'.   "ver tabla de medidas dinámicas T588Z con IT0021
    ENDIF.

  ENDDO.
ENDFORM.

form PROCESAR_INIT.
  g_tabix = 0.
ENDFORM.

Ejemplo 2: Al ejecutar una Contratación o Recontratación (trn. PA40) se deben generar IT0008 y IT0014, esto se realiza después de crear el IT0007 de la medida

Tabla T588Z

Infotipo Subtipo Nombre campo Caracter funcional Nro secuencia Accion Parte variable de la funcion
0007 06 100 *ASIGNACIONES
0007 06 101 P T001P-MOLGA='39'
0007 06 102 F INIT(ZHCM_MEDIDAS_DINAMICAS)
0007 06 103 F ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
0007 06 104 P RP50D-FLAG1='X'
0007 06 105 I INS,0008,0,,(P0000-BEGDA),(P0000-ENDDA)/D
0007 06 106 W P0008-TRFAR=RP50D-ZZFIELD01
0007 06 107 W P0008-TRFGB=RP50D-ZZFIELD02
0007 06 108 W P0008-TRFGR=RP50D-ZZFIELD03
0007 06 109 W P0008-TRFST=RP50D-ZZFIELD04
0007 06 110 W P0008-LGA01=RP50D-ZZFIELD05
0007 06 111 W P0008-BET01=RP50D-ZZFIELD06
0007 06 112 W P0008-SPRPS=RP50D-ZZFIELD07
0007 06 113 F ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
0007 06 114 P RP50D-FLAG1='X'
0007 06 115 I INS,0014,(RP50D-ZZFIELD01),,(P0000-BEGDA),(P0000-ENDDA)
0007 06 116 W P0014-LGART=RP50D-ZZFIELD01
0007 06 117 W P0014-BETRG=RP50D-ZZFIELD02
0007 06 118 W P0014-WAERS=RP50D-ZZFIELD03
0007 06 119 W P0014-ANZHL=RP50D-ZZFIELD04
0007 06 120 P T001P-MOLGA='39'
0007 06 121 F ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
0007 06 122 P RP50D-FLAG1='X'
0007 06 123 I INS,0014,(RP50D-ZZFIELD01),,(P0000-BEGDA),(P0000-ENDDA)
0007 06 124 W P0014-LGART=RP50D-ZZFIELD01
0007 06 125 W P0014-BETRG=RP50D-ZZFIELD02
0007 06 126 W P0014-WAERS=RP50D-ZZFIELD03
0007 06 127 W P0014-ANZHL=RP50D-ZZFIELD04
0007 06 128 P T001P-MOLGA='39'
0007 06 129 F ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
0007 06 130 P RP50D-FLAG1='X'
0007 06 131 I INS,0014,(RP50D-ZZFIELD01),,(P0000-BEGDA),(P0000-ENDDA)
0007 06 132 W P0014-LGART=RP50D-ZZFIELD01
0007 06 133 W P0014-BETRG=RP50D-ZZFIELD02
0007 06 134 W P0014-WAERS=RP50D-ZZFIELD03
0007 06 135 W P0014-ANZHL=RP50D-ZZFIELD04
0007 06 136 P T001P-MOLGA='39'
0007 06 137 F ASIGNACIONES(ZHCM_MEDIDAS_DINAMICAS)
0007 06 138 P RP50D-FLAG1='X'
0007 06 139 I INS,0014,(RP50D-ZZFIELD01),,(P0000-BEGDA),(P0000-ENDDA)
0007 06 140 W P0014-LGART=RP50D-ZZFIELD01
0007 06 141 W P0014-BETRG=RP50D-ZZFIELD02
0007 06 142 W P0014-WAERS=RP50D-ZZFIELD03
0007 06 143 W P0014-ANZHL=RP50D-ZZFIELD04
Retrieved from "https://sapwiki.cl/wiki/index.php?title=SAP_HCM_MEDIDAS_DINAMICAS&oldid=181"