#include Prod.Product
 
 
 ; verkorte ingave van de orgalux inpak 
 ; vertrekt van de bestaande gegevens indien ingevuld of probeert afhankelijk van de verpakking nieuwe te definieren.
AutoTBX1239(PRNr)
	;Set PRNr=124919
	New Status,Result,BSKey,KindHalf,BSDefCod,Type,HFPRNr,Aantal,Lengte,Breedte,HistID,SnijMachineID,VolgNr,Rec,DimRec
	
	Set Key=$P($G(^PRBS("BS",PRNr)),D,4) ; FastSlow;Inkorten;Binnenladen,BreedSmal;HoogLaag
	If Key="" Do ; Default from productgegevens
	. Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; Interne breedte
	. Set RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH")) ; Rughoogte
	. Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
	. Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; Klasse (Spoelbak, Lade, ...)
	. Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; LadeCode
	. Set LT=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LT")) ; L=Lade, B=Binnelade
	. Set Key="SS"
	. If LT="B" Set $E(Key,3)=1	
	. If IB>600 Set $E(Key,4)=1	
	. If RH'="M" Set $E(Key,5)=1	
	. If RH'="M" Set $E(Key,5)=1	
 
	
	#define LabelOld "VERPAK"
	#define OmsVouwenOld "Vouwen"
	#define OmsInpakOld "Inpakken"
	#define OmsAfwerkOld "Afwerken"
	#define OmsLuchtZakOld "Luchtzak"
	#define OmsToeslagOld "Toeslag oververpakking"
	
	#define LabelNew "VERPAK"
	#define OmsVouwenNew "Vouwen"
	#define OmsInpakNew "Inpakken"
	#define OmsAfwerkNew "Afwerken"
	#define OmsLuchtZakNew "Luchtzak"
	#define OmsToeslagNew "Toeslag oververpakking"
	
	; Get old values
	Set Values=""
	Set BSKey="" 
	For  Set BSKey=$O(^HULP(%J,"C",BSKey)) Quit:BSKey=""  Do
	. Set BSRec=^HULP(%J,"C",BSKey)
	. If ($P(BSRec,D,11)=$$$LabelOld)||($P(BSRec,D,11)=$$$LabelNew) Do
	. . If ($P(BSRec,D,13)=$$$OmsVouwenOld)||($P(BSRec,D,13)=$$$OmsVouwenNew) Set $P(Values,D,1)=$P(BSRec,D,7)
	. . If ($P(BSRec,D,13)=$$$OmsInpakOld)||($P(BSRec,D,13)=$$$OmsInpakNew) Set $P(Values,D,2)=$P(BSRec,D,7)
	. . If ($P(BSRec,D,13)=$$$OmsAfwerkOld)||($P(BSRec,D,13)=$$$OmsAfwerkNew) Set $P(Values,D,3)=$P(BSRec,D,7)
	. . If ($P(BSRec,D,13)=$$$OmsToeslagOld)||($P(BSRec,D,13)=$$$OmsToeslagNew) Set $P(Values,D,4)=$P(BSRec,D,5)
	. . If ($P(BSRec,D,13)=$$$OmsLuchtZakOld)||($P(BSRec,D,13)=$$$OmsLuchtZakNew) Set $P(Values,D,5)=$P(BSRec,D,2)
 
	Set Verpakking=$zobjclassmethod("BL.Prod.OptiBox.Diverse","OptiDataDisplayName",PRNr)
	
	If '$P(Values,D,1)&&'$P(Values,D,1)&&'$P(Values,D,1) Do ; Defaulting
	. Set $P(Values,D,4)=.05
	. If Verpakking["(Volume)" Do ; alleen volume
	. . Set $P(Values,D,1)=0
	. . Set $P(Values,D,2)=5
	. . Set $P(Values,D,3)=15
	. Else  If Verpakking[";" Do ; meerdere verpakkingen
	. . Set $P(Values,D,1)=15
	. . Set $P(Values,D,2)=30
	. . Set $P(Values,D,3)=15
	. Else  If Verpakking["/" Do ; combinatie
	. . Set $P(Values,D,1)=5
	. . Set $P(Values,D,2)=10
	. . Set $P(Values,D,3)=5
	. Else  Do ; single
	. . Set $P(Values,D,1)=10
	. . Set $P(Values,D,2)=20
	. . Set $P(Values,D,3)=15
 
	Set sFL(1)=Values
	Do NIEUW^vhScherm("PRBSOLAUTO",,,,,,1)
	Quit:'%SC
 
	Do AutoOrgaluxSet(PRNr,sFL(1))
	
	Quit
	
	; uitvoeren van de verkorte ingave
	; waar bij de oude gegevens worden verwijderd en de nieuwe worden ingevuld
AutoOrgaluxSet(PRNr,Values)
	
	; Delete old values
	Set BSKey="" 
	For  Set BSKey=$O(^HULP(%J,"C",BSKey)) Quit:BSKey=""  Do
	. Set BSRec=^HULP(%J,"C",BSKey)
	. If $P(BSRec,D,1)?4.7N,$E($P(^KPR(PRNr,0),D,1),1,3)="VPO" Kill ^HULP(%J,"C",BSKey)
	. Else  If ($P(BSRec,D,11)=$$$LabelOld)||($P(BSRec,D,11)=$$$LabelNew) Kill ^HULP(%J,"C",BSKey)
	
	; ToeslagMateriaal
	If $P(Values,D,4) Do
	. Set Rec=D_1_D_"S"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsToeslagNew
	. Set $P(Rec,D,5)=$P(Values,D,4)
	. Set BSKey=$$DEFBSKEY^PRBS("KOST")
	. Set ^HULP(%J,"C",BSKey)=Rec
	; Vouwen
	If $P(Values,D,1) Do
	. Set Rec=D_1_D_"T"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsVouwenNew
	. Set $P(Rec,D,7)=$P(Values,D,1)
	. Set $P(Rec,D,8)=$P(Values,D,1)
	. Set $P(Rec,D,9)="OLVERPAK"
	. Set BSKey=$$DEFBSKEY^PRBS("TIJD")
	. Set ^HULP(%J,"C",BSKey)=Rec
	; Inpak
	If $P(Values,D,2) Do
	. Set Rec=D_1_D_"T"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsInpakNew
	. Set $P(Rec,D,7)=$P(Values,D,2)
	. Set $P(Rec,D,8)=$P(Values,D,2)
	. Set $P(Rec,D,9)="OLVERPAK"
	. Set BSKey=$$DEFBSKEY^PRBS("TIJD")
	. Set ^HULP(%J,"C",BSKey)=Rec
	; Afwerken
	If $P(Values,D,3) Do
	. Set Rec=D_1_D_"T"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsAfwerkNew
	. Set $P(Rec,D,7)=$P(Values,D,3)
	. Set $P(Rec,D,8)=$P(Values,D,3)
	. Set $P(Rec,D,9)="OLVERPAK"
	. Set BSKey=$$DEFBSKEY^PRBS("TIJD")
	. Set ^HULP(%J,"C",BSKey)=Rec
	; ToeslagMateriaal
	If $P(Values,D,5) Do
	. Set Rec=D_1_D_"S"_D_"0.25"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsLuchtZakNew
	. Set $P(Rec,D,1)=$P(Values,D,5)
	. Set BSKey=$$DEFBSKEY^PRBS("KOST")
	. Set ^HULP(%J,"C",BSKey)=Rec
 
	;zw ^HULP(%J,"C")
	Set sMod=1
	Do SORT^PRBS
	;zw ^HULP(%J,"S")
	Do UPDATE^PRBS
 	Quit