ControleBeperkAfm()   ; Parameters: OutputType
#define OpmType         "BPAF"
 New OK,ToepasID,BeslagCode,BeslagQty,Gewicht,emBeslag
 Quit:('..Toepassing) "1;Geen Toepassing"
 Set ToepasID=..Toepassing.ItemID
 Set BeslagCode=""
 Set BeslagQty=0
 Set Gewicht=..Gewicht("SimVul")*1000   ; Omzetten van kg naar gram
 If ToepasID="KD" Do
 . New blnBeslag
 . Set blnBeslag=$$cbaSetBeslag("S")
 . If blnBeslag  Do
 ..  Set BeslagCode=$CASE(emBeslag.Beslag.TekeningCode, "KAD":"KAD", "35M":"POT", :"")
 ..  Set BeslagQty=emBeslag.Positie.Count()
 . Else  Do
 ..  Set:(..ProfType) BeslagCode=$S(..ProfType.ItemID?1E1"S".E:"KAD", 1:"POT")
 . ;
 Else  If ToepasID="KLC" Do
 . Set BeslagCode=""
 . ;
 Else  If ToepasID="KLS" Do
 . Quit:($$cbaSetBeslag("KH")=0)
 . Set BeslagCode=$S(emBeslag.Beslag.ItemID["SK105":"SK105", 1:"")
 . Set BeslagQty=emBeslag.Positie.Count()
 . ;
 Else  If ToepasID="SD" Do
 . Quit:($$cbaSetBeslag("GA")=0)
 . Set BeslagCode=emBeslag.Beslag.ItemID
 . Quit:($$cbaSetBeslag("GC")=0)
 . Set BeslagCode=BeslagCode_"/"_emBeslag.Beslag.ItemID
 . ;
 Else  If ToepasID?1"VD"1E Do
 . Set BeslagCode="PFR872/876"
 . ;
 Else  Do
 . Set BeslagCode=""
 . ;
 Set OK=##class(Prod.GADef.BT.BeperkAfm).ControleAfm(..Toepassing, BeslagCode, ..Hoogte, ..Breedte, Gewicht, BeslagQty, OutputType)
 ;Do DEBUG^%Serenji("labelDebug+1^"_$zn,"192.168.1.97")
 ;labelDebug
 If OutputType="LOGOPM" Do
 . Quit:(+$E(OK,1)'=0)
 . New lbLogOpm,tmpOpm
 . Set:($L($E(OK,$F(OK,";"),99999))) lbLogOpm=$LB($$$OpmType,$E(OK,$F(OK,";"),99999))
 . Quit:('$L($G(lbLogOpm)))
 . Set tmpOpm=..Opmerking
 . If $L(tmpOpm) Do
 .. Set:('$$cbaIsPresentInLB(tmpOpm,lbLogOpm)) tmpOpm=tmpOpm_$LB(lbLogOpm)   ; $LB($LB($$$OpmType,LogOK))
 . Else  Set tmpOpm=$LB(lbLogOpm)   ; $LB($LB($$$OpmType,LogOK))
 . Set ..Opmerking=tmpOpm
 Else  Do
 . Do cbaClearBeperkOpm
 Quit OK
cbaIsPresentInLB(Content,Val)
 Quit ($LF(Content,Val)>0)
cbaIsPresentInLB2(Content,Val)
 New i,blnPresent,tmpItem
 Set blnPresent=0
 For i=1:1:$LL(Content) Do  Quit:(blnPresent)
 . Set tmpItem=$LG(Content,i)
 . Quit:(tmpItem="")
 . Set:($LG(tmpItem,1)=$$$OpmType)&&($LG(tmpItem,2)=Val) blnPresent=1
 Quit blnPresent
cbaIsPresentOLD(Content,Val)
 Quit $S($$IsList^vhLib(Content):($LF(Content,Val)>0), 1:(Content[Val))
cbaClearBeperkOpm
 Do ..OpmerkingClearByType($$$OpmType)
cbaSetBeslag(Key)
 Set emBeslag=..Beslag.GetAt(Key)
 Quit:('emBeslag) 0
 Quit emBeslag.Beslag