Index: TRANSP.mac.rou =================================================================== diff -u -r31334 -r40892 --- TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 31334) +++ TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 40892) @@ -148,7 +148,7 @@ Set DistributeurDataIDIt = ##class(TECH.ListIterator).%New(DistrubuteurDataIDs) While DistributeurDataIDIt.HasNext(){ #dim DistributeurDataID As %String = DistributeurDataIDIt.Next() - #dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID) + #dim DistributeurData As APPS.TRANSP.GLS.GLSv1.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID) Set (Count,OBCount) = Count+1 Set $P(sFL("Q",Count),D,11) = DistributeurData.UnitID @@ -432,7 +432,7 @@ set GebruikteVerpakkingen = "" set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.mdWaarden) while Iterator.HasNext() { - #dim Record As %String = Iterator.Next() + #dim Record As %String = Iterator.Next() if $length($piece(Record,"\",4))>0 set GebruikteVerpakkingen = GebruikteVerpakkingen _ $piece(Record,"\",2) } quit GebruikteVerpakkingen @@ -780,3 +780,4 @@ ; +