// Testen van de BL.PPS.OL.Inpak
 #include %occInclude
 #Include BL.Sys.Proxy
 
 #define QuitIfError(%context,%st) Write:%st'=$$$pxStatusOK %context, " --- Msg:", %st.Message, ", IMsg:", %st.InternalMessage, !  hang:%st'=$$$pxStatusOK (3)  quit:%st'=$$$pxStatusOK
 #define QuitWithStatusIfError(%context,%st) Write:%st'=$$$pxStatusOK %context, " --- Msg:", %st.Message, ", IMsg:", %st.InternalMessage, !  quit:%st'=$$$pxStatusOK %st
 #define WriteError(%context,%st) Write:%st'=$$$pxStatusOK %context, " --- Msg:", %st.Message, ", IMsg:", %st.InternalMessage, !
 //#define TestBon 389086
 //#define TestBon 366909
 //#define TestBon 389014
 //#define TestBon 396192
 #define TestBon 303276
 //#define TestBon 493
 //#define TestBon 399703
 
WSTestOne
 kill
 do WSTestLijst
 quit
 ; 
 
WSTestAll
 kill
 //do WSTestBONOverviewError
 do WSTestStartBerekening
 do WSTestBONOverview
 do WSTestBONOverviewBONNr
 do WSTestBONOverviewAllBons
 do WSTestLijst
 do WSTestLijstCurrent
 do WSTestStartInpak()
 do WSTestInpakNext
 do WSTestRedo
 do WSTestRedoNieuw
 do WSTestBlokkeerVerpakking
 do WSTestHerprint
 do WSTestHersnijInformatie
 do WSTestRefresh
 do WSTestQueryLog
 
 quit
 
TempTest
 kill
 new ws, st
 Write "TempTest", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Test("test")
 quit
 
WSTestStartBerekening
 kill
 Write "WSTestStartBerekening ", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.StartBerekening("test", $$$TestBon)
 $$$QuitIfError("Na StartBerekening",st) 
 quit
 
WSTestBONOverviewError
 kill
 Write "WSTestBONOverview Error", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test",,"333",,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st 
 Write "WSTestBONOverview Error (bis)", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test",,$$$TestBon,,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st 
 quit
 
WSTestBONOverview
 kill
 Write "WSTestBONOverview alles (zonder parameter)", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test",,,,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st  
 
 Write "WSTestBONOverview alles (met paramter, is zelfde resultaat ", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test",,,0,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st 
 
 Write "WSTestBONOverview (Klant(1385), Order(), F", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test", 1385,,,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st 
 
 Write "WSTestBONOverview (Klant(), Order(391684), F", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test", ,391684,,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st
 
 Write "WSTestBONOverview (Klant(1385), Order(), FG", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test", 1385,,1,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st 
 
 Write "WSTestBONOverview (Klant(), Order(", $$$TestBon,"), FG", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test", ,$$$TestBon,1,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st 
 quit 
 
 
WSTestBONOverviewBONNr
 kill
 
 Write "WSTestBONOverview (Klant(), Order(", $$$TestBon,"), FG", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test", ,$$$TestBon,1,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st 
 quit
 
 
WSTestBONOverviewAllBons
 kill
 
 Write "WSTestBONOverviewAllBons", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetBONOverview("test", , , ,.qry)
 Write "Status GetBONOverview", st, !
 $$$QuitIfError("Na GetBONOverview",st) 
 Do DbgWriteBONOverviewItems(.qry)
 kill qry, ws, st 
 quit
 
WSTestLijst
 kill
 Write "WSTestLijst", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetListInfo("test",$$$TestBon,2,.pxInpakOverzicht)
 Write "Status GetListinfo=", st, !
 $$$QuitIfError("Na ws.GetListInfo",st)
 
 Write "begin list",!
 Write "BonNr:", pxInpakOverzicht.BONNr, !
 Write "KlantNaam:", pxInpakOverzicht.KlantNaam, !
 For  set St=pxInpakOverzicht.DsOverzicht.Next() Quit:St'=1  Do
 . Write $get(pxInpakOverzicht.DsOverzicht.Data("Type")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("SnijID")),*9
 . Write $get(pxInpakOverzicht.DsOverzicht.Data("PRNr")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("Product")),*9
 . Write $get(pxInpakOverzicht.DsOverzicht.Data("Totaal")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("Aantal")),*9
 . Write $get(pxInpakOverzicht.DsOverzicht.Data("Status")), *9, $Get(pxInpakOverzicht.DsOverzicht.Data("HasSnijDef")),*9,$Get(pxInpakOverzicht.DsOverzicht.Data("PrintEtiket")), !
 Write "end next",!
 Write "At end, status = ", St, !, !
 
 Write "StapelImages... ", !
 For  set St=pxInpakOverzicht.DsStapelImages.Next() Quit:St'=1  Do
 . Write "  StapelImage:", $Get(pxInpakOverzicht.DsStapelImages.Data("Url")), !
 
 Set pxStatus = ##class(BL.PPS.OL.Inpak).ReOpen(%blSession, "Intra.PPS.OL.Inpak",.bl)
 For i=1:1:bl.SequenceList.Count() do
 . Set lbTemp=bl.SequenceList.GetAt(i)
 . Write "** ", $LI(lbTemp,1), "/", $LI(lbTemp,2), "/", $LI(lbTemp,3), "/", $LI(lbTemp,4), !
 
 quit
 
WSTestLijstCurrent
 
 kill pxInpakOverzicht, ws, st 
 
 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetListInfoCurrent("test",.pxInpakOverzicht)
 Write "Status GetListinfoCurrrent=", st, !
 $$$QuitIfError("Na ws.GetListInfoCurrent",st)
 
 Write "begin list",!
 Write "BonNr:", pxInpakOverzicht.BONNr, !
 Write "KlantNaam:", pxInpakOverzicht.KlantNaam, !
 For  set St=pxInpakOverzicht.DsOverzicht.Next() Quit:St'=1  Do
 . Write $get(pxInpakOverzicht.DsOverzicht.Data("Type")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("Product")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("Totaal")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("Aantal")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("Status")), !
 Write "end next",!
 Write "At end, status = ", St, !, !
 
 kill pxInpakOverzicht, ws, st 
 Quit
 
WSTestStartInpak()
 kill
 Write "WSTestStartInpak", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.StartInpak("test",$$$TestBon, 2, .InpakItem)
 Write "Status StartInpak", st, !
 $$$QuitWithStatusIfError("Na StartInpak",st)
 
 //Do $system.OBJ.Dump(InpakItem)
 do DbgWritePxInpakItem(InpakItem)
 quit st
 
WSTestInpakNext
 set st = $$WSTestStartInpak()
 $$$QuitIfError("Na WSTestStartInpak",st)
 kill (InpakItem)
 For  do  quit:InpakItem.Status=2
 . Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 . Set st = ws.Next("test", 1, .InpakItem)
 . Write "Status na Next(1):", st, !
 . do DbgWritePxInpakItem(InpakItem)
 
 quit
 // Foutsituatie uitlokken, voorbij de boundary lezen
 Set st = ws.Next("test", 1, .InpakItem)
 $$$WriteError("Status na het lzen voorbij de boundary",st)
 
 Write "Next(-1)", !
 For  do  quit:$$$pxStatusIsERR(st)
 . Set st = ws.Next("test", -1, .InpakItem)
 . $$$QuitIfError("Na Next(-1)",st)
 . do DbgWritePxInpakItem(InpakItem) 
 
 quit 
 ;
WSTestInpakNextAndPrev
 set st = $$WSTestStartInpak()
 $$$QuitIfError("Na WSTestStartInpak",st)
 kill (InpakItem)
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Next("test", 1, .InpakItem)
 Write "Status na Next(1):", st, !
 do DbgWritePxInpakItem(InpakItem)
 
 kill (InpakItem)
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Next("test", -1, .InpakItem)
 Write "Status na Next(-1):", st, !
 do DbgWritePxInpakItem(InpakItem)
 
 kill (InpakItem)
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Next("test", 1, .InpakItem)
 Write "Status na Next(1):", st, !
 do DbgWritePxInpakItem(InpakItem)
 
 quit
 ;
 
WSTestHersnijInformatie
 kill
 Write "WSTestHersnijInformatie", !
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetListInfo("test",$$$TestBon,1,.pxInpakOverzicht)
 $$$QuitIfError("Na ws.GetListInfo",st)
 
 Write "begin list",!
 Write "BonNr:", pxInpakOverzicht.BONNr, !
 Write "KlantNaam:", pxInpakOverzicht.KlantNaam, !
 For  set St=pxInpakOverzicht.DsOverzicht.Next() Quit:St'=1  Do
 . Write $get(pxInpakOverzicht.DsOverzicht.Data("Type")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("SnijID")),*9
 . Write $get(pxInpakOverzicht.DsOverzicht.Data("PRNr")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("Product")),*9
 . Write $get(pxInpakOverzicht.DsOverzicht.Data("Totaal")),*9,$get(pxInpakOverzicht.DsOverzicht.Data("Aantal")),*9
 . Write $get(pxInpakOverzicht.DsOverzicht.Data("Status")), *9, $Get(pxInpakOverzicht.DsOverzicht.Data("HasSnijDef")),*9,$Get(pxInpakOverzicht.DsOverzicht.Data("PrintEtiket")), !
 . if $Get(pxInpakOverzicht.DsOverzicht.Data("HasSnijDef")) do
 . . Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 . . Set st = ws.GetHersnijInformatie("test", $get(pxInpakOverzicht.DsOverzicht.Data("SnijID")), .InpakItem)
 . . $$$QuitIfError("Na ws.GetHersnijInformatie",st)
 . . do DbgWritePxInpakItem(InpakItem)
 Write "end next",!
 Write "At end, status = ", St, !, !
 
 quit
 
WSTestRedo
 kill
 New ws, st, InpakItem, pxRedo, i, dtl
 Write "WSTestRedo", !
 // Inpakbon starten
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.StartInpak("test",$$$TestBon, .InpakItem)
 Write "Status StartInpak", st, !
 $$$QuitIfError("Na StartInpak",st)
 
 //do DbgWritePxInpakItem(InpakItem)
 
 // Item verder opschuiven  
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Next("test", 1, .InpakItem)
 Write "Status na Next(1):", st, !
 $$$QuitIfError("Na StartInpak",st)
 if (InpakItem.Status=2||InpakItem.Status=4) do  quit
 . Write "Unexpected EindeOverdoos (InpakItem.status=", InpakItem.Status, !
 
 //do DbgWritePxInpakItem(InpakItem)
 
 // Redo-list opbouwen (gebeurt normaal aan de echte client zijde, hier een simulatie om te kunnen testen)
 Set pxRedo = ##class(BL.PPS.OL.pxInpakRedo).%New()
 For i=1:1:InpakItem.Detail.Count() do 
 . Set dtl = ##class(BL.PPS.OL.pxInpakRedoDtl).%New()
 . Set dtl.SnijID = InpakItem.Detail.GetAt(i).SnijID
 . Set dtl.AantalRedo = $Random(5)
 . Write "pxInpakRedoDtl : ", dtl.SnijID, "/", dtl.AantalRedo, !
 . do pxRedo.Detail.Insert(dtl) 
 
 // Redo uitvoeren
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.HersnijDoos("test", pxRedo)
 $$$QuitIfError("Na StartInpak",st)
 quit
 
WSTestRedoNieuw
 kill
 New ws, st, InpakItem, pxRedo, i, dtl
 Write "WSTestRedo", !
 // Inpakbon starten
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.StartInpak("test",$$$TestBon, .InpakItem)
 Write "Status StartInpak", st, !
 $$$QuitIfError("Na StartInpak",st)
 
 //do DbgWritePxInpakItem(InpakItem)
 
 // Item verder opschuiven  
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Next("test", 1, .InpakItem)
 Write "Status na Next(1):", st, !
 $$$QuitIfError("Na StartInpak",st)
 if (InpakItem.Status=2||InpakItem.Status=4) do  quit
 . Write "Unexpected EindeOverdoos (InpakItem.status=", InpakItem.Status, !
 
 //do DbgWritePxInpakItem(InpakItem)
 
 // Redo-list opbouwen (gebeurt normaal aan de echte client zijde, hier een simulatie om te kunnen testen)
 Set pxRedo = ##class(BL.PPS.OL.pxInpakRedo).%New()
 For i=1:1:InpakItem.Detail.Count() do 
 . Set dtl = ##class(BL.PPS.OL.pxInpakRedoDtl).%New()
 . Set dtl.SnijID = InpakItem.Detail.GetAt(i).SnijID
 . Set dtl.AantalRedo = $Random(5)
 . Write "pxInpakRedoDtl : ", dtl.SnijID, "/", dtl.AantalRedo, !
 . do pxRedo.Detail.Insert(dtl) 
 
 // Redo uitvoeren
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.HersnijNieuweDoos("test", pxRedo)
 $$$QuitIfError("Na StartInpak",st)
 quit
  
WSTestHerprint
 kill
 New ws, st, InpakItem, test1, test2, test3, test4
 Write "WSTestHerprint", !
 
 // 4 testen :
 // 1. simulatie herprint overdoos (vanuit pxInpakOverzicht.DsOverzicht)
 // 2. simulatie herprint 1 product (idem)
 // 3. simulatie herprint onderdeel van doos (matjes)
 // 4. simulatie herprint current item
 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetListInfo("test",$$$TestBon,1,.pxInpakOverzicht)
 Write "Status GetListinfo=", st, !
 $$$QuitIfError("Na ws.GetListInfo",st)
 
 set St=pxInpakOverzicht.DsOverzicht.Next()
 $$$QuitIfError("Na eerste pxInpakOverzicht.DsOverzicht.Next()",st)
 set test1=$lb($get(pxInpakOverzicht.DsOverzicht.Data("SnijID")), $get(pxInpakOverzicht.DsOverzicht.Data("PRNr")))
 
 for  set St=pxInpakOverzicht.DsOverzicht.Next()  do  quit:((st=0)||(($g(test2)'="")&&($g(test3)'="")))
 . $$$QuitIfError("Na tweede pxInpakOverzicht.DsOverzicht.Next()",st)
 . if (($g(test2)="")&&($get(pxInpakOverzicht.DsOverzicht.Data("PRNr"))'="")) do
 . . // echt product
 . . set test2=$lb($get(pxInpakOverzicht.DsOverzicht.Data("SnijID")), $get(pxInpakOverzicht.DsOverzicht.Data("PRNr")))
 . if (($g(test3)="")&&($get(pxInpakOverzicht.DsOverzicht.Data("PRNr"))="")) do
 . . // fake product (="Meerdere producten"), eerstvolgende is een echt product
 . . set St=pxInpakOverzicht.DsOverzicht.Next()
 . . $$$QuitIfError("Na tweede pxInpakOverzicht.DsOverzicht.Next()",st)
 . . set test3=$lb($get(pxInpakOverzicht.DsOverzicht.Data("SnijID")), $get(pxInpakOverzicht.DsOverzicht.Data("PRNr")))
 
 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.HerDrukEtiket("test",$LG(test1,1),$LG(test1,2)) // overdoos
 $$$QuitIfError("Na HerDrukEtiket",st)
 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.HerDrukEtiket("test",$LG(test2,1),$LG(test2,2)) // gewoon product
 $$$QuitIfError("Na HerDrukEtiket",st)
 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.HerDrukEtiket("test",$LG(test3,1),$LG(test3,2)) // product van meerdere in een doos (matjes)
 $$$QuitIfError("Na HerDrukEtiket",st)
 
  // Om Current item te testen moeten we een Inpakbon starten
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.StartInpak("test",$$$TestBon, .InpakItem)
 Write "Status StartInpak", st, !
 $$$QuitIfError("Na StartInpak",st)
 
 //do DbgWritePxInpakItem(InpakItem)
 
 // Item verder opschuiven ... 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Next("test", 1, .InpakItem)
 $$$QuitIfError("Na StartInpak",st)
 if (InpakItem.Status=2||InpakItem.Status=4) do  quit
 . Write "Unexpected EindeOverdoos (InpakItem.status=", InpakItem.Status, !
 
 // ... een keer terugschuiven ...  
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Next("test", -1, .InpakItem)
 Write "Status na Next(-1):", st, !
 $$$QuitIfError("Na StartInpak",st)
 
 //do DbgWritePxInpakItem(InpakItem)
 
  // ... en Herprint uitvoeren
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.HerDrukEtiket("test")
 $$$QuitIfError("Na HerDrukEtiket",st)
 quit
  
WSTestBlokkeerVerpakking
 kill
 New ws, st, InpakItem, test1
 Write "WSTestBlokkeerVerpakking", !
 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.GetListInfo("test",$$$TestBon,1,.pxInpakOverzicht)
 Write "Status GetListinfo=", st, !
 $$$QuitIfError("Na ws.GetListInfo",st)
 
 Set pxStatus = ##class(BL.PPS.OL.Inpak).ReOpen(%blSession, "Intra.PPS.OL.Inpak",.bl)
 For i=1:1:bl.SequenceList.Count() do
 . Set lbTemp=bl.SequenceList.GetAt(i)
 . Write "** ", $LI(lbTemp,1), "/", $LI(lbTemp,2), "/", $LI(lbTemp,3), "/", $LI(lbTemp,4), !
 . Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 . Set st = ws.BlokkeerVerpakking("test",$LI(lbTemp,2))
 . $$$QuitIfError("Na BlokkeerVerpakking",st)
 quit
  
  
WSTestRefresh
 kill
 New ws, st, InpakItem
 Write "WSTestRefresh", !
 
 // enkele items opschuiven in de lijst, dan 3x refresh doen
 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 
  // Inpakbon starten
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.StartInpak("test",$$$TestBon, .InpakItem)
 $$$QuitIfError("Na StartInpak",st)
 
 
 // Item verder opschuiven ... 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Next("test", 1, .InpakItem)
 $$$QuitIfError("Na StartInpak",st)
 if (InpakItem.Status=2||InpakItem.Status=4) do  quit
 . Write "Unexpected EindeOverdoos (InpakItem.status=", InpakItem.Status, !
 
 // Item verder opschuiven ... 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Next("test", 1, .InpakItem)
 $$$QuitIfError("Na StartInpak",st)
 if (InpakItem.Status=2||InpakItem.Status=4) do  quit
 . Write "Unexpected EindeOverdoos (InpakItem.status=", InpakItem.Status, !
 
 write "WSTestRefresh : originele data", ! 
 do DbgWritePxInpakItem(InpakItem)
 
  // ... en 2x refresh uitvoeren
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Refresh("test")
 $$$QuitIfError("Na Refresh",st)
 write "WSTestRefresh : na refresh", ! 
 do DbgWritePxInpakItem(InpakItem)
 
 Set ws = ##class(Intra.PPS.OL.Inpak).%New()
 Set st = ws.Refresh("test")
 $$$QuitIfError("Na Refresh",st)
 write "WSTestRefresh : na refresh", ! 
 do DbgWritePxInpakItem(InpakItem)
 quit
  
WSTestQueryLog
 new st, Query
 Set Query = "DS.PPS.Logging:GetLogByRef"
 Set RS=##class(%ResultSet).%New(Query)
 If RS="" Do  $$$QuitIfError("Create Query",st)
 . Set st = $$$pxStatusError("Kan geen nieuwe instantie van de query '"_Query_"' maken.")
 
 Set st=$$$pxCacheStatus(RS.Execute($$$TestBon))
 $$$QuitIfError("Na Execute",st)
 
 For  Quit:('RS.Next())  Do
	. write RS.Data("ID"), *9, RS.Data("Datum"), *9, RS.Data("Tijd"), *9, RS.Data("Niveau"), *9, RS.Data("Actie"), *9, RS.Data("Detail"), *9, RS.Data("Ref"), *9, RS.Data("SessionKey"), !
 quit
 ;
TestLogging
 //do ##class(DS.PPS.Logging).AddToLog("PD.OLInpakTest","I", "S", , "Test", , , , "Bonnr")
 do ##class(DS.Prod.OptiBox.Logging).Create(,,"I","S",,"PDO Test Ref","My Action","My Detail", ,"My ProgLabel")
 quit
 
CleanLogging
 do ##class(DS.PPS.Logging).CleanOld(1)
 quit
 
TestList
	new tstList
	Set tstList = ##class(%Library.ListOfObjects).%New
	Do tstList.Insert($LB("A",111,0))
	Do tstList.Insert($LB("B",112,0))
	Do tstList.Insert($LB("C",113,0))
 
  For i=1:1:..tstList.Count() do
	. Set lbTemp=..tstList.GetAt(i)
	. Write "** ", $LI(lbTemp,1), "/", $LI(lbTemp,2), "/", $LI(lbTemp,3), !
	
	Quit
 
DbgWriteBONOverviewItems(qry)
 For  set St=qry.Next() Quit:St'=1  Do
 . Write $get(qry.Data("Id")),*9,$get(qry.Data("KLNr")),*9,$get(qry.Data("Klant")),*9,$get(qry.Data("BONNr")),*9,$get(qry.Data("Datum")), *9
 . Write $Get(qry.Data("AantalLijnen")),*9,$Get(qry.Data("AantalStuks")),*9,$Get(qry.Data("DueOutTime")),*9,$Get(qry.Data("Status")),!
 Write "At end, status = ", St, !, !
 Quit
 
DbgWritePxInpakItem(InpakItem)
 New i
 Write "************ InpakItem *******", !
 Write "InpakItem.Status:", InpakItem.Status, !
 Write "InpakItem.BONNr:", InpakItem.BONNr, !
 Write "InpakItem.KlantNaam:", InpakItem.KlantNaam, !
 Write "InpakItem.PRNr:", InpakItem.PRNr, !
 Write "InpakItem.ProductSequence:", InpakItem.ProductSequence, !
 Write "InpakItem.AantalProducten:", InpakItem.AantalProducten, !
 Write "InpakItem.AantalIdentiekeProducten:", InpakItem.AantalIdentiekeProducten, !
 Write "InpakItem.AantalDozen:", InpakItem.AantalDozen, !
 Write "InpakItem.BoxImage:", InpakItem.BoxImage, !
 Write "InpakItem.StapelImage:", InpakItem.StapelImage, !
 Write "InpakItem.VoorVerpakt:", InpakItem.VoorVerpakt, !
 Write "InpakItem.Products... ", InpakItem.ProductInfo.Count(), !
 For i=1:1:InpakItem.ProductInfo.Count() do
 . Write "  ProductInfo.PRNr:",  InpakItem.ProductInfo.GetAt(i).PRNr, !
 . Write "    ProductInfo.KortTekst :",  InpakItem.ProductInfo.GetAt(i).KortTekst, !
 . Write "    ProductInfo.LangTekst :",  InpakItem.ProductInfo.GetAt(i).LangTekst, !
 . Write "    ProductInfo.Aantal :",  InpakItem.ProductInfo.GetAt(i).Aantal, !
 . Write "    ProductInfo.Image :",  InpakItem.ProductInfo.GetAt(i).Image, !
 . 
 Write "InpakItem.Details... ", InpakItem.Detail.Count(), !
 For i=1:1:InpakItem.Detail.Count() do
 . Write "  DtlInpakItem.SnijID:",  InpakItem.Detail.GetAt(i).SnijID, !
 . Write "    DtlInpakItem.BoxUsage:",  InpakItem.Detail.GetAt(i).BoxUsage, !
 . Write "    DtlInpakItem.AantalGevraagd:",  InpakItem.Detail.GetAt(i).AantalGevraagd, !
 . Write "    DtlInpakItem.AantalAf:",  InpakItem.Detail.GetAt(i).AantalAf, !
 
 Write "InpakItem.AbrevPrevious:", InpakItem.AbrevPrevious, !
 Write "InpakItem.AbrevNext:", InpakItem.AbrevNext, !
 Write "InpakItem.AbrevCurrent:", InpakItem.AbrevCurrent, !
 quit
 
DbgWritePxInpakItemSmall(InpakItem)
 Write $s(InpakItem="":" InpakItem:<eof>", 1:" InpakItem.Sequence:"_InpakItem.Sequence_", InpakItem.PRNr:"_InpakItem.PRNr), !
 
 quit