Hallo Zusammen,
ich habe gerade Hilfe gefunden und konnte das Problem nun beheben.
Ich sollte einfach bevor ich die Werte übergebe, lesend auf den Wert zugreifen.
a = oTaskItem.ActualWork
oTaskItem.ActualWork = 120
oTaskItem.Resources = "Ressourcen"
oTaskItem.TotalWork = 600
oTaskItem.Companies = "Firma"Somit kann ich mein Projekt nun abschließen.
Vielen Dank noch mal.
Gruß Sascha
Hallo Jens,
das habe ich auch schon versucht, jedoch ohne Erfolg. Ich finde es halt
komisch, weil die Werte, die nicht funktionieren alle auf der zweiten
Seite sind, wenn man manuell eine Aufgabe erstellt. Beim Auslesen meiner
Aufgaben habe ich es mal debuggt und konnte mir alle Werte anschauen
von einem manuell angelegten Testeintrag. Habe sie dann versucht zu
ändern, was aber auch nicht funktioniert hat. Vermutlich muss ich
irgendwas beachten. Vielleicht beim Speichern, aber ich komme einfach
nicht dahinter.
Falls ich es mal schaffe, melde ich mich dann noch mal. 
Gruß Sascha
Ich habe nun noch mal den Test gemacht, ob ich die Werte im nachhinein ändern kann. Leider hat das auch nicht geklappt. Aber beim auslesen habe ich herausbekommen, dass die Werde für die Zeit in Minuten gespeichert werden.
Ich warte dann mal, vielleicht hat ja jemand die zündende Idee für mich.
Gruß Sascha
Hallo Teardrop,
vielen Dank für die Hilfe. LocalAdressBook hat mir sehr weiter geholfen. Habe dies in der DvAPI Hilfe eingetippt und gemerkt, ich hatte den Code die ganze Zeit schon vor der Nase. Nungut, mein Code sieht nun in etwa so aus:
oApp = CreateObject("DVOBJAPILib.DvISEAPI")
oApp.LoginOptions = DvApi32.DvLoginOptions.DvLoginForceAsyncDuplicate
oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchiveUserRoot)
Dim _UserName as String = "Name xy"
For Each oAddr In oAccount.LocalAddressBook
If LCase(oAddr.displayname) = LCase(_UserName) Then
oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalToDo)
oTaskItem = oArchive.NewItem(DvApi32.DvItemTypes.DvTaskItem)
oTaskItem.Subject = "New Task"
....
....
oTaskItem.Save(Nothing, oAddr)
oAccount.Logoff()
end if
nextFalls der Benutzer dann die Rechte auf den Ordner des anderen hat, dann wird die Aufgabe auch erstellt.
Nun bleibt aber weiterhin für mich das Problem mit einigen Werten, die ich nicht setzen kann, wie z.B.:
oTaskItem.ActualWork = 10 'Integer
oTaskItem.TotalWork = 20 'Integer
oTaskItem.Resources = "Ressourcen" 'String
oTaskItem.Companies = "Firmen" 'String
oTaskItem.DateCompleted = "10.10.2012 10:00:00" 'ObjectKann man diese Werte bei der Erstellung vielleicht gar nicht mit übergeben sondern nur nachträglich eintragen ?
Wober ich mir nicht mehr sicher bin, ob ich es irgendwann mal geschafft haben den ein oder anderen Wert zu setzen. Es kam mir so vor als hätte ich die Firma mal eingetragen bekommen. Irgendwie komisch.
In der Hilfe gibt es Beispielcode, wo diese Werte gesetzt werden.
Archive* pArchive = NULL;
FormattedText* pFText = NULL;
Addresses
*pAddresses = NULL;
TaskItem* pTaskItem = NULL;
VARIANT vType, vEmpty;
vEmpty.vt = VT_EMPTY;
vType.vt = VT_EMPTY;
if (SUCCEEDED
(pAcc->GetSpecialArchive (DvArchivePersonalToDo,
&pArchive)))
{
if (SUCCEEDED (pArchive->NewItem(DvTaskItem,
(IDispatch**)&pTaskItem)))
{
VARIANT vStartDate, vEndDate;COleDateTime dateTime;
vStartDate.vt = VT_DATE;
vEndDate.vt = VT_DATE;
dateTime = dateTime.GetCurrentTime();
vStartDate.date = dateTime.m_dt;
dateTime.SetDateTime (dateTime.GetYear (),
dateTime.GetMonth (), dateTime.GetDay ()+2, 17,30,00);
vEndDate.date = dateTime.m_dt;
pTaskItem->put_Subject(L"Task");
pTaskItem->put_KeepUpdatedCopy(VARIANT_TRUE);
pTaskItem->put_StatusReportOnCompletion(VARIANT_TRUE);
pTaskItem->put_ActualWork (2);
pTaskItem->put_Companies (SysAllocString (L"Company one, Company two"));
pTaskItem->put_StartTime (vStartDate);
pTaskItem->put_DueTime (vEndDate);
pTaskItem->put_Percentage (10);
pTaskItem->put_Resources (SysAllocString (L"Resources"));
pTaskItem->put_Viewed (VARIANT_FALSE);
pTaskItem->put_TaskStatus(1);
if
(SUCCEEDED
(pTaskItem->get_BodyText(&pFText)))
{
pFText->put_PlainText(L"Task for Task");
pFText->Release ();
}
if (SUCCEEDED (pTaskItem->get_Recipients(&pAddresses)))
{
VARIANT
vAddress, vDisplay, vType;
long index;
vAddress.vt = VT_BSTR;
vDisplay.vt = VT_BSTR;
vType.vt = VT_EMPTY;
vAddress.bstrVal = (L"thomas.tobit@tobit.com");
vDisplay.bstrVal = (L"DisplayName");
pAddresses->Add(vAddress, vDisplay, vType, &index);
pAddresses->Release
();
}
pTaskItem->Send(vType, vEmpty);
pTaskItem->Release();
}
pArchive->Release
();
}Hat vielleicht jemand noch einen Tipp für mich ?
Danke und Gruß
Sascha
Hallo, dies ist mein erster Eintrag hier im Forum, also bitte ich um ein wenig Nachsicht.
Ich möchte ein Programm schreiben, welches im David InfoCenter FX Aufgaben erstellt.
Soweit habe ich mein Programm auch schon fertig, dass es bei mir im
Verzeichnis die Aufgabe ablegt, nun möchte ich allerdings Aufgaben für
andere Benutzer erstellen können. Diese kann ich mittels
oArchive = oAccount.ArchiveFromID("\\server\david\archive\user\10000000\in")auch umsetzen, aber wie finde ich die ID der entsprechenden Benutzer heraus, damit ich die IDs nicht immer raussuchen muss ?
Gibt es eine Möglichkeit, dass ich nicht manuell eine Liste pflegen muss ?
Derzeit sieht mein Code wie folgt aus:
Dim oApp As DvApi32.IApplication
Dim oAccount As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oTaskItem As DvApi32.TaskItem
oApp = CreateObject("DVOBJAPILib.DvISEAPI")
oApp.LoginOptions = DvApi32.DvLoginOptions.DvLoginForceAsyncDuplicate
oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalToDo)
oTaskItem = oArchive.NewItem(DvApi32.DvItemTypes.DvTaskItem)
oTaskItem.StartTime = DateAdd("h", 1, Now)
oTaskItem.DueTime = DateAdd("h", 2, Now)
oTaskItem.Subject = "Testeintrag"
oTaskItem.Percentage = CLng(0)
oTaskItem.Reminder = ""
oTaskItem.Companies = "Firma XY"
'oTaskItem.Resources = ""
oTaskItem.KeepUpdatedCopy = True
oTaskItem.StatusReportOnCompletion = FALSE
oTaskItem.TaskStatus = 0
oTaskItem.Viewed = False
oTaskItem.Save(Nothing, oAccount.User.Name)Falls jemand weiß, wieso ich bei "oTaskItem.Resources" keinen String übergeben kann, immer raus mit der Sprache.
Ich bin über jeden Hinweis sehr dankbar.
Gruß