I have this code in a CU to inform wheter there is a file you miss to import.
Doing right first time, but even the file is removed it tells you it is there.
If you after the client is started put a file in the library it does not tell.
Works only if you every time leave Attain and then open again (Esc+F12)
Can you avoid this ?
Code:
Bocom.GET;
ok:=EXISTS(Bocom."VBS2008 sti"+Bocom.Firmanummer+'\tjeck.txt');
IF ok THEN BEGIN
CLEAR(files);
files.RESET();
files.SETRANGE(files.Path, Bocom."VBS2008 sti"+Bocom.Firmanummer);
files.SETRANGE(files."Is a file", TRUE);
files.SETFILTER(files.Name,'*.kmp');
IF files.FIND('-') THEN REPEAT
filnavn:= files.Name;
Date :=files.Date;
filnavn := DELCHR(filnavn,'=','kamp');
filnavn := DELCHR(filnavn,'=','.kmp');
MESSAGE ('Kampagne nr. %1 er ikke indlæst - lavet %2',filnavn,Date);
UNTIL files.NEXT = 0;
END;
Comments
RIS Plus, LLC