IF PROI_RELEASE:D == "freigegeben"
 WASSERZEICHEN:D = "  "
ELSE WASSERZEICHEN:D = "nur zur Information"
ENDIF

IF PROI_REVISION:D != ""
 T:D = extract(PROI_REVISION:D,1,1)
ENDIF

IF T:D=="0"|T:D=="1"|T:D=="2"|T:D=="3"|T:D=="4"
 FLAG:D = 1
ELSE IF T:D=="5"|T:D=="6"|T:D=="7"|T:D=="8"|T:D=="9"
 FLAG:D = 1
ELSE FLAG:D = 0
ENDIF

IF AEND0:D != PROI_REVISION:D & FLAG:D == 1

 AEND7:D = AEND6:D
 AEND6:D = AEND5:D
 AEND5:D = AEND4:D
 AEND4:D = AEND3:D
 AEND3:D = AEND2:D
 AEND2:D = AEND1:D
 AEND1:D = AEND0:D
 AEND0:D = PROI_REVISION:D

 AENDTEXT7:D = AENDTEXT6:D
 AENDTEXT6:D = AENDTEXT5:D
 AENDTEXT5:D = AENDTEXT4:D
 AENDTEXT4:D = AENDTEXT3:D
 AENDTEXT3:D = AENDTEXT2:D
 AENDTEXT2:D = AENDTEXT1:D
 AENDTEXT1:D = AENDTEXT0:D
 AENDTEXT0:D = AENDTEXT:D

 AEND_DATUM7:D = AEND_DATUM6:D
 AEND_DATUM6:D = AEND_DATUM5:D
 AEND_DATUM5:D = AEND_DATUM4:D
 AEND_DATUM4:D = AEND_DATUM3:D
 AEND_DATUM3:D = AEND_DATUM2:D
 AEND_DATUM2:D = AEND_DATUM1:D
 AEND_DATUM1:D = AEND_DATUM0:D
 AEND_DATUM0:D = AEND_DATUM:D

 AEND_NAME7:D = AEND_NAME6:D
 AEND_NAME6:D = AEND_NAME5:D
 AEND_NAME5:D = AEND_NAME4:D
 AEND_NAME4:D = AEND_NAME3:D
 AEND_NAME3:D = AEND_NAME2:D
 AEND_NAME2:D = AEND_NAME1:D
 AEND_NAME1:D = AEND_NAME0:D
 AEND_NAME0:D = AEND_NAME:D

ENDIF