BL.Derde.LevSpecifiek,Prod.Product 0 TECH.Mockable 30 2 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(264253) TOENr:%String %String ORDNr:%String %String KLNr:%String,ORDNr:%String 1 KLNr:%String,ORDNr:%String %String (17*3600)) 0 ; Nederland na 17u dan DD1 niet toelaten (VRD sluit NL af om 18u) Quit 1 ]]> 1 KLNr:%String,ORDNr:%String 1 KLNr:%String,ORDNr:%String 1 %Integer KLNr:%String,ORDNr:%String 1 %String KLNr:%String,ORDNr:%String 1 %String KLNr:%String,ORDNr:%String 1 %String KLNr:%String KLNr:%String 1 0 KLNr:%String,ORDNr:%String LaatsteLeverdagTijdensSluiting) MaximaleLeverdag=LaatsteLeverdagTijdensSluiting ; maandag 23/12/2024 } } ;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhLib.DataTypes($H,"A",..GeefAantalWerkdagen(KLNr, ORDNr))) ; Indien ASAP ingesteld dan 99 dagen ;;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhDTyp($H,"A",..GeefAantalWerkdagen)) ; Indien ASAP ingesteld dan 99 dagen Set MemGenTyp="" Set IsLade=0 While (OLNr'="") && (FoutCode="") { Set Lijn=$G(^KOD(KLNr,"F",ORDNr,OLNr)) If $P($P(Lijn,"\",17),"#")'="KF11" ; geen tekstlijn { Set:$P($P(Lijn,"\",17),"#")'="KF0" FoutCode="Geen product lijn" Set Datum=$P(Lijn,"\",25) Set:Datum>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="HAL")&&$$IsSpaceTower^PRODUKT2(PRNr) GenTyp="TBX",SomVanAantal=SomVanAantal+3 ; SPACETOWER voor KVIK moet als TBX beschouwd worden PV 22/11/2023 Set GenTyp=$S(GenTyp="":"*",1:GenTyp) Set:$P(GenTyp,"\")?1(1"TBX",1"MVX",1"LBX",1"TAO") IsLade=1 Set:$P(GenTyp,"\")'?1(1"TBX",1"MVX",1"LBX",1"TAO") FoutCode="GenType geen lade "_GenTyp Set:(MemGenTyp'="")&(MemGenTyp'=GenTyp) FoutCode="Verschillend GenType "_MemGenTyp_"="_GenTyp Set MemGenTyp=GenTyp /* If GenTyp'="*" { Set:$P(GenTyp,"\")'?1(1"TBX",1"MVX",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)) } Set:'IsLade&&(FoutCode="") FoutCode="GenType geen Lade" Set:(SomVanAantal<..#MinAantalLades)&&(FoutCode="") FoutCode="Klein aantal "_SomVanAantal Quit FoutCode ]]> KLNr:%String,ORDNr:%String 1