Hallo,
programmiere seit 5 Jahren ABB-Roboter und bin gerade auch an der (Automatisches Backup) Geschichte dran.
Bei mir läufts wunderbar, bis auf eine Sache:
Möchte gerne, dass an den Automatischen Backup-Name das aktuelle Datum angehängt wird. Nur es klappt irgendwie nicht.
Hat jemand eine Idee?
Wer mal das Prog. braucht...
hier..
!----------------------------------------------
!--------Automatisches Backup------------------
!----------------------------------------------
PROC rBackUpAuto()
VAR bool bLocHilf;
VAR string strDatNeu;
VAR bool bLocTimeOut;
VAR num strLocStdNeu;
VAR string strUhrNeu;
IF (DOutput(do_PrgLaeuft)=0) THEN
!-- Aktuelle Uhrzeit und Datum auslesen
strUhrNeu:=CTime();
strDatNeu:=CDate();
bLocHilf:=StrToVal(StrPart(strDatNeu,9,2),nTagNeu);
bLocHilf:=StrToVal(StrPart(strDatNeu,6,2),nMonNeu);
bLocHilf:=StrToVal(StrPart(strDatNeu,1,4),nJahNeu);
bLocHilf:=StrToVal(StrPart(strUhrNeu,1,2),strLocStdNeu);
nStdNeu:=strLocStdNeu;
IF ((nStdNeu+byAnzahlStd)<=24) AND ((nStdAlt+byAnzahlStd)>24) nStdAlt:=1;
!
IF (byAnzahlStd>0) byAnzahlTage:=0;
IF (byAnzahlStd<=0) AND ((nMonNeu>nMonAlt) OR (nJahNeu>nJahAlt)) nTagAlt:=nTagNeu-byAnzahlTage;
!
IF ((byAnzahlStd<=0) AND (nTagNeu>=(nTagAlt+byAnzahlTage))) OR (nStdNeu>=(nStdAlt+byAnzahlStd)) THEN
SetDO do_SimBackup,0;
TPErase;
rError "Report","Task_3=> Hintergrundtask!","Automatisches BackUp wird gestartet!";
nTagAlt:=nTagNeu;
nMonAlt:=nMonNeu;
nJahAlt:=nJahNeu;
nStdAlt:=nStdNeu;
SetDO do_SimBackup,1;
WaitUntil (DOutput(do_SimBUpInProgress)=1)\MaxTime:=5\TimeFlag:=bLocTimeOut;
WaitUntil (DOutput(do_SimBUpInProgress)=0)\MaxTime:=5\TimeFlag:=bLocTimeOut;
SetDO do_SimBackup,0;
IF (bLocTimeOut) TPWrite "Backup..........";
IF (DOutput(do_SimBackupError)=1) rError "Error","Task_3=> Hintergrundtaskfehler!","Automatisches BackUp wurde nicht erstellt!";
IF (DOutput(do_SimBackupError)=0) rError "Report","Task_3=> Hintergrundtask!","Automatisches BackUp wurde erfolgreich erstellt!";
ENDIF
ENDIF
!
ENDPROC
#
EIO_CROSS:
-Res "di_SimBackup" -Act1 "do_SimBackup"
#
SYSSIG_OUT:
-Status "BackupError" -Signal "do_SimBackupError"
-Status "BackupInProgress" -Signal "do_SimBUpInProgress"
#
SYSSIG_IN:
-Signal "di_SimBackup" -Action "Backup" -Arg1 "Beladezelle_3_Backup"\
-Arg3 "/hd0a/BACKUP/" -Arg4 0