BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek,Prod.Product TECH.RegisteredObject,TECH.Filter %Date %Date AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor %String %String %String %List %String %Integer AantalMaanden=3,RefDatum:%Date 1 1 %Status 1 d ##class(AX.Uitgaand.MAG.impl.ExportOutbound).%New(3).VerwerkAlle() 0 1) || ($$ISORGAL^PRODUKT2($P(..OLRec,"\"))||$$IsOrgaluxOpMaat^PRODUKT2($P(..OLRec,"\"))||($$PRODGRP^PRODUKT($P(..OLRec,"\"))="TA.C")) Do ..VerwerkMoeder() } Set OLUNr=$O(^ORDW("D",..CONSNr,"D",..ORDNr,OLUNr)) } Set ..ORDNr=$O(^ORDW("D",..CONSNr,"D",..ORDNr)) } ]]> 1) || ($$ISORGAL^PRODUKT2($P(..OLRec,"\"))||$$IsOrgaluxOpMaat^PRODUKT2($P(..OLRec,"\"))||($$PRODGRP^PRODUKT($P(..OLRec,"\"))="TA.C")) { Set ComponentNVT="Component" } Else { Set ComponentNVT="NVT" Set:($$$ProductGet($P(..OLRec,"\"),$$$LeveranciersNr)=$$$LevHalux)&&($$$ProductGet($P(..OLRec,"\"),$$$StockType)'=1) ComponentNVT="Maatwerk" } Set px=##class(AX.Uitgaand.MAG.dto.BewegingOutbound).CreatePicking(%this,ComponentNVT) Do ..VulinTransport(px) Do ..VulinAdres(px) Do px.WriteData() Write ! ]]> px:AX.Uitgaand.MAG.dto.BewegingOutbound px:AX.Uitgaand.MAG.dto.BewegingOutbound Transporteur:%String,VerzendW:%String Transporteur:%String,VerzendW:%String OLUNr:%String %Boolean PickDatum 0 Quit 1 ]]> %Boolean 0 0 Quit 1 ]]>