Beiträge von christoph1982

Hallo,
jetzt funktionierts
ich hab vergessen den Feldern, wenn sie leer sind, einen Wert zuzuweisen.
Vielen Dank fuer die Hilfe.
Gruss Chris

Hier die nicht sehr schoene aber funktionierende Formel:
COND1:=@If(InstallDate1="";"";@If(InstallDate1>=@Adjust(@Now;-2;0;0;0;0;0));"1";"0");
COND2:=@If(InstallDateRetrofit1="";"";@If(InstallDateRetrofit1>=@Adjust(@Now;-2;0;0;0;0;0));"1";"0");

COND3:=@If(

((@If(@IsTime(LastU951);LastU951;@Date(1890;12;30)))>@Adjust(NewestDate;-2;0;0;0;0;0)&(@If(@IsTime(LastU951);LastU951;@Date(1890;12;30)))<NewestDate)|
((@If(@IsTime(LastU951_b);LastU951_b;@Date(1890;12;30)))>@Adjust(NewestDate;-2;0;0;0;0;0)&(@If(@IsTime(LastU951_b);LastU951_b;@Date(1890;12;30)))<NewestDate)|
((@If(@IsTime(LastAdvanced1);LastAdvanced1;@Date(1890;12;30)))>@Adjust(NewestDate;-2;0;0;0;0;0)&(@If(@IsTime(LastAdvanced1);LastAdvanced1;@Date(1890;12;30)))<NewestDate)|
((@If(@IsTime(LastAdvanced1_b);LastAdvanced1_b;@Date(1890;12;30)))>@Adjust(NewestDate;-2;0;0;0;0;0)&(@If(@IsTime(LastAdvanced1_b);LastAdvanced1_b;@Date(1890;12;30)))<NewestDate)|
((@If(@IsTime(LastPMDate1);LastPMDate1;@Date(1890;12;30)))>@Adjust(NewestDate;-2;0;0;0;0;0)&(@If(@IsTime(LastPMDate1);LastPMDate1;@Date(1890;12;30)))<NewestDate)|
((@If(@IsTime(LastPMDate1_b);LastPMDate1_b;@Date(1890;12;30)))>@Adjust(NewestDate;-2;0;0;0;0;0)&(@If(@IsTime(LastPMDate1_b);LastPMDate1_b;@Date(1890;12;30)))<NewestDate)|
((@If(@IsTime(InstallDatePackMove1);InstallDatePackMove1;@Date(1898;12;30)))>@Adjust(NewestDate;-2;0;0;0;0;0)&(@If(@IsTime(InstallDatePackMove1);InstallDatePackMove1;@Date(1898;12;30)))<NewestDate)|
((@If(@IsTime(InstallDatePackMove1_b);InstallDatePackMove1_b;@Date(1898;12;30)))>@Adjust(NewestDate;-2;0;0;0;0;0)&(@If(@IsTime(InstallDatePackMove1_b);InstallDatePackMove1_b;@Date(1898;12;30)))<NewestDate)
;"1";"0");

COND4:=(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND3="1"));
COND5:=(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND3="0"));

@If(
InstallDate1=""&
InstallDateRetrofit1=""&
LastU951="" &
LastU951_b=""&
LastAdvanced1=""&
LastAdvanced1_b=""&
LastPMDate1=""&
LastPMDate1_b=""&
InstallDatePackMove1=""&
InstallDatePackMove1_b="";"";
(COND1="1"|COND2="1");" New customer";
COND4;"Repeat customer";
COND5;"New customer";"")

Hallo,
ich habe folgende Formel um "New customer" und "Repaeat customer zu klassifizieren, die wuerde jetzt auch funktionieren.
Aber es erscheint immer ein Fehler wenn es ein New customer sein soll (FEHLER: Fuer Vergleichsoperatoren muessen zwei Werte desselben Datentyps angegeben werden, kann ich da nicht irgendetwas einbauen das wenn ein Fehler erscheint dann ist es ein New customer?
Ich hab das mal versucht mit
@iserror(COND4)="New customer";
@iserror(COND5)="New customer";
aber dies hat leider nicht funktioniert.

Ich hoffe Ihr koennt mir weiterhelfen, waere echt spitze...
Gruss
Chris

Hier ist die Formel die ich benutze:
COND1:=@If(InstallDate1="";"";@If(InstallDate1>=@Adjust(@Now;-2;0;0;0;0;0));"1";"0");
COND2:=@If(InstallDateRetrofit1="";"";@If(InstallDateRetrofit1>=@Adjust(@Now;-2;0;0;0;0;0));"1";"0");

COND3:=@If(
(InstallDateRetrofit1>@Adjust(NewestDate;-2;0;0;0;0;0)&InstallDateRetrofit1<NewestDate)|
(InstallDate1>@Adjust(NewestDate;-2;0;0;0;0;0)&InstallDate1<NewestDate)|
(LastU951>@Adjust(NewestDate;-2;0;0;0;0;0)&LastU951<NewestDate)|
(LastU951_b>@Adjust(NewestDate;-2;0;0;0;0;0)&LastU951_b<NewestDate)|
(LastAdvanced1>@Adjust(NewestDate;-2;0;0;0;0;0)&LastAdvanced1<NewestDate)|
(LastAdvanced1_b>@Adjust(NewestDate;-2;0;0;0;0;0)&LastAdvanced1_b<NewestDate)|
(LastPMDate1>@Adjust(NewestDate;-2;0;0;0;0;0)&LastPMDate1<NewestDate)|
(LastPMDate1_b>@Adjust(NewestDate;-2;0;0;0;0;0)&LastPMDate1_b<NewestDate)|
(InstallDatePackMove1>@Adjust(NewestDate;-2;0;0;0;0;0)&InstallDatePackMove1<NewestDate)|
(InstallDatePackMove1_b>@Adjust(NewestDate;-2;0;0;0;0;0)&InstallDatePackMove1_b<NewestDate);"1";"0");

COND4:=(((COND1="1"|COND2="1")|(COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND3="1"));
COND5:=(((COND1="1"|COND2="1")|(COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND3="0"));

@If(
InstallDate1=""&
InstallDateRetrofit1=""&
LastU951="" &
LastU951_b=""&
LastAdvanced1=""&
LastAdvanced1_b=""&
LastPMDate1=""&
LastPMDate1_b=""&
InstallDatePackMove1=""&
InstallDatePackMove1_b="";"";
@IsError(COND4)="New customer";
@IsError(COND5)="New customer";
COND4;"Repeat customer";
COND5;"New customer";"")

Hallo,
das hab ich schonmal versucht, aber dann muessen auch diese Felder gefuellt sein, ansonsten bekomm ich nen leeren Wert zurueck und bei mir sind meistens nur 2 felder gefuellt und somit bekomm ich fast immer nen leeren Wert zurueck. Kann man das nicht irgendwie anderst machen?
Vielen Dank fuer die Hilfe.
Gruss
Chris

COND1:=@If(InstallDate1="";"";@If(InstallDate1>=@Adjust(@Now;-2;0;0;0;0;0));"1";"0");
COND2:=@If(InstallDateRetrofit1="";"";@If(InstallDateRetrofit1>=@Adjust(@Now;-2;0;0;0;0;0));"1";"0");

COND3:=@If(
LastU951="";"";LastU951_b="";"";LastAdvanced1="";"";LastPMDate1="";"";InstallDatePackMove1="";"";
(LastU951_b>=@Adjust(LastU951;-2;0;0;0;0;0)&LastU951_b<=LastU951)|
(LastAdvanced1>=@Adjust(LastU951;-2;0;0;0;0;0)&LastAdvanced1<=LastU951)|
(LastPMDate1>=@Adjust(LastU951;-2;0;0;0;0;0)&LastPMDate1<=LastU951)|
(InstallDatePackMove1>=@Adjust(LastU951;-2;0;0;0;0;0)&InstallDatePackMove1<=LastU951);"1";"0");

COND5:=@If(
LastU951="";"";LastAdvanced1_b="";"";LastAdvanced1="";"";LastPMDate1="";"";InstallDatePackMove1="";"";
(LastAdvanced1_b>=@Adjust(LastAdvanced1;-2;0;0;0;0;0)&LastAdvanced1_b<=LastAdvanced1)|
(LastU951>=@Adjust(LastAdvanced1;-2;0;0;0;0;0)&LastU951<=LastAdvanced1)|
(LastPMDate1>=@Adjust(LastAdvanced1;-2;0;0;0;0;0)&LastPMDate1<=LastAdvanced1)|
(InstallDatePackMove1>=@Adjust(LastAdvanced1;-2;0;0;0;0;0)&InstallDatePackMove1<=LastAdvanced1)
;"1";"0");

COND7:=@If(
LastU951="";"";LastPMDate1_b="";"";LastAdvanced1="";"";LastPMDate1="";"";InstallDatePackMove1="";"";
(LastPMDate1_b>=@Adjust(LastPMDate1;-2;0;0;0;0;0)&LastPMDate1_b<=LastPMDate1)|
(LastU951>=@Adjust(LastPMDate1;-2;0;0;0;0;0)&LastU951<=LastPMDate1)|
(LastAdvanced1>=@Adjust(LastPMDate1;-2;0;0;0;0;0)&LastAdvanced1<=LastPMDate1)|
(InstallDatePackMove1>=@Adjust(LastPMDate1;-2;0;0;0;0;0)&InstallDatePackMove1<=LastPMDate1)
;"1";"0");

COND9:=@If(
LastU951="";"";InstallDatePackMove1_b="";"";LastAdvanced1="";"";LastPMDate1="";"";InstallDatePackMove1="";"";
(InstallDatePackMove1_b>=@Adjust(InstallDatePackMove1;-2;0;0;0;0;0)&InstallDatePackMove1_b<=InstallDatePackMove1)|
(LastU951>=@Adjust(InstallDatePackMove1;-2;0;0;0;0;0)&LastU951<=InstallDatePackMove1)|
(LastAdvanced1>=@Adjust(InstallDatePackMove1;-2;0;0;0;0;0)&LastAdvanced1<=InstallDatePackMove1)|
(LastPMDate1>=@Adjust(InstallDatePackMove1;-2;0;0;0;0;0)&LastPMDate1<=InstallDatePackMove1)
;"1";"0");

@If(
(COND1="1"|COND2="1");"New customer";
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND3="1"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND5="1"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND7="1"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND9="1"));"Repeat customer";
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND3="0"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND5="0"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND7="0"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND9="0"));"New customer";"")

Ich verwende bei jeder Condition jedes Feld und wenn ich dann auf leer Pruefe z.b. LastU951="";"" dann bekomm ich als Ergebnis leer, obwohl es nicht stimmt, weil ja vielleicht eine andere Condition richtig ist. Fuer das Ergebnis oder Resultat "Repeat customer" muessen nicht alle gefuellt sein, da passt es nur fuer "new customer"
und auf was soll ich dann @iserror anwenden? hab es gerade mit den verschiedenen Conditions versucht, hat aber nicht funktioniert.
....sorry, irgendwie steh ich da komplett auf dem Schlauch...
Gruss
Chris

Hallo,

ich habe in einer Spalte in einer Ansicht folgende Formeln eingefuegt die mir anzeigen soll ob es ein "neuer Kunde" oder ein "wiederholter kunde ist". Jetzt hab ich nur das Problem das oft nicht alle Felder gefuellt sind und es muessen immer alle Felder gefuellt sein, damit er mir das Ergebnis anzeigt, ansonsten kommt FEHLER: Fuer Vergleichsoperatoren muessen zwei Werte desselben Datentypes angegeben werden.

Mit den Formeln mach ich folgendes, ich habe unterschiedliche Datumsfelder und bei denen schau ich ob in den letzten 24 Monaten irgendein Dienst vom letzten Dienst ausgesehen war, wenn ja ist es ein wiederholter Kunde. Wenn in dieser Zeit kein Dienst war ist es ein neuer Kunde und wenn von heutigen Datum in den letzten 24 Monaten eine Installation war ist es ein neuer Kunde.
Ich hoffe ihr koennt mir weiterhelfen, das waer wirklich spitze, weil ich wirklich dort wirklich nicht weiterkomm...
Vielen Dank im Voraus fuer eure Hilfe.
Gruss Chris

COND1:=@If(InstallDate1="";"";@If(InstallDate1>=@Adjust(@Now;-2;0;0;0;0;0));"1";"0");
COND2:=@If(InstallDateRetrofit1="";"";@If(InstallDateRetrofit1>=@Adjust(@Now;-2;0;0;0;0;0));"1";"0");

COND3:=@If(
(LastU951_b>=@Adjust(LastU951;-2;0;0;0;0;0)&LastU951_b<=LastU951)|
(LastAdvanced1>=@Adjust(LastU951;-2;0;0;0;0;0)&LastAdvanced1<=LastU951)|
(LastPMDate1>=@Adjust(LastU951;-2;0;0;0;0;0)&LastPMDate1<=LastU951)|
(InstallDatePackMove1>=@Adjust(LastU951;-2;0;0;0;0;0)&InstallDatePackMove1<=LastU951);"1";"0");

COND5:=@If(
(LastAdvanced1_b>=@Adjust(LastAdvanced1;-2;0;0;0;0;0)&LastAdvanced1_b<=LastAdvanced1)|
(LastU951>=@Adjust(LastAdvanced1;-2;0;0;0;0;0)&LastU951<=LastAdvanced1)|
(LastPMDate1>=@Adjust(LastAdvanced1;-2;0;0;0;0;0)&LastPMDate1<=LastAdvanced1)|
(InstallDatePackMove1>=@Adjust(LastAdvanced1;-2;0;0;0;0;0)&InstallDatePackMove1<=LastAdvanced1)
;"1";"0");

COND7:=@If(
(LastPMDate1_b>=@Adjust(LastPMDate1;-2;0;0;0;0;0)&LastPMDate1_b<=LastPMDate1)|
(LastU951>=@Adjust(LastPMDate1;-2;0;0;0;0;0)&LastU951<=LastPMDate1)|
(LastAdvanced1>=@Adjust(LastPMDate1;-2;0;0;0;0;0)&LastAdvanced1<=LastPMDate1)|
(InstallDatePackMove1>=@Adjust(LastPMDate1;-2;0;0;0;0;0)&InstallDatePackMove1<=LastPMDate1)
;"1";"0");

COND9:=@If(
(InstallDatePackMove1_b>=@Adjust(InstallDatePackMove1;-2;0;0;0;0;0)&InstallDatePackMove1_b<=InstallDatePackMove1)|
(LastU951>=@Adjust(InstallDatePackMove1;-2;0;0;0;0;0)&LastU951<=InstallDatePackMove1)|
(LastAdvanced1>=@Adjust(InstallDatePackMove1;-2;0;0;0;0;0)&LastAdvanced1<=InstallDatePackMove1)|
(LastPMDate1>=@Adjust(InstallDatePackMove1;-2;0;0;0;0;0)&LastPMDate1<=InstallDatePackMove1)
;"1";"0");

@If(
(COND1="1"|COND2="1");"New customer";
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND3="1"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND5="1"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND7="1"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND9="1"));"Repeat customer";
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND3="0"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND5="0"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND7="0"))|
(((COND1=""&COND2="")|(COND1="0"|COND2="0"))&(COND9="0"));"New customer";"")

Vielen Dank fuer die Antworten.
Gruss Chris

Vielen Dank fuer die Antwort.
Aber dann muss ich ja trotzdem in jedes Dokument gehen und das Datum eingeben, denn wenn ich das Datum nur in ein Dokument eingebe wird es auch nur fuer dieses genommen und ich moechte das es fuer alle uebernommen wird.

Gruss Chris

Hallo,
ich habe eine Ansicht wo ich mir in einer Spalte anzeigen lasse ob es ein "Neuer Kunde" oder "Kein neuer Kunde" ist.
Jetzt gehe ich bei dieser Formel immer vom heutigen Datum aus, aber ich wuerde gerne selbst ein Datum eingeben koennen und dies dann als Ausgansdatum nehmen und dieses Datum soll fuer alle Dokumente gleich sein und fuer alle Dokumente in der Ansicht uebernommen werden. Gibts da die Moeglichkeit das Datum in ein Feld oder in einer InputBox einzutragen, damit es dann fuer alle Dokumente in der Ansicht uebernommen wird?
Denn wenn ich ein Datums Eingabefeld in die Maske der anderen Felder einfuege wird es nur fuer das entsprechende Dokument genommen und nicht fuer alle.
Ich hoffe mir kann jemand weiterhelfen, dies weaere echt super.
Vielen herzlichen Dank schonmal im Voraus fuer die Hilfe.
Gruss
Chris

COND1 := @if(InstallData1="";"";@if(InstallDate1 >=@adjust(@now;-2;0;0;0;0;0));"1";"0");

COND2 := @if(InstallData2="";"";@if(InstallDate2 >=@adjust(@now;-2;0;0;0;0;0));"1";"0");

@if(COND1=""&COND2="";"";COND1="1"|COND2="1";"Neuer Kunde";"Kein neuer Kunde")

Vielen Dank fuer die Hilfe.
So hat es jetzt funktiniert.

COND1 := @if(InstallData1="";"";@if(InstallDate1 >=@adjust(@now;-2;0;0;0;0;0));"1";"0");

COND2 := @if(InstallData2="";"";@if(InstallDate2 >=@adjust(@now;-2;0;0;0;0;0));"1";"0");

@if(COND1=""&COND2="";"";COND1="1"|COND2="1";"Neuer Kunde";"Kein neuer Kunde")

Viele Gruesse
Chris

Sorry, ich steh da irgendwie auf dem Schlauch...
bei einem Feld wuesste ich ja was z.B.
@if(InstallData1="";"";@if(InstallDate1 >=@adjust(@now;-2;0;0;0;0;0));"New customer";"No new customer")
Aber dies sind ja jetzt zwei Felder, da kann ich ja jetzt nicht sagen das er dies und das machen soll wenn es leer ist...da ja ein Feld leer sein darf von den zweien...hauptsache eins ist gefuellt und liegt in dem Zeitraum....
Ich hoff du verstehst mein Problem, aber irgendwie komm ich da nicht weiter...
Gruss
Chris

Hallo,
ich habe zwei Felder mit einem Installationsdatum in einer Maske, nun moechte ich ueberpruefen ob es ein "neuer Kunde" oder "kein neuer Kunde" ist.
Das Problem ist, so wie ich es gemacht habe müssen beide Felder ausgefuellt sein, sonst kommt folgende Fehlermeldung:
FEHLER: Für Vergleichoperatoren müssen zwei Werte desselben Datentyps angegeben werden. Aber in meinem Fall kann auch nur ein Feld belegt sein, damit es ein neuer Kunde ist, vorrausgesetzt das Kriterium stimmt...müsste doch eigentlich gehen, wegen der "oder" Funktion????

@if(InstallDate1 >=@adjust(@now;-2;0;0;0;0;0) | InstallDateRetrofit1 >=@adjust(@now;-2;0;0;0;0;0);"Neuer Kunde";"Kein neuer Kunde")

Vielen Dank fuer eure Hilfe
Gruss Chris

Hallo,
vielen Dank fuer die Antworten.
Viele Gruesse
Chris

Hallo,
ich habe einen Agenten der die Dokumente öffnet und abspeichert.
Und zwar habe ich im Agentn folgendes stehen:
@Command( [ToolsRefreshAllDocs] )
und aufgerufen wird er so:
@Command([ToolsRunMacro];"Refresh_OverviewMachine")
Er funktioniert auch wenn ich ihn manuell starte, jetzt wuerde ich
gerne einstellen das er Jeden Samstag morgens automatisch startet.
Hab dies noch nie gemacht, aber ich hab in dem Agent gesehen das man da durch Zeitplan einstellen kann...Auslösen durch Zeitplan, Zeitplan wöchentlich, Ziel Alle neuen und geänderten Dokumente. Aber wo kann ich dann sagen das er Samstag morgens um 8Uhr starten soll? funktioniert das auch wenn ich nur diese Umstellungen in dem Agenten mache, oder muss ich da noch mehr beachten?
Ich sag schon mal vielen Dank fuer eure Hilfe.
Viele Gruesse Chris

Vielen Dank fuer die Antworten, hab jetzt die Felder gefunden....die waren in einer Maske drin wo ich es nicht gedacht habe das die da drin sind...
Gruss
Chris

Hallo,
ich habe ein paar Feldnamen und weiss nicht wo die Felder sind bzw. auf welcher Maske. Kann man das irgendwie ausfindig machen???
Viele Gruesse
Chris

hey,
supervielen dank. war ja eine sehr schnelle antwort.
werde es gleich mal ausprobieren
gruss
chris

Hallo,

ich habe eine View erstellt und aus der habe ich bis jetzt immer den ersten Wert folgendermassen ausgelesen:
@Subset(@DbLookup("":"NoCache";server:database;"Last Service\\U95";SERNOGold;2);1);
jetzt wuerde ich gerne den zweiten Wert nehmen...aber ich kann ja nicht die 1 in 2umwandeln, da er mir dann die ersten beide Werte gibt....so wie in dem beispiel in der hilfe:
This example returns New Orleans;London.
@Subset("New Orleans":"London":"Frankfurt":"Tokyo";2)
Gibt es irgendeine Moeglichkeit nur den zweiten Wert auszulesen?
Bin super dankbar fuer jede Hilfe und Tips.

Gruss
Chris

danke, fuer die antworten.
aber was soll ich anstatt @today und @now verwenden?
gruss
chris

Hallo,
ich moechte gerade ein ein paar Sachen kategorisieren, aber mir fehlen dazu die Befehle. Und zwar hab ich in einer Maske ein Feld mit Installationsdatum und mit Kalibrierung. Jetzt wuerde ich gerne sagen wenn die Installation innherhalb der letzten 24 Monate gemacht wurde, vom heutigen Datum aus --> neuer Kunde. If(InstallDate<@today - 24 monate;"Neuer Kunde";"Alter Kunde")
Ich weiss nicht wie die Befehle fuer @today -24 monate richtig heissen?
Gruss
Chris

Hallo,
also es hat jetzt mit dem untenstehenden Code funktioniert wie ich es wollte. Ich hatte ncoh ne Frage und zwar kann man das auch umnaendern, dass er alle selektierten Dokumente unter ein Hauptdokument anordnet?
Ich hab es mal versucht ueber einen Agenten und dort alle selektierten dokumente ausgewaehlt, aber dies hat nicht funktioniert...
Gruss Chris

Funtionierender Code:
Sub Click(Source As Button)
Const VIEWNAME_LOOKUP_PARENT$ = "All"
Const COLUMN_NO_LOOKUP$ = "10"
Const MSGPICKLIST_TITLE$ = "Document selection"
Const MSGPICKLIST_TEXT$ = "Please select a main document to which you want to assign this response document:"
Const ERRMSG_1001$ = "Current document is not a response."
Const ERRMSG_1002$ = "Current document is not in edit mode."
Const ERRMSG_LINE2$ = "Operation has been canceled."

On Error Goto ErrorHandler

Dim session As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim docCur As NotesDocument
Dim docParent As NotesDocument
Dim vPicklistReturn As Variant
Dim strLeftValue As String
Dim strRightValue As String
Dim i As Integer

Set db = session.CurrentDatabase
Set uidoc = uiws.CurrentDocument
Set docCur = uidoc.Document

'Only continue if the current document is a response & if it is in the edit mode
If Not docCur.IsResponse Then Error 1001, ERRMSG_1001
If Not uidoc.EditMode Then Error 1002, ERRMSG_1002

'Display the main documents and let the user select one
vPicklistReturn =uiws.Pickliststrings(PICKLIST_CUSTOM, False, db.Server, db.FilePath,VIEWNAME_LOOKUP_PARENT,_
MSGPICKLIST_TITLE, MSGPICKLIST_TEXT, COLUMN_NO_LOOKUP)

If Isempty(vPicklistReturn) Then Goto GoOut 'user did not select a document

'Assign the new main document to the current response doczment
Set docParent = db.getDocumentByUNID(vPicklistReturn(0))
Call docCur.RemoveItem("$Ref")
Call docCur.MakeResponse( docParent )

'Refresh
Call uidoc.Reload
Call uidoc.Refresh

GoOut:
Exit Sub
ErrorHandler:
Select Case Err
Case 1001 To 1999: 'User defined errors
Msgbox Error$ & Chr(10) & Chr(10) & ERRMSG_LINE2, 64, db.Title
Resume GoOut
Case Else:
Resume GoOut
End Select
End Sub