Function Setstring(cString:string):string; {提取数字} VAr i:integer; str:string; begin str:=''; For i:=1 to length(cString) do begin if Pos(cString[i],'0123456789.')<=0 then break else Ca
今天调整一个同事的需求时,要计算一个含税金额.报表内已经取到税率,但存在的形式是字符串格式:16%. 正好SAP内有一个标准函数:PREPARE_STRING 可以处理字符串,将特别标志替换为有效标志.通过函数只保留数字,再转换成整数,再进行后续运算. ) TYPE c. DATA tax_rate TYPE I. tax_rate_char = ' 16%'. CALL FUNCTION 'PREPARE_STRING' EXPORTING i_valid_chars = ' 01234567