Office: Betrag in Einzahlungsscheine drucken

Hi Zusammen

Ich muss in einen Einzahlungsschein die Beträge eindrucken, da es sich um vorgedruckte Scheine handelt, sind ja bekanntlicherweise so "quadrate" wo man jeweils eine Zahl hineinschreiben kann, vorhanden.

Der Dezimalpunkt ist auch schon vorgedruckt.

die Frage: Wie kann ich einen Betrag in 10 (anz. Quadrate) einzelne Ziffern zerlegen? Das ganze sollte möglichst einfach, am besten per Funktion funktionieren. Wenn keine Nr. vorhanden ist, soll "-" angezeigt werden.

Aufruf: fZifferausBetrag(ZifferNr as integer) as integer ' Z.Bsp aus einem Abfragefeld

Ich habe schon mit den Funktionen Mid(), len(), str() probiert, krieg aber einfach nix auf die Reihe, v.a. wenn es nicht immer 2 Stellen nach dem Komma hat, funktioniert str in verbindung mit mid nich mehr.


Vielen Dank für eure Hilfe

Gruss
Weingeist

:)

 

Bist Du Dir sicher, dass das die optimale Vorgehensweise ist.
Kannst Du das nicht in einem Report entsprechend formatieren?

 

Hi

Danke schon mal!

Ne, eigentlich gefällts mir ja auch nicht, habe es auch anders probiert, aber wie kann ich

- Den Dezimal-Punkt weglassen
- Die Laufweite der Schrift einstellen

Zusatz: Ich habe es schon mit Courier New versucht, auch zuwenig abstand unter den Zeichen. Auch der Punkt vorhanden.

Gruss
Weigeist

 

Hi WeinGeist,

auch wenn's nicht gar so schön ist, kannst du ja mal versuchen, dein Feld "zu zerlegen":

Eintrag in das erste Feld deines rpt: mid(trim(Str([dblDeinFeld]));1;1)
Eintrag in das zweite Feld deines rpt: mid(trim(Str([dblDeinFeld]));2;1)
...

 

X
Vergiss lieber den Beitrag von eben.

@Mods: Bitte löschen.

 

\@Arne Dieckmann
Hab ihn vergessen *wink.gif*

@RUK
Hatte ich ähnlich probiert, das Problem ist nur:
Wenn eimal keine dezimalstelle vorhanden ist, funzt da nix mehr. Ausserdem muss ich die Länge noch integrieren, nicht alle ZAhlen sind ja gleich lang. Mid beginnt ja am Anfang oder? Also von links nach rechts?

Gibt leider riesige Funktionen...

 

Was hälst Du davon die Daten an eine Wordvorlage weiterzugeben um diese unsichtbar zu drucken?
Hier hast Du bestimmt eintsprechende Formatierungsmöglichkeiten.

 

Ohhh, haste grad nen gescheites Word-Print-Modul rumliegen?

--> Bei meinem gibt es immer Probleme mit dem Standardprinter setzen. Wird Word nicht sauber geschlossen, nimmt er für den nächsten job wieder diesen, owohl ich einen anderen als Standard gesetzt habe --> (Word ist aber nimmer sichtbar). Wäre für Serienbriefe mit Unterschiedlichem Titelblatt etc. ganz Praktisch. Habe leider noch nix gescheites gefunden, was ich selber programmiert hatte funzt auch nicht zu 100%.


Soweit so gut, aber die EZ-Scheine sollen automatisch nach der Rechnung kommen, wenn ich 30 Stück aufs mal loslasse, würgt der sicher irgend etwas rum...
Ist verzwickt

Thx Weingeist

 

Hi Leute

So ich habe mal was zusammengebastelt...
Ist nicht so hübsch und elendiglich lang, aber was solls.

Könnte jemand die Funktion auf einem langsamen Rechner testen? Mein 3,06er macht dies schon wie der Blitz, aber sie soll auch auf 400-600er Rechner schnell sein. Thx

Gruss und Danke für eure Hilfe
Weingeist

Code
Code:

 

Wenn jemand Verbesserungsvorschläge hat, nur her damit. *wink.gif*

Thx
Weingeist

 

Folgende Routine passt Zahlen mit einer/keiner Kommastelle an.

 

Hallo Landsmann

Anbei findest Du noch meine Variante (Formular EZ) bzw. Hilfreiche Zeichenfolgenmanipulationsfunktionen (was für ein Wort ;-))

Ich hoffe du kannst was draus gebrauchen...

Übrigens, die Texte auf den Einzahlungsscheine müssen in OCR A oder OCR B gedruckt sein. Ansonsten kann die POST die Werte nicht richtig lesen.

Gruss

 

Hallo

Danke für die Beispiele. *Smilie

Aber der EZ-Schein funktiniert bei mir ned, macht irgendwie komische Ergebnisse. Ich kann sie jedenfalls ned nachvollziehen. *wink.gif*

Meine Variante funktioniert jetzt eigentlich sehr gut und kann sehr einfach angewendet werden. Vielleicht könnte man es mit einer Schleife noch vereinfachen, aber vorläufig bleibt es mal so.

Im Moment habe ich das problem, das mir die Dinger im Drucker stecken bleiben! "GRUMMMMMMEL" So ein schmarrn! Danach gibts so nen Fehlermeldung wie: Bitte geben sie ein anderes Format an.... (im Drucker) Tolls! Hoffe ich krieg das noch hin!

Gruss und Thx
Urs

 

Wegen einer Anfrage per PN für eine Beispiel-DB anbei eine deutlich sinnvollere und einfachere Variante als die alte aus 2003:

Es braucht eine Textfeld Namens 'txtBetrag' im Bericht welches den gewünschten Betrag enthält, kann man ausblenden.
Man kann den Code natürlich auch in einen anderen Bereich als Detail, zbsp. Fuss ablegen.

Die Starthöhe Y muss man natürlich anpassen, ebenso vielleicht xAkt (Ich bin von der Rechten seite des linken Feldes des Empfangsscheins ausgegangen) sowie einem Linken Rand im Bericht von 0.5cm.

Code: