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