以数字格式传递值

Question

我在通过格式问题传递值时遇到问题。我在代码中输入的描述是因为我在 if ValidateMMonCheque <> MM 部分的代码中传递 PreEditedCheque 时遇到问题。 if length(RawChequenumber) = 15 的输出将是 1 位数字而不是 00001（示例）

MM = HostGetFLD('','MM')
YY = HostGetFLD('','YY')
PreEditedCheque = substr(RawChequenumber,11,5)

ValidateMMonCheque = substr(RawChequenumber,7,2)

if ValidateMMonCheque <> MM Then    *From this statement* 
Do
   PreEditedCheque = substr('00000',1,5)  *This part where those 0 can't be properly shown if pass to the next statement*
   EditedCheque = '00'||'2'||'0'||YY||MM||'00'||PreEditedCheque 
   rc = message(2,2,EditedCheque)
End


if length(RawChequenumber) = 15 Then  

   EditedCheque = '00'||'2'||'0'||YY||MM||'00'||PreEditedCheque + 1 *Second statement if <>MM ran, this part, the PreEditedCheque will be not in 00001, it will be 1. 

rc = PanSetCtlData('PREVIEW',EditedCheque)

Answer 1

您要求的是在 5 个字符的字段中用零填充支票号码的左侧。 Right() function 是你的朋友：

Right(PreEditedCheque, 5, '0') /* "1" -> "00001" */

以数字格式传递值

Passing value with numeric format

rexx