liefern (es erfolgt eine Lieferung)

L_Menge := T_Menge
R_Menge := 0        
T_Menge := (B_Menge – T_Menge)  |  Minimum bei 0
Menge     := T_Menge
Ist die Gelieferte und Berechnete Menge größer als die B_Menge wird die B_Menge direkt auf den neuen Wert gesetzt! Damit köännen auch Positionen nachträglich eingegeben werden!