V teto konstrukci je posledni komentar (z me neznamych duvodu) zvyraznen svetle
modrou barvou, oproti trem predchozim zvyraznenym tmavemodre.
REM == Vezmi vsechny customery kteri nejsou v historii a predepis jim
prispevek.
for /f "tokens=1,2 delims=#" %%a in ('
sqlite3.exe -separator # "database\proton-test.db"
"SELECT pid,fee FROM
customers WHERE NOT status='4'"^;
') do (
REM == Divam se zda predpis pro dane obdobi uz neexistuje ===============
for /f %%A in ('
sqlite3.exe -separator # "database\proton-test.db"
"SELECT EXISTS(SELECT pid
FROM prescripts WHERE pid='90021' AND period='7-2015')"^;
') do (
REM == Pokud neexistuje, predepisuji ====================================
if not %%A equ 1 (
sqlite3.exe "database\proton-test.db" "INSERT INTO
prescripts(pid,amount,period,timestamp) VALUES
('%%a','%%b','%month%-%year%','%ts%')";
REM == A pisu do logu... ================================================
if not
"!errorlevel!"=="1" (
sqlite3.exe "database\proton-test.db" INSERT INTO
logs^(type,timestamp,sys_user,content^) VALUES
^('12','%timestamp%','SYSTEM','Failed to insert prescription for PID %%a and
period %month%-%year%.'^);
)
)
)
)
--
<http://forum.pspad.com/read.php?1,62303,65496>
PSPad freeware editor http://www.pspad.com
