ArtLoesch()
ArtLoesch() – Artikel löschen
Die Funktion dient dem Löschen eines Artikels inkl. vorheriger Löschprüfung.
Diese Funktion ist in beas nicht freigeschaltet. Bitte TbeArticleBusinessController benutzen.
Parameter | Beschreibung |
|---|---|
cArtNr:C | Artikelnummer |
lShowMsg:L | Meldungen/Fragen anzeigen; default = true |
lBewLoe:L | Bewegungen (Einzel-Umsätze) löschen; default = false |
lNurCheck:L | Nur prüfen, ob Löschung erlaubt, kein echter Löschvorgang; default = false |
oDab010:O | Dab010 Tabelle (Artikelstamm) |
lSendUpdateMsg:L | Update Message senden; default = true |
lShowProgress:L | Progressbar anzeigen; default = true |
Rückgabewert
Logisch / Boolean -
true - Löschvorgang war erfolgreich (lNurCheck = false)
Löschen wäre möglich (lNurCheck = true)
false - Löschvorgang fehlgeschlagen (lNurCheck = false)
Löschen nicht möglich (lNurCheck = true)
Beispiel
| oDab010:DB := 'waDAB010', nAnz:N, nGesAnz:N |
DBFilter("SubStr(ARTNR, 4) = '0053'", oDab010),
DBGoTop(oDab010),
while !EoF(oDab010) do
if ArtLoesch(oDab010:ARTNR, false, false, false, oDab010, false, false) then
nAnz++
endif,
nGesAnz++,
DBSkip(1, oDab010),
end,
WriteLn('Es konnte(n) ' + Str(nAnz) + ' von ' + Str(nGesAnz) +
' Artikel(n) gelöscht werden!')
// Ergebnis: Es wird versucht, alle Artikel zu löschen, deren Artikelnummer
// mit '0053' beginnt. Am Ende wird ausgegeben, wie viele Artikel gelöscht
// werden konnten.