#include Prod.Product
 
INKORTBAAR ;Produkt creatie voor zaagsnedes
 
GENERATE(Ref,GenPRNr,Params,FromPRNr) 
 ;Do WARN^vhTXTPOP($P(^KPR(GenPRNr,0),D)_" ~mag nog niet gebruikt worden!!!~Gelieve contact op te nemen met ICT.","") Quit "-"
 New %SC,%SelProd,sFL,IngekortPRNr,KLNr,LEVNr,Taal,KortTxt,PR,LT,Binnenmaat,OLProductInTeKorten,Factory,Product
 Set Ref=$G(Ref),(GenPRNr,PR)=$G(GenPRNr),Params=$G(Params),FromPRNr=$G(FromPRNr),Binnenmaat=""
 Set:Params="K" KLNr=Ref Set:Params="L" LEVNr=Ref,IsStock=1
 If Params="",GenPRNr Do
 . Set R=$O(^KPR(GenPRNr,"J"))
 . Quit:$E(R)'="J"
 . Set R=^KPR(GenPRNr,R),LEVNr=$P(R,D)
 Set Taal=$G(KT)
 For  Do  Quit:'%SC  Quit:$G(IngekortPRNr)
 . Do NIEUW^vhScherm("INKORTBAAR",,,,,,3)
 . If %SC Do
 . . Set OLProductInTeKorten = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(FromPRNr)
 . . Set Factory = ##class(APPS.PM.Maatwerk.OLM.OrgaluxOpMaatFactory).%New()
 . . Set $ZTRAP="ErrorHandler^INKORTBAAR"
 . . Set Product = Factory.GeefOrgaluxOpMaat(OLProductInTeKorten, Binnenmaat)
 . . Set $ZTRAP=""
 . . Set IngekortPRNr = Product.GeefPRNr()
 Quit $G(IngekortPRNr)
  
 ; Basisproduct selecteren
FROMPRNR(FromPRNr) 
 New R,X
 If '$G(FromPRNr) Do
 . Do STORE^vhTERMINA()
 . Set FromPRNr=$$SELECT^PRODUKT6("KL",837,,"Basisprodukt : ")
 . Do REFRESH^vhTERMINA()
 Quit FromPRNr
 ;
ErrorHandler
 Set $ZTRAP=""
 New Exception,ProbleemOmschrijving
 Set Exception=##class(TECH.ExceptionHandler).Catch("APPS.PM.Maatwerk.OLM.OrgaluxOpMaatException")
 Set ProbleemOmschrijving=Exception.GeefOmschrijving()
 Do WARN^vhTXTPOP(ProbleemOmschrijving,"")
 Quit
 ;