6.3 infraDBDelete – Löschen von Datensätzen
lRc = Object.infraDBDelete( )
IPS: infraDBDelete(lRc)
|
Argumente
|
Keine
|
|
Rückgabewerte
|
lRc == 0 Kein Fehler
lRc <> 0 infra-Kernsystemfehler
|
|
Beschreibung
|
Die Funktion löscht einen Satz in einer Tabelle. Die Schlüssel des zu löschenden Satzes sind zuerst in den Puffer zu schreiben.
Dabei gilt zu beachten, dass der Satz zuerst gesperrt werden muss. Das Sperren erfolgt mit infraDBSelect und lLock = 1.
Nach dem Löschen muss mit infraDBSelect neu aufgesetzt werden, bevor infraDBFetchNext bzw. infraDBFetchPrev aufgerufen wird.
|
|
Funktionsart
|
infraDBFunktion
Basic-Skript
Java-Skript
IPSFunktion
|
|
Beispiel Basic-Skript
|
Dim lRc
Dim strKey
MsgBox "Lösche alle Kopfdaten der Produktionsabläufe in Tablle 130"
lRc = oIDB.infraDBSelect( 130, 2, "PA", 0 )
if( NOT ( lRc = 0 OR lRc = 10 ) ) Then
MsgBox oIDB.infraDBGetSystemMessage( lRc )
Exit Sub
End If
while( oIDB.infraDBQRF( 1 ) = "PA" )
strKey = oIDB.infraDBQRF( 1 ) & ";" & oIDB.infraDBQRF( 8 ) &";" & oIDB.infraDBQRF( 2 )
lRc = oIDB.infraDBSelect( 130, 1, strKey, 1 ) 'sperre Satz
if( lRc ) Then
MsgBox oIDB.infraDBGetSystemMessage( lRc )
Exit Sub
End If
MsgBox "Lösche: " & oIDB.infraDBQRF( 8 )
lRc = oIDB.infraDBDelete
if( lRc ) Then
MsgBox oIDB.infraDBGetSystemMessage( lRc )
Exit Sub
End if
lRc = oIDB.infraDBSelect( 130, 2, "PA", 0 )
if( NOT ( lRc = 0 OR lRc = 10 ) ) Then
MsgBox oIDB.infraDBGetSystemMessage( lRc )
Exit Sub
End If
Wend
|