KPFU1 G 1 ;FUSIE VAN PRODUKTEN ; KPFU1; Do naar KPFU2 [ 09/27/93  3:43 PM ]
 ;
T1 ;HOOFDPRODUKT
T2 ;IDENTNUMMER;4;3;;4;18;PID
T3 ;PRODUKTNAAM;5;3;;5;18;PC
T4 ;HOOFDGROEP;7;3;;7;18;PHG
T5 ;GROEP;8;3;;8;18;PGR
T6 ;SUBGROEP;9;3;;9;18;PSG
T7 ;LEVERANCIER;11;3;;11;18;$S($L(PLE):$P(@("^"_Q_"LE(@(""^""_Q_""L1(PLE)""),0)"),D,1)_" "_$P(^(0),D,2),1:"")
T8 ;IDENTNUMMER|PRODUKTNAAM              |  |IDENTNUMMER|PRODUKTNAAM               
T9 ;FUSIEPRODUKT
T10 ;DIT PRODUKT IS REEDS GESELEKTEERD
T11 ;ER IS NOG VOORRAAD VAN DIT PRODUKT
T12 ;DIT PRODUKT IS NOG IN BESTELLING
T13 ;ER IS NOG GERESERVEERD OP DIT PRODUKT
T14 ;DE KLASSIFIKATIE IS VERSCHILLEND VAN HET HOOFDPRODUKT
T15 ;DE LEVERANCIER IS VERSCHILLEND VAN HET HOOFDPRODUKT
T16 ;DE AANKOOPMUNT IS VERSCHILLEND VAN HET HOOFDPRODUKT
T17 ;DIT PRODUKT HEEFT DEELPRODUKTEN
T18 ;DIT PRODUKT IS EEN DEELPRODUKT
T19 ;  [] = ok 
T20 ;F[] = FUSIE   -[] = hernemen
T21 ;F[] = FUSIE DEFINITIEF   -[] = hernemen
T22 ;EEN OGENBLIK A.U.B. 
 ;
S1 S FP=2403+F60 W @F,@F4,R,$P($T(T19),U,2),@F5,@F0 R K
S1Z Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S T=1
13 S T=T+1 G 17:T=8 S K=$P($T(@("T"_T)),U,2,99),FP=$P(K,U,5)*100+$P(K,U,6)-3 W @F,@F5,":"
15 S FP=$P(K,U,2)*100+$P(K,U,3) W @F,@F6,$P(K,U,1),@F5 G 13
17 S K=$P($T(T8),U,2),FP=1380 W @F,@F5 S FP=1301 W @F,@F4,K,@F5
 ;
2 K PR,PID,PC,PHG,PGR,PSG,PLE S R="K\2000\"_$P($T(T1),U,2)_"\PR\PR1" D R7^cA107 G YZ:K="-"
21 S PR=$P(@("^"_Q_"PR1(K)"),D,1),PR(PR)="",K=@("^"_Q_"PR(PR,0)"),PC=$P(K,D,1),K=^(2),PID=$P(K,D,25)
23 S K="" S:$E($N(^("I")),1)="I" K=^($N(^("I"))) S PHG=$P(K,D,1),PGR=$P(K,D,2),PSG=$P(K,D,3)
25 S K="" S:$E($N(^("J")),1)="J" K=^($N(^("J"))) S PLE=$P(K,D,1),PMA=$P(K,D,17),T=1
26 I $D(^("D")) S R=$P($T(T17),U,2) D S1 G 2
27 I $D(^("E")) S R=$P($T(T18),U,2) D S1 G 2
28 S T=T+1 I T<8 S K=$P($T(@("T"_T)),U,2,99),FP=$P(K,U,5)*100+$P(K,U,6) W @F,@F2,@$P(K,U,7) G 28
29 S FP=1401 W @F,@F1
 ;
3 S T=0,L=14
31 S R="K\2000\"_$P($T(T9),U,2)_"\PR\PR1" D R7^cA107 G 6:K="-" S R=$P(@("^"_Q_"PR1(K)"),D,1)
32 I $D(PR(R)) S R=$P($T(T10),U,2) D S1 G 31
33 S K=@("^"_Q_"PR(R,0)") I $P(K,D,14) S R=$P($T(T11),U,2) D S1 G 31
34 I $P($P(K,D,17),"#",1) S R=$P($T(T12),U,2) D S1 G 31
35 S PC=$P(K,D,1),K=^(2) I $P($P(K,D,9),"#",1) S R=$P($T(T13),U,2) D S1 G 31
36 S PID=$P(K,D,25),K="" S:$E($N(^("I")),1)="I" K=^($N(^("I"))) I $P(K,D,1)=PHG,$P(K,D,2)=PGR,$P(K,D,3)=PSG G 38
37 S R=$P($T(T14),U,2) D S1 G 31
38 S K="" S:$E($N(^("J")),1)="J" K=^($N(^("J"))) I $P(K,D,1)'=PLE S R=$P($T(T15),U,2) D S1 G 31
39 I $P(K,D,17)'=PMA S R=$P($T(T16),U,2) D S1 G 31
4 I $D(^("D")) S R=$P($T(T17),U,2) D S1 G 31
41 I $D(^("E")) S R=$P($T(T18),U,2) D S1 G 31
 ;
5 S T=T+1,PR(R)="" S:T=3 L=L+1,T=1 I L>18 S FP=1901 W @F,@F1 S FP=1401 W @F,@FDL S L=L-1,T=1
51 S FP=L*100+1+(T-1*41) W @F,"|",$E(PID,1,11),$J("",11-$L(PID)),"|",$E(PC,1,25),$J("",25-$L(PC)),"|" G 31
 ;
6 G 2:$N(PR($N(PR(0))))=-1 S R="K\23\3\"_$P($T(T20),U,2)_"\\1\\""-F""[K&$L(K)" D R0 G 2:K="-"
61 S R="K\24\3\"_$P($T(T21),U,2)_"\\1\\""-F""[K&$L(K)" D R0 G 2:K="-"
63 S FP=2403+F60 W @F,@F2,@F4,$P($T(T22),U,2),@F5 D ^KPFU2 G 2
 ;
YZ Q
 ;
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
 ;
Z X ^cZ Q
ZZ ; 22.03.91 - 14 u 08