FishEye: Tag 31288 refers to a dead (removed) revision in file `vhUnitTest/DOM/VKP/TestFactuur.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: vhUnitTest/DOM/VKP/Factuur/TestFactuur.cls.xml =================================================================== diff -u -r29059 -r31288 --- vhUnitTest/DOM/VKP/Factuur/TestFactuur.cls.xml (.../TestFactuur.cls.xml) (revision 29059) +++ vhUnitTest/DOM/VKP/Factuur/TestFactuur.cls.xml (.../Factuur/Test.cls.xml) (revision 31288) @@ -1,8 +1,6 @@ - - -do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.VKP.TestFactuur") + 1 vhUnitTest.TestCase @@ -221,6 +219,8 @@ set ^KKL(..Consument.GeefKlantIndexKKL(),320000)="F\06.03.03\06.03.03\105.14\105.14\4.46\\\\105.14" set $piece(^KVE(2003.03,320000),"\",4)=..GeefConsumentNr() + set ^KVE.Index("P",320000)=2003.03 + set ^KVE.Index("KL",320000)=..GeefConsumentNr() set ^KFA("F",320001,0,0)=..GeefConsumentNr()_"\F\06.03.03\1\EUR\06.03.03\105.14\103.04\0.00\0.00\0.00\105.14\2.1\105.14\\\0#0.00\\\\\\\\\\" set ^KFA("F",320001,0,1)="0#105.14#\0#103.04#\\\\\\\\\\\\\\\\\\\\\\\\\" @@ -241,6 +241,8 @@ set ^KKL(..Consument.GeefKlantIndexKKL(),320001)="F\06.03.03\06.03.03\105.14\105.14\4.46" set $piece(^KVE(2003.03,320001),"\",4)=..GeefConsumentNr() + set ^KVE.Index("P",320001)=2003.03 + set ^KVE.Index("KL",320001)=..GeefConsumentNr() Set ..DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New() Set ..DocumentReferenties.OrderReferentie = "UTOrderReferentie" @@ -266,6 +268,8 @@ set ^KKL(..Consument.GeefKlantIndexKKL(),320002)="F\06.03.03\06.03.03\105.14\105.14\4.46" set $piece(^KVE(2003.03,320002),"\",4)=..GeefConsumentNr() + set ^KVE.Index("P",320002)=2003.03 + set ^KVE.Index("KL",320001)=..GeefConsumentNr() Quit $$$OK ]]>