Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

LFO Barcodes drucken

118 views
Skip to first unread message

Anne

unread,
Sep 18, 2003, 8:37:42 AM9/18/03
to
Hallo,

wir würden gerne auf den Rechnungen die Re-Nr.
und die Kd.Nr. zusätzlich unten oder am Rand
in Barcode ausdrucken.

Hat jemand einen Tip, wie das funktionieren könnte?

Gruss
Anne


Udo Netzel [Team Sonderhomepage]

unread,
Sep 18, 2003, 8:42:19 AM9/18/03
to
Hallo Anne,

> wir würden gerne auf den Rechnungen die Re-Nr.
> und die Kd.Nr. zusätzlich unten oder am Rand
> in Barcode ausdrucken.

Dazu müssen Sie in den Formular-Quelltext eingreifen und die
Rechnungsnummer noch mal mit der entsprechenden Schrift (Barcode)
drucken. Können oder wollen Sie das nicht selbst durchführen, dann
sehen Sie sich unter http://www.Sonderhomepage.COM/formulare um. Dort
finden Sie kommerzielle Angebote rund um die Lexware-Produkte. Wir
weisen ausdrücklich darauf hin, dass die dortigen Angebote
kostenpflichtig sind.


--
Freundliche Grüße aus Berlin

Udo Netzel
Team http://Sonderhomepage.de --- User helfen Usern (UhU)


Anne

unread,
Sep 18, 2003, 9:22:50 AM9/18/03
to
Hallo,

wie sind denn die Feldbezeichungen für Rechnungs- und Kundennr.?

Gruss
Anne

"Udo Netzel [Team Sonderhomepage]" <Fo...@Sonderhomepage.de> schrieb im
Newsbeitrag news:vRY5HJe...@star.lexware.de...

Udo Netzel [Team Sonderhomepage]

unread,
Sep 19, 2003, 4:38:40 AM9/19/03
to
Hallo Anne,

> wie sind denn die Feldbezeichungen für Rechnungs- und Kundennr.?

Das finden Sie in der Datei pcfkvar5.lsf

Christian Ekhart

unread,
Sep 20, 2003, 1:31:58 AM9/20/03
to
Werter Udo,

Frage: Wie kann ich...
Antwort Udo: 2 Zeilen sinnloes Zeug und 4 Zeilen "kauf bei mir"

UHU sollte heissen User-helfen-Usern und NICHT User-helfen-Udo (indem sie
dort kaufen).

Also, Udo und die Anderen UHUs: Sinnvolle Tipps oder einfach still sein...
(So wie ich das nun mache).

christian.


Udo Netzel [Team Sonderhomepage]

unread,
Sep 20, 2003, 4:15:55 AM9/20/03
to
Hallo Christian,

Ihr Beitrag wird nicht besser, auch wenn Sie ihn noch einige Male hier
posten!

> Frage: Wie kann ich...
> Antwort Udo: 2 Zeilen sinnloes Zeug und 4 Zeilen "kauf bei mir"

Antwort von Christian: 6 Zeilen Blabla, die niemandem helfen!

> UHU sollte heissen User-helfen-Usern und NICHT User-helfen-Udo (indem
sie
> dort kaufen).

Auf der angegebenen Seite bieten diverse Firmen ihre Dienste an. Die
Firmen haben mit dem Team Sonderhomepage nichts zu tun! Lediglich zwei
der dortigen Betriebsinhaber sind zusätzlich auch im Team
Sonderhomepage.

Übrigens: Die Umsätze, die meine Firma mit Formular-Änderungen verdient,
liegt bei unter 1 Prozent meines Gesamtumsatzes! Diese Umsätze sind also
vollkommen uninteressant für mich! Es handelt sich um eine reine
Service-Leistung.

> Also, Udo und die Anderen UHUs: Sinnvolle Tipps oder einfach still
sein...

Anne konnte mit diesem Tipp etwas anfangen!

> (So wie ich das nun mache).

Besser ist es!

Sie haben bisher 7 Beiträge in allen Lexware Foren von sich gegeben.
Hilfe-Gehalt: 0,00! Ihre Beiträge beinhalten ausschließlich Kritik an
mir und am Team Sonderhomepage. Ich habe hier schon zig-Tausend Beiträge
geschrieben und in 1 bis 2 Prozent meiner Beiträge ist von
"Sonderhomepage.com" die Rede, wovon nur ein Teil auf Formularänderungen
hinweist.

Von daher ist Ihre Kritik unpassend!

Anne

unread,
Oct 8, 2003, 8:49:20 AM10/8/03
to
Hallo Herr Netzel,

vielen Dank für den Hinweis!

Mit der Kunden-Nr. klappt es auch schon,
bloß ist das Feld AUFTR_BELEG_NR nicht mit der Rechnungsnummer gefüllt,
sondern leer. Welches Feld genau ist die Rechnungs-Nr.?

MfG
Anne

"Udo Netzel [Team Sonderhomepage]" <Fo...@Sonderhomepage.de> schrieb im

Newsbeitrag news:i5u2plo...@star.lexware.de...

Udo Netzel [Team Sonderhomepage]

unread,
Oct 8, 2003, 8:55:09 AM10/8/03
to
Hallo Anne,

> Mit der Kunden-Nr. klappt es auch schon,
> bloß ist das Feld AUFTR_BELEG_NR nicht mit der Rechnungsnummer gefüllt,
> sondern leer. Welches Feld genau ist die Rechnungs-Nr.?

Das ist die Rechnungsnummer. Ich nehme an, Sie binden die Nummer nicht
korrekt ein. Sehen Sie am Besten im Quelltext unter "Betrefffeld" nach,
denn dort steht die Nummer ja schon.

Anne

unread,
Oct 8, 2003, 9:12:36 AM10/8/03
to
Wahrscheinlich liegt´s daran, daß ich nicht herausfinde,
wie man einen numerischen Wert in einen String umwandelt.
Kann in der Hilfe dazu nichts finden, nur anders herum.

MfG
Anne
"Udo Netzel [Team Sonderhomepage]" <fo...@sonderhomepage.de> schrieb im
Newsbeitrag news:RH%234ntZj...@star.lexware.de...

Udo Netzel [Team Sonderhomepage]

unread,
Oct 8, 2003, 3:10:08 PM10/8/03
to
Hallo Anne,

> Wahrscheinlich liegt´s daran, daß ich nicht herausfinde,
> wie man einen numerischen Wert in einen String umwandelt.
> Kann in der Hilfe dazu nichts finden, nur anders herum.

Wozu das denn?? Ich denke, Sie wollen die Rechnungsnummer als Barcode
drucken? Oder habe ich was verpasst?

<< FormatNumeric("%.0f", GetNumeric(AUFTR_BELEG_NR)) >>
druckt die Belegnummer, und wenn Sie
<<
SetFont("Code_128",10,Font_Normal,Color_Black)
FormatNumeric("%.0f", GetNumeric(AUFTR_BELEG_NR))
SelectFont (Standardschriftart)
>>
schreiben, erscheint nur die Rechnungsnummer als Barcode 128.

Anne

unread,
Oct 9, 2003, 6:36:18 AM10/9/03
to
Hallo Herr Netzel,

so einfach geht das beim Code-128 eben nicht, denn
der Code muß erst erzeugt werden, um vom Scanner
gelesen werden zu können. Dies geschieht mit der Funktion
ConvStrToCode128(string). Da aber AUFTR_BELEG_NR numerisch
ist, kann ich das Feld nicht an diese Funktion übergeben.

Wie Sie unten aufgeführt haben, erhalte ich zwar die Re-Nr.
als Strichcode ausgegeben, dieser ist aber nicht vom Scanner
lesbar.

Also muß ich zwingend Numerisch in String umwandeln.
Das kann doch so ziemlich jede Programmiersprache und es
sollte mich wundern, wenn dies in DruckNT nicht gehen sollte.

Bitte versuchen Sie doch in Erfahrung zu bringen, ob es irgendwie
geht!!!

Lieben Gruss
Anne

"Udo Netzel [Team Sonderhomepage]" <fo...@sonderhomepage.de> schrieb im

Newsbeitrag news:FphwK$cjDH...@star.lexware.de...

Stefan Wittmann

unread,
Oct 9, 2003, 12:37:19 PM10/9/03
to
Hallo Anne.

"Anne" <juett...@t-online.de> schrieb im Newsbeitrag
news:5T13xEl...@star.lexware.de...


> Hallo Herr Netzel,
>
> so einfach geht das beim Code-128 eben nicht, denn
> der Code muß erst erzeugt werden, um vom Scanner
> gelesen werden zu können. Dies geschieht mit der Funktion
> ConvStrToCode128(string). Da aber AUFTR_BELEG_NR numerisch
> ist, kann ich das Feld nicht an diese Funktion übergeben.
>
> Wie Sie unten aufgeführt haben, erhalte ich zwar die Re-Nr.
> als Strichcode ausgegeben, dieser ist aber nicht vom Scanner
> lesbar.
>
> Also muß ich zwingend Numerisch in String umwandeln.
> Das kann doch so ziemlich jede Programmiersprache und es
> sollte mich wundern, wenn dies in DruckNT nicht gehen sollte.
>
> Bitte versuchen Sie doch in Erfahrung zu bringen, ob es irgendwie
> geht!!!


Ich drucke auf mein Formular für den internen Gebrauch das FiBukonto, die
Rechnungsnummer, den Rechnungsbetrag und den Text für den Buchungssatz.

Das erleichtert sowohl Kassen- als auch die echte Buchung.

Ich habe für die Rechnungsnummer einfach Code39 genommen, weil die
Rechnungsnummer rein Numerisch ist. Wichtig beim Code39 sind ein Sternchen
am Anfang und am Ende.
Für alles, was Buchstaben oder ein Komma enthält, nehme ich Code 128.

Der Code läuft unter LFOpro. Sie müssen evtl. einige Syntaxen ändern.

Dann klappts auch mit dem Lesen.

Aber sehen Sie selbst...


'Eingefügt by Stefan Wittmann:ANFANG
' AMW Infos auf Seite 1 ausdrucken
'Alle Tabs löschen
RemoveAllTabs()
'Tabs setzten mittig und rechts
SetTabs("C R")
'Kasseninformationen ausgeben:
LF
DrawHorzLine(Line_TOP)
SelectFont(SchriftArtStandard)
'Beschriftung Barcode
TL("Fibukonto" + Tab + "Rechnungsnummer" + Tab + "Rechnungsbetrag")
'Ausgabe Debitoren- und Auftragsnummer mit Code 39
SetFont("Code-39-25", 20, FONT_NORMAL, COLOR_BLACK)
T("*" + FormatNumeric("%.0f", GetNumeric(KD_FIBUKTO)) + "*")
T(Tab)
T("*" + Get(AUFTR_BELEG_NR) + "*")
'Ausgabe Gesamtbetrag mit Code 128
SetFont("Code-128", 20, FONT_NORMAL, COLOR_BLACK)
TL(Tab + ConvStrToCode128(GetCurrencyFormat(AUFTR_RG_BETRAG, CC_ORG,
nCurrencySymbol)))
'Ausgabe Buchungssatz:
SetFont("Code-128", 20, FONT_NORMAL, COLOR_BLACK)
TL(Tab + Tab + ConvStrToCode128(Get(AUFTR_NAME_1) + "," +
Get(AUFTR_VORNAME) + " / " + Get(AUFTR_BELEG_NR)))

SetFont("Arial", 28, FONT_BOLD, COLOR_BLACK)
TL(Tab + "_____ / " + FormatNumeric("%.0f", GetNumeric(KD_FIBUKTO)) + " /
840x")

'Eingefügt by Stefan Wittmann:ENDE

Hoffe geholfen zu haben...

____________________________________________________
Mit freundlichen Grüssen aus Stulln / Oberpfalz ...

... Stefan Wittmann

Anne

unread,
Oct 9, 2003, 1:53:16 PM10/9/03
to
Hallo Herr Wittmann,

vielen Dank auch Ihnen, hat mir sehr geholfen.

Lieben Gruss
Anne

"Stefan Wittmann" <Autoservic...@web.de> schrieb im Newsbeitrag
news:07vGZPo...@star.lexware.de...

0 new messages