KTVL G 1 ;MODULE VERWIJDEREN LIJNEN TOELEVERINGEN;Quit naar KTO10 [ 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 S1H:PR="" I $G(ScrolToe) Do PRCOUNT^FLOW("-","KTO")
 S UA=$P(U2,D,3),BLLN=$P(U2,D,13,14),UR=$P(U2,D,27),UUZ=$P($P(U2,D,28),";"),U2=^(0)
S1A S ^(0)=$P(U2,D,1,16)_D_($P($P(U2,D,17),"#",1)-UA)_"#"_$S(UR:$P($P(U2,D,17),"#",2),1:($P($P(U2,D,17),"#",2)-UA))_"#"_$S(UR:($P($P(U2,D,17),"#",3)-UA),1:$P($P(U2,D,17),"#",3))_D_$P(U2,D,18,99)
S1AA K @Q15 K:$E($N(^("W")),1)'="W" ^("W")
S1B G S1G:'UR S U2=^(2),^(2)=$P(U2,D,1,8)_D_($P($P(U2,D,9),"#",1)-UA)_"#"_$P($P(U2,D,9),"#",2)_"#"_($P($P(U2,D,9),"#",3)-UA)_D_$P(U2,D,10,99) K @Q16 K:$E($N(^("W")),1)'="W" ^("W")
S1C S KC=$P(@("^"_Q_"O1(UR,""F"")"),D,1)
S1D L (@("^"_Q_"TO(LC,TR)"),@("^"_Q_"OD(KC,""F"",UR)")):2 E  S FP=2403+F60 W @F,@F2,@F4,"ORDER ",UR," IS IN GEBRUIK [] = OK ",@F2,@F5,@F0 R K G S1D
S1E K @("^"_Q_"OD(KC,""F"",UR,UUZ)") I $N(^(100))'=-1 G S1G:'$D(@("^"_Q_"OD(0,""F"",3)")) S URLC=UR D @^(3) G S1G
S1F K @("^"_Q_"OD(KC,""F"",UR)"),@("^"_Q_"OB(UR,""F"")"),@("^"_Q_"O1(UR,""F"")"),@("^"_Q_"O2(""F"",KC,UR)")
 I $D(@("^"_Q_"OD(0,""F"",4)")) S URLC=UR D @^(4)
S1G K:UR @("^"_Q_"TOK(LC,TR,UVNN)") S U2=@("^"_Q_UGL_"(LC,TR,UVNN)")
S1H K ^(UVNN)
S1I I PR K ^KTO3(TR,BLLN_D_UVN)
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 X TV
S2A G S2C
S2B F UL=UTA(UVN-100):1:ULSV-1 S FP=UL*100+1 W @F,@F2 X TV
S2C S UL=ULSV
S2Z Q
 ;
1 S SW12=1,U2=@("^"_Q_UGL_"(LC,TR,1)")
 S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(U2,D,2)),"DS"),D,"")
10 S Q15="^(""W    0.0T""_UOD_$J(TR,6,0)_$J(UZ,3,0))",Q16="^(""W    0.0R""_UOD_$J(UR,6,0)_$J((UUZ-100),3,0))"
2 S FP=$P(UD,D,2)+1*100+1 W @F,@F1 I '$G(ScrolToe) G YZ:'$D(UTA)!($N(UTA(0))=-1) S FP=2403+F60 W @F,"Nummer v/d te verwijderen lijn : ",@F0 R K
3 G 2:K?.E1C.E!(K=""),YZ:K="-"!(K=","),2:K'?.N S UZ=K,(UVN,UVNN)=K+100 G 7:$D(UTA(K))!$G(ScrolToe)
5 S FP=2403+F60 W @F,@F2,@F4,"LIJN ",$P("ONBEKEND\NIET VERWIJDERBAAR",D,$D(@("^"_Q_UGL_"(LC,TR,UVN)"))+1)," [] = OK ",@F5,@F0 R K G 2
7 S U2=@("^"_Q_UGL_"(LC,TR,UVN)"),PR=$P(U2,D,2),UO=$P(U2,D,5) I PR L (@("^"_Q_"TO(LC,TR)"),@("^"_Q_"PR(PR)")):2 E  G M1
70 S:PR UO=$P(@("^"_Q_"PR(PR,0)"),D,1)
 G 11:$G(ScrolToe) 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="-",YZ:K=",",9:K="V",8
9 S FP=2403 W @F,"V[] = VERWIJDEREN DEFINITIEF   -[] = HERNEMEN : ",@F0 R K G 2:K="-",YZ:K=",",11:K="V",9
11 S FP=$P(UD,D,2)+1*100+1 W @F,@F1 D S1 G 15:$G(ScrolToe) D S2
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 S K="-"
 ;
YZ K PR,UA,UO,UOD,UOR,U2,Q15,Q16,UR,UUZ,KC L @("^"_Q_"TO(LC,TR)") Q
 ;
SCROL(UVN) 
 S K=UVN-100 G 1
 ;