PgSqlCheckReplicationBP

 

Syntax

PgSqlCheckReplicationBP("Tabelle", "IndexName", "IndexFeld1", IndexWert1, TimeoutSeconds)
PgSqlCheckReplicationBP("Tabelle", "IndexName", "IndexFeld1", IndexWert1, "IndexFeld2", IndexWert2, TimeoutSeconds)
PgSqlCheckReplicationBP("Tabelle", "IndexName", "IndexFeld1", IndexWert1, "IndexFeld2", IndexWert2, "IndexFeld3", IndexWert3, TimeoutSeconds)

 

Beschreibung

Diese Funktion prüft, ob ein oder mehrere Datensätze in der Büro+ Datenbank in eine PgSQL Datenbank repliziert wurden und auf dem aktuellstem Stand sind. Die Funktion gibt true zurück, falls erfolgreich, sonst false.

Der Unterschied zur Funktion PgSqlCheckReplication ist, dass hier zuerst die Daten in Büro+ geladen werden und dann mit dem Datensatz in der PgSQL Datenbank verglichen wird.

 

Parameter

•Tabelle: Name der Büro+ Tabelle.

•IndexName: Name des Indexes (siehe auch GetTable Anweisung).

•IndexFeld1: Name des ersten Indexfeldes

•IndexWert1: Wert für das erste Feld

•IndexFeld2: Name des zweiten Indexfeldes

•IndexWert2: Wert für das zweite Feld

•IndexFeld3: Name des dritten Indexfeldes

•IndexWert3: Wert für das dritte Feld

•TimeoutSeconds: Timeout in Sekunden.

 

Beispiel

-- Neuen Vorgang anlegen

Declare lXmlPositionen as XmlElement

Declare lBelegNr as String

 

lXmlPositionen = XmlElementCreate()
-- Position 1 (0) hinzufügen
XmlSetText(lXmlPositionen, "ArtNr", "47002", "Position", 0)
XmlSetInteger(lXmlPositionen, "Mge", 2, "Position", 0)
XmlSetText(lXmlPositionen, "Pos", "1", "Position", 0)
XmlSetText(lXmlPositionen, "Einh", "Stk", "Position", 0)
-- Position 2 (1) hinzufügen
XmlSetText(lXmlPositionen, "ArtNr", "74011", "Position", 1)
XmlSetInteger(lXmlPositionen, "Mge", 5, "Position", 1)
XmlSetText(lXmlPositionen, "Pos", "2", "Position", 1)
XmlSetText(lXmlPositionen, "Einh", "Stk", "Position", 1)
-- Position 3 (2) hinzufügen

XmlSetText(lXmlPositionen, "ArtNr", "74012", "Position", 2)
XmlSetInteger(lXmlPositionen, "Mge", 1, "Position", 2)
XmlSetText(lXmlPositionen, "Pos", "3", "Position", 2)
XmlSetInteger(lXmlPositionen, "PosNr", 3, "Position", 2)

lBelegNr = VorgangAdd("13671", 50)
VorgangPositionAddList(lBelegNr, "", lXmlPositionen)

-- Replikation prüfen
if PgSqlCheckReplicationBP("VorgangPosition", "Nr", "BelegNr", lBelegNr, 30) then
  lTemp = StringFormat("select count(*) from vorgangposition where belegnr = '{0}'", lBelegNr)
  lPosCount= PgSqlExecuteScalar("pgAlphacom", lTemp)
EndIf
ExitScript