StringVar x;
StringVar xx:="";
NumberVar z;
NumberVar i;
x := ToText({@CurrPageSumAmount});
x := Replace(x,"-","");
x := Replace(x,"¥","");
x := Replace(x,",","");
x := Replace(x,".","");
z := length(x);
for i := z to 1 step -1 do
(
StringVar temp:=Mid(x,z-i+1,1);
select i
case 12 : xx := temp + "十"
case 11 : xx := xx + temp + "亿"
case 10 : xx := xx + temp + "仟"
case 9 : xx := xx + temp + "佰"
case 8 : xx := xx + temp + "拾"
case 7 : xx := xx + temp + "万"
case 6 : xx := xx + temp + "仟"
case 5 : xx := xx + temp + "佰"
case 4 : xx := xx + temp + "拾"
case 3 : xx := xx + temp + "元"
case 2 : xx := xx + temp + "角"
case 1 : xx := xx + temp + "分"
);
stringvar test="";
z := length(xx);
i:=1;
while i<z do
(
StringVar temp:=Mid(xx,i,1);
if temp="0" then
(
if mid(xx,i-2,1)<>"0" and (Mid(xx,i+1,1)="亿" or Mid(xx,i+1,1)="万" or Mid(xx,i+1,1)="元") then
(
xx :=Left (xx,i-1 )+Replace(xx,Mid(xx,i,1) ,"" ,i , 1);
)
else if mid(xx,i-2,1)<>"0" and i+2<length(xx) and mid(xx,i+2,1)<>"0" then
(
xx :=Left (xx,i )+Replace(xx,Mid(xx,i+1,1) ,"" ,i+1 , 1);
)
else if Mid(xx,i+1,1)="角" and Mid(xx,i+2,1)<>"0" then
(
xx :=Left (xx,i )+Replace(xx,Mid(xx,i+1,1) ,"" ,i+1 , 1);
)
else
(
i := i-1;
xx :=Left (xx,i )+Replace(xx,Mid(xx,i+1,2) ,"" ,i+1 , 1);
)
);
i:=i+1;
z:=length(xx);
);
xx := Replace(xx,"0","零");
xx := Replace(xx,"1","壹");
xx := Replace(xx,"2","贰");
xx := Replace(xx,"3","叁");
xx := Replace(xx,"4","肆");
xx := Replace(xx,"5","伍");
xx := Replace(xx,"6","陆");
xx := Replace(xx,"7","柒");
xx := Replace(xx,"8","捌");
xx := Replace(xx,"9","玖");
xx := xx + "整"+test;
purchaseImportOrderSearch.StartID = (currentPage - 1) * pageSize + 1;
purchaseImportOrderSearch.EndID = purchaseImportOrderSearch.StartID + pageSize - 1;
int pageCount = (saleOrderDetailList.Count + pageSize - 1) / pageSize;