BL.Derde.LevSpecifiek 0 %RegisteredObject Vandaag op transport en morgen leveren = Aantalwerkdagen=1, maar er mag 1 dag extra omdat DI1 in de namiddag wordt geproduceerd. 2 30 DI1 1 w ##class(BL.MB.UGLYPicking.VerzendDirectControleurViaBon).%New().ControleViaBon(376980) BONNr:%String %String KLNr:%String,BONNr:%String 1 KLNr:%String,BONNr:%String 1 %String KLNr:%String 1 0 KLNr:%String,BONNr:%String 1 MaximaleLeverdag FoutCode="Later leveren "_Datum Quit FoutCode ]]> KLNr:%String,BONNr:%String 1 ..#MaxAantalLades FoutCode="Groot aantal "_SomVanAantal Set PRNr=$P(Lijn,"\",2) Set:PRNr="" FoutCode="Geen PRNr" Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2) Set GenTyp=$S(GenTyp="":"*",1:GenTyp) Set:$P(GenTyp,"\")'?1(1"TBX",1"LBX",1"TAO") FoutCode="GenType geen lade "_GenTyp Set:(MemGenTyp'="")&(MemGenTyp'=GenTyp) FoutCode="Verschillend GenType "_MemGenTyp_"="_GenTyp Set MemGenTyp=GenTyp ;w BONNr," ",LNr," ",PRNr," ",$P(^KPR(PRNr,0),"\")," ",SomVanAantal," ",GenTyp,! } Set LNr=$O(^KUL(KLNr,"F",BONNr,LNr)) } Quit FoutCode ]]>