Index: APPS/AKP/Receptie/impl/ReceptieService.cls.xml =================================================================== diff -u -r45170 -r45171 --- APPS/AKP/Receptie/impl/ReceptieService.cls.xml (.../ReceptieService.cls.xml) (revision 45170) +++ APPS/AKP/Receptie/impl/ReceptieService.cls.xml (.../ReceptieService.cls.xml) (revision 45171) @@ -1,7 +1,7 @@ -TECH.Mockable +TECH.RegisteredObject %String @@ -88,12 +88,10 @@ set ^||MarkRef(ToeleveringNummer,ProductToeleveringLijn.GeefUniekLijnNummer())=ProductToeleveringLijn.GeefAantal()_"\" } #Dim ReceptieNummer = $$NEXTID^EWRCP() - Do ##class(Tools.Wlip).%New(207).String("Lev " _ LeverancierNummer) do BLDRCP^EWRCPS2(LeverancierNummer,ToeleveringNummer,"^||MarkRef",ReceptieNummer,OntvangstTijdstip ,Referentie,Referentie) Kill ^||MarkRef - Do ##class(Tools.Wlip).%New(207).String("Receptie : "_ReceptieNummer) Quit ReceptieNummer ]]> Index: vhTest/Fake/APPS/AKP/Receptie/impl/ReceptieService.cls.xml =================================================================== diff -u -r45170 -r45171 --- vhTest/Fake/APPS/AKP/Receptie/impl/ReceptieService.cls.xml (.../ReceptieService.cls.xml) (revision 45170) +++ vhTest/Fake/APPS/AKP/Receptie/impl/ReceptieService.cls.xml (.../ReceptieService.cls.xml) (revision 45171) @@ -17,47 +17,6 @@ 1 - -ReceptieNummer:%String,ToeleveringNummer:%String,indextlunr:%Integer -%String - - - - -ReceptieNummer:%String,ToeleveringNummer:%String,indextlunr:%Integer,subnr:%Integer -%String - - - - -ReceptieNummer:%String,ToeleveringNummer:%String,indextlunr:%Integer -%Integer - - - - -ReceptieNummer:%String,ToeleveringNummer:%String,indextlunr:%Integer,subnr:%Integer -%String - - - - -LeverancierID:%String,ToeleveringID:%String,ProductToeleveringLijnen:%ListOfObjects,OntvangstTijdstip:%String,Referentie:%String -%String - - - - -ReceptieNummer:%String,ToeleveringInfo:%String,FaktuurNummerVan:%String,VervLijnNummerVan:%Integer,FaktuurNummerNaar:%String,VervLijnNummerNaar:%Integer - - - MultiDim:%String