BL.Derde.LevSpecifiek %RegisteredObject 0 Vandaag op transport en morgen leveren = Aantalwerkdagen=1, maar er mag 1 dag extra omdat DI1 in de namiddag wordt geproduceerd. 2 15 DI1,GL4 DD1 w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaReceptieBuffer("TB",5) bfrRGID:%String,bfrVolgNr:%String %Library.String bfrRGID:%String,bfrVolgNr:%String 1 %Library.String ProductNr:%String 1 %String w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(247031) TOENr:%String %String ORDNr:%String %String KLNr,ORDNr 1 1 KLNr,ORDNr 1 KLNr:%String,ORDNr:%String 1 %String KLNr:%String,ORDNr:%String 1 %String KLNr:%String KLNr:%String 1 0 KLNr:%String,ORDNr:%String 1 MaximaleLeverdag FoutCode="Later leveren "_Datum Set SomVanAantal=SomVanAantal+$P(Lijn,"\",3) Set:SomVanAantal>..#MaxAantalLades FoutCode="Groot aantal "_SomVanAantal Set PRNr=$P(Lijn,"\",2) 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 ORDNr," ",OLNr," ",PRNr," ",$P(^KPR(PRNr,0),"\")," ",$$EXTDATE^vhLib.DataTypes(Datum)," ",SomVanAantal," ",GenTyp,! } Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) } Quit FoutCode ]]>