Ausgabe der Änderungen auf Personalstamm

Code: Alles auswählen.

* Selektion Daten zur Person

  SELECT pernr vorna nachn gbdat name2 aedtm FROM pa0002
    INTO (wa_empl-empnosap, wa_empl-firstname, wa_empl-lastname, l_gbdat, l_name2, a_change)
   WHERE begda <= sy-datum
     AND endda >= sy-datum.
    IF NOT l_gbdat IS INITIAL.
      CONCATENATE l_gbdat+0(4)  l_gbdat+4(2)  l_gbdat+6(2) INTO wa_empl-dbirth.
    ENDIF.
*    ****    Es wurde eine Namenänderung gefunden
    IF a_change BETWEEN l_gestern AND w_zidat-datum.
   
      SELECT pernr vorna nachn gbdat FROM pa0002
        INTO (wa_empl-empnosap, wa_empl-firstname, wa_empl-lastname, l_gbdat)
        WHERE pernr = wa_empl-empnosap
        AND   begda >= sy-datum
        AND   endda <= sy-datum
        AND  aedtm >= w_zidat-datum.
        ENDSELECT.
 ENDIF.
*        Selektion Anschriften zur Person
    CLEAR: change_adr.
    SELECT land1 pstlz ort01 stras endda  FROM pa0006
      INTO (wa_empl-country, wa_empl-zipcode, wa_empl-city, wa_empl-street1, l_dummy)
     WHERE pernr =  wa_empl-empnosap
       AND begda <= sy-datum
       AND endda >= sy-datum
       AND aedtm BETWEEN w_zidat-datum AND sy-datum "l_gestern
      ORDER BY endda ASCENDING.
    ENDSELECT.                 


*   Es wurde eine Adressänderung gefunden, die eine Änderung hat.
    IF sy-subrc EQ 0.
      CLEAR: l_eintritt, l_datum.
*     Selektion Ein-/Austritt
      SELECT begda FROM pa0000 INTO l_eintritt
                          WHERE pernr =  wa_empl-empnosap
                            AND massn IN ('01','12','19','20','32','52','63')
                            ORDER BY begda ASCENDING.

      ENDSELECT.
      IF NOT l_eintritt IS INITIAL.
        CONCATENATE l_eintritt '000000'  INTO wa_empl-timestampfrom.
      ENDIF.

      CLEAR : l_datum, l_dummy.
      SELECT begda endda FROM pa0000 INTO (l_datum, l_dummy)
                          WHERE pernr = wa_empl-empnosap
                            AND begda >=  l_eintritt
                            AND massn IN ('10','30','54','64')
                          ORDER BY endda ASCENDING.
      ENDSELECT.

      IF NOT l_datum IS INITIAL.
        CONCATENATE l_datum '000000'  INTO wa_empl-timestampto.
      ENDIF.

*     In Ausgabetabelle.
      PERFORM in_ausgabe_tabelle.

    ELSE.

*     Überprüfe auf Änderung Ein/Ausrittsdatum
      SELECT begda FROM pa0000 INTO l_datum
                          WHERE pernr = wa_empl-empnosap
                            AND aedtm BETWEEN  w_zidat-datum AND l_gestern
                            AND massn IN ('01','12','19','20','32','52','63','10','30','54','64').
      ENDSELECT.

      IF sy-subrc EQ 0.
        CLEAR: l_eintritt, l_datum.
        SELECT land1 pstlz ort01 stras endda FROM pa0006
          INTO (wa_empl-country, wa_empl-zipcode, wa_empl-city, wa_empl-street1, l_dummy)
         WHERE pernr = wa_empl-empnosap
           AND begda <= sy-datum
           AND endda >= sy-datum
         ORDER BY endda ASCENDING.
        ENDSELECT.
*       Selektion Ein-/Austritt
        SELECT begda FROM pa0000 INTO l_eintritt
                            WHERE pernr = wa_empl-empnosap
                              AND massn IN ('01','12','19','20','21','32','52','63')
                              ORDER BY begda ASCENDING.
        ENDSELECT.
        IF NOT l_eintritt IS INITIAL.
          CONCATENATE l_eintritt '000000'  INTO wa_empl-timestampfrom.
        ENDIF.

        CLEAR : l_datum, l_dummy.
        SELECT begda endda FROM pa0000 INTO (l_datum, l_dummy)
                            WHERE pernr =  wa_empl-empnosap
                              AND begda >=  l_eintritt
                              AND massn IN ('10','30','54','64')
                            ORDER BY endda ASCENDING.
        ENDSELECT.
        IF NOT l_datum IS INITIAL.
          CONCATENATE l_datum '000000'  INTO wa_empl-timestampto.
        ENDIF.

*       In Ausgabetabelle.
        PERFORM in_ausgabe_tabelle.
      ENDIF.
    ENDIF.
    CLEAR wa_empl.
  ENDSELECT.
ENDFORM.                    " DATEN_AUFBEREITEN