Autor Thema: Create Document  (Gelesen 1161 mal)

Offline bikerboy

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.155
  • Geschlecht: Männlich
Create Document
« am: 06.10.06 - 10:11:57 »
Hi Leute ich habe ein Problem mit der Create Methode, aber erstmal gibt es ein bisschen Code

Code
For i = 1 To intDurchlaeufe
		
		Call dtPayableDate.AdjustMonth(intStep )
		
		Set newDoc = db.CreateDocument
		newDoc.personName = strPersonName
		newDoc.amount = curAmount
		newDoc.once = strOnce
		newDoc.repeat = strRepeat
		newDoc.kindofCost = strKindOfCost
		newDoc.payableDate = dtPayableDate.localTime
		newDoc.Form = "PersonForecast"
		newDoc.amountsuffix = strSuffix
		
		Call newDoc.Save(True,False)
	Next

Also wie ihr seht haben wir hier eine Schleife die mir schön Documente erzeugt.

Mein Problem ist, dass sie keine FeldEigenschaften setzt. Also zum Beispiel bei :

"dtPayableDate" würde ich gerne ein Datumsfeld erzeugen oder bei
"curAmount" ein Numerisches Feld.

Deklariert sind diese Variablen wie folgt :

Code
Dim dtPayableDate As NotesDateTime
Dim strPersonName As String
Dim strLifetime As String
Dim strRepeat As String
Dim strOnce As String
Dim strKindofCost As String
Dim curAmount As Variant	

hoffe ihr könnt mir weiterhelfen.

Ich bedanke mich schon mal für eure Hilfe
Robert Kreutzer

Anwendungsentwicklung

"Jeder Idiot kann was kompliziertes bauen, es Bedarf eines Genie für etwas einfaches"

Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Re: Create Document
« Antwort #1 am: 06.10.06 - 10:19:53 »
Hast Du die Datentype der Felder im Form "PersonForecast", welches Du im Designer angelegt hast, auch entsprechend angegeben?
HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Glombi

  • Gast
Re: Create Document
« Antwort #2 am: 06.10.06 - 10:21:51 »
Anstelle von
newDoc.payableDate = dtPayableDate.localTime
ein
newDoc.payableDate = dtPayableDate.LSLocalTime

In curAmount muss eine Zahl stehen - leider sehe ich nicht wo der Wert herkommt.

Du kannst aber auch
newDoc.amount = CCur(curAmount)

verwenden.


Andreas

Offline bikerboy

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.155
  • Geschlecht: Männlich
Re: Create Document
« Antwort #3 am: 06.10.06 - 10:44:18 »
@ m3

Danke für den Tip mit der Maske. Ich hatte bis jetzt einfach ne andere Maske genommen. -> Anfängerfehler

@Glombi

Der Tip für die Zeit war super, das klappt schon mal, aber bei der Konvertierung schmeisst er mir nen Typemismatch raus.... ärgerlich aber war...
Robert Kreutzer

Anwendungsentwicklung

"Jeder Idiot kann was kompliziertes bauen, es Bedarf eines Genie für etwas einfaches"

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz