@GetDBARConnection

Gibt, zu der DB mit dem DBHANDLE DBHANDLE1, die Einstellungen der Advanced Replication Connection vom Quellserver TEXT SOURCESERVER zum Zielserver TEXT DESTINATIONSERVER zurück, wenn es eine Definition für dieses Zielserver/Quellserver Paar gibt.
Der ReturnWert der @Function ist TRUE bei Erfolg bzw. @Error im Fehlerfall.

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

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: @GetDBARConnection(DBHANDLE1;DESTINATIONSERVER;SOURCESERVER;RETNCLASSMASK;RETVIEWS;RETFOLDERS;RETFIELDS;RETFORMULA)

DBHANDLE1:=@OpenDB("TEST.NSF");
RET:=@GetDBARConnections(DBHANDLE1;TLRETDESTINATIONSERVERS;TLRETSOURCESERVERS);
@LogReport(RET;3);
n1:=1;
n1e:=@Elements(TLRETDESTINATIONSERVERS);
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 anschließend werden die Advanced Replication Settings für jede definierte Verbindung ausgegeben.

Beispiel-Ausgabe:
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 :2048
Views / Shared Folders:
Private Folders :
Fields :
Formula :SELECT Form!="Test"
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