KTWTN G 1 ; MODULE WIJZIGEN TOELEVRINGSNUMMER;KTWTN; [ 05/05/99  1:43 PM ]
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
1 S R="TRN\22\3\"_$P(U2,U,1)_"\"""_$P(U2,U,10)_"""\"_$P(U2,U,9)_"\\"_$P(U2,U,11) D R0 G YZ:"-,"[K,1:K=TR
3 I $D(@("^"_Q_"TO1(TRN)")) X ^cTXT(0,"N",66) R K G 1
5 L (@("^"_Q_UGL_"(LC,TR)"),@("^"_Q_UGL_"(LC,TRN)")):2 E  X ^cTXT(0,"N",77) R K G 5
7 S @%Q1=0,TZ=""
8 S X=@("^"_Q_UGL_"(LC,TR,1)") I $L($P(X,D,10)) D KILL^KTO4(LC,TR,$P(X,D,10)),SET^KTO4(LC,TRN,$P(X,D,10))
9 S UOD=$TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(X,D,2)),"DS"),D,"")
11 S TZ=$N(@("^"_Q_UGL_"(LC,TR,TZ)")) G 23:TZ=-1 S UU2=^(TZ),PR=$P(UU2,D,2),@("^"_Q_UGL_"(LC,TRN,TZ)")=UU2 S:TZ=1 @("^"_Q_UG1_"(TRN)")=LC_D G 11:TZ<100!('PR)
13 D KWNODE^FLOWTOE(LC,TR,TZ),SWNODE^FLOWTOE(LC,TRN,TZ)
 Do ProductToeleveringLijnAnnulatie^FLOWTOE2(LC,TR,TZ)
 Do ProductToeleveringLijnGemaakt^FLOWTOE2(LC,TRN,TZ)
 S UR=$P(UU2,D,27),UZ=$P($P(UU2,D,28),";") G 11:'UR
15 S KC=$P(@("^"_Q_"O1(UR,""F"")"),D,1)
17 L (@("^"_Q_UGL_"(LC,TR)"),@("^"_Q_UGL_"(LC,TRN)"),@("^"_Q_"OD(KC,""F"",UR)")):2 E  S FP=2403+F60 W @F,@F4,"KOMORDER IN GEBRUIK ! [] = ok ",@F5,@F2,@F0 R K G 17
19 S X=@("^"_Q_"OD(KC,""F"",UR,UZ)"),X=$P(X,D,1,26)_D_TRN_D_$P(X,D,28,99),^(UZ)=X
21 G 11:'$D(@("^"_Q_"TOK(LC,TR,TZ)")) S X=^(TZ) K ^(TZ) S @("^"_Q_"TOK(LC,TRN,TZ)")=X G 11
23 S (@("^"_Q_UG1_"(TRN)"),@("^"_Q_UGB_"(TRN)"))=LC_D,@("^"_Q_UG2_"(LC,TRN)")=""
25 K @("^"_Q_UG1_"(TR)"),@("^"_Q_UGB_"(TR)"),@("^"_Q_UG2_"(LC,TR)"),@("^"_Q_UGL_"(LC,TR)")
27 S (TR,TLNr)=TRN,K="-",FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,D,13)),@F,TR
29 S @%Q1=1
YZ  
 K TRN,KC,UR,UZ,UU2,UOD,X,PR L @("^"_Q_UGL_"(LC,TR)") Q
 ;
Z X ^cZ Q
ZZ ; 25.11.91 -  9 u 08