DB36 erbij

svn path=/Database/trunk/; revision=40704

_UTIL/TestOracle/CreateUserWORK.sql

@@ -39,8 +39,4 @@ SET SERVEROUTPUT ON SIZE UNLIMITED;
 
 grant connect, resource, create view to &&1;
 
-revoke unlimited tablespace from &&1;
--- Oracle 11g lijkt het niet te accepteren als we dit bij de CREATE al doen?
-ALTER USER &&1 QUOTA UNLIMITED ON "FCLT_DATA";
-
 exit

_UTIL/TestOracle/emailerror.js

@@ -20,7 +20,7 @@ function fac_send_mail_html(adrTo,strSubj,strBody)
 
     var iConf =  new ActiveXObject("CDO.Configuration")
     iConf.Fields(sch+"sendusing") = 2;
-    iConf.Fields(sch+"smtpserver") = "facws002"; // Labs
+    iConf.Fields(sch+"smtpserver") = "emmex11.ad.aareon.com";
     iConf.Fields(sch+"smtpserverport") = 25;
     iConf.Fields(sch+"smtpauthenticate") = 0; // anoniem
     iConf.Fields.Update();

_UTIL/TestOracle/testSVN33aBranch.bat

@@ -0,0 +1,44 @@
+@SET DBVER=33a
+@SET DBPRV=33
+@SET DBPRVPATH=z:\Archief\FACILITOR\2017\03\DB33\FCLT33.sql
+
+IF EXIST %DBPRVPATH% GOTO START
+ECHO %DBPRVPATH% niet gevonden
+PAUSE
+GOTO EINDE
+
+:START
+@echo off
+REM Usage: %0 [revision]
+REM Internal only
+REM Let op: je hebt SVN.EXE nodig die bijvoorbeeld meekomt als je bij TortoiseSVN
+REM         er voor kiest 'command line client tools' ook te installeren (default uit)
+REM
+
+SET PAD=http://facws001:8080/svn/Facilitor/Database/branches/DB33
+
+SET SVNTOOLS=z:\Project\FACILITOR\Tools\MAKTOOLS\SlikSvn\bin
+
+IF x%1==x GOTO getrev
+SET REVISION=%1
+GOTO gotrev
+
+:getrev
+FOR /F "tokens=2 skip=4" %%G IN ('%SVNTOOLS%\svn info %PAD% --revision HEAD') DO ^
+IF NOT DEFINED REVISION SET REVISION=%%G
+
+:gotrev
+@TITLE Getting r%REVISION%
+SET FCLTMP=%TEMP%\FACILITOR_SVN_T_%REVISION%
+
+%SVNTOOLS%\svn export -r %REVISION% %PAD% %FCLTMP%
+PUSHD %FCLTMP%
+CALL mx NOWAIT %FCLTMP%\UIT
+POPD
+CALL _CREA_WORK %DBVER% %FCLTMP%\UIT
+CALL _CREA_WORK_UPDATE %DBPRV% %DBPRVPATH% %DBVER% %FCLTMP%\UIT
+
+cscript compare.js %DBPRV% %DBVER% >diff%DBVER%.lst 2>>&1
+
+::rmdir /S %FCLTMP%
+:EINDE

_UTIL/TestOracle/testwork35.bat

@@ -0,0 +1,45 @@
+@SET DBVER=35
+@SET DBPRV=34
+@SET DBPRVPATH=z:\Archief\FACILITOR\2018\01\DB34a\FCLT34a.sql
+::=============================
+@SET BUILD=z:\Project\FACILITOR\BUILD
+
+IF EXIST %DBPRVPATH% GOTO START
+ECHO %DBPRVPATH% niet gevonden
+PAUSE
+GOTO EINDE
+
+:START
+@echo off
+REM Usage: %0
+
+PUSHD z:\Project\FACILITOR\Database\trunk
+CALL mx NOWAIT
+POPD
+:START0
+IF EXIST %BUILD%\DB%DBVER%\FCLT%DBVER%.sql GOTO STARTCREA
+ECHO %BUILD%\DB%DBVER%\FCLT%DBVER%.sql niet gevonden
+PAUSE
+GOTO EINDE
+:STARTCREA
+
+ECHO Starting Create, see diffwork_%DBVER%.lst
+ECHO Starting Create>diffwork_%DBVER%.lst
+CALL _CREA_WORK %DBVER% z:\Project\FACILITOR\BUILD>>diffwork_%DBVER%.lst
+
+ECHO Starting Update, see diffwork_%DBVER%.lst
+ECHO Starting Update>>diffwork_%DBVER%.lst
+CALL _CREA_WORK_UPDATE %DBPRV% %DBPRVPATH% %DBVER% z:\Project\FACILITOR\BUILD>>diffwork_%DBVER%.lst
+
+ECHO Starting Compare, see diffwork_%DBVER%.lst
+ECHO Starting Compare>>diffwork_%DBVER%.lst
+cscript compare.js %DBPRV% %DBVER% >>diffwork_%DBVER%.lst 2>>&1
+
+findstr /i "ORA-" "diffwork_%DBVER%.lst"
+if %errorlevel%==1 GOTO EINDE
+
+findstr /C:"ORA-" "diffwork_%DBVER%.lst" | cscript emailerror.js
+@TITLE ORA-Errors found, e-mail sent
+PAUSE
+
+:EINDE

_UTIL/TestOracle/testwork36.bat

@@ -0,0 +1,45 @@
+@SET DBVER=36
+@SET DBPRV=35
+@SET DBPRVPATH=z:\Archief\FACILITOR\2018\02\DB35a\FCLT35a.sql
+::=============================
+@SET BUILD=z:\Project\FACILITOR\BUILD
+
+IF EXIST %DBPRVPATH% GOTO START
+ECHO %DBPRVPATH% niet gevonden
+PAUSE
+GOTO EINDE
+
+:START
+@echo off
+REM Usage: %0
+
+PUSHD z:\Project\FACILITOR\Database\trunk
+CALL mx NOWAIT
+POPD
+:START0
+IF EXIST %BUILD%\DB%DBVER%\FCLT%DBVER%.sql GOTO STARTCREA
+ECHO %BUILD%\DB%DBVER%\FCLT%DBVER%.sql niet gevonden
+PAUSE
+GOTO EINDE
+:STARTCREA
+
+ECHO Starting Create, see diffwork_%DBVER%.lst
+ECHO Starting Create>diffwork_%DBVER%.lst
+CALL _CREA_WORK %DBVER% z:\Project\FACILITOR\BUILD>>diffwork_%DBVER%.lst
+
+ECHO Starting Update, see diffwork_%DBVER%.lst
+ECHO Starting Update>>diffwork_%DBVER%.lst
+CALL _CREA_WORK_UPDATE %DBPRV% %DBPRVPATH% %DBVER% z:\Project\FACILITOR\BUILD>>diffwork_%DBVER%.lst
+
+ECHO Starting Compare, see diffwork_%DBVER%.lst
+ECHO Starting Compare>>diffwork_%DBVER%.lst
+cscript compare.js %DBPRV% %DBVER% >>diffwork_%DBVER%.lst 2>>&1
+
+findstr /i "ORA-" "diffwork_%DBVER%.lst"
+if %errorlevel%==1 GOTO EINDE
+
+findstr /C:"ORA-" "diffwork_%DBVER%.lst" | cscript emailerror.js
+@TITLE ORA-Errors found, e-mail sent
+PAUSE
+
+:EINDE