How to make fields editable in an custom enhancement

Question

Hi Experts,
My requirement is to perform some custom validations against a field FKONT(BSEG) at the line item level of FB60 and display appropriate message and make the incorrect field editable.
I have implemented an implicit enhancement point in include MF05AFGENJ.
The error messages are coming but I am unable to make the GL account, cost center and profit center fields editable.
Please let me know how to make the above fields editable after displaying the error message.
For reference, I have done the coding like this:
IF sy-tcode = 'FB60' .
CHECK GL_ITEMS IS NOT INITIAL.
DATA: L_COUNT TYPE I,
      L_STRING TYPE STRING,
      L_FKONT TYPE FIPLS,
      L_TABIX TYPE SY-TABIX,
      G_FLAG TYPE C.
DATA: WA_ZZFSTP LIKE ZZFSTP.          "Work area for ZZFSTP table
CONSTANTS:C_MK TYPE TXJCD VALUE 'MK0000000'.
*-- Validating the Financial budget item field
IF GL_ITEMS-FKONT IS NOT INITIAL.
SELECT SINGLE FKONT
                    INTO L_FKONT
                    FROM ZFSTP
                    WHERE FKONT = GL_ITEMS-FKONT.  "cost center
IF SY-SUBRC NE 0.
   CLEAR: G_FLAG.
   G_FLAG = 'X'.
   MESSAGE W003(ZZFI) WITH 'Please enter 'Financial' 'Budget Item Field' DISPLAY LIKE 'E'.
   EXIT.
ENDIF.
*-- Copying the first line item financial budget item field to all the line items in the internal table
DESCRIBE TABLE GL_ITEMS LINES L_COUNT.
IF L_COUNT > 1.
  READ TABLE GL_ITEMS INDEX 1.
  IF SY-SUBRC = 0.
        CLEAR: L_FKONT.
        L_FKONT = GL_ITEMS-FKONT.
*-- Assign the tax jurisdiction codes in all the line items
         LOOP AT GL_ITEMS.
           CLEAR: L_TABIX.
           L_TABIX = SY-TABIX.
           GL_ITEMS-FKONT = L_FKONT.
           GL_ITEMS-TXJCD = C_MK.
*-- Copy the first financial budget item number and tax jurisdiction code MK0000000 in all line items
           MODIFY GL_ITEMS INDEX L_TABIX TRANSPORTING FKONT TXJCD.
*-- Populate tax jurisdiction and FKONT financial budget item number in XBSEG table
           L_TABIX = L_TABIX + 1.  "top record in XBSEG is for header
           READ TABLE XBSEG INDEX L_TABIX.
           IF SY-SUBRC = 0.
             XBSEG-FKONT = L_FKONT.
             XBSEG-TXJCD = C_MK.
             MODIFY XBSEG INDEX L_TABIX.
           ENDIF.
         ENDLOOP.
  ENDIF.
ENDIF. "describe statement
CLEAR: WA_ZZSTP.
*-- Validate the amount and GL account against the FKONT(financial budget item) number
SELECT SINGLE FKONT
              ZZWRBTR
              ZZHKONT
              ZZKOSTL
              ZZPRCTR
       INTO CORRESPONDING FIELDS OF WA_ZZFSTP
       FROM ZFSTP
       WHERE FKONT EQ GL_ITEMS-FKONT.
IF sy-subrc EQ 0.
IF BSEG-WRBTR > WA_ZZFSTP-ZWRBTR.
       CLEAR: G_FLAG.
       G_FLAG = 'X'.
       MESSAGE W003(ZZFI) WITH 'Amount entered' 'cannot be' 'greater than ' WA_ZFSTP-ZZWRBTR DISPLAY LIKE 'E'.
       EXIT.
ELSE.
         CLEAR: G_FLAG.
        G_FLAG = 'X'.
        SET CURSOR FIELD 'GL_ITEMS-HKONT'.
        MESSAGE W003(ZZFI) WITH 'Incorrect GL account' 'number entered for' 'given financial' 'budget item number'.
        EXIT.
       ELSE.
*-- Check for cost center and profit center at line item level
         LOOP AT GL_ITEMS.
*-- Both cost center and profit center is initial.
            IF GL_ITEMS-KOSTL IS INITIAL AND GL_ITEMS-PRCTR IS INITIAL.
                CLEAR: G_FLAG.
                G_FLAG = 'X'.
                SET CURSOR FIELD 'GL_ITEMS-PRCTR' LINE SY-STEPL.
                SET CURSOR FIELD 'GL_ITEMS-KOSTL' LINE SY-STEPL.
                MESSAGE W003(ZZFI) WITH 'Please enter' 'cost center' 'or' 'profit center'.
                EXIT.
*-- Either cost center or profit center is initial
            ELSEIF GL_ITEMS-KOSTL IS INITIAL AND GL_ITEMS-PRCTR IS NOT INITIAL.
                CHECK GL_ITEMS-PRCTR NE WA_ZZFSTP-ZPRCTR.
                  CLEAR: G_FLAG.
                  G_FLAG = 'X'.
                  SET CURSOR FIELD 'GL_ITEMS-PRCTR' LINE SY-STEPL.
                  MESSAGE W003(ZZFI) WITH 'Incorrect profit' 'center entered' 'for given' 'financial budget item' DISPLAY LIKE 'E'.
                  EXIT.
            ELSEIF GL_ITEMS-KOSTL IS NOT INITIAL AND GL_ITEMS-PRCTR IS INITIAL.
               CHECK GL_ITEMS-KOSTL NE WA_ZFSTP-ZKOSTL.
                  CLEAR: G_FLAG.
                  G_FLAG = 'X'.
                  SET CURSOR FIELD 'GL_ITEMS-KOSTL' LINE SY-STEPL.
                  MESSAGE W003(ZZFI) WITH 'Incorrect cost' 'center entered' 'for given' 'financial budget item' DISPLAY LIKE 'E'.
                  EXIT.
            ENDIF.
         ENDLOOP.
       ENDIF. "GL Account
ENDIF. "Amount check
ENDIF. "SY-SUBRC check
ENDIF.
EXPORT G_FLAG FROM G_FLAG TO MEMORY ID 'ZER'.
Please let me know how to make GLaccount,cost center and profit center fields editable.
Regards,
Sangeeta.

Answer 1

Hi.. chaek the below links. may be useful to u.
Making Table control records Editable / Non-editable
Table control with both Editable and non Editable fields
Regards,
KP.