使用GBB0返回布尔值

***********************************************************************
*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.