Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml =================================================================== diff -u -r37660 -r37800 --- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml (.../ToeleveringInfoVerzamelaar.cls.xml) (revision 37660) +++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml (.../ToeleveringInfoVerzamelaar.cls.xml) (revision 37800) @@ -32,6 +32,13 @@ if ..ToeleveringAPI.BestaatToelevering(ToeleveringNr){ #Dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringNr) #Dim ToeleveringLijnID As %Integer = ToeleveringLijnNr * 100 + + ;het kan een gesplitste lijn zijn + for count=0:1:9 { + set ToeleveringLijnID = ToeleveringLijnNr * 100 + count + quit:Toelevering.BestaatToeleveringLijn(ToeleveringLijnID) + } + if Toelevering.BestaatToeleveringLijn(ToeleveringLijnID){ #Dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID) set CSBSO41.ProductNrCustomer = ToeleveringLijn.GeefProductID()