OBSOLETE : DEZE KLASSE WORDT NIET GEBRUIKT. ZIE KLASSE : BL.MB.UGLYPicking.VerzendDirectControleur BL.Derde.LevSpecifiek TECH.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 d ##class(APPS.VKP.Order.VerzendMaatwerkDirectControleur).%New().CheckAll() w ##class(APPS.VKP.Order.VerzendMaatwerkDirectControleur).%New().ControleViaToelevering(264253) TOENr:%String %String ORDNr:%String %String KLNr:%String,ORDNr:%String %String KLNr:%String,ORDNr:%String %String (17*3600)) 0 ; Nederland na 17u dan DD1 niet toelaten (VRD sluit NL af om 18u) Quit 1 ]]> KLNr:%String KLNr:%String,ORDNr:%String 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 ]]>