SAP Note 20079 - PC entry: Conversion of CoID from 6->4 chars .

Symptom

Limitation of FI-LC PC entry: only four-digit companies can be processed.
Message GC053 is issued: "Only 4 digit CoID allowed for data entry via PC! XXXXXX is too long".

Cause and prerequisites

*

Solution
If there is a way to uniquely convert the 6-digit company numbers into 4-digit numbers, you can modify programs RGCDOW10 and RGCPCU10 as follows.
In the example, companies HB0001-HB0003 and HB01-HB03 were used. The 4-digit company IDs that are only used for PC entry purposes should not be defined in the R/3 System. These company numbers are used in the PC entry program.


************************************************************************
REPORT RGCDOW10 MESSAGE-ID GC LINE-SIZE 132.
:
* Korrekturen:
* MODI 120495 Modifikation Umschlüsselung Gesellschaften
:
* Gesellschaftsname prüfen und konvertieren
* perform r2_comp_check using gesnr. "wdu35907 "MODI
MOVE GESNR TO GD_RCOMP. "wdu35907
:
:
FORM LES-TAB880.
:
* perform r2_comp_check using t852g-rcomp. "wdu35907 "MODI
:
:
FORM R3_R2_COMP USING P_COMP06 P_COMP04.

DATA: LD_COMP(6).

MOVE P_COMP06 TO LD_COMP.

* if ld_comp co '0123456789'. "MODI
* p_comp04 = ld_comp+2(4). "MODI
* else. "MODI
* p_comp04 = ld_comp(4). "MODI
* endif. "MODI

* Bitte ordnen Sie in der CASE-Leiste allen 6-stelligen "MODI
* Gesellschaften eindeutig eine 4-stellige GesNr. zu. "MODI

CASE LD_COMP. "MODI
WHEN 'HB0001'. "MODI
P_COMP04 = 'HB01'. "MODI
WHEN 'HB0002'. "MODI
P_COMP04 = 'HB02'. "MODI
WHEN 'HB0003'. "MODI
P_COMP04 = 'HB03'. "MODI
WHEN ..... "MODI
P_COMP04 = ..... "MODI
: "MODI
WHEN '999999'. "muß angegeben werden "MODI
P_COMP04 = '9999'. "muß angegeben werden "MODI
WHEN OTHERS. "MODI
IF LD_COMP CO '0123456789'. "MODI
IF LD_COMP+0(2) NE '00'. "MODI
MESSAGE A004 WITH LD_COMP. "MODI
ELSE. "MODI
P_COMP04 = LD_COMP+2(4). "MODI
ENDIF. "MODI
ELSE. "MODI
IF LD_COMP+4(2) NE SPACE. "MODI
MESSAGE A004 WITH LD_COMP. "MODI
ELSE. "MODI
P_COMP04 = LD_COMP(4). "MODI
ENDIF. "MODI
ENDIF. "MODI
ENDCASE. "MODI

ENDFORM.


************************************************************************
REPORT RGCPCU10 MESSAGE-ID GC.
:
* Korrekturen:
* MODI 120495 Modifikation Umschlüsselung Gesellschaften
:
:
*-Gesellschaftsname prüfen und konvertieren---------------------------
*PERFORM R2_COMP_CHECK USING GESNR. "wdu35907 "MODI
:
:
FORM R3_R2_COMP USING P_COMP06 P_COMP04.

DATA: LD_COMP(6).

MOVE P_COMP06 TO LD_COMP.

* if ld_comp co '0123456789'. "MODI
* p_comp04 = ld_comp+2(4). "MODI
* else. "MODI
* p_comp04 = ld_comp(4). "MODI
* endif. "MODI

* Bitte ordnen Sie in der CASE-Leiste allen 6-stelligen "MODI
* Gesellschaften eindeutig eine 4-stellige GesNr. zu. "MODI

CASE LD_COMP. "MODI
WHEN 'HB0001'. "MODI
P_COMP04 = 'HB01'. "MODI
WHEN 'HB0002'. "MODI
P_COMP04 = 'HB02'. "MODI
WHEN 'HB0003'. "MODI
P_COMP04 = 'HB03'. "MODI
WHEN '999999'. "MODI
P_COMP06 = '9999'. "muß angegeben werden "MODI
WHEN OTHERS. "muß angegeben werden "MODI
IF LD_COMP CO '0123456789'. "MODI
IF LD_COMP+0(2) NE '00'. "MODI
MESSAGE A004 WITH LD_COMP. "MODI
ELSE. "MODI
P_COMP04 = LD_COMP+2(4). "MODI
ENDIF. "MODI
ELSE. "MODI
IF LD_COMP+4(2) NE SPACE. "MODI
MESSAGE A004 WITH LD_COMP. "MODI
ELSE. "MODI
P_COMP04 = LD_COMP(4). "MODI
ENDIF. "MODI
ENDIF. "MODI
ENDCASE. "MODI

ENDFORM.
:
:
:
FORM R2_R3_COMP USING P_COMP04 P_COMP06.

DATA: LD_COMP(6).

* Bitte ordnen Sie in der CASE-Leiste allen 4-stelligen,
* für die PC-Erfassung neu angegebenen Gesellschaften, "MODI
* eindeutig die im System bestehende 6-stellige GesNr. zu. "MODI
CASE P_COMP04. "MODI
WHEN 'HB01'. "MODI
P_COMP06 = 'HB0001'. "MODI
WHEN 'HB02'. "MODI
P_COMP06 = 'HB0002'. "MODI
WHEN 'HB03'. "MODI
P_COMP06 = 'HB0003'. "MODI
WHEN '9999'. "muß angegeben werden "MODI
P_COMP06 = '999999'. "muß angegeben werden "MODI
WHEN SPACE. "MODI
WHEN OTHERS. "MODI
IF P_COMP04 CO '0123456789'.
LD_COMP+0(2) = '00'.
LD_COMP+2(4) = P_COMP04.
P_COMP06 = LD_COMP.
ELSE.
P_COMP06 = P_COMP04.
ENDIF.
PERFORM COMPANY(SAPFF10C) USING P_COMP06. "MODI
ENDCASE. "MODI
ENDFORM.