Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml =================================================================== diff -u -r30088 -r30532 --- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml (.../KlantEtiket.cls.xml) (revision 30088) +++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml (.../KlantEtiket.cls.xml) (revision 30532) @@ -36,7 +36,7 @@ If Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox() && ..IsTAXMetAssemblageKar(Batch) { Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Gemonteerd.EtiketPrinter).%New() } Else { - Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkEtiketPrinter).%New() + Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.OnGemonteerd.EtiketPrinter).%New() } } Do KlantEtiketPrinter.PrintKlantEtiket(Batch,PrintSpecifiekEtiket,ToeleveringID,Dossiercode,Aantal) Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/StartBatch/Productie_006_HALUX_productie_TAOR_MaatwerkProduct8x11.TXT =================================================================== diff -u -r30420 -r30532 --- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/StartBatch/Productie_006_HALUX_productie_TAOR_MaatwerkProduct8x11.TXT (.../Productie_006_HALUX_productie_TAOR_MaatwerkProduct8x11.TXT) (revision 30420) +++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/StartBatch/Productie_006_HALUX_productie_TAOR_MaatwerkProduct8x11.TXT (.../Productie_006_HALUX_productie_TAOR_MaatwerkProduct8x11.TXT) (revision 30532) @@ -2,6 +2,10 @@ %END% Info1 Info2 Info3 Info4 Info5 BarcodeTekst Barcode KlantBarcode Diepte Breedte WandDikte OrderID ToeleveringID ProductieWeek VerzendWijze Dossier ProductImg KlantImg HoutCertificaatImg LblInfo1 LblInfo2 LblInfo3 LblInfo4 LblInfo5 LblOrder LblToelevering LblDossier Kleur LadeCode 222223 +222224 +222225 +222226 +222227 UNITTEST KLANT H.LI.7K.0 HLI7K0 D: 500 B: 600 WD: 322223 222223 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantLinks.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z UNITTEST KLANT H.LI.7K.0 HLI7K0 D: 500 B: 600 WD: 322223 222223 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantLinks.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z UNITTEST KLANT H.LI.7K.0 HLI7K0 D: 500 B: 600 WD: 322223 222223 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantLinks.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z @@ -12,7 +16,6 @@ UNITTEST KLANT H.LI.7K.0 HLI7K0 D: 500 B: 600 WD: 322223 222223 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantLinks.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z UNITTEST KLANT H.LI.7K.0 HLI7K0 D: 500 B: 600 WD: 322223 222223 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantLinks.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z UNITTEST KLANT H.LI.7K.0 HLI7K0 D: 500 B: 600 WD: 322223 222223 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantLinks.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z -222224 UNITTEST KLANT H.LI.7L.5 HLI7L5 D: 500 B: 600 WD: 322224 222224 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantRechts.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z UNITTEST KLANT H.LI.7L.5 HLI7L5 D: 500 B: 600 WD: 322224 222224 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantRechts.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z UNITTEST KLANT H.LI.7L.5 HLI7L5 D: 500 B: 600 WD: 322224 222224 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantRechts.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z @@ -23,7 +26,6 @@ UNITTEST KLANT H.LI.7L.5 HLI7L5 D: 500 B: 600 WD: 322224 222224 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantRechts.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z UNITTEST KLANT H.LI.7L.5 HLI7L5 D: 500 B: 600 WD: 322224 222224 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantRechts.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z UNITTEST KLANT H.LI.7L.5 HLI7L5 D: 500 B: 600 WD: 322224 222224 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantRechts.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier NN/NN C/Z -222225 UNITTEST KLANT H.LI.7M.0 HLI7M0 D: 500 B: 600 WD: 322225 222225 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Rug.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7M.0 HLI7M0 D: 500 B: 600 WD: 322225 222225 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Rug.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7M.0 HLI7M0 D: 500 B: 600 WD: 322225 222225 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Rug.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z @@ -34,7 +36,6 @@ UNITTEST KLANT H.LI.7M.0 HLI7M0 D: 500 B: 600 WD: 322225 222225 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Rug.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7M.0 HLI7M0 D: 500 B: 600 WD: 322225 222225 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Rug.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7M.0 HLI7M0 D: 500 B: 600 WD: 322225 222225 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Rug.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z -222226 UNITTEST KLANT H.LI.7N.5 HLI7N5 D: 500 B: 600 WD: 322226 222226 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Front.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7N.5 HLI7N5 D: 500 B: 600 WD: 322226 222226 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Front.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7N.5 HLI7N5 D: 500 B: 600 WD: 322226 222226 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Front.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z @@ -45,7 +46,6 @@ UNITTEST KLANT H.LI.7N.5 HLI7N5 D: 500 B: 600 WD: 322226 222226 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Front.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7N.5 HLI7N5 D: 500 B: 600 WD: 322226 222226 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Front.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7N.5 HLI7N5 D: 500 B: 600 WD: 322226 222226 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Front.JPG Logo\Logo VHZwart.svg LOGO\W\PEFC_VH_PROD_70.JPG Klant Order Dossier /NN C/Z -222227 UNITTEST KLANT H.LI.7O.0 HLI7O0 D: 500 B: 600 WD: 322227 222227 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Bodem.JPG Logo\Logo VHZwart.svg Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7O.0 HLI7O0 D: 500 B: 600 WD: 322227 222227 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Bodem.JPG Logo\Logo VHZwart.svg Klant Order Dossier /NN C/Z UNITTEST KLANT H.LI.7O.0 HLI7O0 D: 500 B: 600 WD: 322227 222227 1446 DI1 GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Bodem.JPG Logo\Logo VHZwart.svg Klant Order Dossier /NN C/Z Index: APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/OnGemonteerd/EtiketPrinter.cls.xml =================================================================== diff -u --- APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/OnGemonteerd/EtiketPrinter.cls.xml (revision 0) +++ APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/OnGemonteerd/EtiketPrinter.cls.xml (revision 30532) @@ -0,0 +1,98 @@ + + + +APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Template + + +APPS.Halux.common.impl.SequentieService +1 +1 + + + +APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository +1 +1 + + + +TECH.Integer +1 + + + +1 +1 +%Status +1 + + + + +QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String +1 +APPS.common.Print.AbstractLabel + + + + +ToeleveringLijn:DOM.AKP.ProductToeleveringLijn +1 +%Boolean + + + + +BatchID:%String +1 +APPS.Halux.common.impl.ProductieSequentieGroepering + + + + +1 +%Boolean + + + + + + + + +HuidigePositieInLijst:TECH.Integer +1 +TECH.Integer + + + + +%Library.CacheStorage +EtiketPrinterDefaultData + +"EtiketPrinter" + +PositieLaatstToegevoegdTussenEtiket + + + + + + + Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Template.cls.xml =================================================================== diff -u -r30529 -r30532 --- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Template.cls.xml (.../Template.cls.xml) (revision 30529) +++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Template.cls.xml (.../Template.cls.xml) (revision 30532) @@ -153,7 +153,8 @@ #dim Info As TECH.String = ##class(TECH.ListUtils).ListToPieces(DisplayKeys, ", ") #dim Layout As TECH.String = EtiketDataMetTussenEtiketTrigger.Etiket.Layout #dim Device As TECH.String = EtiketDataMetTussenEtiketTrigger.Etiket.Device - Do ..Etiketten.InsertAt(..GeefTussenEtiketData(Info, Layout, Device), i) + + Do ..Etiketten.InsertAt(..GeefTussenEtiketData(Info, Layout, Device), ..BepaalTussenEtiketPositie(i)) Set i = i + 1 } set VorigTriggerKeyList = TriggerKeyList @@ -162,6 +163,14 @@ ]]> + +HuidigePositieInLijst:TECH.Integer +1 +TECH.Integer + + + Info:TECH.String,Layout:TECH.String,Device:TECH.String 1