rem ----------------------------------------------------------
rem Test und Reparatur
rem
rem Redundante Parametermaße
rem ----------------------------------------------------------
START   59
HNEXT


REM Nach redundanten Parametermaßen suchen und ggfs. loeschen
REM
REM Parameter1:   0: nur Test,  1: reparieren


%NB_REDUNDANT_PARADIM := 0
FUNC %RET:=DIMENSIONUI.CHECK_REDUNDANT_PARADIM(0)


if (NB_REDUNDANT_PARADIM=0) then
   $txt:=Szene enthält keine redundanten Parametermaße.
   $str:=$txt
   WAIT $str
   goto 99
ifend


REM Redundante Parametermaße vorhanden

REM Info
$nb := %NB_REDUNDANT_PARADIM
$txt:=Sollen die in der Szene enthaltenen redundanten Parametermaße gelöscht werden? Anzahl:
$str:=$txt+$nb
FUNC %RET:=Basefunc.Frage("Redundante Parametermaße",$str,JaNein)

if JA then

   REM loeschen
   %NB_REDUNDANT_PARADIM := 0
   FUNC %RET:=DIMENSIONUI.CHECK_REDUNDANT_PARADIM(1)
  

   REM Info
   $nb := %NB_REDUNDANT_PARADIM
   $txt:="Anzahl: "+$nb 
   ECHO Redundante Parametermaße entfernt.
   WAIT $txt
  
ifend




99:end