Belegzeilen: Restmengen-Verwaltung

Wird eine Auftragsbestätigung in einen Lieferschein mittels des Menüpunktes
“Folgebeleg erstellen” gemacht, wird bossERP-intern
eine Methode in Gang gesetzt, die die zu liefernde Restmenge bestimmt.
Die Methode heisst “PRM_BelegZFolge_Diff_Get”. Nach Anwendung
der Methode enthält die Variable “t_ErrorText” allfällige Fehlermeldungen.
Die Methode wird folgendermassen angewendet:
SRDezimalzahl01:=PRM_BelegZ_Folge_Diff_Get
([r1_Belegzeile]i_ID)
If (t_ErrorText#“”)            =ein<br> Fehler ist aufgetreten<br> SRDezimalzahl01:=0<br> =wegen dem Fehler ist „SRDezimalzahl01“ ev. unbrauchbar
ALERT(t_ErrorText)
`=Fehler anzeigen
End if
Man ist somit gehalten, das Resultat in eine Variable (hier „SRDezimalzahl01“)
abzufüllen. Die Methode braucht den Parameter „Belegzeile-ID“ und kann
in SuperReport verwendet werden, wie hier der Ausschnitt im “Body”
zeigt:
If(([s1_Beleg]s_Belegtyp=“Lieferschein”)

| ([s1_Beleg]s_Belegtyp=“Auftragsbestätigung”)) …..
if((SRText13=“Ja”)
& ([s1_Beleg]s_Belegtyp=“Auftragsbestätigung”))    Druckparameter<br> "Restmenge drucken ?" ist mit "Ja" beantwortet<br> Restmenge:=PRM\_BelegZ\_Folge\_Diff\_Get<br> ([r1\_Belegzeile]i\_ID)<br> If (t\_ErrorText#"")<br> =ein
Fehler ist aufgetreten
Restmenge:=0
=wegen dem Fehler ist "SRDezimalzahl01" ev.<br> unbrauchbar<br> ALERT(t\_ErrorText)<br> =Fehler anzeigen
End if
Ansatz:=string(Restmenge;“#‘###’##0;-#‘###’##0;0”)
end if
….
end if