Aanpassen aan nieuwe tabellen mbt eiwitmonitor

testKoeEnEiwit.R

@@ -31,8 +31,10 @@ TbBezoek_C    <- getDatabaseTable('BEZOEK_C')
 TbBezoek_D    <- getDatabaseTable('BEZOEK_D')
 TbBezoek_E    <- getDatabaseTable('BEZOEK_E')
 TbBezoek_F    <- getDatabaseTable('BEZOEK_F')
-TbMonEiwit    <- getDatabaseTable('MONITOR_EIWIT')
-TbMonEiwitInv <- getDatabaseTable('MONITOR_EIWIT_INV')
+TbMonEiwitBas <- getDatabaseTable('EIWITMONITOR_BAS')
+TbMonEiwitInv <- getDatabaseTable('EIWITMONITOR_INV')
+TbMonEiwitOpn <- getDatabaseTable('EIWITMONITOR_OPN')
+TbMonEiwitRes <- getDatabaseTable('EIWITMONITOR_RES')
 TbMonUreum    <- getDatabaseTable('MONITOR_UREUM')
 TbSignalen    <- getDatabaseTable('SIGNALEN')
 TbVoeders     <- getDatabaseTable('VOEDERS')
@@ -47,8 +49,10 @@ database$Bezoek_C    <- TbBezoek_C
 database$Bezoek_D    <- TbBezoek_D
 database$Bezoek_E    <- TbBezoek_E
 database$Bezoek_F    <- TbBezoek_F
-database$MonEiwit    <- TbMonEiwit
+database$MonEiwitBas <- TbMonEiwitBas
 database$MonEiwitInv <- TbMonEiwitInv
+database$MonEiwitOpn <- TbMonEiwitOpn
+database$MonEiwitRes <- TbMonEiwitRes
 database$MonUreum    <- TbMonUreum
 database$Signalen    <- TbSignalen
 database$Voeders     <- TbVoeders