Versuche solange bis Erfolgreich

[Bruno]

Hallo Mitglieder,
Ich möchte beim Überspielen ins Netz keinen Abbruch bekommen.
Würdet Ihr mir sagen, ob das so richtig wäre?

Code: Alles auswählen

    DO WHILE .T.
        ? " Datenübertragung ..... DISPO ....."
        USE (cDispoNet) ALIAS Eingang1 SHARED NEW
    IF .NOT. Neterr()
        IF Flock()
            APPEND FROM (cDispoLokal)
            REPLACE ZAEHLER with RECNO() ALL
            CLOSE Eingang1
            CLOSE Ausgang1
        ELSE
            LOOP
        ENDIF
    ENDIF

    EXIT
    ENDDO

Was ich meine, wenn jetzt mal übertrieben wirklich 200 PCs Eingaben lokal gemacht haben, und dann die Daten ins Netz schicken wollen, sollte dieser Vorgang so lange versucht werden, bis das Überspielen erfolgreich war.
Bitte verratet mir wo ich eventuell dran muss, und was noch zu beachten wäre.

[AUGE_OHR]

hi Bruno,

wenn deine DISPO App die DBF im Zugriff hat wird sich deine Schleife tot laufen ...

vor dem LOOP würde ich ein SLEEP(0.1) und einen "Counter" einfügen
wenn er n-mal angekommen ist sollte eine Ja/Nein Abfrage kommen

ein EXIT sollte nach "Erfolg" oder "Abbruch" stehen und nicht vor einem ENDDO

[Bruno]

Hi Jimmy,
Danke, da ich mit Endlosschleifen keine Erfahrung in dieser Art gemacht habe, bin ich froh Hinweise zu bekommen, was ich beachten müsste.
Vielen Dank

[Bruno]

Hi Jimmy,

habe ein Sleep ( 50 ) = 1/2 Sekunde eingesetzt.

Nochmals Danke, da nur 4 PCs im Büro sind müsste das bei gleichzeitiger Übertragung ausreichen.