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 +