0

尝试对字段运行 Mod 公式时出现问题。我不断收到错误“字符串不是数字”，到目前为止，我无法让 ToNumber 正确格式化该字段。该字段是通过添加一个静态值和三个已填充的字段来生成的。任何帮助，将不胜感激。

结合字段和焊盘

StringVar strMICR;
StringVar strMICRLINE;


strMICRLINE := Chr(13) & "0603250694";
strMICRLINE := strMICRLINE & Right("000000" & Trim(Split({CUST.C_ID_ALPHA},"-")[1]),6);
strMICRLINE := strMICRLINE & Right("00000000" & ToText({STMT.STMT_NUMBER},0,""),8);
strMICRLINE := strMICRLINE & Right("0000000000" & Replace(ToText({@Total},2,""),".",""),10);


//Uncomment below to test Mod10 Check-digit
//strMICR := mod10("0603250694084469108961440000127874");

//IF NumericText (strMICRLINE) 
//THEN ToNumber (strMICRLINE);

Mod10 (strMICRLINE);

MOD10 功能

Function (StringVar input_number)

input_number := replace(input_number, " ", "");

numbervar i := length(input_number);
numbervar sum_val := 0;

stringvar position := "odd";

do (
    if position = "odd" then (
        sum_val := sum_val + 3*tonumber(input_number[i]);
        position := "even" )
    else (
        sum_val := sum_val + tonumber(input_number[i]);
        position := "odd" )
    ;

    i := i-1
)  while i > 0;

numbervar remainder_val := Remainder(sum_val, 10);

numbervar check_digit := if remainder_val = 0 then 0 else (10-remainder_val) ;

input_number + ToText(check_digit, 0)
4

1 回答 1

0

您正在尝试调用toNumber()非数字字符串，因此无法转换。您需要先从字符串中删除所有非数字字符。

//Formula sample to strip non-numeric characters
local stringvar input := "78906-adf0asdf-234";
local stringvar output;
local numbervar i;

for i:=1 to length(input) do
  if numerictext(input[i]) then output:=output&input[i];

output

那么我强烈建议你使用内置mod函数而不是自己滚动。

toNumber({@NumericTextOnly}) mod 10
于 2015-03-27T15:23:35.460 回答