Index: vhUnitTest/APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml =================================================================== diff -u -r579 -r643 --- vhUnitTest/APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml (.../LadeDesignControleur.cls.xml) (revision 579) +++ vhUnitTest/APPS/TBXWeb/Utils/impl/LadeDesignControleur.cls.xml (.../LadeDesignControleur.cls.xml) (revision 643) @@ -10,26 +10,28 @@ 0 -%Integer +%String 63308,0 -%Integer +%String 63552,0 + +%String +62999,0 + + @@ -38,12 +40,8 @@ Set DesignID="WS" Set WebDomain=$$$TBoxWebDomeinVHEPN Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain) - - Set DatumVoorUitfasering = (..#DollarHvan01Mei2014 - 1) - Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumVoorUitfasering,1) - - Set DatumNaUitfasering = ..#DollarHvan01Mei2014 - Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumNaUitfasering,0) + + Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,..#DummyDatum,0) ]]> @@ -53,11 +51,7 @@ Set WebDomain=$$$TBoxWebDomeinSFS Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain) - Set DatumVoorUitfasering = (..#DollarHvan01Mei2014 - 1) - Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumVoorUitfasering,1) - - Set DatumNaUitfasering = ..#DollarHvan01Mei2014 - Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumNaUitfasering,0) + Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,..#DummyDatum,0) ]]> @@ -67,14 +61,7 @@ Set WebDomain=$$$TBoxWebDomeinSFS Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain) - Set DatumUitfaseringGS = (..#DollarHvan01Mei2014) - Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumUitfaseringGS,1) - - Set DatumVoorUitfaseringWS = (..#DollarHvan31Dec2014 - 1) - Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumVoorUitfaseringWS,1) - - Set DatumNaUitfaseringWS = ..#DollarHvan31Dec2014 - Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,DatumNaUitfaseringWS,0) + Do ..AssertDesignBeschikbaar(LadeDesignControleur,DesignID,..#DummyDatum,0) ]]> @@ -92,11 +79,7 @@ Set WebDomain=$$$TBoxWebDomeinVHEPN Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain) - Set DatumVoorUitfasering = (..#DollarHvan01Mei2014 - 1) - Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumVoorUitfasering,1) - - Set DatumNaUitfasering = ..#DollarHvan01Mei2014 - Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumNaUitfasering,0) + Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,..#DummyDatum,0) ]]> @@ -105,14 +88,7 @@ Set WebDomain=$$$TBoxWebDomeinSFS Set LadeDesignControleur=..GeefLadeDesignControleur(WebDomain) - Set DatumUitfaseringGS = (..#DollarHvan01Mei2014) - Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumUitfaseringGS,1) - - Set DatumVoorUitfaseringWS = (..#DollarHvan31Dec2014 - 1) - Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumVoorUitfaseringWS,1) - - Set DatumNaUitfaseringWS = ..#DollarHvan31Dec2014 - Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,DatumNaUitfaseringWS,0) + Do ..AssertIsTBXplusBeschikbaar(LadeDesignControleur,..#DummyDatum,0) ]]>