11. Juli 2014 20:55
BelastungAbwartenCounter   : integer
LockTabelle                         : Record 50001 (UserDefiniedTable)
BelastungAbwarten              : Dialog
BelastungAbwartenCounter := 0;
REPEAT
    IF LockTabelle.GET('Importsperre') THEN
    BEGIN
        BelastungAbwarten.OPEN('Belastung abwarten #1#####');
        WHILE LockTabelle.GET('Importsperre') DO
        BEGIN;
            BelastungAbwartenCounter := BelastungAbwartenCounter + 1;
            BelastungAbwarten.UPDATE(1,BelastungAbwartenCounter);
            SLEEP(1000);
            COMMIT;
            SELECTLATESTVERSION;
        END;
        BelastungAbwarten.CLOSE;
    END;
    LockTabelle.INIT;
    LockTabelle.Code := 'Importsperre';
    LockTabelle.Ort :=  'PP-Import:'+UPPERCASE(USERID)+' '+COMPANYNAME;
UNTIL LockTabelle.INSERT;15. Juli 2014 12:52
LockTabelle.LOCKTABLE(TRUE);
BelastungAbwartenCounter := 0;
REPEAT
    IF LockTabelle.GET('Importsperre') THEN
    BEGIN
        BelastungAbwarten.OPEN('Belastung abwarten #1#####');
        REPEAT
            COMMIT;
            BelastungAbwartenCounter := BelastungAbwartenCounter + 1;
            BelastungAbwarten.UPDATE(1,BelastungAbwartenCounter);
            SLEEP(1000);
            SELECTLATESTVERSION;
            CLEAR(LockTabelle);
        UNTIL NOT LockTabelle.GET('Importsperre');
        BelastungAbwarten.CLOSE;
    END;
    LockTabelle.INIT;
    LockTabelle.Code := 'Importsperre';
    LockTabelle.Ort :=  'PP-Import:'+UPPERCASE(USERID)+' '+COMPANYNAME;
UNTIL LockTabelle.INSERT;
COMMIT;15. Juli 2014 13:41
15. Juli 2014 13:53