SAP Note 12267 - Partial remuneration not (or incorrectly) displayed

Symptom:

1. If partial remuneration is to be calculated, days >9 are
are displayed with an asterisk (overflow).

2. The basis of calculation of partial remuneration is not displayed.
Please change the lines marked '<<<----' in
Report RPCBGNA0:
*----------------------------------------------------------------------*
* FORM GET_TE_ANZHL_BETRG *
*----------------------------------------------------------------------*
* Beitragsgrundlage Teilentgelt fuer den Monat ermitteln *
*----------------------------------------------------------------------*
FORM GET_TE_ANZHL_BETRG.
LOOP AT RT WHERE LGART = P/TE_LGA. "BG Teilentgelt bis HBG
*---Alle allgemeine Beitragsgrundlagen lesen
* LOOP AT SPLITTAB WHERE APZNR = RT-APZNR <<<-------
* AND CNTR1 = RT-CNTR1. <<<-------
LOOP AT SPLITTAB WHERE APZNR = RT-APZNR. <<<-------
*---- Zugehoerigen BGN-Split ermitteln
LOOP AT BGN WHERE SPLIT = SPLITTAB-SPLIT.
*------ Zugehoerigen BGN-Satz ermitteln
BGN-TE_ANZHL = BGN-TE_ANZHL + RT-ANZHL.
BGN-TE_BETRG = BGN-TE_BETRG + RT-BETRG.
MODIFY BGN.
*------ Beitragsgrundlage wird gesammelt
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDFORM.
.
.
.
***********************************************************************
* Personen ausgeben *
***********************************************************************
FORM LISTE.
.
.
.
WRITE: 64 BGN-BEGDA DD/MM/YY,
73 BGN-ENDDA DD/MM/YY,
82 LFD_NUMMER,
88(09) BGN-ALLGB NO-SIGN.
IF BGN-SONDR GT 0.
WRITE: 98(09) BGN-SONDR NO-SIGN.
ELSE.
WRITE: 98(09) ' 999999'.
ENDIF.
* WRITE: 108(04) BGN-TE_ANZHL NO-ZERO, <<<-------
WRITE: 108(04) BGN-TE_ANZHL DECIMALS 0 NO-ZERO, <<<-------
113(09) BGN-TE_BETRG NO-SIGN NO-ZERO,
123 'Mo'.
SKIP.
ENDFORM. "end of LISTE

Cause and prerequisites

Program error

Solution
Please change the lines marked '<<<----' in
Report RPCBGNA0:
*----------------------------------------------------------------------*
* FORM GET_TE_ANZHL_BETRG *
*----------------------------------------------------------------------*
* Beitragsgrundlage Teilentgelt fuer den Monat ermitteln *
*----------------------------------------------------------------------*
FORM GET_TE_ANZHL_BETRG.
LOOP AT RT WHERE LGART = P/TE_LGA. "BG Teilentgelt bis HBG
*---Alle allgemeine Beitragsgrundlagen lesen
* LOOP AT SPLITTAB WHERE APZNR = RT-APZNR <<<-------
* AND CNTR1 = RT-CNTR1. <<<-------
LOOP AT SPLITTAB WHERE APZNR = RT-APZNR. <<<-------
*---- Zugehoerigen BGN-Split ermitteln
LOOP AT BGN WHERE SPLIT = SPLITTAB-SPLIT.
*------ Zugehoerigen BGN-Satz ermitteln
BGN-TE_ANZHL = BGN-TE_ANZHL + RT-ANZHL.
BGN-TE_BETRG = BGN-TE_BETRG + RT-BETRG.
MODIFY BGN.
*------ Beitragsgrundlage wird gesammelt
ENDLOOP.
ENDLOOP.
ENDLOOP.
ENDFORM.
.
.
.
***********************************************************************
* Personen ausgeben *
***********************************************************************
FORM LISTE.
.
.
.
WRITE: 64 BGN-BEGDA DD/MM/YY,
73 BGN-ENDDA DD/MM/YY,
82 LFD_NUMMER,
88(09) BGN-ALLGB NO-SIGN.
IF BGN-SONDR GT 0.
WRITE: 98(09) BGN-SONDR NO-SIGN.
ELSE.
WRITE: 98(09) ' 999999'.
ENDIF.
* WRITE: 108(04) BGN-TE_ANZHL NO-ZERO, <<<-------
WRITE: 108(04) BGN-TE_ANZHL DECIMALS 0 NO-ZERO, <<<-------
113(09) BGN-TE_BETRG NO-SIGN NO-ZERO,
123 'Mo'.
SKIP.
ENDFORM. "end of LISTE

Key word: RPCBGNA0