TECH.RegisteredObject %String 0 %String 1 TECH.DateTime.impl.DateTimeAPI 1 APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder 1 %Integer 99999999 %Integer 99999999 %Integer 0 1 DateTimeAPI:TECH.DateTime.impl.DateTimeAPI,Kopieerder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.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(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer,index)) } if (indexoudste){ Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste) } else { ; is al up to date. } } } ]]> ToeleveringsNummer:%String 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 CustomerOrderReference:%String 1 OrderLineIdentificationCustomer:%String 1 Record:%String 1 Record:%String 1 Record:%String 1