Witam,
czy znane jest Wam jakies stadnardowe rozwiązanie SAP - gdy przy rejestracji rachunku bankowego dla pracownika pojawi się komunikat, że dla innego numeru osobowego już jest zarejestrowany ten numer rachunku.
Tak jak to jest w przypadku numeru PESEL i NIP,
Pozdr,
IT009 - info, że taki rachunek już istnieje dla innego prac
-
ewilczurek
- Posty: 19
- Rejestracja: śr kwie 22, 2009 2:59 pm
- Lokalizacja: W-wa
- Has thanked: 1 time
- Been thanked: 2 times
-
szymon.seroka
- Posty: 12
- Rejestracja: pn cze 22, 2009 3:18 pm
- Has thanked: 1 time
- Been thanked: 3 times
Re: IT009 - info, że taki rachunek już istnieje dla innego p
Ta "standardowa" funkcjonalność dla PESEL i NIP jest w polskim rozszerzeniu dla ekranu dla infotypu 0558 (rozszerzającego 0002).
Najprościej użyć standardowego programu/rozszerzenia dla PA30, czyli ZXPADU01, tam dodać kilka linii kodu, które będą sprawdzały, czy istnieje już identyczny wpis w tabeli PA0009 dla innych pracowników.
Wzorować można się na kodzie w rozszerzeniu dla IT0558 (program MP055840), a dokładniej na tym fragmencie:
SELECT PERNR PESEL FROM PA0558
INTO (J1P_CHECK-PERNR, J1P_CHECK-PESEL)
WHERE PESEL = P0558-PESEL AND PERNR NE P0002-PERNR
ORDER BY PESEL.
APPEND J1P_CHECK.
ENDSELECT.
IF ( SY-SUBRC = 0 ).
LOOP AT J1P_CHECK.
MESSAGE W008(HR001PL) WITH P0558-PESEL J1P_CHECK-PERNR.
ENDLOOP.
ENDIF.
Tak czy owak bez kogoś znającego troszkę ABAPa się chyba nie da.
Alternatywnie można napisać funkcję sprawdzającą duplikaty i wywoływać ją w zdarzeniach dynamicznych... ale to chyba przerost formy nad treścią.
proszę o podziękowanie jeśli pomogłem
Najprościej użyć standardowego programu/rozszerzenia dla PA30, czyli ZXPADU01, tam dodać kilka linii kodu, które będą sprawdzały, czy istnieje już identyczny wpis w tabeli PA0009 dla innych pracowników.
Wzorować można się na kodzie w rozszerzeniu dla IT0558 (program MP055840), a dokładniej na tym fragmencie:
SELECT PERNR PESEL FROM PA0558
INTO (J1P_CHECK-PERNR, J1P_CHECK-PESEL)
WHERE PESEL = P0558-PESEL AND PERNR NE P0002-PERNR
ORDER BY PESEL.
APPEND J1P_CHECK.
ENDSELECT.
IF ( SY-SUBRC = 0 ).
LOOP AT J1P_CHECK.
MESSAGE W008(HR001PL) WITH P0558-PESEL J1P_CHECK-PERNR.
ENDLOOP.
ENDIF.
Tak czy owak bez kogoś znającego troszkę ABAPa się chyba nie da.
Alternatywnie można napisać funkcję sprawdzającą duplikaty i wywoływać ją w zdarzeniach dynamicznych... ale to chyba przerost formy nad treścią.
proszę o podziękowanie jeśli pomogłem