KOFKL4 ;VERWIJDEREN LIJN OPMAKEN OFFERTES;KOFKL2; Quit naar KOFKL2 [ 08/05/2002  11:22 AM ]
 G 1
 ;
R0 S R7=1 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,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@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  ;V5 02.01.86
 ;
S0 S (SX,VVE)=0 S:'SW8&(K'="-") K="" G S0B:K'="-"
S0A S SX=1,FP=2403+F60 W @F,@F1 W:'SW9&($D(N)) "VOLGNUMMER OF " W T," ",$P("\[] = VERVOLG",D,VVE+1)," : ",@F0 R K
S0A1 S:K=" " K=0 G S0A:K?.E1C.E,S0B:"-"[K,S0B:'SW9&('$D(N(K))),S0A:'$D(N(K)) S K1=N(K) G S0H
S0B S K=$$UPCASE^vhRtn1(K) S:$L(K) VVE=0 S FP=2100+KN+F60-1 S:SW9 FP=FP-KN+3 W @F,@F1 G @JP:K="-" I K=""&VVE S L1=21,VN=1 K N S:$L(Q16) @Q16 G S0D1
S0B1 S:$L(Q16) @Q16
S0C S I=K S:K="" I=-1 S K1=I G S0H:$D(^(K1)) S K1=$N(^(K1)),L1=21,VN=1 K N G S0G:K1=-1 S K2=$N(^(K1)) G S0H:K2=-1
S0D G S0H:$E(K2,1,$L(I))'=I&'VVE&($E(K1,1,$L(I))=I) S K1=I G S0E
S0D1 S:$L(Q16) @Q16
S0E S K1=$N(^(K1)) G S0G:K1=-1 I $E(K1,1,$L(I))'=I&(I'=-1) S VVE=0 G S0A:'SW8 S SW8=0 G S0Z
S0F G S0D1:$E(K1,1,4)="ZZZZ",S0D1:KN=3&(K1?.N),S0A:'SX&('SW9),S0D1:K1=0&$L(Q17) S FP=L1*100+KN+F60-1 S:SW9 FP=FP-KN+3 W @F,@F2,VN,". " S N(VN)=K1 W:K1=0 """ "" = ZONDER" W:K1'=0&'$L(Q17) K1 I $L(Q17) S PR=K1 W:PR @Q17
S0F1 S L1=L1+1,VN=VN+1 G S0D1:L1<24 S VVE=1 G S0A
S0G S K1=0,VVE=0 G S0A:'SW8 S SW8=0 G S0Z
S0H G 25:JP'="S0Z",S0D1:$E(K1,1,4)="ZZZZ" S FP=2100+KN-1+F60 W:'SW8 @F,@F1," ",K1 W:K1=0 @F,"ZONDER"
S0Z K N Q
 ;
S2 S T=$P(HG,D,2),M=$P(HG,D,1) D S7 Q
S3 S T=$P(GR,D,2),M=$P(GR,D,1) D S7 Q
S4 S T=$P(SG,D,2),M=$P(SG,D,1) D S7 Q
S6 S SW9=1,T="VOLGNUMMER VAN DE PRODUKTKODE",Q17="$P(@(""^""_Q_""PR(PR,0)""),D,1)",Q16="X=$D("_Q16_")" G S0
 ;
S7 S FP=2100+KN+F60 W @F,@F1 S FP=2000+KN+M+2+F60 W @F,@F5,@F2 S FP=2000+KN-1+F60 W @F,@F4,T,$E(BLA,1,M-$L(T)+1),@F5
S7Z S JP="S0Z",(Q16,Q17)="" D S0 S:K'="-" KN=KN+M+5,B(A)=M,A=A+1 S:K="-"&(A>0) A=A-1,KN=KN-B(A)-5 Q
 ;
1 S K=$N(@("^"_Q_UGL_"(KC,US,UR,9999)")) G 3:K=-1,^KOFKL40:$E(K,1,4)="ZZZZ"
10 S K=$D(^("ZZZZPS"))_D_$D(^("ZZZZUD")) I '$P(K,D,1),'$P(K,D,2) G 13
11 S R="K\23\3\VERWIJDEREN\""" S:$P(K,D,1) R=R_"P[] = produktselektie   " S:$P(K,D,2) R=R_"U[] = utilidata   "
12 S R=R_"[] = andere""\1\\""-" S:$P(K,D,1) R=R_"P" S:$P(K,D,2) R=R_"U" S R=R_"""[K" D R0 G 3:K="-",^KOFKL40:$L(K)
13 S KN=3,(A,SW8,SW9)=0,V1="S2",V2="S3",V3="S4" F I="HG","GR","SG" S @I=@("^"_Q_"PR(0,I)")
15 G 3:'$D(@("^"_Q_"OFKL(KC,US,UR)")) S X=$D(^(UR,0)) D @V1 G 3:K="-" S I1=K1 G 19
17 S X=$D(@("^"_Q_"OFKL(KC,US,UR,I1)"))
19 S X=$D(^(I1,0)) D @V2 G 15:K="-" S I2=K1 G 21
 ;
2 K N S SW9=0,X=$D(@("^"_Q_"OFKL(KC,US,UR,I1,I2)")) S:K="-" A=A-1,KN=KN-B(A)-5
21 S X=$D(^(I2,0)) D @V3 G 17:K="-" S I3=K1
23 S JP="2",Q16="@(""^""_Q_""OFKL(KC,US,UR,I1,I2,I3,0)"")" G S6
25 S FP=2101 W @F,$C(13) I I1'=0 W ?2,I1 I I2'=0 W ?22,I2 I I3'=0 W ?42,I3 I K1'=0 W !?2,$P(@("^"_Q_"PR(K1,0)"),D,1)
27 S R="K\23\3\V[] = VERWIJDEREN DEFINITIEF\""-[] = hernemen""\1\\""-V""[K&$L(K)" D R0 G 3:K="-"
29 K @("^"_Q_UGL_"(KC,US,UR,I1,I2,I3,K1)") G ^KOFKL3
 ;
3 S K="-",FP=2001+F60 W @F,@F1
 ;
 ;
YZ K A,B,I,I1,I2,I3,I4,IB,JP,K1,K2,KN,L1,M,Q16,Q17,R,SX,T,V1,V2,V3,V4,VN,VVE,HG,GR,SG,LE,LP,MK Q
 ;
 Q
Z X ^cZ Q
ZZ ; 02.06.88 - 15 u 03