Index: KLANT.mac.rou
===================================================================
diff -u -r762 -r945
--- KLANT.mac.rou	(.../KLANT.mac.rou)	(revision 762)
+++ KLANT.mac.rou	(.../KLANT.mac.rou)	(revision 945)
@@ -1,4 +1,4 @@
-KLANT ;KLANTEN [ 11/26/2003  3:56 PM ]
+KLANT ;KLANTEN [ 11/26/2003  3:56 PM ] 
 #include BL.Derde.KlantSpecifiek
  ;
 LEVVW(LevVw,Taal) 
@@ -485,6 +485,40 @@
  . Else  Kill sX(6),sX(7)
  Quit Select
  ;
+ ; Aanpassen factuur verzenden bij openen en wijzigen
+ModFactuurVerzenden
+ New zb,I,K
+ Set K=$P(B(2),D,2)
+ If K'["*",K'["@" S K="*"_K
+ If $L(K)>1 For I=$L(K):-1:2 Set $E(K,I)=";"_$E(K,I)
+ Set K=$$PI^vhPOPUP("C;C","-O1M","Factuur verzenden","KLANT","FACTUURVERZENDEN",K)
+ Set:$G(zb)="CANC" K="-" Set K=$TR(K,";*","")
+ Set Locals("K")=K
+ Quit
+ ;
+ ; Routine uitgevoerd na het ophalen van de elementen 'Factuur verzenden'
+AFactuurVerzenden
+ For sY=1:1:sY If $E($P(sY(sY),"`"))="&" Set sY(sY)="&S"
+ Quit
+ ;
+ ; Routine uitgevoerd na het selecteren van een element 'Factuur verzenden'
+SFactuurVerzenden(Item,x,y,z)
+ New Select
+ Set Select=1
+ Kill:Item=1 sX(2)
+ Kill:Item=2 sX(1),sX(4),sX(5),sX(8)
+ Kill:Item=4 sX(5)
+ Kill:Item=5 sX(4)
+ Kill:Item=7 sX(8),sX(9)
+ Kill:Item=8 sX(7),sX(9)
+ If Item=4,$G(sX(2)) Set Select=0
+ If Item=5,$G(sX(2)) Set Select=0
+ If Item=8,$G(sX(2)) Set Select=0
+ If Item=9 Do
+ . If $P($G(B(1)),"\")'=11708 Set Select=0
+ . Else  Kill sX(7),sX(8)
+ Quit Select
+ ;
  ; Ingave van de reden van aanmaak van de klant
 RedenAanmaak
  New zb,R,RedenAanmaak