Index: TRANSPC.mac.rou
===================================================================
diff -u -r29059 -r44247
--- TRANSPC.mac.rou	(.../TRANSPC.mac.rou)	(revision 29059)
+++ TRANSPC.mac.rou	(.../TRANSPC.mac.rou)	(revision 44247)
@@ -310,7 +310,7 @@
  Quit:$$BevatGeenVerpakking($P(^HULP(%J,SelClose("SELECT")),D,21))
  
  Set Modify=$G(Modify),CheckAll=$G(CheckAll,1)
- Do:Modify=""
+ Do:Modify="" // = We weten nog niet welke optie men kiest => eerst popup tonen.
  .Set Count=0
  .For I="O","T","E" Do
  ..Quit:'$$CHKMENU^TRANSP("CLOSE","",I)
@@ -321,14 +321,14 @@
  .Set R=^HULP(%J,SelClose("SELECT")),TranspNr=$P(R,D),VervRef=$P(R,D,21)
  .If TranspNr=$$$LevGLS,CheckAll,'$$CHECKALL^TRANSP("DI1 ") Quit  ; Controle GLS - leveringen niet opgenomen
  .Quit:'$$LOCK^TRANSP(VervRef)
- .If Modify="E" Do UNLOCK^TRANSP(VervRef) Quit // N.B. Labels afdrukken bij sluiten van een TransportRit is zinloos, cfr Alain.
+ .If Modify="E" Do UNLOCK^TRANSP(VervRef) Quit // E = Etiketten. N.B. Labels afdrukken bij sluiten van een TransportRit is zinloos, cfr Alain.
  .Set sFL(1)=^HULP(%J,SelClose("SELECT")),VervRef=$P(sFL(1),D,21)
- .If Modify="OT" Do
+ .If Modify="OT" Do // = OT = Ophalen + Transfert => 2x deze routine oproepen: eens met O en eens met T.
  ..Do CLOSVERV(%J,.SelClose,"O",0)
  ..Set VervRef=$P(sFL(1),D,21),R=^TRANSP("D",VervRef)
  ..Do:$P(R,D,11) CLOSVERV(%J,.SelClose,"T",0)
  ..Set %SC=0
- .Else  If Modify="O" Do
+ .Else  If Modify="O" Do // = O = Ophalen
  ..Set Paletten=$P($$CalcPalet^TRANSP(VervRef),D)
  ..Do STORE^vhTERMINA()
  ..Do NIEUW^vhScherm("TRANSPCLOE")
@@ -346,10 +346,10 @@
  ..Set VervRef=$P(sFL(1),D,21),R=^TRANSP("D",VervRef),$P(R,D,11,15)=$P(sFL(1),D,11,15)
  ..Set Closed=$P(R,D,11)&$P(R,D,12)
  ..Set:Closed $P(R,D,2)="T" Set ^TRANSP("D",VervRef)=R
- ..Set:Modify="T" Closed = $$TransportGeslotenAfhandeling
+ ..Do:Modify["T" MarkBulkFact(VervRef)
+ ..Set:Modify["T" Closed = $$TransportGeslotenAfhandeling
  ..Do:Closed
  ...Kill ^TRANSP("IO",VervRef)
- ...Do MarkBulkFact(VervRef)
  ..If TranspNr=$$$LevGLS Do  ; Enkel voor ABX // N.B. Labels afdrukken bij sluiten van een TransportRit is zinloos, cfr Alain.
  ...Do:Modify="O" PRINT^DCABXVD(VervRef) // = afdrukken van een vervoerdocument
  ..Else  Do