[gelöst] Auffüllen einer Nummer

[Kowa]

Auf einen Report soll ein Barcode (z.B. Lfd. Nr in der Projektstruktur) drauf, der wie folgt aufgebaut werden sein muss, damit er richtig gelesen werden kann.

*$$$$$$Lfd. Nr.*

Wenn die Lfd. Nummer eine feste Anzahl an Stellen hätte, könnte ich dieses Problem selbst lösen. Die Zahl variiert aber ständig.

Wichtig ist daher, dass die Ldf. Nr. immer mit sovielen Dollarzeichen ($) aufgefüllt wird, das der Inhalt zwischen dem Start- und dem Enddolarzeichen 10 Zeichen lang ist und das ganze in den Sternchen (*) steht.

Bsp:
*$$$$$$$999*
*$$$$$$$$99*
*$$$$$$$$$9*

Zuletzt geändert von Kowa am 13. Oktober 2009 09:48, insgesamt 2-mal geändert.
Grund: Typo im Betreff korrigiert

ca. so:

Code:

Filler := PADSTR(rec."entry No.", 10-STRLEN(rec."entry No."), '$');
newBarcode := Filler + rec."entry No.";

Danke, ich werde es so schnell wie möglich ausprobieren (heute wirds wahrscheinlich nichts mehr damit) und dann gebe ich ein Feedback.

Alternativ (und mit Berücksichtigung der Sternchen):

Code:

WHILE STRLEN(Barcode) < 10 DO
  Barcode := '$' + Barcode;
Barcode := '*' + Barcode + '*';

dann halt :P ( ;) )

Code:

Filler := PADSTR(rec."entry No.", 10-STRLEN(rec."entry No."), '$');
newBarcode := '*'+Filler + rec."entry No."+'*';

Wahrscheinlich bin ich zu blöd. Ich habe beide Wege ausprobiert und bekomme dieselbe Fehlermeldung jedesmal. Eine Typkonvertierung kann nicht... ihr kennt den Text denke ich.

MatthiasKönig:
Name DataType
Res_Barcode Integer
Filler Text

Code:

Code:

Res_Barcode := "Job Structure Line"."Entry No.";
Filler := PADSTR(Res_Barcode, 10-STRLEN(Res_Barcode), '$');
Res_Barcode := '*'+Filler + rec."entry No."+'*';

Nathalie:
Name DataType
Res_Barcode Integer

Code:

Res_Barcode := "Job Structure Line"."Entry No.";
WHILE STRLEN(Res_Barcode) < 10 then begin
Res_Barcode := '$' + Res_Barcode;
Res_Barcode := '*' + Res_Barcode + '*';

Kleiner Tip?

Hallo misterelektro1981,

ein Barcode kann kein integer sein, auch wenn einige Programmierer das immer noch nicht kapiert haben .
Da ein Barcode auch führende Nullen haben kann (UPC, von 8 auf 13 Stellen erweiterte EANs), kannst die nur als Text oder besser Code abbilden. Bei einem Integer würden die führenden Nullen sofort bei der Zuweisung mit EVALUATE wieder gelöscht werden, und du bist wieder da wo du angefangen hast.

Gruß, Fiddi

Danke für die Antwort fiddi. Der Barcode soll eine laufende Nummer codieren, dort ist keine führende 0 etc. vorgesehen.

Jetzt sind die gl. Variablen von Typ Code und trotzdem kommt die Fehlermeldung: Eine Typkonvert.....Text=Integer??

Code:

Filler := PADSTR("Job Structure Line"."Entry No.", 10-STRLEN("Job Structure Line"."Entry No."), '$');
Res_Barcode := '*'+Filler +"Job Structure Line"."Entry No."+'*';

Ich vermute mal, dass deine "Job Structure Line"."Entry No." vom Typ Integer ist.
PADSTR erwartet dort aber einen Text.

Lösung:
FORMAT("Job Structure Line"."Entry No.")

[Edit] Das gilt auch für die zweite Zeile.

@misterelektro.

trotzdem kannst du nicht eine Textvariable einem Integer zuweisen, das geht nur mit EVALUATE.
Außerdem kann ein Integer keine '$'- oder '*'-Zeichen enthalten, dort gehen nur Zahlen von -2^31 bis 2^31 rein.

Welchen Barcodetyp willst du denn auf deinem Beleg haben? EAN, Code 39, 2/5, Code 128, EAN 128???
Du musst dich auch darüber informieren, welche Zeichen für deinen gewünschten Barcode zulässig sind, und ob du evtl. eine Prüfziffer berechnen musst. Wenn du einen Barcode in Strichform auf deine Belege drucken willst, benötigst du einen passenden Font. Der benötigt i.d.R. aber etwas ganz anderes als deinen berechneten Code.
Das alles ist notwendig, damit ein Scanner deinen gedruckten Barcode später lesen kann.

Gruß, Fiddi

Timo Lässer: Deine Vermutung ist richtig.

Folgende Änderungen habe ich vorgenommen.

Code:

Filler := PADSTR(Format("Job Structure Line"."Entry No."), 10-STRLEN(Format("Job Structure Line"."Entry No.")), '$');
Res_Barcode := '*'+Filler+Format("Job Structure Line"."Entry No.") +'*';

Alle laufenden Nummer werden nun aber als *0$$$$$$$$0* ausgegeben.

[fiddi]

Hallo misterelektro,

ich finde PADSTR ist für dein Problem nicht geeignet, da es die Füll- Zeichen an deinen Wert anhängt, du willst ihn aber davor haben, verstehe ich das richtig

Res_Barcode muss mindestens vom Typ Text[12] oder Code[12] sein.

Code:

Res_Barcode := CopyStr('*$$$$$$$$$$',1,11-strlen(Format("Job Structure Line"."Entry No.")))+Format("Job Structure Line"."Entry No.")+'*';


Gruß, Fiddi

Edit: fehlende Klammer hinzugefügt. Ich wundere mich allerdings, warum der Compiler das nicht merkt

Zuletzt geändert von fiddi am 8. Oktober 2009 16:54, insgesamt 2-mal geändert.

Hallo fiddi,
Res_Barcode ost jetzt vom Typ Text mit 30 Zeichen. Es kommt immer noch die Fehlermeldung: Eine Typenkonv..... Integer + Text

Ziel soll sein eine laufende Nummer, die in der Stellenanzahlt unterschiedlich sein kann, als Barcode zu codieren.

Der Aufau soll wie folgt sein:
für lauf Nr. 4 => *$$$$$$$$$4*
für lauf Nr. 14 => *$$$$$$$$14*
für lauf Nr. 144 => *$$$$$$$144*

hab meinen Code oben noch mal korrigiert.

Gruß, Fiddi

Hallo fiddi,

konnte erst jetzt antworten, da erst jetzt die Zeit zum testen da war.

Egal wie die laufenden Nummer ausssieht, ob 1, 10 oder 100 das Ergebnis ist jetzt immer *$$$$$$$$$0*

Hast du noch einen Tip?

Dann wird wohl zum Zeitpunkt des Aufrufens der Funktion die Record- Variable nicht gefüllt sein, d.h. es wurde kein Get oder Find auf einen Record aus der Tabelle gemacht.

Gruß, Fiddi

Das hatte ich auch schon probiert. dazu habe ich eine Record Variable auf die Table Job Structure LIne im OnInitReport trigger durch einen GET Befehl aufgerufen.

Dann kommt die Fehlermeldung: Projektstrukturzeile Lfd. Nr. '0' existiert nicht.

Dann will ich auch mal meine Version zum Besten geben:

Code:

ResBarcode := FORMAT(JobStructLine."Entry No.");
ResBarcode := '*' + PADSTR('', 10 - STRLEN(ResBarcode), '$') + ResBarcode + '*';

Das GET welches du erwähnst muss schon sinnvoll sein. Du musst sicherstellen, dass der Primärschlüssel (gern auch mehrere Felder umfassend) den du holen möchtest auch existiert. Für FIND(FIRST/SET) sollte der Record mit gleichen Daten gefiltert sein.

Schau dir doch mal die Doku zu GET/FIND... an, da findest du vielleicht dein Problem. Falls du gar nicht weiter kommst, kannst du ja mal den ganzen Report anhängen, damit wir sehen, was genau abläuft.

Hallo Marcus,

da ich deinen Report nicht kenne, kann ich nicht sagen, ob der Get an der Stelle Sinn machen würde. Ich vermute aber mal, NEIN.

Gruß, Fiddi

An SilverX: Der Code hat die gleiche Funktion wie der von fiddi.

Es geht um den Report Projektstruktur, diesen habe ich unter einen neuen ID abgespeichert und möchte hieraus einen Werksauftrag erstellen. Hier habe ich (im Originalzustand) nur ein Feld hinzugefügt, das mir die laufende Nr. als Barcode anzeigen soll, hoffe das reicht an Info.

Wo soll der Get Befehl, momentan im OnInitReport => Entry_Nr.GET (Record auf Job Structure Line), den sonst stehen.

An SilverX: Der Code hat die gleiche Funktion wie der von fiddi.

Stimmt :)

Wo soll der Get Befehl, momentan im OnInitReport => Entry_Nr.GET (Record auf Job Structure Line), den sonst stehen.

Idealerweise in einem Bereich in dem die Kriterien für den Datensatz bekannt sind, also dort, wo bereits mit der Job Structure Line gearbeitet wird. Dort ist dann entweder bereits ein Datensatz gelesen oder es stehen alle Daten zur Filterung zur Verfügung.

Die Record Variable heißt Ressource.

Ich habe es jetzt an mehreren Stellen probiert, aber es klappt nicht, deshalb habe ich mal den report angehangen. Vielleicht kannst du/ihr mir sagen, wo ich diesen Get Befehl hinschrieben muss.

Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.

[SilverX]

Kannst du mir die bitte als text schicken die bitte als Text an deinen Beitrag hängen? Ich habe keine Datenbank die eurer entspricht, also auch keine Möglichkeit dort reinzuschauen die fehlerhaften Referenzen zu korrigieren.

Zuletzt geändert von SilverX am 12. Oktober 2009 20:22, insgesamt 2-mal geändert.

Kannst du mir die bitte als text schicken?

Gegenvorschlag: Bitte das Objekt im Textformat an den Beitrag mit der FOB-Datei anhängen, so haben alle mehr davon

Kannst du mir die bitte als text schicken?

Gegenvorschlag: Bitte das Objekt im Textformat an den Beitrag mit der FOB-Datei anhängen, so haben alle mehr davon

Och mensch Timo, das mein ich doch