@SetDBARConnection

Setzt, in der DB mit dem DBHANDLE DBHANDLE1, die Einstellungen der Advanced Replication Connection vom Quellserver TEXT SOURCESERVER zum Zielserver TEXT DESTINATIONSERVER, wenn es eine Definition für dieses Zielserver/Quellserver Paar gibt wird sie geändert, wenn es noch keine Definition für diese Verbindung gibt wird diese angelegt.
Wird die erste Verbindung für einen neuen Zielserver gesetzt, wird automatisch eine Definition für AnyServer ("-") mit den Default-Werten angegelgt (Außer die Definition bezieht sich auf AnyServer ("-")).
Default-Werte:
   FNCLASSMASK:=30719;
   TLVIEWS:="";
   TLFOLDERS:="";
   TLFIELDS:="";
   TEXTFORMULA:="SELECT @All";

Der ReturnWert der @Function ist TRUE bei Erfolg bzw. @Error im Fehlerfall.

In NUMBER FNCLASSMASK werden die Note-Classes der zu replizierenden Dokumente definiert.
In TEXTLIST TLVIEWS wird die Liste der Ansichten und Shared Folders die die Dokumente enthalten die repliziert werden sollen angegeben.
In TEXTLIST RETFOLDERS wird die Liste der Private Folders die die Dokumente enthalten die repliziert werden sollen angegeben.
In TEXTLIST RETFIELDS wird die Liste der zu replizierenden Felder angegeben (ist die Liste Leer, werden alle Felder repliziert).
In TEXT RETFORMULA wird die Selektionsformel angegeben.

NUMBER RETNCLASSMASK:
DEC   BIT   Bedeutung
00001   01   Documents   Daten-Dokumente
00002   02   Policy-Note   Über-DB-Dokument
00004   03   Form-Note   Masken-Design-Dokumente
00008   04   View-Note   Ansicht-Design-Dokumente
00016   05   Icon-Note   Piktogramm-Dokument
00032   06   Design-Collection-Note   Ansicht-Dokumente
00064   07   ACL-Info-Note   ACL-Info-Dokument
00128   08   Help-Index-Note   
00256   09   Help-Note   Hilfe-DB-Dokument
00512   10   Filter-Note   Macro-Design-Dokumente
01024   11   Feld-Note   Feld-Design-Dokumente
02048   12   Replication-Note   Replikations-Dokumente
04096   13   Privat_Design   Privat-Design-Dokumente

Beispiel: @SetDBARConnection(DBHANDLE1;DESTINATIONSERVER;SOURCESERVER;FNCLASSMASK;TLVIEWS;TLFOLDERS;TLFIELDS;TEXTFORMULA)

DBHANDLE1:=@OpenDB("TEST.NSF");
RET:=@GetDBARConnections(DBHANDLE1;TLRETDESTINATIONSERVERS;TLRETSOURCESERVERS);
@LogReport(RET;3);
n1:=1;
n1e:=@Elements(TLRETDESTINATIONSERVERS);

SetDstSrv:="CN=WU-ENT-BER-0A/O=WHATSUP/C=DE";
SetSrcSrv:="CN=WU-ENT-BER-0X/O=WHATSUP/C=DE";
FNCLASSMASK:=30719;
TLVIEWS:="";
TLFOLDERS:="";
TLFIELDS:="";
TEXTFORMULA:="SELECT @All";
Ret:=@SetDBARConnection(DBHANDLE1;SetDstSrv;SetSrcSrv;FNCLASSMASK;TLVIEWS;TLFOLDERS;TLFIELDS;TEXTFORMULA);
@LogReport(Ret;3);
WHILE(n1<=n1e)
{
   ZS:=@GetListElement(TLRETDESTINATIONSERVERS;n1);
   @LogReport("Ziel-Server:"+ZS;3);
   QSList:=@Explode(@GetListElement(TLRETSOURCESERVERS;n1);@Newline);
   n2:=1;
   n2e:=@Elements(QSList);
   WHILE(n2<=n2e)
   {
      QS:=@GetListElement(QSList;n2);
            Ret:=@GetDBARConnection(DBHANDLE1;ZS;QS;RetClassMask;RetViews;RetFolders;RetFields;RetFormulaTxt);      
      @LogReport(" Quell-Server:"+QS;3);
      @LogReport(" Note Classes :"+@Text(RetClassMask);3);
      @LogReport(" Views / Shared Folders:"+@Implode(RetViews;";");3);
      @LogReport(" Private Folders :"+@Implode(RetFolders;";");3);
      @LogReport(" Fields :"+@Implode(RetFields;";");3);
      @LogReport(" Formula :"+RetFormulaTxt;3);
      @Increment(n2);
   }
   @Increment(n1);
}
DBHANDLE1:=@CloseDB(DBHANDLE1);

Die Datenbank wird geöffnet, die Liste der Zielserver und die korrespondierende Liste der Quellserver wird abgefragt und für die Verbindung "CN=WU-ENT-BER-0A/O=WHATSUP/C=DE"/"CN=WU-ENT-BER-0X/O=WHATSUP/C=DE" werden die Advanced Replication Settings auf die Default-Werte gesetzt. Anschließend werden die Advanced Replication Settings für jede definierte Verbindung ausgegeben.

Beispiel-Ausgabe:
1
1
Ziel-Server:-
Quell-Server:-
Note Classes :30719
Views / Shared Folders:
Private Folders :
Fields :
Formula :SELECT @All
Ziel-Server:CN=WU-ENT-BER-03/O=WHATSUP/C=DE
Quell-Server:-
Note Classes :30719
Views / Shared Folders:
Private Folders :
Fields :
Formula :SELECT @All
Ziel-Server:CN=WU-ENT-BER-0A/O=WHATSUP/C=DE
Quell-Server:-
Note Classes :1
Views / Shared Folders:
Private Folders :
Fields :
Formula :SELECT @All
Quell-Server:CN=WU-ENT-BER-0X/O=WHATSUP/C=DE
Note Classes :30719
Views / Shared Folders:
Private Folders :
Fields :
Formula :SELECT @All
Quell-Server:CN=WU-ENT-BER-0Y/O=WHATSUP/C=DE
Note Classes :30719
Views / Shared Folders:
Private Folders :
Fields :Attach;Author;C1;Dokumententyp
Formula :SELECT @All