Visualizza numero di serie come lettere romane in Crystal Reports

Question

è necessario visualizzare il numero di serie come lettere romane (i, ii, iii, iv ecc.) Nei report di cristallo. Ho il numero di serie catturato come numero di record (1,2,3,4 ...). Quindi cosa devo fare per questo nel report di cristallo.

Answer 1

Non riesco a prendere gran parte del merito; Ho semplicemente il porting del codice da this VB Helper article in cristallo, ma è stato un esercizio divertente:

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, ""); 

Basta sostituire il mio {?@Roman} parametro segnaposto con la variabile, ed è tutto pronto.

Answer 2

Basta usare la funzione Roman() fornita da Crystal Report