Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: headshrinker am 08.11.06 - 08:46:44

Titel: Type mismatch beim speichern
Beitrag von: headshrinker am 08.11.06 - 08:46:44

Hallo Leute,

habe mir aus der Sandbox einen Sequentiellen Zähler geholt und soweit in meine DB eingebaut.

http://www-10.lotus.com/ldd/sandbox.nsf/ByApplicationName/5e0be790b7fb7b6f852569ba005078aa?OpenDocument

Jetzt habe ich folgendes Problem. Wenn ich die Nummer generiere und dann speichere bekomme ich die Fehlermeldung "Type mismatch". Komme leider nicht weiter momentan.

Hier das Script welches im Button steht. call save & close manuell dazu geschrieben

Code

Sub Click(Source As Button)
	
	If Not uidoc.editmode Then uidoc.editmode = True
	
	uidoc.document.Number = GenerateSequentialNumber( profileNumberForm_Main$ )
	Call uidoc.save      
	Call uidoc.close
End Sub

Querysave:

Code

Sub Querysave(Source As Notesuidocument, Continue As Variant)
	
	If source.document.Number = ""  Then  source.document.Number  =  GenerateSequentialNumber( "Main" )
	
End Sub

Solltet Ihr noch mehr Angaben brauchen bitte kurz melden. Danke schonmal im voraus für Eure Hilfe.

Gruß Bernd

Titel: Re: Type mismatch beim speichern
Beitrag von: Axel am 08.11.06 - 08:53:45

Das klemmt mit Sicherheit im QuerySave-Event. Du musst bei der IF-Abfrage (0) einfügen. Außerdem was für ein Feldtyp ist den das Feld Number?


Sub Querysave(Source As Notesuidocument, Continue As Variant)
   
  If source.document.Number(0) = ""  Then  source.document.Number  =  GenerateSequentialNumber( "Main" )
   
End Sub


Axel

Titel: Re: Type mismatch beim speichern
Beitrag von: headshrinker am 08.11.06 - 09:03:02

Super. Das habe ich gar nicht gesehen.

Habe den Querysave so geändert (0) und es läuft.

_{Sub Querysave(Source As Notesuidocument, Continue As Variant)
If source.document.Number(0) = ""  Then  source.document.Number  = GenerateSequentialNumber( "Main" )
End Sub}


Danke für die schnelle Hilfe.

Gruß Bernd