FABRIKAN ;FABRIKANTEN [ 09/25/95  3:42 PM ]
 ;
SELECT(IsAkt,DefInp,Titel) 
 New X,Y,Tekst,FABNr,Fab,TFab,DefFAB
 Set IsAkt=$G(IsAkt)
 Set DefInp=$G(DefInp)
 Set:'$L($G(DefFAB)) DefFAB=$G(sRef("FAB"))
 If $L(DefFAB),'$D(^KFAB1(DefFAB)) Set DefFAB=""
 If DefFAB,'$$CHECK(DefFAB,IsAkt) Set DefFAB=""
 If '$L($G(Titel)) Set Titel="Fabrikant : "
 Do ADD^vhScherm(21,24)
 Set FABNr=""
 Set:$L(DefInp) Fab=DefInp
SEL2 Set:'$L(DefInp) Fab=$$ASK^vhINP(Titel,20,"","Ingave fabrikant dmv. naam of nummer")
 Set DefInp=""
 Quit:Fab="-"!(Fab=".") Fab
 Set Fab=$$UPTRIMAN^vhRtn1(Fab)
 If Fab=""!zb Do LIST("") Goto SEL2:'FABNr,EXIT
 If Fab?4N,$D(^KFAB1(Fab)) Set FABNr=Fab Goto SEL2:'$$CHECK(Fab,IsAkt),EXIT
 Set TFab=$O(^KFAB(Fab))
 If $E(TFab,1,$L(Fab))'=Fab Goto SEL2
 If $E($O(^KFAB(TFab)),1,$L(Fab))'=Fab Set FABNr=+^KFAB(TFab,0) Goto SEL2:'$$CHECK(FABNr,IsAkt),EXIT
 Do LIST(Fab)
 Goto SEL2:'FABNr,EXIT
EXIT Quit FABNr
 
CHECK(FABNr,IsAkt) 
 Quit:'IsAkt 1
 Quit '$P(^KFAB(^KFAB1(FABNr),2),D,10) 
 
LIST(Kode) 
 New Y,X
 Set TFab=Fab
 If '$L(Fab)  Set Fab="ZZZZZ"
 Set Y="5\\Selecteer een fabrikant\\MORE^FABRIKAN\FABRIKANT\K"
 X "Set Y(0)=$$"_$P(Y,"\",5)_"(0,3)"
 Quit:'Y(0)
 Do ^POP
 Set:X FABNr=+^KFAB(Y(X),0)
 Quit
MORE(Max,Len,Ref) 
 If Max>200 w *7 Quit Max
 Set Count=0
 If Max,TFab="" Quit Max
 For  Set TFab=$O(^KFAB(TFab)) Quit:TFab=""!($E(TFab,1,$L(Fab))'=Fab)  Set:$S('IsAkt:1,1:'$P(^KFAB(TFab,2),D,10)) Count=Count+1,Y(Max+Count)=TFab Quit:Count>Len
 Set:$E(TFab,1,$L(Fab))'=Fab TFab=""
 Quit Max+Count
 ;