***********************************************************************
*INCLUDE RGGBS_AR_FORMS.
*----------------------------------------------------------------------*
* FORM U600
*----------------------------------------------------------------------*
* Check Partner
*----------------------------------------------------------------------*
* <-- B_RESULT T = True F = False *
*----------------------------------------------------------------------*
FORM U600
USING
B_RESULT.
IF SY-SUBRC = 0 AND LS_DATE IS NOT INITIAL.
IF LS_DATE <= BKPF-BLDAT.
B_RESULT = B_TRUE.
ELSE.
B_RESULT = B_FALSE.
ENDIF.
ELSE.
B_RESULT = B_FALSE.
ENDIF.
ENDFORM.
![?mid=&wid=51824&sid=&tid=8555&rid=LOADED&custom1=mp.csdn.net&custom2=%2Fpostedit&t=1574217506954]()
![?mid=&wid=51824&sid=&tid=8555&rid=FINISHED&custom1=mp.csdn.net&t=1574217506954]()
