Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml =================================================================== diff -u -r37879 -r37897 --- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml (.../Test.cls.xml) (revision 37879) +++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml (.../Test.cls.xml) (revision 37897) @@ -33,6 +33,7 @@ ;^Verv Zending do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(1) + do ZendingServiceMock.IndienMethodCall("GeefReceptieNummerZending",5005,297851).DanReturn("iets") ;^Verv faktuur @@ -81,6 +82,7 @@ ;^Verv Zending do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(1) + do ZendingServiceMock.IndienMethodCall("GeefReceptieNummerZending",5005,297851).DanReturn("iets") ;^Verv faktuur @@ -149,6 +151,7 @@ ;^Verv Zending do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(1) + do ZendingServiceMock.IndienMethodCall("GeefReceptieNummerZending",5005,297851).DanReturn("iets") ;^Verv faktuur @@ -198,6 +201,7 @@ ;^Verv Zending do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(1) + do ZendingServiceMock.IndienMethodCall("GeefReceptieNummerZending",5005,297851).DanReturn("iets") ;^Verv faktuur @@ -246,6 +250,7 @@ ;^Verv Zending do ZendingServiceMock.IndienMethodCall("BestaatZending","5005","297851").DanReturn(1) + do ZendingServiceMock.IndienMethodCall("GeefReceptieNummerZending","5005","297851").DanReturn("iets") ;^Verv faktuur do ZendingServiceMock.IndienMethodCall("MaakZendingFaktuur","5005","297851","857382",BlumFactuurDummy).DanReturn(BlumFactuurDummy) Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml =================================================================== diff -u -r37880 -r37897 --- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml (.../INVOIC02Verwerker.cls.xml) (revision 37880) +++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml (.../INVOIC02Verwerker.cls.xml) (revision 37897) @@ -58,14 +58,15 @@ #Dim exceptionbericht as %String if ..GeefBlumFaktuurNummer(INVOIC02) = "999999" { - set exceptionbericht = "Blum Faktuur nummer is 999999, dit nummer kan niet verwerkt worden zonder problemen te veroorzaken." + set exceptionbericht = "Blum Faktuur nummer is 999999, dit faktuurnummer kan niet verwerkt worden zonder problemen te veroorzaken." do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(exceptionbericht)) } while E1EDP01Iterator.HasNext(){ //per factuurlijn set E1EDP01 = E1EDP01Iterator.Next() Set BerichtBehandelen = BerichtBehandelen && ..ZendingService.BestaatZending(..#BlumLevNr,..GeefZendingID(E1EDP01)) + ;als vervoer bestaat nog checken of vervoer al naar receptie overgedragen is + Set:BerichtBehandelen BerichtBehandelen = BerichtBehandelen && $Length(..ZendingService.GeefReceptieNummerZending(..#BlumLevNr, ..GeefZendingID(E1EDP01))) } - quit BerichtBehandelen ]]>