Index: vhUnitTest/BL/PPS/TBX/TestTipon.cls.xml
===================================================================
diff -u -r59044 -r59046
--- vhUnitTest/BL/PPS/TBX/TestTipon.cls.xml (.../TestTipon.cls.xml) (revision 59044)
+++ vhUnitTest/BL/PPS/TBX/TestTipon.cls.xml (.../TestTipon.cls.xml) (revision 59046)
@@ -14,8 +14,9 @@
Set TestClassT = ##class(BL.PPS.TBX.TiponLabelProcessor).%New(1)
Set LabelPrinterMockZ = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
Set LabelPrinterMockT = ##class(vhUnitTest.BL.PPS.TBX.LabelPrinterMock).%New()
+ #dim i As %Integer
- for i=1:1:4 {
+ For i=1:1:4 {
Set pxLabel=##class(LabelMock).%New()
Do pxLabel.SetTipon(0)
Set pxLabel.VolgNr = i
@@ -62,6 +63,7 @@
#dim i=0
Set pxLabelIterator = ##class(TECH.ListIterator).%New(LabelList)
While pxLabelIterator.HasNext() {
+ #dim NextLabel As vhUnitTest.BL.PPS.TBX.LabelMock
#dim pxLabel As vhUnitTest.BL.PPS.TBX.LabelMock = pxLabelIterator.Next()
Set i=i+1
Do:MultiProcessorZ.Process(.pxLabel) LabelPrinterMockZ.Add(pxLabel)
@@ -80,7 +82,7 @@
Do $$$AssertEquals(LabelPrinterMockT.Count, 2, "T # labels added to printer")
Do $$$AssertEquals(LabelPrinterMockT.LastSeqNr, 3, "T Last label sequence number")
// Intermediate tipon indication on the label in "zaaglijst" following a series of tipons
- Do $$$AssertEquals(NextLabel.GeefTiponCount(), 2, "Z Intermediate tipon count")
+ Do $$$AssertEquals(NextLabel.GetTiponCountBefore(), 2, "Z Intermediate tipon count")
Quit $$$OK
]]>
@@ -155,9 +157,9 @@
Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
Do $$$AssertEquals(LabelPrinterMockZ.Count, 3, "Z # labels added to printer")
Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 5, "Z Last label sequence number")
- Do $$$AssertEquals(LabelList.GetAt(1).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
- Do $$$AssertEquals(LabelList.GetAt(3).GeefTiponCount(),1,"Er is 1 voorgaande tipon")
- Do $$$AssertEquals(LabelList.GetAt(5).GeefTiponCount(),1,"Er is 1 voorgaande tipon")
+ Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountBefore(),0,"Er zijn geen voorgaande tipons")
+ Do $$$AssertEquals(LabelList.GetAt(3).GetTiponCountBefore(),1,"Er is 1 voorgaande tipon")
+ Do $$$AssertEquals(LabelList.GetAt(5).GetTiponCountBefore(),1,"Er is 1 voorgaande tipon")
Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
Do $$$AssertEquals(LabelList.GetAt(2).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
Do $$$AssertEquals(LabelList.GetAt(3).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
@@ -202,10 +204,10 @@
Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
Do $$$AssertEquals(LabelPrinterMockZ.Count, 3, "Z # labels added to printer")
Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 5, "Z Last label sequence number")
- Do $$$AssertEquals(LabelList.GetAt(1).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
- Do $$$AssertEquals(LabelList.GetAt(2).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
- Do $$$AssertEquals(LabelList.GetAt(3).GeefTiponCount(),1,"Er is 1 voorgaande tipon")
- Do $$$AssertEquals(LabelList.GetAt(5).GeefTiponCount(),1,"Er is 1 voorgaande tipon")
+ Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountBefore(),0,"Er zijn geen voorgaande tipons")
+ Do $$$AssertEquals(LabelList.GetAt(2).GetTiponCountBefore(),0,"Er zijn geen voorgaande tipons")
+ Do $$$AssertEquals(LabelList.GetAt(3).GetTiponCountBefore(),1,"Er is 1 voorgaande tipon")
+ Do $$$AssertEquals(LabelList.GetAt(5).GetTiponCountBefore(),1,"Er is 1 voorgaande tipon")
Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
Do $$$AssertEquals(LabelList.GetAt(2).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
Do $$$AssertEquals(LabelList.GetAt(3).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
@@ -245,10 +247,10 @@
Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
Do $$$AssertEquals(LabelPrinterMockZ.Count, 3, "Z # labels added to printer")
Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 7, "Z Last label sequence number")
- Do $$$AssertEquals(LabelList.GetAt(1).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
- Do $$$AssertEquals(LabelList.GetAt(4).GeefTiponCount(),0,"Er zijn geen tipons") ; Het spoelbak label zit nog wel in deze sequentie, maar wordt uit de productielijn afgesplitst vooraleer de tipons toegevoegd worden, dus het aantal tipons blijft verder optellen nà spoelbak
- Do $$$AssertEquals(LabelList.GetAt(6).GeefTiponCount(),3,"Er zijn 3 voorgaande tipons") ; m.a.w. hier 2 tipons vóór spoelbak + 1 vóór Std-lade = 3 tipons voorgaand.
- Do $$$AssertEquals(LabelList.GetAt(7).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+ Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountBefore(),0,"Er zijn geen voorgaande tipons")
+ Do $$$AssertEquals(LabelList.GetAt(4).GetTiponCountBefore(),0,"Er zijn geen tipons") ; Het spoelbak label zit nog wel in deze sequentie, maar wordt uit de productielijn afgesplitst vooraleer de tipons toegevoegd worden, dus het aantal tipons blijft verder optellen nà spoelbak
+ Do $$$AssertEquals(LabelList.GetAt(6).GetTiponCountBefore(),3,"Er zijn 3 voorgaande tipons") ; m.a.w. hier 2 tipons vóór spoelbak + 1 vóór Std-lade = 3 tipons voorgaand.
+ Do $$$AssertEquals(LabelList.GetAt(7).GetTiponCountBefore(),0,"Er zijn geen voorgaande tipons")
Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
Do $$$AssertEquals(LabelList.GetAt(4).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
Do $$$AssertEquals(LabelList.GetAt(6).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
@@ -289,9 +291,9 @@
Do $$$AssertEquals(LabelPrinterMockZ.Printed, 1, "Z Printed")
Do $$$AssertEquals(LabelPrinterMockZ.Count, 2, "Z # labels added to printer")
Do $$$AssertEquals(LabelPrinterMockZ.LastSeqNr, 2, "Z Last label sequence number")
- Do $$$AssertEquals(LabelList.GetAt(1).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
- Do $$$AssertEquals(LabelList.GetAt(2).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
- Do $$$AssertEquals(LabelList.GetAt(4).GeefTiponCount(),0,"Er zijn geen voorgaande tipons")
+ Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountBefore(),0,"Er zijn geen voorgaande tipons")
+ Do $$$AssertEquals(LabelList.GetAt(2).GetTiponCountBefore(),0,"Er zijn geen voorgaande tipons")
+ Do $$$AssertEquals(LabelList.GetAt(4).GetTiponCountBefore(),0,"Er zijn geen voorgaande tipons")
Do $$$AssertEquals(LabelList.GetAt(1).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
Do $$$AssertEquals(LabelList.GetAt(2).GetTiponCountAfter(),2,"Er zijn 2 tipons achter")
Do $$$AssertEquals(LabelList.GetAt(4).GetTiponCountAfter(),0,"Er zijn geen tipons achter")
Index: BL/PPS/TBX/TiponLabelProcessor.cls.xml
===================================================================
diff -u -r58990 -r59046
--- BL/PPS/TBX/TiponLabelProcessor.cls.xml (.../TiponLabelProcessor.cls.xml) (revision 58990)
+++ BL/PPS/TBX/TiponLabelProcessor.cls.xml (.../TiponLabelProcessor.cls.xml) (revision 59046)
@@ -106,7 +106,7 @@
Set PrintThisLabel=0
} else {
// It's a non-tipon label, so add an indication of intermediate tipons (if any)
- Do label.SetTiponCount(..TiponCount) // Note: TiponCount can be zero
+ Do label.SetTiponCountBefore(..TiponCount) // Note: TiponCount can be zero
Set ..TiponCount = 0
Set ..LaatsteNietTiponLabel = label
// Make sure we print the label
Index: vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestTipon.cls.xml
===================================================================
diff -u -r59010 -r59046
--- vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestTipon.cls.xml (.../TestTipon.cls.xml) (revision 59010)
+++ vhUnitTest/APPS/Halux/PPS/impl/EtiketService/DrukAfZaagEtiketten/TBX/TestTipon.cls.xml (.../TestTipon.cls.xml) (revision 59046)
@@ -69,7 +69,7 @@
For i=1:1:VoorEnNaLijst.Count() {
If $$$AssertTrue(LabelIterator.HasNext()) {
#dim Label As BL.PPS.TBX.sub.pxLabelV1 = LabelIterator.Next()
- Do $$$AssertEquals(Label.GetTiponCount(),$ListGet(VoorEnNaLijst.GetAt(i),1))
+ Do $$$AssertEquals(Label.GetTiponCountBefore(),$ListGet(VoorEnNaLijst.GetAt(i),1))
Do $$$AssertEquals(Label.GetTiponCountAfter(),$ListGet(VoorEnNaLijst.GetAt(i),2))
}
}
Index: BL/PPS/TBX/sub/pxLabelV1.cls.xml
===================================================================
diff -u -r59005 -r59046
--- BL/PPS/TBX/sub/pxLabelV1.cls.xml (.../pxLabelV1.cls.xml) (revision 59005)
+++ BL/PPS/TBX/sub/pxLabelV1.cls.xml (.../pxLabelV1.cls.xml) (revision 59046)
@@ -136,7 +136,7 @@
1
-
+
Count of previous tipons
%Integer
@@ -208,7 +208,7 @@
Write ..Picture,*9
Write ..VHossID,*9
- Write:(..TiponCount > 0) ..TiponCount
+ Write:(..TiponCountBefore > 0) ..TiponCountBefore
Write *9,..Line,*9
Write ..ExtraLabelInfo,*9
@@ -261,15 +261,15 @@
]]>
-
+
count:%Integer
-
-
+
%Integer
-
Index: vhUnitTest/BL/PPS/TBX/LabelMock.cls.xml
===================================================================
diff -u -r58997 -r59046
--- vhUnitTest/BL/PPS/TBX/LabelMock.cls.xml (.../LabelMock.cls.xml) (revision 58997)
+++ vhUnitTest/BL/PPS/TBX/LabelMock.cls.xml (.../LabelMock.cls.xml) (revision 59046)
@@ -5,8 +5,9 @@
1
BL.PPS.TBX.sub.pxLabelV1
-
-
+%Integer
+