CrystalReports: Barcode-Etikett für Artikel/Geräte: Unterschied zwischen den Versionen

// ------------------------------------------------------------------ // Diese Formel kann zusätzlich eine Prüfziffer generieren. // Bei nicht korrekter Anzahl der Stellen wird eine "0" vorrangestellt

WhilePrintingRecords;

   NumberVar iMitPruefZiff := 1; // Bei 1 wird die Prüfziffer mit generiert

   StringVar sInv; // Inventarnummer
   StringVar sBar; // Barcode- Nummer
   NumberVar i; 
   NumberVar k;
   NumberVar iq1; // Quersumme aus den ungeraden Positionen
   NumberVar iq2; // Quersumme aus den geraden Positionen
   NumberVar i_Pruefziffer;                    
   NumberVar i_Das_Ergebnis_der_Berechnung;    

   StringVar s_BarcodeNummer_Helfer;            
   StringVar s_Paarweise_Darstellung;
   //_________________________________
   //
   // Schritt 1.) Die zu kodierende Inventarnummer holen: 
   sInv := {MARTEINZ.InventarNr}; // Inventarnummer aus Datenbank holen

   //_________________________________
   //
   // Schritt 2.) Die zu kodierende Inventarnummer holen:                                 
   // Überprüfen, ob überhaupt gültige werte in der Inventarnummer sind
   // Eine zu kodierende Nummer (hier: Inventarnummer) darf nur Ziffern enthalten:

   For i := 1 To Len(sInv) Do // Alle Zeichen einzeln überprüfen
   (
       k := Asc(Mid(sInv, i, 1));
   	If (k < Asc("0")) Or (k > Asc("9"))	Then
            sInv := ""; // Inventarnummer ungültig > löschen
   );

   //_________________________________
   //
   // Schritt 3.) Ausgabestring leeren:
   sBar := ""; 

   //_________________________________
   //
   // Schritt 4.) Falls erwünscht Prüfziffer anhängen::
   If (sInv <> "") Then // Inventarnummer ist ein gültiger String > Berechnung starten
   (
       If (iMitPruefZiff = 1) Then
       (
   		iq1 := 0; // Quersummenzähler leeren
   		iq2 := 0;
   
   		i_Pruefziffer := 1;                   //PMB//120710//
   		i_Das_Ergebnis_der_Berechnung := 0;   //PMB//120710//
   
   		s_BarcodeNummer_Helfer := "";         //PMB//120710//
   
   
           // Bei Interleaved 2 aus 5 Code wird jede Ziffer die an einer ungerade STELLE steht(von RECHTS!!! nach LINKS!!! gesehen -> DOWNTO)
       	// zuerst miteinander addiert und dann die so entstandene Quersumme mal 3 multipliziert.
           // Danach wird das Ergebnis durch 10 geteilt. Der Rest stellt die Prüfziffer dar 
   
       	// Weil von RECHTS nach LINKS gesehen muss die Reihenfolge umgedreht werden!
   
           // Beispiel:  eine Barcodenummer '245138' hat an der 1 Position von Rechts nach Links gesehen eine 8.
           //  					Zählt die erste ungearde Stelle (1) hat eine 8:
   
           //						Schaut man jedoch von Links nach Rechts ist die 8 an einer GERADEN Stelle (6).
           //						Also ein Konstrukt wie etwa:
           //							for i := i_String_Laenge downto 1 do
           //								if (i mod 2) = 1 then // Ungerade Stelle hat immer als REST eine 1
           //						kann hier richtig NICHT funktionieren.
   
           //						Um Fehler zu vermeiden MUSS man der GESAMMTEN String zuerst UMDREHEN:
           // String zuerst UMDREHEN:
   		For i := 1 To Len(sInv) Do
   		( s_BarcodeNummer_Helfer := s_BarcodeNummer_Helfer + Mid(sInv, i, 1); //PMB//120710//
   
   		);
   
           // Zuerst werden zwei Quersummen der ungeraden (iq1) und geraden (iq2) Stellen gebildet:
   		For i := 1 To Len(s_BarcodeNummer_Helfer) Do // Quersumme errechnen
   		(
               If (i Mod 2) = 1 Then
   				// Quersumme aus den ungeraden Positionen
   				iq1 := iq1 + (Asc(Mid(s_BarcodeNummer_Helfer, i, 1)) - Asc("0"))
   			Else
   				// Quersumme aus den geraden Positionen
   				iq2 := iq2 + (Asc(Mid(s_BarcodeNummer_Helfer, i, 1)) - Asc("0"));
   		); 
   
   		// Die Quersumme der ungeraden (iq1) Stellen wird jetzt mal 3 multipliziert (3 * iq1)
   		// und dazu wird die Quersumme der geraden (iq2) addiert:
   		k := (3 * iq1) + iq2; // Summe errechnen
   
           // Jetzt wird das Ergebnis durch 10 geteilt.
   		i_Das_Ergebnis_der_Berechnung := k mod 10;  
   
   		// Das Ergebnis der Substruktion ist die Prüfzahll die an s_BarcodeNummer angehängt wird (Wenn Rest gleich 0 ist, so ist die Prüfziffer 0 *)
   	   (if ((i_Das_Ergebnis_der_Berechnung > 0) and (i_Das_Ergebnis_der_Berechnung < 10)) then
   			i_Pruefziffer := 10 - i_Das_Ergebnis_der_Berechnung
   		else
   			i_Pruefziffer := 0;
   	   );
   
   		sInv := sInv + Chr(Asc("0") + i_Pruefziffer); // zu Inventarnummer die Prüfziffer anhängen
   
   	); // für If (iMitPruefZiff = 1) Then
   
   
   	//_________________________________
   	//
   	// Schritt 5.) Eine Barcodenummer muss eine gerade Anzahl von Stellen haben
   
   	// Im 2/5 interleaved System kann aufgrund der Codierungstechnik nur eine gerade
   	//  Anzahl von Stellen verschlüsselt werden. Will man eine ungerade Anzahl von Zeichen darstellen,
   	// so muss man dem Code eine Null voranstellen (aus 123 wird 0123)oder eine selbsterstellte Prüfziffer anhängen.
   	// Da hier schon eventuel eine Prüfziffer angehängt wurde zählt nur ob die Anzahl der Ziffer gerade oder ungerade ist.
   	// Ist diese ungerade, dann wird eine Null '0' dazu addiert
   	If (Len(sInv) Mod 2) = 1 Then
   		sInv := "0" + sInv; // Eine Barcodenummer muss eine gerade Anzahl von Stellen haben
   
   	//_________________________________
   	//
   	// Schritt 6.) Decodierung
   
   	// Zielsetzung ist es durch eine paarweise Darstellung der zu codierenden Ziffern eine Platzersparnis zu erzielen.
   	// Der Code ist aus 2 breiten und 3 schmalen Strichen, bzw. 2 breiten und 3 schmalen Lücken aufgebaut.
   	// Zwei Ziffern bilden immer ein Paar: Die erste Ziffer wird aus 5 Strichen dargestellt,
   	// die zweite Ziffer wird durch die unmittelbar folgenden Lücken der ersten Ziffer dargestellt.
   	// Fünf Striche und Lücken stellen also ein Ziffernpaar dar.
   
   	s_BarcodeNummer_Helfer := "";       
       s_Paarweise_Darstellung := "";      
   
      	For i := 1 To Len(sInv) Do
   	(
   		s_Paarweise_Darstellung := s_Paarweise_Darstellung + Mid(sInv, i, 1);
   		If (i Mod 2) = 0 Then
   		(
               // Hier sind 2 Ziffern im String s_Paarweise_Darstellung:
               // Diese werden nun in das entsprechende ANSI-Zeichen umgewandelt.
               IF ToNumber(s_Paarweise_Darstellung) < 50 then
             		s_BarcodeNummer_Helfer := s_BarcodeNummer_Helfer + Chr(ToNumber(s_Paarweise_Darstellung) + 48)
               else
             		s_BarcodeNummer_Helfer := s_BarcodeNummer_Helfer + Chr(ToNumber(s_Paarweise_Darstellung) + 142);
   
   			s_Paarweise_Darstellung := "";
   
   		);
   
   	 );
   
   
   	//_________________________________
   	//
   	// Schritt 7.) Start - Stop Zeichen
   
   	// Als Result bekommt man hier eine Barcode für die Schriftart 'I2OF5GEVITAS.TTF'
   	If s_BarcodeNummer_Helfer <> "" Then
   		sBar := "(" + s_BarcodeNummer_Helfer + ")"; // Inventarnummer mit Start und Stop- Zeichen versehen
   );
   
   sBar; // Ausgeben der Zeichenfolge als Text für Schriftart "I2OF5GEVITAS"