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.
Weitere Verknüpfungen