Ansicht
Dokumentation

FP54PE02 - Check Digit Procedure

Fill RESBD Structure from EBP Component Structure   RFUMSV00 - Advance Return for Tax on Sales/Purchases  
This documentation is copyright by SAP AG.

Description

FORM CHECK_BTRNR USING CHB_BTRNR.
--------------------------------

Check digit procedure for the company number.

Die mit '12' gebildete gewichtete Quersumme von CHB_BTRNR
(siehe FORM BUILD_CHECK_DIGIT) wird Modulo 10 mit der
letzten Ziffer von CHB_BTRNR verglichen.

Falls CHB_BTRNR nicht numerisch ist, oder die Pruefziffer
nicht stimmt wird eine entsprechende Fehlermeldung
abgegeben.

--> CHB_BTRNR: Die zu pruefende Betriebsnummer.

FORM BUILD_CHECK_DIGIT USING VALUE(BCD_FACTORS)
---------------------------- VALUE(BCD_NUMBER)
BCD_SUM BCD_DIGIT.

Gewichtete Quersummenbildung fuer Pruefzifferverfahren.

Die einzelnen Ziffer in BDC_NUMBER (bis auf die letzte
Ziffer) werden mit Ziffern aus BCD_FACTORS multipliziert
und die Quersumme dieser Zahlen in BCD_SUM zurueckgegeben.
BCD_DIGIT enthaelt dann die letzte Ziffer aus BCD_NUMBER.

Falls BCD_NUMBER nicht numerisch ist wird SY-SUBRC auf 99
gesetzt.

Parameter:

--> BCD_FACTORS: Faktoren mit denen die einzelnen Ziffern in
BCD_NUMBER multipliziert werden bevor deren
Quersumme gebildet wird.

Falls weniger Faktoren als Ziffer vorhanden
sind, wird wieder von vorne angefangen.

BCD_NUMBER: Die Zahl deren gewichtete Quersumme gebildet
werden soll.

<-- BCD_SUM: Die berechnete gewichtete Quersumme.

BCD_DIGIT: Die letzte Ziffer von BCD_NUMBER.

Beispiel:

PERFORM BUILD_CHECK_DIGIT USING '12' '167' SUM DIGIT.

Dies liefert: SUM = 1*1 + Quersumme(2*6) =
= 4.
DIGIT = 7.

CL_GUI_FRONTEND_SERVICES - Frontend Services   PERFORM Short Reference  
This documentation is copyright by SAP AG.

Length: 2019 Date: 20240520 Time: 093327     sap01-206 ( 18 ms )