水晶报表人民币

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;