Abhängige Zeilen Formatierung auf Datenband

If(DocumentRow("RowRowItems.U_DomArt")= 1) Then
AText1.Value= "" & DocumentRow("DescML")+ vbcrlf + LD.MultiLine(GetData("B1_Data.BusinessPartner.U_Domain")) & ""
Else
AText1.Value= "" & DocumentRow("DescML") & ""
End If

und AText1 nicht auf bold stellen, sondern auf normal.

Dann müsste er den obererb Bereich Fett drucken, den Rest normal.

Gruß

Manuel
Elisabeth Schluga
Hallo,

ja, das ist genau was ich will! Sieht auch einfacher aus, als ich dachte.
Habe das natürlich sofort ausprobiert - nur leider funktioniert das nicht!

Wenn ich das im "Generate Script"-Bereich einfüge, dann bekomme ich die Fehlermeldungen lt. Anhang. "
" wird dort nicht erkannt.
Nehme ich dieses in eckiger Klammer raus, bekomme ich nur die Meldungen in rot. Das "" usw. wird nicht erkannt.

Ich habe auch schon versucht das im Texteditor zu machen: Dann wird nur "
" ausgegeben und der Rest bleibt weg .. was ja eigentlich logisch ist, weil das Script als Text übernommen wird.

Was kann ich noch versuchen?

Trotzdem herzlichen Dank
Elisabeth

Attachment
[url=http://www.coresystems.ch/wp-content/../wp-content/forum-image-uploads/elisabethpolzhofer/Problem AdvancedText.bmp]Problem AdvancedText.bmp[/url]
Manuel Marhold
Hi Elisabeth,

das  "
" darf da gar nicht rein, ich hatte vergessen den tag zu schließen.

Hast du das "
" mal komplett entfernt?

Gruß

Manuel
Elisabeth Schluga
Ja habe ich komplett entfernt!
dann kommen die 2 Meldungen dich im Screenshot rot markiert hatte!

Die Tags werden anscheinend nicht erkannt!

LG
Manuel Marhold
Hi Elisabeth,

versuche mal:

If(DocumentRow("RowRowItems.U_DomArt")= 1) Then
AText1.Text= "" & DocumentRow("DescML")+ vbcrlf + LD.MultiLine(GetData("B1_Data.BusinessPartner.U_Domain")) & ""
Else
AText1.Text= "" & DocumentRow("DescML") & ""
End If


Falls dies wieder einen Fehler auftritt: hast du noch mehr in dem GenerateScript stehen? Poste sonst nochmal den gesamten Inhalt des GenerateScript.

Gruß

manuel
Elisabeth Schluga
Hallo Manuel,

das ist der gesamte Inhalt des Generate Script!
Ich bin jetz aber nochmal alles schrittweise durchgegangen.

Das Problem ist: das AdvancedTextField erkennt LD.Mulitline.. usw. gar nicht! Das heißt das Advanced Textfeld hat immer nur eine Zeile und das was ich dann eigentlich erst formatieren möchte kommt gar nicht mehr.

Was kann man da machen? Kann ich das umgehen?
Ich habe nun nochmal den StandardBericht (DINLayout) herangezogen und 2 Textfelder drinn gemacht ohne Formatierung!
Das Advanced Textfeld kann mit dem selben GenerateScript nur das Ergebnis von DocumentRow("DescML") anzeigen. Das normale Textfeld zeigt mir alles sauber, so wie ich es wünsche.
Erst wenn das funktioniert, könnte man über die Formatierung nachdenken.

Die beschriebenen Fehler lt. Screenshot kommen in unregelmäßigen Abständen .. das habe ich noch nicht nachvollziehen können, wann das wirklich auftritt.

Muss ich mein Vorhaben jetz aufgeben?
Manuel Marhold
Hi Elisabeth,

mist, das hätte mir auffallen müssen.
Den Zeilenumbruch musst du bei einer ATB ebenfalls in html-code erstellen, also mit "
".

Hier nochmal der neue Code:

If(DocumentRow("RowRowItems.U_DomArt")= 1) Then
AText1.Text= "" & DocumentRow("DescML")+ "
" + GetData("B1_Data.BusinessPartner.U_Domain").Replace(vbcrlf,"
") & ""
Else
AText1.Text= "" & DocumentRow("DescML") & ""
End If


Das ".Replace(vbcrlf,"
")" ersetzt in einem Text, der aus dem UDF "U_Domain" kommt alle vbcrlf durch den html-Zeilenumbruch "
". Hier muss du noch schauen, wie der Text in dem UDF abgespeichert wird. Der Coresuite-Editor speichert die Zeileumbrüche, wenn sich das nicht geändert hat, schon im Format "
" ab. Wenn du den SAP-Editr nutzt müsste ein "Chr(10)" anstatt des "vbcrlf" reichen. Das musste dann halt testen. Also einmal mit dem "vbcrlf", einmal mit "Chr(10)".

Gruß

Manuel
Elisabeth Schluga
Hallo Manuel,

Danke! 
Jetz kommen wir der Sache schon näher... Nein eigentlich funktionierts jetzt schon.  :-? Das einzige Problem das ich noch hatte ist, dass das Replace des Zeilenumbruch nicht funktioniert. Dies erwirkte keinen Effekt: 

GetData("B1_Data.BusinessPartner.U_Domain").Replace(vbcrlf,"
") 

Der Text blieb trotzdem in einer Zeile stehen.
Ich habe nun den Text so geändert, dass ich als Trennzeichen den Beistrich verwende. Dann habe ich die Codezeile auf 
GetData("B1_Data.BusinessPartner.U_Domain").Replace(",","
")  abgeändert und bereits den gewünschten Effekt erzielt.

Weißt du vielleicht noch woran das liegen könnte? Ansonsten werde ich einfach eine Textänderung mit Trennzeichen Beistrich veranlassen und dies auch beim Kunden umsetzen.

HERZLICHEN DANK - Ich habe wieder viel gelernt!
Manuel Marhold
Hi Elisabeth,

wie oben bereits geschrieben liegt es daran, wie der Zeilenumbruch erstellt wird. Änder das "vbcrfl" mal in "Chr(10)" ab.

Gruß

Manuel
Elisabeth Schluga
:oops:  nö is noch nicht das Richtige.
Aber solang es mit allen anderen Zeichen funktioniert, gibts ja eine Lösung!

Werde euch auf alle Fälle weiterempfehlen! Und danke für die rasche Hilfe!
Manuel Marhold
Hi Elisabeth,

hmm dann könnte das noch "Chr(13) & Chr(10)" sein, wobei das eigentlich durch das "vbcrfl" dargestellt wird. Du muss das ganze nat. ohne die "" eingeben.

hehe, gehöre nicht zum team von coresystems.. aber es wäre trotzdem gerechtfertigt.

Gruß

Manuel