ME21N ME045 Error

 Function MEX_FELDAUSWAHL_SACHKONTO

Table TMODP 

Condition:SPRAS='J' , FAUNA = 'SKB1-FAUS1'

Compare: FAUS1 of Table T162K and T004F 

  DO 50 TIMES VARYING L1 FROM T162K-FAUS1(1) NEXT T162K-FAUS1+1(1)
                         range t162k-faus1
              VARYING L2 FROM T004F-FAUS1(1) NEXT T004F-FAUS1+1(1)
                         range t004f-faus1
              VARYING L3 FROM STRING(1) NEXT STRING+1(1)
                         range string.
    COUNT = COUNT + 1.
* Finanzposition, Finanzstelle und Geldgeber nach Rücksprache mit
* Holger Jung zu 3.0 nicht verproben, da nicht in Kontierung pflegbar,
* sondern nur über Sonderlocke
* CHECK COUNT NE 20.   "Finanzposition
* CHECK COUNT NE 49.   "Finanzstelle
* CHECK COUNT NE 50.   "Geldgeber

   CHECK COUNT GE 9.  "Materialnummer (Stelle 9) bewußt mit reingenommen
    UNPACK COUNT TO MODIF.
    IF  L1 = '+'
    AND L2 = '-'.
      TMODP-MODIF = MODIF.
      PERFORM FELDAUSWAHL_FEHLER.
    ENDIF.
    IF  L1 = '-'
    AND L2 = '+'.
      TMODP-MODIF = MODIF.
*   PERFORM FELDAUSWAHL_FEHLER.      "nicht mehr ab 4.0B TK  89897
    ENDIF.
*    CHECK COUNT NE 20.                 "Finanzposition      "173298
*    CHECK COUNT NE 49.                 "Finanzstelle        "173298
*    CHECK COUNT NE 50.                 "Geldgeber           "173298
    IF  L1 = '.'                       "ab Release 2.1
    AND L2 = '-'.
      TMODP-MODIF = MODIF.
      perform check_t162x using tmodp-modif.  "4.6A TK
      if sy-subrc eq 0.                "4.6A TK
        PERFORM FELDAUSWAHL_FEHLER.
      endif.                           "4.6A TK
    ENDIF.
    IF  L1 = '.' OR
        L1 = SPACE.
      L3 = L2.
    ELSE.
      L3 = L1.
    ENDIF.
  ENDDO.

*------- ... Geschaeftsbereiche bilanzfaehig ? -------------------------
  IF  T001-XGSBE   NE SPACE
  AND STRING+32(1) EQ '-'.
    STRING+32(1) = '.'.
  ENDIF.

Maintenance Status Group of Account No.

OBC4     (FS00----->TAB Create / bank / interest: Click Field status Group)

Maintenance Account Asignment Categories

OME9

NG Pattern: (L1 T162F, L2 T004F)

    IF  L1 = '+'
    AND L2 = '-'.
      TMODP-MODIF = MODIF.
      PERFORM FELDAUSWAHL_FEHLER.
    ENDIF.

    IF  L1 = '.'                       "ab Release 2.1
    AND L2 = '-'.
      TMODP-MODIF = MODIF.
      perform check_t162x using tmodp-modif.  "4.6A TK
      if sy-subrc eq 0.                "4.6A TK
        PERFORM FELDAUSWAHL_FEHLER.
      endif.                           "4.6A TK
    ENDIF.

Set Break Point at

FORM feldauswahl_fehler.


  SELECT SINGLE * FROM tmodp WHERE spras = sy-langu
                             AND   fauna = 'SKB1-FAUS1'
                             AND   modif = tmodp-modif.
  IF sy-subrc EQ 0.
    MESSAGE e045 WITH skb1-saknr t162k-knttp tmodp-ftext.
  ELSE.
    MESSAGE e045 WITH skb1-saknr t162k-knttp tmodp-modif.
  ENDIF.

ENDFORM.                               " FE