Index: STATWEEK.mac.rou
===================================================================
diff -u -r29059 -r41768
--- STATWEEK.mac.rou	(.../STATWEEK.mac.rou)	(revision 29059)
+++ STATWEEK.mac.rou	(.../STATWEEK.mac.rou)	(revision 41768)
@@ -306,6 +306,8 @@
 DTL(Grp,Node,KLNr,PRNr,FAKNr,BONNr,ORDNr,NewOrd,LevWk,Qty,Omzet,Marge)   
  New Rec,VolgNr
  Set Rec=PRNr_D_FAKNr_D_ULNr_D_ORDNr_D_NewOrd_D_Qty_D_Omzet_D_Marge
+ Do:(""=LevWk) ##class(vhLib.Logger).%New().Error("STATWEEK", "LevWk is leeg bij '"_Rec_"'.")
+ Quit:(""=LevWk)
  Set VolgNr=$O(^STATWEEK(Grp,"P",LevWk,Node,KLNr,""),-1)+1
  Set ^STATWEEK(Grp,"P",LevWk,Node,KLNr,VolgNr)=Rec
  Quit
@@ -454,3 +456,4 @@
  ....Write Type,$C(9),$$$ExcelDat(Datum),$C(9),$$$ExcelDat($$CALCDATE^vhLib.DataTypes(Datum,"M","FD")),$C(9),"'"_$$EXTDATE^vhLib.DataTypes(Datum,"DW"),$C(9),KLNr,$C(9),KLNm,$C(9),FAKNr,$C(9),PRNr,$C(9),KortT,$C(9),Qty,*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Marge),*9,DocumentDatum,!
  Do CLOSE^vhDEV(Dev)
  Quit
+