cI60 ;UITG. VERWIJDEREN KL ;GO NAAR %I61,[ 12/08/92  6:28 PM ]
 G 1
 ;
T1 ;\UL\F\1\\S COM="NOG "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D)_" VOOR DEZE KLANT" 
T2 ;\UL\F\\106\S COM="KLANT NOG ALS FAKTURATIEADRES OP "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2)_" "_UR 
T3 ;\KL\\\220\S COM="KLANT GEDEFINIEERD ALS FAKTURATIEADRES BIJ KLANT "_$P(UR," ",2) 
T4 ;\PWT\\\\S COM="KLANT HEEFT NOG TOESTEL(LEN)"\
T5 ;\PWM\\\\S COM="KLANT HEEFT NOG MACHINE(S)"\
T6 ;\PWH\\\\S COM="KLANT HEEFT NOG HEFTRUCK(S)"\
T7 ;KL;;10\UL;F;59\UL;R;60\OD;F;58\OD;T;64\PWT;;105
 ;
 ; VERKOOPKANT
1 S R="K\22\3\OPGELET DE GLOBAL ^WAV WORDT VERWIJDERD\""[] = ok  -[] = einde""\1" D ^cA100 G YZ:$L(K) K ^WAV
11 S US="",NR=0 S ^WAV("%A",3,"KL",0)="D ^cA274"
12 S US=$O(^EUL(0,US)) G 2:US="" S NR=NR+1
14 S R=$P($T(T1)," ",2,999),$P(R,D,2)="UL",$P(R,D,3)=US,^WAV("%A",3,"KL",NR)=R
16 G 12
 ;
2 S US=""
22 S US=$O(^EOD(0,US)) G 3:US="" S NR=NR+1
24 S R=$P($T(T1)," ",2,999),$P(R,D,2)="OD",$P(R,D,3)=US,^WAV("%A",3,"KL",NR)=R
26 G 22
 ;
3 S US=""
32 S US=$O(^EUL(0,US)) G 4:US="" S NR=NR+1
34 S R=$P($T(T2)," ",2,999),$P(R,D,2)="UL",$P(R,D,3)=US,^WAV("%A",3,"KL",NR)=R
36 G 32
 ;
4 S US=""
42 S US=$O(^EOD(0,US)) G 5:US="" S NR=NR+1
44 S R=$P($T(T2)," ",2,999),$P(R,D,2)="OD",$P(R,D,3)=US,^WAV("%A",3,"KL",NR)=R
46 G 42
 ;
 ; FAKTURATIEADRES
5 S NR=NR+1 S ^WAV("%A",3,"KL",NR)=$P($T(T3)," ",2,999)
 ;
 ; UPWKES
6 S NR=NR+1 S ^WAV("%A",3,"KL",NR)=$P($T(T4)," ",2,999)
61 S NR=NR+1 S ^WAV("%A",3,"KL",NR)=$P($T(T5)," ",2,999)
62 S NR=NR+1 S ^WAV("%A",3,"KL",NR)=$P($T(T6)," ",2,999)
63 S ^WAV("%A",5,"KL",1)=$P($T(T7)," ",2,99)
 ;
7 G ^cI61
 ;
YZ Q
 ;
Z X ^cZ
ZZ ; 08.12.92 - 16 u 23 *