PICTURE für IBAN [erledigt]

[AUGE_OHR]

hi,

ich habe für DE als PICTURE

Code: Alles auswählen

'@S25 !!99999999999999999999999999999999'

und analog für andere Länder jeweils die passende PICTURE.
nun frage ich mich ob man das nicht eleganter lösen könnte als mit einer riesigen DO CASE Abfrage ?

Code: Alles auswählen

CASE cCiLaenderCode = "BE" ; cCiIban := Space(16)
CASE cCiLaenderCode = "DK" ; cCiIban := Space(18)
CASE cCiLaenderCode = "DE" ; cCiIban := Space(22)
CASE cCiLaenderCode = "FR" ; cCiIban := Space(27)
CASE cCiLaenderCode = "LI" ; cCiIban := Space(21)
CASE cCiLaenderCode = "LU" ; cCiIban := Space(20)
CASE cCiLaenderCode = "NL" ; cCiIban := Space(18)
CASE cCiLaenderCode = "AT" ; cCiIban := Space(20)
CASE cCiLaenderCode = "SE" ; cCiIban := Space(24)
CASE cCiLaenderCode = "CH" ; cCiIban := Space(21)

[Jan]

Hallo Jimmy,

wenn es um Ausdrucke auf Rechnungen etc. geht: Bitte denke daran, das der Kunde oder Lieferant ein solches Zahlenungetüm sehr schlecht lesen kann. Man sollte die unterteilen, wie das schon bei den Kontonummern und BLZ üblich ist. Ich habe vielfach gesehen: Die beiden letzten Stellen separat, und dann in 4er-Schritten nach vorne arbeiten. Ob das so korrekt ist weiß ich nicht. Aber sinnvoll ist das allemal. Vor Allem z. B. bei den auffüll-Nullen zwischen BLZ und Kontonummer.

Jan

[Wolfgang Ciriack]

Es sollten immer 4er-Blöcke von vorne sein, da bei DE 22 Stellen sind, bleiben hinten 2 übrig, also für DE z.B.
PICT '!!99 9999 9999 9999 9999 99'.

[brandelh]

Hallo Jimmy,
mach doch eine Funktion mit Array ... etwa so

Code: Alles auswählen

function getPictIBAN(cLand)
   local x, cTxt := "*** IBAN ???? ***"
   static aIBAN := nil
   DEFAULT cLand := "??"
   cLand := left(upper(cLand+"??"),2)
   aIBAN := { {"DE",22},.... }
   x     := aScan(aIBAN, {|x| x[1]==cLand} ) 
   if x > 0
      x := aIBAN[x,2] + int(x/4)
      // wenn möglich und gewünscht mit Land voran, das könnte aber Eingabeprobleme geben ...
      cTxt := left(cLAND+"99 "+Replicate("9999 ",10),x) 
      // diese geht auf jeden Fall und ist flexibler
      cTxt := left("!!99 "+Replicate("9999 ",10),x)
   endif
return cTxt

[AUGE_OHR]

mach doch eine Funktion mit Array ... etwa so

Code: Alles auswählen

      cTxt := left(cLAND+"99 "+Replicate("9999 ",10),x) 
      // diese geht auf jeden Fall und ist flexibler
      cTxt := left("!!99 "+Replicate("9999 ",10),x)
return cTxt

hm ... mit REPLICATE einen Picture String zusammenstellen ... ja das wäre eine Idee, DANKE.