크리스탈 보고서에 일련 번호를 로마자로 표시

Question

크리스탈 보고서에 일련 번호를 로마자 (i, ii, iii, iv 등)로 표시해야합니다. 레코드 번호 (1,2,3,4 ...)로 캡처 한 일련 번호가 있습니다. 그래서 크리스탈 리포트에서해야 할 일은 무엇입니까?

Answer 1

나는 많은 것을 할 수 없다. 나는 단순히 크리스탈로 this VB Helper article에서 코드를 포팅하지만 재미있는 운동이었다

NumberVar iCounter := 0; 
Local StringVar ch := ""; 
Local NumberVar result := 0; 
Local NumberVar new_value := 0; 
Local NumberVar old_value := 0; 
Local StringVar temp := ""; 

temp := UpperCase({?@Roman}); 

old_value = 1000; 

For iCounter := 1 To Len(temp) do 
(
    // See what the next character is worth. 
    ch := Mid(temp, iCounter, 1); 

    if ch = "I" then new_value := 1 
    else if ch = "V" then new_value := 5 
    else if ch = "X" then new_value := 10 
    else if ch = "L" then new_value := 50 
    else if ch = "C" then new_value := 100 
    else if ch = "D" then new_value := 500 
    else if ch = "M" then new_value := 1000; 

    // See if this character is bigger 
    // than the previous one. 
    If new_value > old_value Then 
     // The new value > the previous one. 
     // Add this value to the result 
     // and subtract the previous one twice. 
     result := result + new_value - 2 * old_value 
    Else 
     // The new value <= the previous one. 
     // Add it to the result. 
     result := result + new_value; 

    old_value := new_value; 
); 

// Format the number without commas or decimals 
ToText(result, 0, ""); 

은 단순히 변수로 내 {?@Roman} 매개 변수의 자리를 대체하고, 모든 설정이 끝난 것입니다.

Answer 2

Crystal Report에서 제공하는 Roman() 함수를 사용하십시오.