Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml =================================================================== diff -u -r37879 -r37880 --- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml (.../INVOIC02Verwerker.cls.xml) (revision 37879) +++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml (.../INVOIC02Verwerker.cls.xml) (revision 37880) @@ -55,6 +55,12 @@ #Dim E1EDP01Iterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(INVOIC02.IDOC.E1EDP01) #Dim E1EDP01 as APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01 #Dim BerichtBehandelen as %Integer = 1 + #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." + 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))