TECH.RegisteredObject,APPS.EDIExport.AankoopOrderResponse.BLUM.BLOrdRspService %String ^BLOrdRsp %String 0 %String 1 TECH.DateTime.impl.DateTimeAPI 1 APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder 1 DateTimeAPI:TECH.DateTime.impl.DateTimeAPI,Kopieerder:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder 1 1 %Status 1 COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO ToeleveringsNummer:%String,ToeleveringsUniekLijnNummer:%String,Aantal:%String,LeverDatum:%String niet verwerkte lijn met oudste leverdatum YYMMDD aanpassen set index = eersteindexvoortlnr While index'=""{ if (..IsTeVerwerken(ToeleveringsNummer,ToeleveringsLijnNummer,index)){ set:(indexoudste=0) indexoudste = index ;eerste nog te verwerken set:(..GeefLeverDatum(ToeleveringsNummer,ToeleveringsLijnNummer,index) < ..GeefLeverDatum(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste) ) indexoudste = index } set index = $Order(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,index)) } if (indexoudste){ Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste) } else { ; is al up to date. } } } ]]> ToeleveringsNummer:%String zijn niet geleverd en moeten manueel behandeld worden ; Do ..ZetVervallenLijnenAlsVerwerkt() Do ..Kopieerder.Kopieer() ]]> 1 Lijn:%String 1 %Boolean Lijn:%String 1 %Boolean ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer 1 ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer,Aantal:%Integer,LeverDatum:%String 1 %Boolean ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer %String ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer 1 %Boolean ToeleveringNr:%String,ToeleveringLijnNr:%String,lijnnr:%Integer,Record:%String ToeleveringNr:%String,Record:%String Record:%String