Code: Alles auswählen.
translate number using '# ! " § $ % & / ( ) = ? '.
Code: Alles auswählen.
data: n type f,
c(10) type c,
rc type i.
c = '3,14'.
catch system-exceptions CONVT_NO_NUMBER = 1.
move c to n.
endcatch.
break-point.
Habe ein kleines Programm geschrieben, welches aus meiner Sicht fast alles beinhaltet. Interesse ??LoLo hat geschrieben:Moin,
meine Empfehlung wäre:
Entfernen aller 'fehlerhaften' bzw. unerwünschten Zeichen mit translate, z.B:
Komma würde ich übrigens bei der Gelegenheit durch einen Punkt ersetzen!Code: Alles auswählen.
translate number using '# ! " § $ % & / ( ) = ? '.
translate number using ',.'.
Dann folgendes:In dem Fall wird sy-subrc auf 1 gesetzt, wenn es keine Zahl ist. Wenn es sich hingegen um eine gültige Zahl handelt, ist diese dann in n enthalten.Code: Alles auswählen.
data: n type f, c(10) type c, rc type i. c = '3,14'. catch system-exceptions CONVT_NO_NUMBER = 1. move c to n. endcatch. break-point.
Ciao, LoLo
Code: Alles auswählen.
perform check_numeric using $zu_pruefendes_feld
changing $error.
form check_numeric using $value type any
changing $error type boolean.
$error = false.
if $value cn ' 0123456789.,-'.
$error = true.
endif.
endform.