Problem bei Anredescript bei Auftragsformular.

Beantwortet

Folgen

Jan Stieler

3. Dezember 2013 21:15

Hallo,

ich versuche mein Auftragsformular noch in der Ansprache zu perfektionieren.
Nun habe ich das Problem das mein Ansprachescript nicht funktioniert.

' Anschreiben
if ( AUF_Anrede <> "" ) DrawText(AUF_Anrede, links1, hoehe, LAYOUTWIDTH, 50) set hoehe to hoehe + 80 elseif StrComp("Frau" , AUF_Anrede) = 1
DrawText("Sehr geehrte " + AUF_ADR_RaAnrede + " " + AUF_ADR_RaNachname + "," , links1, hoehe, LAYOUTWIDTH, 50) set hoehe to hoehe + 80
elseif StrComp("Herr" , AUF_Anrede) = 1
DrawText("Sehr geehrter " + AUF_ADR_RaAnrede + " " + AUF_ADR_RaNachname + "," , links1, hoehe, LAYOUTWIDTH, 50)
set hoehe to hoehe + 80 elseif StrComp("Hr." , AUF_Anrede) = 1
DrawText("Sehr geehrter " + AUF_ADR_RaAnrede + " " + AUF_ADR_RaNachname + "," , links1, hoehe, LAYOUTWIDTH, 50)
set hoehe to hoehe + 80 elseif StrComp("Fr." , AUF_Anrede) = 1
DrawText("Sehr geehrte " + AUF_ADR_RaAnrede + " " + AUF_ADR_RaNachname + "," , links1, hoehe, LAYOUTWIDTH, 50)
set hoehe to hoehe + 80 elseif StrComp(" " , AUF_Anrede) = 1
DrawText("Sehr geehrte Damen und Herren,", links1, hoehe, LAYOUTWIDTH, 50)
set hoehe to hoehe + 80 endif

scheinbar kann das Auftragsformular nichts mit = 1 anfangen.
Was mache ich falsch, ich muss doch darauf überprüfen ob entsprechende StrComp übereinstimmt.

0

• 

  Holger Büttner 4. Dezember 2013 10:40

  Sehr geehrter Herr Stieler,

  schauen Sie sich bitte mal den Code im angehangene Textdokument an, Ihre Lösung ist hier funktionsfähig. Wir schlagen Ihnen aber vor das Problem über das Geschlecht der Adresse zu lösen.

  0

  Aktionen für Kommentare Permalink
• 

  Jan Stieler 4. Dezember 2013 17:33

  Hallo Herr Büttner,

  vielen Dank für Ihre Hilfe. Ich habe jetzt die Lösung mit dem Geschlecht der Adresse gewählt und um ein If ergänzt.
  Damit kann man über die Eingabemaske die Adressvorgaben überschreiben.

  if ( AUF_Anrede <> "" )
  DrawText(AUF_Anrede, links1, hoehe, LAYOUTWIDTH, 50)
  set hoehe to hoehe + 80
  elseif ( AUF_ADR_RaGeschlecht = "w" )
  DrawText("Sehr geehrte " + AUF_ADR_RaAnrede + " " + AUF_ADR_RaNachname + "," , links1, hoehe, LAYOUTWIDTH, 50)
  set hoehe to hoehe + 80
  elseif ( AUF_ADR_RaGeschlecht = "m" )
  DrawText("Sehr geehrter " + AUF_ADR_RaAnrede + " " + AUF_ADR_RaNachname + "," , links1, hoehe, LAYOUTWIDTH, 50)
  set hoehe to hoehe + 80
  elseif ( AUF_ADR_RaGeschlecht = "" )
  DrawText("Sehr geehrte Damen und Herren,", links1, hoehe, LAYOUTWIDTH, 50)
  set hoehe to hoehe + 80
  endif

  Vielleicht hilft es ja auch noch jemand anderem.

   

  Viele Grüße

  0

  Aktionen für Kommentare Permalink

Bitte melden Sie sich an, um einen Kommentar zu hinterlassen.