I have a bit of an issue. I am running a QVW on a server that reloads automatically each day. What happens is data gets imported into a directory and is loaded into the QVW and is then archived into a seperate directory (Moved). So what I need to do is set up a script that will load the data only if it is all there. Example:
Separate excel sheets called Transactions, Clients, Area, and Product for example. If i get data for Transactions,Clients and Product but not Area, I want the script to skip loading the section that reloads the Area Information. It still needs to bring in the rest of the data though. I have tried the following but unfortunately it is not working:
DailyFileCheck:
LOAD DailyFileName
FROM '...\Dir'
(txt, codepage is 1252, embedded labels, delimiter is ',', no quotes);
LET vProcessed = Date(Date#(Mid(peek('DailyFileName',0,DailyFileCheck),13,8),'YYYYMMDD'),'DD/MM/YYYY');
LET vToday = Date(Today()-1);
SET ErrorMode = 2;
exit Script when vProcessed <> Today()-1;
So if anyone has any suggestions or any ideas, please let me know.
I have an application with a kind of historic of the data. When it is reloaded, for each file I check if it exists and if it has already been loaded, and then store the result in a qvd. If the file does not exist I just load the date from the qvd that was created during the last refresh.
Maybe a little more complex than your request, but I hope it can help you.
set loadHistoryQvdPath='loadHistory.qvd'; set fileExt='.txt'; set qvdExt='.qvd';
let loadDate=now();
let hasLoadHistoryQvd = isNull(FileTime('$(loadHistoryQvdPath)'));
if $(hasLoadHistoryQvd) = -1 then trace Load History Qvd not found; loadHistory: load * inline [ fileName, fileDate, loadDate ]; else trace Loading History Qvd; loadHistory: load fileName, fileDate, loadDate from $(loadHistoryQvdPath) (qvd); endif
sub loadFile(fileName)
let hasQvd = isNull(FileTime('$(fileName)$(qvdExt)'));
if $(hasQvd) = -1 then trace qvd file $(fileName)$(qvdExt) not found; else trace qvd file $(fileName)$(qvdExt) ok; load * from $(fileName)$(qvdExt) (qvd);
end if
let hasFile = isNull(FileTime('$(fileName)$(fileExt)'));
if $(hasFile) = -1 then trace file $(fileName)$(fileExt) not found; else let fileDate = FileTime('$(fileName)$(fileExt)'); trace file $(fileName)$(fileExt) ok, date : $(fileDate);
tmp: load loadDate resident loadHistory where fileName = '$(fileName)' and fileDate = '$(fileDate)';
if NoOfRows('tmp') > 0 then trace file has already been loaded; else trace load file;
$(fileName): load '$(loadDate)' as $(fileName)Date, * from $(fileName)$(fileExt) (txt, codepage is 1252, embedded labels, delimiter is ';', msq);
