Payment Block Status automatically set 'Y' in FBV2

Question

Hi Team,
             My requirement is this,   when user want to post document by T Code  FBv2 or MIR4 
             if user stands on 25 to month end date. means  system date check then
Payment block automatically set to 'Y' (month end posting).
for this one i used many BADI and FM but not working as of now.
one BADI i used as FAGL_SET_DOC   in debugg mode its updating the that fields value
as its technicsl field name is  ZLSPR  whic i set  to 'Y'
its working fine in debugg mode , but when we again check for that Document no then that filed's value is not populating as required.
So please suggest me how can i set Payment block status to 'Y' as month end posting.
Thanks
Vivek

Answer 1

hi Hiriyapapa,
                   I used BADI    FAGL_SET_BADI for our field update
method is CHANGE_SEGMENT_PSEGMENT
there i put code as below
TYPES:  BEGIN OF TY_EKPO,
           EBELN TYPE EBELN,
           EBELP TYPE EBELP,
           PSTYP TYPE PSTYP,
           END   OF TY_EKPO.
   DATA : IT_EKPO TYPE TABLE OF TY_EKPO,
          WA_EKPO TYPE          TY_EKPO.
   DATA: WA_ACCIT TYPE ACCIT,
         L_TABIX  TYPE SY-TABIX.
   IF SY-TCODE = 'MIR4' OR SY-TCODE = 'FBV2'." OR sy-tcode = 'ZTR_SEG_RECLASS_REV' .  "Tcode for Netting Counter wise and Segment Reclassification
     BREAK 51393182.
     SELECT EBELN
            EBELP
            PSTYP
            FROM EKPO INTO TABLE IT_EKPO
            FOR ALL ENTRIES IN CT_ACCIT
            WHERE EBELN EQ CT_ACCIT-EBELN
            AND   EBELP EQ CT_ACCIT-EBELP.
     IF SY-SUBRC = 0.
       LOOP AT IT_EKPO INTO WA_EKPO .
*          <--Begin of Change by Ashutosh Mishra     27-june-14 HRDK950590
         IF WA_EKPO-PSTYP = '9'.    ."BREAK 51393182.
           LOOP AT CT_ACCIT INTO WA_ACCIT.
*         if WA_ACCIT-EBELN is NOT INITIAL.
             IF SY-DATUM+6(2) EQ '25' OR  SY-DATUM+6(2) EQ '26' OR  SY-DATUM+6(2) EQ '27'
             OR SY-DATUM+6(2) EQ '28' OR SY-DATUM+6(2) EQ '29' OR SY-DATUM+6(2) EQ '30'
             OR SY-DATUM+6(2) EQ '31'.
               WA_ACCIT-ZLSPR = 'Y'.      "SET Y PAYMENT BLOCK STATUS
               MODIFY CT_ACCIT FROM WA_ACCIT TRANSPORTING ZLSPR.
               CLEAR : WA_ACCIT.
             ENDIF."endif.
           ENDLOOP.
         ENDIF.
       ENDLOOP.
     ENDIF.
   ENDIF.
ENDMETHOD.
in debug mode its working fine its updating as i want , but when we out of debug its not updating that fields status.
I request to you please suggest me for this issue.
Regard
Vivek