Index: APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml =================================================================== diff -u -r61906 -r61977 --- APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml (.../VoormontageSpaceStep.cls.xml) (revision 61906) +++ APPS/Halux/PPS/impl/AansturingActie/common/VoormontageSpaceStep.cls.xml (.../VoormontageSpaceStep.cls.xml) (revision 61977) @@ -84,15 +84,17 @@ #dim Tekst As %String = "Voormontage Space Step - " Set Koptekst = ##class(APPS.common.Document.impl.KopTekst).%New() - Set Tekst = Tekst_"BatchID: "_Product.BatchID - Set Tekst = Tekst_" Toelev: "_Product.ToeleveringID - Set Tekst = Tekst_" ProdSeqNr: "_Product.ProductiesequentieNr - Set Tekst = Tekst_" KlantNr: "_$E(Product.KlantId,4,*) - Set Tekst = Tekst_" Korttekst: "_Product.Korttekst - Set Tekst = Tekst_" ProdID: "_Product.ProductID - Set Tekst = Tekst_" Aantal Stuks: "_Product.AantalStuks + Set Tekst = "BatchID: "_Product.BatchID + Set Tekst = Tekst_" Toelev: "_Product.ToeleveringID + //Set Tekst = Tekst_" ProdSeqNr: "_Product.ProductiesequentieNr //Vreemd getal dus wordt niet weergegeven + Set Tekst = Tekst_"
KlantNr: "_$E(Product.KlantId,4,*) + Set Tekst = Tekst_" Korttekst: "_Product.Korttekst + Set Tekst = Tekst_" ProdID: "_Product.ProductID + Set Tekst = Tekst_" Aantal Stuks: "_Product.AantalStuks - Do Koptekst.ZetTekstLinks(Tekst) + Do Koptekst.ZetTekstLinks("Voormontage Space Step ") + Do Koptekst.ZetTekstMidden("") + Do Koptekst.ZetTekstRechts(Tekst) Quit Koptekst ]]>