Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml =================================================================== diff -u -r60736 -r60738 --- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml (.../Printer.cls.xml) (revision 60736) +++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml (.../Printer.cls.xml) (revision 60738) @@ -75,16 +75,12 @@ Do DnaCodesIterator.Reset() While DnaCodesIterator.HasNext() { #dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodesIterator.Next() - //TODO - //Set aantal = ..GeefLijnAantal(DnaCode.Lijn) // moet hier toch ook gebruikt worden aangezien dat te maken heeft met het aantal etiketten volgens vooraf gedifinieer per product - Set aantal = 1 //..GeefLijnAantal(DnaCode.Lijn) // Moet iets andere zijn want dnacode.lijn gaat over de productielijn + #dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(DnaCode.Toelevering) + #dim ToeleveringsLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijn(DnaCode.ToeleveringLijn) + #dim Aantal As %Integer = ..GeefLijnAantal(ToeleveringsLijn) + #dim ToeleveringsLijnNummer As %String = ToeleveringsLijn.GeefLijnVolgNr() - Set ToeleveringsLijnNummer=$G(^TO("IU",DnaCode.Toelevering,DnaCode.ToeleveringLijn)) - // TODO check op stekren of dit leeg is want anders verder in hadetik foutmelding - If (ToeleveringsLijnNummer = ""){ - // Error gooien? - } - Do PRINT^HADETIK("|PRN|\\FOP\ICT","T",DnaCode.Toelevering,ToeleveringsLijnNummer,DnaCode.ProductNummer,aantal,VoorkeurPrinter,DnaCode.DnaCode) + Do PRINT^HADETIK("|PRN|\\FOP\ICT","T",DnaCode.Toelevering,ToeleveringsLijnNummer,DnaCode.ProductNummer,Aantal,VoorkeurPrinter,DnaCode.DnaCode) } ]]>