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