LVBRKF0I

************************************************************************
*                                                                      *
* Unterroutinen fuer BAPIs der Objekttypen innerhalb der Fakturierung  *
*     Routine alphabetisch geordnet; hier mit "I" beginnend            *
*                                                                      *
************************************************************************

*---------------------------------------------------------------------*
*       FORM INITIALIZE_DATA                                          *
*---------------------------------------------------------------------*
*       Initialisierung der Daten                                     *
*---------------------------------------------------------------------*
FORM INITIALIZE_DATA.

  CLEAR VBSK_I.

  CLEAR   CALLER_TYPE.

  CLEAR   XKOMFKGN.

  REFRESH XKOMFKGN.

  CLEAR   XKOMFKKO.

  REFRESH XKOMFKKO.

  CLEAR   XKOMV.

  REFRESH XKOMV.

  CLEAR   XTHEAD.

  REFRESH XTHEAD.

  CLEAR   XVBFS.

  REFRESH XVBFS.

  CLEAR   XVBPA.

  REFRESH XVBPA.

  CLEAR   XVBRK.

  REFRESH XVBRK.

  CLEAR   XVBRP.

  REFRESH XVBRP.

  CLEAR   XVBSS.

  REFRESH XVBSS.

  CLEAR   XKOMFKZM.

  REFRESH XKOMFKZM.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM INITIALIZE_DATA_U01                                      *
*---------------------------------------------------------------------*
*       Initialisierung der Daten für Include LVBRKU01                *
*---------------------------------------------------------------------*
FORM INITIALIZE_DATA_U01 USING TESTRUN LIKE BAPIVBRKTESTRUN-TESTRUN

                               POSTING.

  PERFORM INITIALIZE_DATA.

  CLEAR   XKOMFK.

  REFRESH XKOMFK.

  CLEAR NO_ENQUEUE.

  IF TESTRUN IS INITIAL.

    WITH_POSTING = 'B'.

    IF NOT POSTING IS INITIAL.

      WITH_POSTING = POSTING.

    ENDIF.

  ELSE.

    WITH_POSTING = 'H'.

    NO_ENQUEUE   = 'X'.

  ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM INITIALIZE_DATA_U02                                      *
*---------------------------------------------------------------------*
*       Initialisierung der Daten für Include LVBRKU02                *
*---------------------------------------------------------------------*
FORM INITIALIZE_DATA_U02.

  PERFORM INITIALIZE_DATA.

  CLEAR   XKOMFK.

  REFRESH XKOMFK.

  CLEAR   WITH_POSTING.

  CLEAR   SUCCESS_DOC_OUT.

  REFRESH SUCCESS_DOC_OUT.

  WITH_POSTING = 'H'.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM INITIALIZE_DATA_U03                                      *
*---------------------------------------------------------------------*
*       Initialisierung der Daten für Include LVBRKU03                *
*---------------------------------------------------------------------*
FORM INITIALIZE_DATA_U03 USING TESTRUN LIKE BAPIVBRKTESTRUN-TESTRUN.

  PERFORM INITIALIZE_DATA.

  CLEAR NO_ENQUEUE.

  IF TESTRUN IS INITIAL.

    WITH_POSTING = 'B'.

  ELSE.

    WITH_POSTING = 'H'.

    NO_ENQUEUE   = 'X'.

  ENDIF.

  CLEAR RV60A.
ENDFORM.

*---------------------------------------------------------------------*
*       FORM  AUTHORITY_CHECK                                         *
*---------------------------------------------------------------------*
*       Check the authority for the transaction                       *
*---------------------------------------------------------------------*
FORM AUTHORITY_CHECK USING  U_TCD.

  AUTHORITY-CHECK OBJECT 'S_TCODE'

            ID 'TCD' FIELD U_TCD.

  IF SY-SUBRC NE 0.

    MESSAGE E172(00) WITH U_TCD.

  ENDIF.

ENDFORM.                    " AUTHORITY_CHECK