KF7 G 1 ;MODULE VERWIJDEREN UITLEVERINGLIJNEN;Quit naar %F10 [ 03/18/2002  10:33 AM ]
 ;
M1 S MSG="PRODUKT IN GEBRUIK" G MY
MY S SW12=1,FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
 ;
S1 G S1C:PR="" I $G(ScrolBon) Do PRCOUNT^FLOW("-","KUL")
 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
S1B S R=PR_D_UOD_D_UA_D_$J(UH,1,2)_D_($P($P(U2,D,28),";")="KOM") D ^KPUW
 S U2=@("^"_Q_UGL_"(KC,US,UR,UVNN)"),R=^(1) I $P(R,D,28)="M" S $P(R,D,28)="X",^(1)=R
S1C K ^(UVNN)
S1D I $N(^(100))=-1 S R=^(1) D KILL^KFVZW(US,R,UR)
S1Z K UVNN Q
 ;
S2 S ULSV=UL G S2B:$N(UTA(UVN-100))=-1 F UL=UTA(UVN-100):1:UTA($N(UTA(UVN-100)))-1 S FP=UL*100+1 W @F,@F2 I '$L(PR) D S3
S2A G S2C
S2B F UL=UTA(UVN-100):1:ULSV-1 S FP=UL*100+1 W @F,@F2 I '$L(PR) D S3
S2C X:$L(PR) UV S UL=ULSV
S2Z Q
 ;
S3 F I=2,5,45,55,67,71,73,79 S FP=UL*100+I W @F,"|"
S3Z Q
 ;
1 N IsEuro,VWTYP
 S IsEuro=$$ISEURO^vhRtn1(),SW12=1
2 S FP=$P(UD,D,2)+1*100+1 W @F,@F1 I '$G(ScrolBon) G YZ:'$D(UTA)!($N(UTA(0))=-1) S FP=2403+F60 W @F,"NUMMER v/d LIJN   -[] = TERUG NAAR ",$P(USM,U,3)," : ",@F0 R K
3 G 2:K?.E1C.E!(K=""),15:K="-"!(K=",") S UZ=K,(UVN,UVNN)=K+100 G 5:$D(UTA(K))!$G(ScrolBon)
4 S FP=2403+F60 W @F,@F2,@F4,"LIJN ",$P("ONBEKEND\NIET VERWIJDERBAAR",D,$D(@("^"_Q_UGL_"(KC,US,UR,UVN)"))+1)," [] = OK ",@F5,@F0 R K G 2
5 S U2=@("^"_Q_UGL_"(KC,US,UR,UVN)"),PR=$P(U2,D,2),UO=$P(U2,D,5) G 7:'$L(PR) L (@("^"_Q_UGL_"(KC,US,UR)"),@("^"_Q_"PR(PR)")):2 E  G M1
50 S X=^(1),UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,"")
 S UVM=$P(X,D,18) S:UVM="" UVM=$$FADEF^vhRtn1()
6 S UPAR=$$MUNT^vhRtn1(UVM,,12),UO=$P(@("^"_Q_"PR(PR,0)"),D,1),UN=$P(U2,D,9)
60 I KV="MTL" S UN=$J(UN*UPAR/LPAR,1,2)
7 G 11:$G(ScrolBon) S FP=2103+F60 W @F,"VERWIJDEREN ",K," : ",UO
8 S FP=2303 W @F,@F1,"V[] = VERWIJDEREN   -[] = HERNEMEN : ",@F0 R K G 2:K="-",15:K=",",9:K="V",8
9 S FP=2403 W @F,"V[] = VERWIJDEREN DEFINITIEF   -[] = HERNEMEN : ",@F0 R K G 2:K="-",15:K=",",11:K="V",9
11 I $L(PR) S UTOT=UTOT-UN D SHOWTOT^KFTOT(UTOT)
12 S FP=$P(UD,D,2)+1*100+1 W @F,@F1 D S1,S2:'$G(ScrolBon),^KF78:$L(PR) G 15:$G(ScrolBon)
13 S FP=2402+F60 W @F,@F2,@F4,"LIJN ",UVN-100," """,$E(UO,1,50),""" IS VERWIJDERD [] = OK ",@F5,@F0 R K K UO,UTA(UVN-100) G 2
 ;
15 D TYPE^UITLEV(UR)
 ;
YZ K PR,UA,UO,U2,UH,UOD,UPAR,UVM,X L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;
SCROL(UVN) 
 S K=UVN-100 G 1
 ;