KFU16 G 1 ;MODULE VERWIJDEREN VOLLEDIGE UITLEVERING;Quit naar %F10 [ 04/17/2001  4:39 PM ]
 ;
M1 S MSG="PRODUKT IN GEBRUIK" G MY
M3 S MSG=UOU_" "_UR_" IS VERWIJDERD" G MY
MY S SW12=1,FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K
MZ K MSG Q
 ;
1 N IsEuro,VWTYP
 S IsEuro=$$ISEURO^vhRtn1()
 S SW12=1,U2=@("^"_Q_UGL_"(KC,US,UR,1)")
 S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(U2,D,2)),"DS"),D,"")
 S UVM=$P(U2,D,18) S:UVM="" UVM=$$FADEF^vhRtn1()
5 G 11:$G(ScrolBon) S FP=2103+F60 W @F,@F1,"VERWIJDEREN ",UOU," : ",UR,"   ",$P(@("^"_Q_UGL_"(KC,US,UR,1)"),D,2),"   ",$P(^(1),D,3)
7 S FP=2303+F60 W @F,@F1,"V[] = VERWIJDEREN   -[] = HERNEMEN : ",@F0 R K G 23:K="-"!(K=","),7:K'="V"
9 S FP=2403+F60 W @F,"V[] = VERWIJDEREN DEFINITIEF   -[] = HERNEMEN : ",@F0 R K G 23:K="-"!(K=","),9:K'="V"
11 S UZ=100
13 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 19:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 13:'PR
15 L (@("^"_Q_UGL_"(KC,US,UR)"),@("^"_Q_"PR(PR)")):2 E  D M1 G 15
16 S UPAR=$$MUNT^vhRtn1(UVM,,12),UO=$P(@("^"_Q_"PR(PR,0)"),D,1)
17 S UA=-$P(U2,D,3),UH=-$P(U2,D,10)*UPAR,VWTYP=$P(U2,D,14)
 I UA'>0 S R=UOD_2_D_$S(VWTYP["S":0,VWTYP["Z":0,1:UA)_D_D_1_D_$J($S(VWTYP["S":0,VWTYP["Z":0,1:UH),0,$S(IsEuro:4,1:2))_"\0\0\"_UR_" STORNO ("_KC_")" D ^KPR10
18 S R=PR_D_UOD_D_UA_D_$J(UH,1,2)_D_($P($P(U2,D,28),";")="KOM") D ^KPUW G 13
19 S R=^(1) D KILL^KFVZW(US,R,UR) K @("^"_Q_UG1_"(UR,US)"),@("^"_Q_UGB_"(UR,US)"),@("^"_Q_UG2_"(US,KC,UR)"),@("^"_Q_UGL_"(KC,US,UR)")
21 S LVHCYB="V",SW13=0,FP=$P(UD,D,2)+1*100+1 W @F,@F1 I '$G(ScrolBon) D M3
 S K=",",UTOT=0 D SHOWTOT^KFTOT(UTOT) G YZ
23 S K="-"
 ;
YZ K PR,UA,UO,UOD,UOR,UPAR,UMC,U2 L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;