Ich habe folgendes Skript und möchte, dass alle Auftragspositionen in einem Feld mit ausgegeben werden (ATRPOS.TEXT) bei denen das Gewicht > 0 ist.
Im Moment wird nur die erste Postition des Auftrags ausgegeben.
Kann mir jemand helfen?
Gruß
Jochen
!BeginAuftrag
!Trim
!BeginVBScript
Zahl = "#Auftrag.Gewicht"
gewicht = Round(Zahl+0.01, 0)
if "#LFRADRESSE.PLZ" = "" then
Ergebnis = "NP;" & gewicht & ";#AUFTRAG.AUFTRAGNR;#AUFTRAG.NAME2;#AUFTRAG.ANREDE;#AUFTRAG.VORNAME #AUFTRAG.NAME;#AUFTRAG.STRASSE;#AUFTRAG.LAND;#AUFTRAG.PLZ;#AUFTRAG.ORT;#KUNADRESSE.TELEFON1;#ATRPOS.TEXT;" & vbCrLf
else
Ergebnis = "NP;" & gewicht & ";#AUFTRAG.AUFTRAGNR;#LFRADRESSE.NAME2;#LFRADRESSE.ANREDE;#LFRADRESSE.VORNAME #LFRADRESSE.NAME;#LFRADRESSE.STRASSE;#LFRADRESSE.LAND;#LFRADRESSE.PLZ;#LFRADRESSE.ORT;#LFRADRESSE.TELEFON1;#ATRPOS.TEXT;" & vbCrLf
end if
!EndVBScript
!BeginAtrpos
!EndAtrpos
!EndAuftrag