Etiquetas

20111212

ABAP HR: Leer infotipos anidados (Ej: IT0041)

Método alternativo para leer ese tipo de Infotipos sin tener que ocupar el DO ... VARING ...NEXT


    DATA: cadena(15),
          conta(2) TYPE n VALUE 00.
    FIELD-SYMBOLS: <dar> LIKE p0041-dar01,
                   <dat> LIKE p0041-dat01.
    DO 12 TIMES.
      ADD 1 TO conta.
      CONCATENATE 'p0041-dar' conta INTO cadena.
      ASSIGN (cadena) TO <dar>.
      CHECK <dar> = '01'.
      CLEAR cadena.
      CONCATENATE 'p0041-dat' conta INTO cadena.
      ASSIGN (cadena) TO <dat>.
      ti_details-fpago = <dat>.
    ENDDO.