Index: vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml =================================================================== diff -u -r54041 -r54043 --- vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml (.../Base.cls.xml) (revision 54041) +++ vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml (.../Base.cls.xml) (revision 54043) @@ -36,7 +36,6 @@ Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..#KLNr, "") Set LeveringTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(..RefDate,VerzendWijze) #dim Termijn As %List = LeveringTermijn.BeschikbaarTermijn(..GeefPRNr()) - Do ##class(Tools.Wlip).%New(26).String($LG(Termijn,2)) If $$$AssertEquals($ListLength(Termijn),2) { #dim TermijnList As %String = $$LCVT^vhLib(Termijn) #dim VerwachteTermijn As %List = $ListBuild(..GeefVerwachtAantal(), ..GeefVerwachteTijdAanduiding()) Index: APPS/VKP/LeveringsTermijn.cls.xml =================================================================== diff -u -r54041 -r54043 --- APPS/VKP/LeveringsTermijn.cls.xml (.../LeveringsTermijn.cls.xml) (revision 54041) +++ APPS/VKP/LeveringsTermijn.cls.xml (.../LeveringsTermijn.cls.xml) (revision 54043) @@ -317,16 +317,12 @@ } If StockNietStock=1 { Set lbTermijn=..BeschikbaarStock(PRNr) - Do ##class(Tools.Wlip).%New(26).String("1") } ElseIf ..IsLadeIndeling(PRNr) { Set lbTermijn=..BeschikbaarLadeIndeling(PRNr) - Do ##class(Tools.Wlip).%New(26).String("2") } ElseIf ($P(^KPR(PRNr,0),"\",3)?4.7N)||(..IsHalux(PRNr)) { ;Generisch afgeleid of Halux product -> productie Set lbTermijn=..BeschikbaarProductie(PRNr) - Do ##class(Tools.Wlip).%New(26).String("3") } Else { Set lbTermijn=..BeschikbaarNietStock(PRNr) - Do ##class(Tools.Wlip).%New(26).String("4") } Quit lbTermijn ]]> @@ -465,12 +461,10 @@ #dim lbTermijn As %List If ..TermijnProduct(PRNr)=0 { Set lbTermijn = ..BinnenWelkeTermijnIsHetMaatwerkProductBeschikbaarBijVanHoecke(PRNr) - Do ##class(Tools.Wlip).%New(26).String("if") } Else { Set lbTermijn=..BeschikbaarNietStock(PRNr) - Do ##class(Tools.Wlip).%New(26).String("else") } Quit lbTermijn ;in arbeidsdagen of weken