KPFI6 G 1 ;PRODUKTENFICHE;(VOLGENS LEVERANCIER);KPFI1;Do van KPFI8 - Quit naar KPFI3 [ 04/24/2003  10:27 AM ]
 ;
1 S I=100 G 19:$N(B(I))=-1 S BLZ=0 D HD^KPFI10,^KPSELS
19 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"LE(LE)",Q2="^"_Q_"PL(LES)",Q3="^"_Q_"HULP($J,PRCS)"
23 I LE'=0 S X=$D(@Q1) G 27:X
25 S LE=$N(@Q1) I LE=-1!(LE]LEX) G 160
27 S LES=$P(LE," ",2)_" ",LNM=$P(^(LE,0),D,2),X=$D(@Q2) G 25:'X D S9^KPFI10
29 S PRCS=PRC I PRC'=0 S X=$D(@Q3) G 100:X
31 S PRCS=$N(@Q3) I PRCS=-1!(PRCS]PRCX) G 25
100 S PR=+^(PRCS) D ^KPCHKPR G 31:'OK
101 F I=0:1:16 S B(I+1)=A(I)
102 F I="I","J" S B(I)=A(I)
112 D ^KPFI8
116 F I=0:1:16 K B(I+1)
118 F I="I","J" K B(I)
119 G 31
 ;
160 K A,B,C,@("^"_Q_"HULP($J)")
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 28.04.88 - 15 u 18