* Konvertieren der PRODAT-Artikel-Nummer in ein haenellesbares Format
*
* Die Zeichen &, *, Ý, Ø, ", # und das Leerzeichen kann der
* Haenel-Lift nicht verarbeiten
*********************************************************************



FUNCTION PROLIFT
PARAMETERS PRONR


PRIVATE HLNR,;     && Hänel-Artikel-Nummer
           P,;     && String[1] zeichen aus PRONR
           L,;     && Länge der Artikelnummer
           i       && Zähler


HLNR=""

PRONR=LTRIM(RTRIM(PRONR))

L    =LEN(PRONR)

FOR i=1 to L

   P=SUBSTR(PRONR,i,1)
   
   DO CASE
      
      CASE P="&"
           P="U"
           
      CASE P="*"
           P="S"
           
      CASE P=CHR(237)
           P="D"
           
      CASE P=CHR(157)
           P="D"
           
      CASE P='"'
           P="H"
                       
      CASE P="'"
           P="H"
      
      CASE P="#"
           P="K"
           
   ENDCASE   

   HLNR=HLNR+P

NEXT



RETURN(HLNR)