[GELÖST] Die ersten beiden Zeichen Buchstaben sonst Fehler

Hallo zusammen,

wie bekomme ich es hin, zu Prüfen ob im Feld USt. Nr. die ersten beiden Zeichen Buchstaben sind?

Danke schon mal für die Antworten!

Gruß
Schany

Zuletzt geändert von Schany79 am 29. Januar 2014 15:08, insgesamt 1-mal geändert.

Wenn wir davon ausgehen können, dass Nicht-Buchstaben immer Zahlen, und keine Leer- oder Sonderzeichen sind, z.B. so:
viewtopic.php?p=84525#p84525.
An die ersten beiden Zeichen eines Strings zusammen kommst du so:

Code:

Teilstring := COPYSTR(String,1,2);

Alternativ kann man die einzelnen Zeichen 1 und 2 der Zeichenkette (String[1] und String[2]) in ASCII-Code konvertieren und den entsprechend abfragen.

Um zu prüfen, ob das dann auch sinnvolle Buchstaben sind, das Feld "EU-Ländercode" in der Ländertabelle überall korrekt versorgen und dagegen prüfen (d.h. darauf filtern).
Abweichungen vom ISO-Code bei GR->EL und GB->UK beachten:
http://publications.europa.eu/code/en/en-370100.htm

Hallo,

Code:

If Evaluate(myInteger, CopyStr(myString,1,2)) then
 Message('Ich bin eine Zahle')
else
 Message('Ich bin keine Zahl');


Würde wahrscheinlich auch auf die schnelle gehen:-)

Wenn man nur die einzelnen Charakter abfragen will, dann die If Bedingung für jedes Zeichen separat ausführen (CopyStr(myString,1,1) oder CopyStr(myString,2,1)))

Gruß
Aydin

Hallo zusammen,

vielen Dank! Ich werde das heute ausprobieren und mich dann nochmal melden.

Hallo zusammen,

Um zu prüfen, ob das dann auch sinnvolle Buchstaben sind, das Feld "EU-Ländercode" in der Ländertabelle überall korrekt versorgen und dagegen prüfen (d.h. darauf filtern).
Abweichungen vom ISO-Code bei GR->EL und GB->UK beachten:
http://publications.europa.eu/code/en/en-370100.htm

Das hatte ich schon im Vorfeld Programmiert Aber danke!

Hallo,

Code:

If Evaluate(myInteger, CopyStr(myString,1,2)) then
 Message('Ich bin eine Zahle')
else
 Message('Ich bin keine Zahl');


Würde wahrscheinlich auch auf die schnelle gehen:-)

Wenn man nur die einzelnen Charakter abfragen will, dann die If Bedingung für jedes Zeichen separat ausführen (CopyStr(myString,1,1) oder CopyStr(myString,2,1)))

Gruß
Aydin

Das habe ich so übernommen nur etwas modifiziert:

IF EVALUATE(VarInteger,COPYSTR(VarString,1,2)) THEN BEGIN
IF VarInteger <> 0 THEN
ERROR(Err004);
END;

So läuft des exakt so wie ich es haben möchte

Vielen Dank!

'00', ' 0' und '0 ' würden dir so allerdings keinen Fehler geben