Meldung bei Feldvalidierung

[Axel]

Wenn der Anwender versucht ein Dokument zu speichern, bei dem die Pflichtfelder nicht alle ausgefüllt sind bekommt er eine Meldung angezeigt.

Es wurden nicht alle Felder korrekt ausgefüllt und das Feld darf nicht leer sein. Ja,aber welches Feld denn?

Für den User ist diese Meldung eigentlich mehr verwirrend als hilfreich. Kann man der Validierung beibringen zu sagen welches Feld es betrifft?


Axel

[Thomas Schulte]

Kann man ...

[eknori]

Thomas, ich habe da gerade mal debugged. Er geht das komplette Config Doc durch und läuft danach in den Fehler

[Thomas Schulte]

Dei Einstellungen dafür sind eigentlich im Sprachdokument FieldNameTranslations zu machen.

[Thomas Schulte]

Irgendwie scheint er die Einstellungen da nicht mitzuziehen. Noch ein Punkt auf der Liste.

[Axel]

Also brauch' ich an der Stelle im Moment nicht weitersuchen.

Ist schon ein Zeitpunkt für das Update bekannt? Muss nicht auf den Tag genau sein, nur so als Anhaltspunkt.


Axel
 

[Thomas Schulte]

Fehler gefunden. Das liegt in der Lib.appl.functions an der Funktion MessageslistitemNotExists ...
Die Komplette Funktiojn durch das hier ersetzen:

Code

Function MessageslistitemNotExists(messageslist List As String, messagedescriptor As String, messagescounter As Integer  )  As String 
	Dim x As Variant
	' change messagescounter to 1 if zero or negative because there must be at last one element
	If messagescounter < 1 Then messagescounter = 1
	
	'check different keys if not available	
	If Iselement(messageslist(messagedescriptor)) Then
		messageslistitemNotExists = messageslist(messagedescriptor)
		Exit Function		
	End If
	If Iselement(messageslist(Ucase$(messagedescriptor))) Then
		messageslistitemNotExists = messageslist(messagedescriptor)
		Exit Function		
	End If
	If Iselement(messageslist(Lcase$(messagedescriptor))) Then
		messageslistitemNotExists = messageslist(messagedescriptor)
		Exit Function		
	End If
	For i = 0 To messagesCounter-1
		If messageslistitemnotexists = "" Then
			messageslistitemnotexists = messagedescriptor
		Else
			messageslistitemnotexists = "~" + messagedescriptor
		End If
	Next
		'Msgbox messageslistitemNotExists
End Function

[Axel]

Super!

Funktioniert jetzt einwandfrei.

Danke für die schnelle Lösung.


Axel

[eknori]

Ist schon ein Zeitpunkt für das Update bekannt?

Was meinst du , Thomas. Schaffen wir das zum Wochenende ?

[Axel]

Ähmm Jungs, ich will euch nicht hetzen.


Axel

[Thomas Schulte]

Ist schon ein Zeitpunkt für das Update bekannt?

Was meinst du , Thomas. Schaffen wir das zum Wochenende ?

Wollten wir ja. Zur Lotusphere ....

Ja ich denke schon. Das sind alles nur Rest arbeiten. Da wir am System nichts ändern und nur "Abweichungen" ausbügeln und graphisch etwas aufpeppen. JA.