' Ersteller: CG Datum: 13.06.2007 Version: 1.0
' Aenderung: Datum:
'
' Aktion: Einfuegen'
'
' Grundlegendes:
' Ablaufaufbau: 50 Aktionen à 10 Doppelworte (500 Reals)
' Das erste Doppelwort jeder Aktion gibt den Aktionstyp an.
' Die Doppelwoerter 2..10 beinhalten die Parameter der Aktion
'
' ************************************************************************************************************************************************
Dim AktionAnzahl 'Anzahl der Aktionen im Projekt (maximal 50)
Dim Startadresse 'Adresse ab der der Umkopiervorgang beginnt
Dim Quelladresse 'Quelladresse von wo in die Daten des Ziels geholt werden (10 tiefer) wird
Dim Zieladresse 'Zieladresse von wo die Daten der Quelle geschrieben werden
Dim i 'Schleifenzaehler fuer das Umkopieren
'Sanduhr einblenden
SmartTags("Global\Status\SanduhrVorlage") = True
' Maximale Anzahl der Aktionen in Parameteranzahl kopieren
AktionAnzahl = SmartTags("EcmRezeptur\Ablauf\EingabeGrenzen\SchritteAnzahl")
' Aktionstyp: Adresse berechnen ab der eingefuegt werden soll. Von hier an werden die nachfolgenden Schritte umkopiert
Startadresse = (VorSchritt * 10) - 10
'Umkopieren (Beginnend beim Maximalschritt max. 50 bis zum Einfuegeschritt)
For i = ((AktionAnzahl*10)-10) To Startadresse Step -1
SmartTags ("EcmRezeptur\Ablauf\Aktionen\Parameter")(i) = SmartTags ("EcmRezeptur\Ablauf\Aktionen\Parameter")(i-10)
If i-10 <=0 Then
Exit For
End If
Next
'Startschritt mit leerer Aktion vorbelegen (Eingefuegte Aktion ist leer)
If Startadresse >=0 Then
For i = 0 To 9 Step 1
SmartTags ("EcmRezeptur\Ablauf\Aktionen\Parameter")(Startadresse + i) = 0
Next
End If
'Rezepturparameter wurde geaendert -> Bit setzten
SmartTags("EcmRezeptur\Ablauf\Handling\ParameterWertGeaendert") = BitSetztenAbhaenigkeit (True)
SmartTags("EcmRezeptur\Handling\ParameterWertGeaendert") = BitSetztenAbhaenigkeit (True)
'Sanduhr ausblenden
SmartTags("Global\Status\SanduhrVorlage") = False