habe ein Problem mit dem Wunsch eines Kunden nach einem Eurozeichen auf einem Ausdruck.
Das Feld in dem der Betrag steht, ist zu klein für die drei Zeichen "EUR", weshalb dort ein "€" hin soll.
Habe es erfolglos mit chr(128) und diversen anderen Zahlen versucht.
Dann habe ich folgendes kleines Programm geschrieben...
Code: Alles auswählen
private zahl := 001
private zeile := 10
private spalte := 01
*set printer to KY04
*set device to printer
do while .t.
@ zeile, spalte say chr(zahl)
zeile ++
zahl ++
if zeile = 30
spalte ++
zeile = 10
endif
if zahl = 999
RETURN
endif
loop
enddo
Code: Alles auswählen
ìí╡╔▌± )=Qey
Äó╢╩▐≥ *>Rfz
Åú╖╦▀≤ +?Sg{
Éñ╕╠α⌠ ,@Th|
æÑ╣═ß⌡ -AUi}
ƪ║╬Γ÷ .BVj~
ôº╗╧π≈ /CWk^?
ö¿╝╨Σ° 0DXlÇ
ò⌐╜╤σ∙ 1EYmü
û¬╛╥µ· 2FZné
ù½┐╙τ√ 3G[oâ
ÿ¼└╘Φⁿ 4H\pä
Ö¡┴╒Θ² !5I]qà
Ü«┬╓Ω■ "6J^rå
¢»├╫δ #7K_sç
£░─╪∞ $8L`tê
¥▒┼┘φ %9Mauë
₧▓╞┌ε &:Nbvè
ƒ│╟█∩ ';Ocwï
á┤╚▄≡ (<Pdxî
Wenn ich das ganze auf den Drucker schicke, kommt irgendwo...
¡
¢
£
€
¥
Š
§
š
©
ª
«
¬
®
¯
°
±
²
³
Ž^L
Nach Eingrenzen des Zahlenkreises habe ich so herausgefunden, dass ich mit chr(164) das Eurozeichen hinbekomme.
Dann flux eine private Variable "d_eur := chr(164)" angelegt und im Programmablauf eingefügt:
Code: Alles auswählen
@ prow(), 0 say d_p5 + eval( q_mvg, xi ) + d_eur + d_c11 + d_cr
setprc( 0, 0 )
Hat jemand eine Idee, was ich da nun wieder falsch mache?
Bin wie immer für jedweden Tipp dankbar.
Grüße
Jojo