Index: APPS/MAG/Inventaris/impl/InventarisService.cls.xml =================================================================== diff -u -r33919 -r58291 --- APPS/MAG/Inventaris/impl/InventarisService.cls.xml (.../InventarisService.cls.xml) (revision 33919) +++ APPS/MAG/Inventaris/impl/InventarisService.cls.xml (.../InventarisService.cls.xml) (revision 58291) @@ -3,7 +3,7 @@ 1 -TECH.RegisteredObject +TECH.Mockable DOM.MAG.Inventaris.InventarisRepository Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml =================================================================== diff -u -r58263 -r58291 --- BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml (.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml) (revision 58263) +++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml (.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml) (revision 58291) @@ -3,6 +3,23 @@ TECH.RegisteredObject + +APPS.MAG.Inventaris.impl.InventarisService +1 + + + +InventarisService:APPS.MAG.Inventaris.impl.InventarisService +1 +1 +%Status +1 + + + bfrRGID:%String,bfrVolgNr:%String %String @@ -64,9 +81,45 @@ #dim ProductNummer As %String = "" #dim Resultaat As %String = "" + #dim ProductAantalLijst = ##class(TECH.KeyValue.UniqueList).%New() + + w !,"5" + Set ProductenOpPalletIterator = ##class(TECH.ListIterator).%New(..InventarisService.GeefProductenOpPallet($P(Rec,"\",3))) + w !,"10" + While ProductenOpPalletIterator.HasNext() { + w !,"20" + #dim ProductOpPallet As APPS.MAG.Inventaris.dto.ProductOpPallet = ProductenOpPalletIterator.Next() + w !,"30" + Do ProductAantalLijst.Insert(##class(TECH.KeyValuePair).%New(ProductOpPallet.ProductData.ID, ProductOpPallet.Aantal)) + w !,"40" + } + + //if al data in EWMS.Inventory voor pallet op piece drie van de bufferlijn + //lijstje opstellen met prnr/aantal + //vooraleer een Geef1Lijn wordt opgeroepen: kijken of er voor hetzelfde product iets in het lijstje zit en het aantal daarmee verhogen + //nadat een Geef1Lijn werd opgeroepen: lijn met dat productnummer verwijderen uit lijstje + //desnoods nog overgebleven lijnen uit lijstje afdrukken mbv Geef1Lijn + #dim AantalReedsOpPallet As %Integer = 0 + #dim ToeleveringId As %String = 0 + + w !,"100" + For Set LijnNrLoop=$O(^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)) Quit:(LijnNrLoop="") Do . Set Rec=^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop) + . Set AantalReedsOpPallet = 0 + . If $IsObject(ProductAantalLijst.FindByKey($P(Rec,"\",1))) + .. Set AantalReedsOpPallet = ProductAantalLijst.FindByKey($P(Rec,"\",1)).Value + .. Do ProductAantalLijst.Remove(ProductAantalLijst.FindByKey($P(Rec,"\",1))) + . Set ToeleveringId = $P(Rec,"\",8) . Set Resultaat = Resultaat_..Geef1Lijn($P(Rec,"\",1), $P(Rec,"\",8), $P(Rec,"\",5)) + + w !,"1000" + Set ProductAantalLijstIterator = ##class(TECH.ListIterator).%New(ProductAantalLijst) + If ProductAantalLijstIterator.HasNext() { + #dim ProductAantalKeyPair As TECH.KeyValuePair = ProductAantalLijstIterator.Next() + Set Resultaat = Resultaat_..Geef1Lijn(ProductAantalKeyPair.Key, ToeleveringId, ProductAantalKeyPair.Value) + } + w !,"1500" Quit Resultaat ]]> Index: vhTest/Mock/APPS/MAG/Inventaris/impl/InventarisService.cls.xml =================================================================== diff -u --- vhTest/Mock/APPS/MAG/Inventaris/impl/InventarisService.cls.xml (revision 0) +++ vhTest/Mock/APPS/MAG/Inventaris/impl/InventarisService.cls.xml (revision 58291) @@ -0,0 +1,228 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.MAG.Inventaris.impl.InventarisService,Tools.Mock.MockClassBase +right + + +InventarisRepository:DOM.MAG.Inventaris.InventarisRepository,UglyPickingService:APPS.MAG.UglyPickingService +%Status + + + + +PalletID:%String,Uitgang:APPS.MAG.Inventaris.enu.AutoMagazijnUitgang + + + + +PalletID:%String,ProductID:%String,Reden:%String,AantalGrootVerpakkingen:%Integer,AantalKleinVerpakkingen:%Integer,AantalStukVerpakkingen:%Integer,PalletInfo:APPS.MAG.UGLYPicking.dto.PalletInfo=##class(APPS.MAG.UGLYPicking.dto.PalletInfo).%New(),AutoCC:%Boolean=0 + + + + +ProductID:%String +%Integer + + + + +ProductID:%String,IsPickbaar:%Boolean=1 +%Integer + + + + +BijladenTotTimeStamp:%TimeStamp +%ListOfObjects + + + + +BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer +APPS.MAG.Inventaris.dto.BijladenInfo + + + + +PalletID:%String,ProductID:%String +APPS.MAG.Inventaris.dto.CycleCountInfo + + + + +TePickenProduct:APPS.MAG.Inventaris.dto.BijladenProductInfo +%ListOfObjects + + + + +PalletID:%String +%ListOfObjects + + + + +PalletID:%String +APPS.MAG.Inventaris.dto.PalletOpvragenAutoMagazijnStatus + + + + +%ListOfObjects + + + + +ProductID:%String +APPS.MAG.Inventaris.dto.ProductenOpPallet + + + + +ProductID:%String +APPS.MAG.Inventaris.dto.ProductenOpPallet + + + + +PalletID:%String,ProductID:%String +APPS.MAG.Inventaris.dto.ProductReceptieDetail + + + + +PalletID:%String +APPS.MAG.Inventaris.dto.ProductenOpPallet + + + + +TimeStamp:%TimeStamp +%ListOfObjects + + + + +OriginelePalletID:%String,NieuwePalletID:%String + + + + +PalletID:%String + + + + +PalletID:%String +%Boolean + + + + +LocatieID:%String +%Boolean + + + + +PalletID:%String +%Boolean + + + + + +%Boolean + + + + + +%Boolean + + + + +dtoProductOpPallet:APPS.MAG.Inventaris.dto.ProductOpPallet,TePickenProduct:APPS.MAG.Inventaris.dto.BijladenProductInfo +APPS.MAG.Inventaris.dto.BijladenProductInfo + + + + + + + + +PalletID:%String,Uitgang:APPS.MAG.Inventaris.enu.AutoMagazijnUitgang +APPS.MAG.Inventaris.dto.PalletOpvragenAutoMagazijnStatus + + + + +PalletID:%String,Uitgang:%String +%String + + + + +PalletID:%String,DoelLocatieID:%String + + + + +PalletID:%String,LocatieID:%String +%Boolean + + + + +PalletID:%String,DoelLocatieID:%String + + + + +BronPalletID:%String,DoelPalletID:%String,DoelLocatieID:%String,ProductID:%String,AantalBijTeLaden:%Integer +APPS.MAG.Inventaris.dto.BijladenUitgevoerd + + + + + + Index: vhTest/Fake/APPS/MAG/Inventaris/impl/InventarisService.cls.xml =================================================================== diff -u --- vhTest/Fake/APPS/MAG/Inventaris/impl/InventarisService.cls.xml (revision 0) +++ vhTest/Fake/APPS/MAG/Inventaris/impl/InventarisService.cls.xml (revision 58291) @@ -0,0 +1,220 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.MAG.Inventaris.impl.InventarisService + + +PalletID:%String,Uitgang:APPS.MAG.Inventaris.enu.AutoMagazijnUitgang + + + + +PalletID:%String,ProductID:%String,Reden:%String,AantalGrootVerpakkingen:%Integer,AantalKleinVerpakkingen:%Integer,AantalStukVerpakkingen:%Integer,PalletInfo:APPS.MAG.UGLYPicking.dto.PalletInfo=##class(APPS.MAG.UGLYPicking.dto.PalletInfo).%New(),AutoCC:%Boolean=0 + + + + +ProductID:%String +%Integer + + + + +ProductID:%String,IsPickbaar:%Boolean=1 +%Integer + + + + +BijladenTotTimeStamp:%TimeStamp +%ListOfObjects + + + + +BronPalletID:%String,DoelPalletID:%String,ProductID:%String,AantalBijTeLaden:%Integer +APPS.MAG.Inventaris.dto.BijladenInfo + + + + +PalletID:%String,ProductID:%String +APPS.MAG.Inventaris.dto.CycleCountInfo + + + + +TePickenProduct:APPS.MAG.Inventaris.dto.BijladenProductInfo +%ListOfObjects + + + + +PalletID:%String +%ListOfObjects + + + + +PalletID:%String +APPS.MAG.Inventaris.dto.PalletOpvragenAutoMagazijnStatus + + + + +%ListOfObjects + + + + +ProductID:%String +APPS.MAG.Inventaris.dto.ProductenOpPallet + + + + +ProductID:%String +APPS.MAG.Inventaris.dto.ProductenOpPallet + + + + +PalletID:%String,ProductID:%String +APPS.MAG.Inventaris.dto.ProductReceptieDetail + + + + +PalletID:%String +APPS.MAG.Inventaris.dto.ProductenOpPallet + + + + +TimeStamp:%TimeStamp +%ListOfObjects + + + + +OriginelePalletID:%String,NieuwePalletID:%String + + + + +PalletID:%String + + + + +PalletID:%String +%Boolean + + + + +LocatieID:%String +%Boolean + + + + +PalletID:%String +%Boolean + + + + + +%Boolean + + + + + +%Boolean + + + + +dtoProductOpPallet:APPS.MAG.Inventaris.dto.ProductOpPallet,TePickenProduct:APPS.MAG.Inventaris.dto.BijladenProductInfo +APPS.MAG.Inventaris.dto.BijladenProductInfo + + + + + + + + +PalletID:%String,Uitgang:APPS.MAG.Inventaris.enu.AutoMagazijnUitgang +APPS.MAG.Inventaris.dto.PalletOpvragenAutoMagazijnStatus + + + + +PalletID:%String,Uitgang:%String +%String + + + + +PalletID:%String,DoelLocatieID:%String + + + + +PalletID:%String,LocatieID:%String +%Boolean + + + + +PalletID:%String,DoelLocatieID:%String + + + + +BronPalletID:%String,DoelPalletID:%String,DoelLocatieID:%String,ProductID:%String,AantalBijTeLaden:%Integer +APPS.MAG.Inventaris.dto.BijladenUitgevoerd + + + + + + Index: vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml =================================================================== diff -u --- vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml (revision 0) +++ vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/BepaalHtmlInhoudProboxOverdoosEtiket/Test.cls.xml (revision 58291) @@ -0,0 +1,51 @@ + + + +vhUnitTest.TestCase + + +aTestName:%String + + + + + + + + +"),5) //5 rijen in tabel (4 producten + header) + Do $$$AssertEquals(##class(TECH.StringUtils).Occurrences(Resultaat,"td align=""center"">0"),1) //laatste product heeft aantal 0 +]]> + + + + + + + + + + + + + +