Why couldn't I input a new pernr to create?

Question

Hi experts,
I created a screen to create a pernr with infotypes. While it says 'entry doesn't exist in the table pa0003' when I input a new pernr. So what should I do?
Thanks!

Answer 1

In the methode VIEKN of the class CL_HRPA_VIEKN there is a test to see if PA0003 exists before it is created.
Use the enhancement to INSERT PA0003 at the begin and to DELETE PA0003 at the end.
METHOD viekn.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1 ) Classe CL_HRPA_VIEKN, Méthode VIEKN, Début D
*$*$-Start: (1 )--------------------------------------------------------------------------------$*$*
ENHANCEMENT 1 ZDIH_APPLICATION_EXTERNE_CREAT.    "active version
DATA : lw_pa0003 TYPE pa0003.
DATA : fl_pa0003 TYPE flag.
CLEAR fl_pa0003.
*  If coming from Web dynpro
IF sy-cprog EQ 'SAPMHTTP' ANd pernr NE '00000000'.
*  Check if the infotype 3 already exists
  SELECT SINGLE * FROM pa0003 INTO lw_pa0003 WHERE pernr = pernr.
  IF sy-subrc NE 0.
    fl_pa0003 = 'X'.
    MOVE pernr TO lw_pa0003-pernr.
    MOVE '18000101' TO lw_pa0003-begda.
    MOVE '99991231' TO lw_pa0003-endda.
    MOVE '12' TO lw_pa0003-viekn.
    INSERT pa0003 FROM lw_pa0003.
  ENDIF.
ENDIF.
ENDENHANCEMENT.
*$*$-End: (1 )--------------------------------------------------------------------------------$*$*
----> original code of method <----
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(2 ) Classe CL_HRPA_VIEKN, Méthode VIEKN, Fin D
*$*$-Start: (2 )--------------------------------------------------------------------------------$*$*
ENHANCEMENT 2 ZDIH_APPLICATION_EXTERNE_CREAT.    "active version
  IF sy-cprog EQ 'SAPMHTTP' AND pernr NE '00000000'.
    IF fl_pa0003 = 'X'.
      DELETE FROM PA0003 WHERE pernr = pernr.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.
*$*$-End: (2 )--------------------------------------------------------------------------------$*$*
ENDMETHOD.