zTryout.PRAFMA.Design.TECH,zTryout.PRAFMA.Design.TECH.Config,zTryout.PRAFMA.Design.TECH.Logging,zTryout.PRAFMA.Design.DOM.Verpakking.Aventosbak.Doc,zTryout.PRAFMA.Design.DOM.PM,Prod Prod.Product,BL.Sys.Proxy,BL.Sys.FOP.Common 1 %RegisteredObject 0 zTryout.PRAFMA.Design.DOM.Verpakking.PrinterName zTryout.PRAFMA.Design.DOM.Verpakking.VerpakkingsDocumentTemplateName zTryout.PRAFMA.Design.DOM.Verpakking.PickingDocumentTemplateName zTryout.PRAFMA.Design.DOM.Verpakking.MustPrint zTryout.PRAFMA.Design.DOM.Verpakking.UseTrayForPaperFormat zTryout.PRAFMA.Design.DOM.Verpakking.PaperFormat 320 508658 1 Is het een Aventos-bak? Is classmethod want het wordt gebruikt als een sql-functie 1 PRNr:%Integer %Boolean IsAventosRecupak 1 Bevat het consolidatienummer een aventosbak? CONSNr:%Integer %Boolean ProductNr)=1)) Quit (Aantal>0) ]]> CONSNr:%Integer %Status ]]> CONSNr %Status 9 Do . . . Set Bak=Bak+1,Vak=0 ; neem een nieuw bak want één set kan niet meer volledig op de huidge bak! . . For OpslagZone=1:1:MaxZone Do . . . Set Vak=Vak+1 . . . Set ArSublijnProducten(OpslagZone)=ArSublijnProducten(OpslagZone)_","_Bak_"."_Vak . Quit:Bak>..#MaxAantalBakken ; als het aantal bakken te groot is dan wordt niets ingevuld!!! . ; aflopen van de lijnen om de VerpakkingsIndeling in te vullen . Set OpslagZone="" . For Set OpslagZone=$O(ArSublijnProducten(OpslagZone)) Quit:'+OpslagZone Do . . Set $E(ArSublijnProducten(OpslagZone))="" ; eerste komma wegdoen . . Set SUBOLUNr="" . . For Set SUBOLUNr=$O(ArSublijnProducten(OpslagZone,SUBOLUNr)) Quit:SUBOLUNr="" Do . . . Set ID=CONSNr_"||"_ORDNr_"||"_OLUNr_"||"_SUBOLUNr . . . Set VerpakkingsIndeling=ArSublijnProducten(OpslagZone) . . . &SQL(Update Flow_OrderWMS.Sub Set VerpakkingsIndeling=:VerpakkingsIndeling where (ID=:ID)) If Bak>..#MaxAantalBakken Quit $$$ERROR($$$GeneralError,"Meer dan "_..#MaxAantalBakken_" bakken. Gelieve de hoeveelheden te verkleinen.") Quit $$$OK ]]> CONSNr:%Integer CONSNr:%Integer Do ##class(zTryout.PRAFMA.Design.DOM.Verpakking.Aventosbak.Aventosbak).Instantiate().AfdrukkenBakken(325901) CONSNr:%Integer,MetDetail:%Boolean=0,templateName:%String 1 Zoekt de bakken en vakken waarin de kindproducten moeten geplaatst worden 1 'K')) If MaxZone="" Set MaxZone=1 Set AantalBakken=0 ;aflopen van de sublijnen For SubLijn=1:1:AantalSubLijnen Do . Set oSubLijn=oLijn.Subs.GetAt(SubLijn) . Set SUBOLUNr=oSubLijn.SUBOLNr . Set Aantal=oSubLijn.AantalGevraagd . Set Indeling=oSubLijn.VerpakkingsIndeling . Set KortTekst=oSubLijn.Product.KortTekst . Quit:Indeling="" . Set Vak1=$Piece($Piece(Indeling,","),".",2) . Set ProductVolgNr=((Vak1-1)#MaxZone)+1 . ;Aflopen van de vakken . For I=1:1:$L(Indeling,",") Do . . Set Locatie=$Piece(Indeling,",",I) . . Set Bak=$Piece(Locatie,"."),Vak=$Piece(Locatie,".",2) . . If Bak="K" Do . . . Set arLocaties("K",PRNr)=$G(arLocaties("K",PRNr))_$LB(KortTekst_":"_Aantal) . . Else Do . . . If '$D(arLocaties(Bak,Vak)) Do . . . . Set arLocaties(Bak,Vak)=$LB(PRNr,I_"."_ProductVolgNr,$LB(KortTekst_":"_Aantal)) . . . Else Do . . . . Set ProductLijst=$LI(arLocaties(Bak,Vak),3) . . . . Set ProductLijst=ProductLijst_$LB(KortTekst_":"_Aantal) . . . . Set $LI(arLocaties(Bak,Vak),3)=ProductLijst . . . If Bak>AantalBakken Set AantalBakken=Bak Set arLocaties=AantalBakken ]]> opzoeken productreferentie 1 'K')) If MaxZone="" Set MaxZone=1 Set arProducten(PRNr)=$LB(RitNr,KortTekst,ProductRef,MaxZone) Set arProducten=TransportRef ]]> Zoekt TransportRef en ProductRef in ^KOD 1 Zoekt TransportRef en ProductRef in ^KUL 1 1 Aanmaken van het doc-object voor afdruk of voor aanmaak van een PDF-bestand Afdrukken info over Aventosbakken docAventos:Aventos,fopTemplateName:%String 1 %Status 1 XML-file doorsturen Info over Aventosbakken in een PDF-bestand wegschrijven docAventos:Aventos,fopTemplateName:%String 1 %Status