Order = ""
For i = 0 To Zeile.Size - 1
Order = Order & Zeile.Get(i) & CRLF
If (i = 1) Then
factor = Order.Length
End If
Next
If (chbSMS.Checked = True) Then
If (Order.Length > 159) Then
txt = "Ihre Daten in der SMS sind grösser als 160 Zeichen." & CRLF & _
"Es werden zwei Bestell-SMS gesendet. Bestellung trotdem senden?"
Else
txt = "Bestellung senden?"
End If
If (Msgbox2(txt, "Bestellung", "ok", "", "Abbruch", Null) = DialogResponse.POSITIVE) Then
If (Order.Length > 159) Then
SMS1 = Order.SubString2(0, factor - 1)
SMS2 = Order.SubString2(factor, Order.Length - 1)
Sms.Send("+4916096682220", SMS1)
Sms.Send("+4916096682220", SMS2)
Else
Sms.Send("+4916096682220", Order)
End If
Global.GotoTheWeb(4)
End If
Else
' eMail
End If