i get it;
the problem is coursed by a static data object in the note correction instruction
FORM BEDINGUNG_PRUEFEN_129.
DATA: LT_DOC_NUM TYPE ACC_DOC OCCURS 1 WITH HEADER LINE.
DATA: LD_AWTYP_IN LIKE ACCIT-AWTYP.
DATA: LD_DC LIKE SY-SUBRC.
STATICS: LD_VBELN LIKE VBRK-VBELN.
* Internal field
DATA: LD_DIALOG LIKE BOOLE.
* Initialisation error mark
CLEAR: LD_DC.
CHECK *VBRK-RFBSK = 'C'.
* FI-CA: if active, change AWTYP
IF NOT *VBRK-VKONT IS INITIAL.
LD_AWTYP_IN = 'FICA'.
ELSE.
LD_AWTYP_IN = 'BKPF'.
ENDIF.
* Read FI-document
IF LD_VBELN NE *VBRK-VBELN. “ just here
CALL FUNCTION 'AC_DOCUMENT_RECORD'
EXPORTING
I_AWTYP = 'VBRK'
I_AWREF = *VBRK-VBELN
I_AWSYS = *VBRK-LOGSYS
I_AWTYP_INCL = LD_AWTYP_IN
I_BUKRS = *VBRK-BUKRS
X_DIALOG = LD_DIALOG
TABLES
T_DOCUMENTS = LT_DOC_NUM
EXCEPTIONS
NO_REFERENCE = 1
NO_DOCUMENT = 2
OTHERS = 3.
IF SY-SUBRC IS INITIAL.
DESCRIBE TABLE LT_DOC_NUM LINES SY-TABIX.
IF SY-TABIX NE 0.
LD_VBELN = *VBRK-VBELN.
LOOP AT LT_DOC_NUM.
*----- Cleared documents request can not be canceled
IF LT_DOC_NUM-STATUS EQ CHARC OR
LT_DOC_NUM-STATUS EQ CHARB.
LD_DC = 4.
EXIT.
ENDIF.
ENDLOOP.
IF NOT LD_DC IS INITIAL.
PERFORM VBFS_HINZUFUEGEN_ALLG
USING *VBRK-VBELN VBRP-POSNR 'VF' 'E' '193'
*VBRK-VBELN SPACE SPACE SPACE.
SY-SUBRC = 4.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.