KPFI10 G YZ ;PRODUKTENFICHE;(VOLGENS LEVERANCIER);KPFI1;Quit naar KPFI6 [ 11/02/2001  4:16 PM ]
 ;
S9 K @("^"_Q_"HULP($J)") S SL=LES,SM=0,S1="^"_Q_"PL(SL,SM)",S2="^"_Q_"PL(SL,SM,SR)",S3="^"_Q_"PL(SL,SM,SR,SP)"
S9A S SM=$N(@S1) G S9Z:SM=-1 S SR=0
S9B S SR=$N(@S2) G S9A:SR=-1 S SP=0
S9C S SP=$N(@S3) G S9B:SP=-1 S R=+^(SP),@("^"_Q_"HULP($J,SP)")=R G S9C
S9Z K SL,SM,SR,SP,S1,S2,S3,R Q
 ;
HD S (BLZ,Print("BLZ"))=BLZ+1,(LN,Print("LIJN"))=0,Print("LMARG")=3
 D FTITEL^OUTPUT2(73,TIT)
 W !!
 Q
 ;
YZ Q
 ;