Index: BL/PPS/OL/Inpak.cls.xml =================================================================== diff -u -r49886 -r50149 --- BL/PPS/OL/Inpak.cls.xml (.../Inpak.cls.xml) (revision 49886) +++ BL/PPS/OL/Inpak.cls.xml (.../Inpak.cls.xml) (revision 50149) @@ -710,7 +710,12 @@ #dim AantalMultiCount As %Integer = ..MultiCountBepaler.GeefAantalMultiCount(pxInpakInfo.PRNr) #dim ModuloFrequentieOpAantalMultiCount As %Integer = 1 If 'isVerzameldoos { - Set ModuloFrequentieOpAantalMultiCount = ##class(TECH.Math).Modulo(GeprinteProducten.GeefFrequentieVanItem(pxInpakInfo.PRNr),AantalMultiCount) + Try { + Set ModuloFrequentieOpAantalMultiCount = ##class(TECH.Math).Modulo(GeprinteProducten.GeefFrequentieVanItem(pxInpakInfo.PRNr),AantalMultiCount) + } catch{ + Set e = ##class(TECH.ExceptionHandler).Catch() + Set ModuloFrequentieOpAantalMultiCount = 1 + } } If ( isVerzameldoos @@ -1198,6 +1203,8 @@ // anders positioneren op 999 (1000 is eerte rij volgens volledige structuur) Set KLNr = $S(pKLNr="":"999",1:$O(^KUL(pKLNr),-1)) + Do ##class(vhLib.Logger).%New("").Debug("GetBONOverviewExecute Start","CBClass='"_CBClass_"', CBMethod='"_CBMethod_"', pInclAfgewerkte='"_pInclAfgewerkte_"'") + For Set KLNr=$O(^KUL(KLNr)) Quit:((KLNr="")||((pKLNr'="")&&(KLNr'=pKLNr))) Do . Set FaktSoort="" . For Set FaktSoort=$O(^KUL(KLNr,FaktSoort)) Quit:FaktSoort="" Do @@ -1207,7 +1214,7 @@ . . For Set BONNr=$O(^KUL(KLNr,FaktSoort,BONNr)) Quit:BONNr="" Do . . . Quit:((pBONNr'="")&&(BONNr'=pBONNr)) . . . Quit:((pInclAfgewerkte=1)&&($$INTDATE^vhLib.DataTypes($P(^KUL(KLNr,FaktSoort,BONNr,1), ..#Delim, 2),"DKP")<($H-10))) - . . . Quit:((pInclAfgewerkte'=1)&&($$INTDATE^vhLib.DataTypes($P(^KUL(KLNr,FaktSoort,BONNr,1), ..#Delim, 2),"DKP")<($H-1))) + . . . Quit:((pInclAfgewerkte'=1)&&($$INTDATE^vhLib.DataTypes($P(^KUL(KLNr,FaktSoort,BONNr,1), ..#Delim, 2),"DKP")<($H-10))) . . . // nog een extra selectie via CallBackMethod, in dit geval moet het order een Orgalux bon zijn . . . Quit:'$zobjclassmethod(CBClass,CBMethod,BONNr) . . . // todo : verder opvullen van de velden "Klaar op" en Status @@ -1222,11 +1229,14 @@ . . . Set DueOutTime = ##class(BL.PPS.OL.Inpak).GetDueOutTimeForBONNr(BONNr) . . . Set BonStatus = ..GetBonStatus(BONNr) . . . Quit:((pInclAfgewerkte'=1)&&((BonStatus="F")||(BonStatus="-"))) + . . . Do ##class(vhLib.Logger).%New("").Debug("Leverbon opnemen in overview","BONNr='"_BONNr_"'") . . . Set Cnt = Cnt + 1 . . . Set Idx = ..CalcOverViewIdx($P(^KUL(KLNr,FaktSoort,BONNr,1), ..#Delim, 2),DueOutTime,Cnt) . . . Set %GetBONOverviewRows(Idx)=$LB(Idx,KLNr,##class(Derde.Klant.Klant).GetFullName(KLNr),BONNr,$P(^KUL(KLNr,FaktSoort,BONNr,1), ..#Delim, 2)) . . . Set %GetBONOverviewRows(Idx)=%GetBONOverviewRows(Idx)_$LB(NbrOfLines,NbrOfDetails,DueOutTime,BonStatus) + Do ##class(vhLib.Logger).%New("").Debug("GetBONOverviewExecute Stop","") + Set %GetBONOverviewKey="" Quit $$$OK ]]> Index: BL/Sys/Toegang/Session.cls.xml =================================================================== diff -u -r29059 -r50149 --- BL/Sys/Toegang/Session.cls.xml (.../Session.cls.xml) (revision 29059) +++ BL/Sys/Toegang/Session.cls.xml (.../Session.cls.xml) (revision 50149) @@ -101,7 +101,8 @@ ============================================================================================================================ -De opgeslagen sessie terug openen +De opgeslagen sessie terug openen +Voor debugging kan je een sessionkey bvb. vinden door de oude Vhintra op te starten terwijl Fiddler draait, en in de "LogInResponse" te zoeken. 1 SessionKey BL.Sys.Proxy.pxStatus