Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r1210 -r1360
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 1210)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 1360)
@@ -9,57 +9,55 @@
 
 <Parameter name="BlumotionMinIB">
 <Description>
-Minimaal toegelaten Interne Breedte voor een lade met Dubbele Blumotion (in mm)
-</Description>
+Minimaal toegelaten Interne Breedte voor een lade met Dubbele Blumotion (in mm)</Description>
 <Default>240</Default>
 </Parameter>
 
 <Parameter name="MaximumIB">
 <Description>
-Maximaal toegelaten Interne breedte voor een lade (in mm)
-</Description>
+Maximaal toegelaten Interne breedte voor een lade (in mm)</Description>
 <Default>1500</Default>
 </Parameter>
 
 <Parameter name="MaximumIBBinL">
 <Description>
-Maximaal toegelaten Interne breedte voor een lade (in mm)
-</Description>
+Maximaal toegelaten Interne breedte voor een lade (in mm)</Description>
 <Default>1168</Default>
 </Parameter>
 
 <Parameter name="MaximumIBVHoss">
 <Description>
-Maximumbreedte van een lade die in een VHoss-kast past (=1200- 2x16 mm)
-</Description>
+Maximumbreedte van een lade die in een VHoss-kast past (=1200- 2x16 mm)</Description>
 <Default>1168</Default>
 </Parameter>
 
+<Parameter name="MaximumIBProbox">
+<Description>
+Maximumbreedte van een lade voor Probox (=1200- 2x16 mm)</Description>
+<Default>1168</Default>
+</Parameter>
+
 <Parameter name="MinimumIB">
 <Description>
-Minimaal toegelaten Interne breedte voor een lade (in mm)
-</Description>
+Minimaal toegelaten Interne breedte voor een lade (in mm)</Description>
 <Default>155</Default>
 </Parameter>
 
 <Parameter name="MinimumSPZK">
 <Description>
-Minimaal toegelaten breedte van de spoelbakzijstukken voor een lade (in mm)
-</Description>
+Minimaal toegelaten breedte van de spoelbakzijstukken voor een lade (in mm)</Description>
 <Default>120</Default>
 </Parameter>
 
 <Parameter name="MinimumIBSP">
 <Description>
-Minimaal toegelaten Interne breedte voor een Spoelbak lade (in mm)
-</Description>
+Minimaal toegelaten Interne breedte voor een Spoelbak lade (in mm)</Description>
 <Default>370</Default>
 </Parameter>
 
 <Parameter name="MinimumIBSPintivo">
 <Description>
-Minimaal toegelaten Interne breedte voor een intivo Spoelbak lade (in mm)
-</Description>
+Minimaal toegelaten Interne breedte voor een intivo Spoelbak lade (in mm)</Description>
 <Default>411</Default>
 </Parameter>
 
@@ -79,8 +77,7 @@
 <Parameter name="MinimumSPBR">
 <Description>
 Minimaal toegelaten breedte voor uitsparing van Spoelbak (in mm)
-(SPBR) 
-</Description>
+(SPBR) </Description>
 <Default>125</Default>
 </Parameter>
 
@@ -97,15 +94,13 @@
 <Property name="DFLRef">
 <Description>
 Ref naar de global die de defaults bevat voor het sequentieel invoeren van TBox-en.
-Deze data komt meestal uit ADMIN.
-</Description>
+Deze data komt meestal uit ADMIN.</Description>
 <Type>%Library.String</Type>
 </Property>
 
 <Property name="FCtrls">
 <Description>
-Structuur : ..FCtrls (Groep, CtrlNaam) = CtrlOref
-</Description>
+Structuur : ..FCtrls (Groep, CtrlNaam) = CtrlOref</Description>
 <Type>%Library.String</Type>
 <MultiDimensional>1</MultiDimensional>
 <Transient>1</Transient>
@@ -725,7 +720,7 @@
  . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
  . Do ..cboWandDikte.SetFocus()
 
- If ('..BLValidateIBVHoss(.msg)) Do  Quit 0   ; max. interne breedte is ??? mm
+ If ('..BLValidateIBVHossProbox(.msg)) Do  Quit 0   ; max. interne breedte is ??? mm
  . ;Set msg="Voor de VHoss-kasten kan de (interne) breedte van een lade maximaal "_..#MaximumIBVHoss_" mm bedragen."
  . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
  . Do ..btnOpties.SetFocus()
@@ -3090,7 +3085,7 @@
  Set CB=$S(..txtCBreedte.Visible="True":..txtCBreedte.Text, 1:..cboCBreedte.SelectedGetText())
  Set WD=$S(..cboWandDikte.SelectedGetKey()="B":0 ,1:..cboWandDikte.SelectedGetKey())
  Set MTIB=$S(..chkMinTolerantie.Checked="False":0 ,1:1)
- Set ..txtNutBreedte.Text=$S($IsValidNum(CB):$$nbrCalcValue, 1:"")
+ Set ..txtNutBreedte.Text=$S(CB="":"", $IsValidNum(CB):$$nbrCalcValue, 1:"0")
  Quit
 nbrCalcValue()
  New NB
@@ -4053,9 +4048,9 @@
  ; Maximale interne breedte is 2000 mm
  ; Voor binnenlade: maximale interne breedte is 1168 mm
  ; Voor SpoelbakLade: minimale interne breedte is 600 mm
- ; Voor VHoss kasten: maximale breedte van de lade (IB): 1168 mm
+ ; Voor VHoss kasten en Probox : maximale breedte van de lade (IB):  zie method BLValidateIBVHossProbox() 
  Set msg=""
- Quit:(..txtNutBreedte.Text="") 1
+ ;Quit:(..txtNutBreedte.Text="") 1
 
  New DC,MinIB
  Set DC=..blTBox.BTValues.GetAt("TBDesignCode")
@@ -4078,24 +4073,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BLValidateIBVHoss">
+<Method name="BLValidateIBVHossProbox">
 <FormalSpec><![CDATA[&msg:%String]]></FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.Boolean</ReturnType>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
- ; Minimale interne breedte is  175 mm
- ; Maximale interne breedte is 2000 mm
- ; Voor binnenlade: maximale interne breedte is 1168 mm
- ; Voor SpoelbakLade: minimale interne breedte is 600 mm
- ; Voor VHoss kasten: maximale breedte van de lade (IB): 1168 mm
+ ; Voor VHoss kasten: maximale breedte van de lade (IB): 1168 mm 
+ ; Voor Probox      : maximale breedte van de lade (IB): 1168 mm 
  Set msg=""
  Quit:(..txtNutBreedte.Text="") 1
- If (..blTBox.BTValues.GetAt("Verpakking")="A")&&(+..txtNutBreedte.Text>..#MaximumIBVHoss) Do  Quit 0
+ If (..blTBox.BTValues.GetAt("Verpakking")?1(1"A",1"B"))&&(+..txtNutBreedte.Text>..#MaximumIBVHoss) Do  Quit 0
  . Set msg="Voor de VHoss-kasten kan de (interne) breedte van een lade maximaal "_..#MaximumIBVHoss_" mm bedragen."
  . Set msg=msg_$$$CRLF_"Kies een andere verpakking voor deze lade via het 'Opties' scherm."
+ If (..blTBox.BTValues.GetAt("Verpakking")?1(1"X",1"Y"))&&(+..txtNutBreedte.Text>..#MaximumIBProbox) Do  Quit 0
+ . Set msg="Voor Probox-verpakking kan de (interne) breedte van een lade maximaal "_..#MaximumIBProbox_" mm bedragen."
+ . Set msg=msg_$$$CRLF_"Kies een andere verpakking voor deze lade via het 'Opties' scherm."
  Quit 1
 ]]></Implementation>
 </Method>
@@ -4284,7 +4279,7 @@
  . Set ..lblVerpakInfo.Visible="False"
  ; Else  Do
  Set VerpakOms=$$cviOmsFromItemID(VerpakID)_" ("_VerpakID_")"
- Set:($$$LCase(VerpakOms)'["commissie") VerpakOms="Verpakking "_VerpakOms
+ Set:($$$LCase(VerpakOms)'?1(1"commissie".E,1"vhoss".E,1"probox".E)) VerpakOms="Verpakking "_VerpakOms
  Set ..lblVerpakInfo.Caption=VerpakOms_$S(strNietMee="ASK":$$$CRLF_"NietMee: ? ", strNietMee="DLG":$$$CRLF_"NietMee: zie opties", strNietMee="True":$$$CRLF_" NietMee", 1 :"")
  Set ..lblVerpakInfo.Visible=$S($L(..lblVerpakInfo.Caption):"True", 1:"False")
  Quit
@@ -6156,7 +6151,6 @@
 
  Do ..txtOpvulLijstLiExit(.Args)
 
- ;#define TRIM(%v)   $ZSTRIP(%v,"<>W")
  ;Set:($$$TRIM(Sender.Text)="") Sender.Text="0"
  ;If $IsValidNum(Sender.Text) Do
  ;. Do ..OnTextboxExit(Sender)
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r1358 -r1360
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 1358)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 1360)
@@ -1543,8 +1543,8 @@
 	. Quit:'$D(^KTO($$$LevHalux,TOENr))
 	. Set ASM=$S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat
 	. Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
-	. If ((VPK="A")!(VPK="B"))&(ASM'=0) Set AantASM(TOENr)=$G(AantASM(TOENr))+Aantal
-	. If (VPK="O")!(VPK="B") Set AantOnderdelen(TOENr)=$G(AantOnderdelen(TOENr))+Aantal
+	. If (VPK?1(1"A",1"B",1"X",1"Y"))&(ASM'=0) Set AantASM(TOENr)=$G(AantASM(TOENr))+Aantal   ; ASM afzonderlijk : tellen indien verticale stapeling (i.e. VHoss of Probox) 
+	. If (VPK?1(1"O",1"B",1"X")) Set AantOnderdelen(TOENr)=$G(AantOnderdelen(TOENr))+Aantal   ; Losse onderdelen : tellen indien bulk MET onderdelen 
 	Set TOENr=""
 	For  Set TOENr=$O(AantASM(TOENr)) Quit:TOENr=""  Do                   ; labels naar de bartender sturen
 	. Set Aantal=$S(AantASM(TOENr)#$$$GrpAantalMat=0:AantASM(TOENr)\$$$GrpAantalMat,1:AantASM(TOENr)\$$$GrpAantalMat+1)
Index: DOM/PM/enu/TBXVerpakking.cls.xml
===================================================================
diff -u -r1350 -r1360
--- DOM/PM/enu/TBXVerpakking.cls.xml	(.../TBXVerpakking.cls.xml)	(revision 1350)
+++ DOM/PM/enu/TBXVerpakking.cls.xml	(.../TBXVerpakking.cls.xml)	(revision 1360)
@@ -46,13 +46,17 @@
 </Method>
 
 <Method name="KastMetOnderdelen">
+<Description>
+VHoss of pallet (met onderdelen) </Description>
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.enu.TBXVerpakking</ReturnType>
 <Implementation><![CDATA[	Quit "B"
 ]]></Implementation>
 </Method>
 
 <Method name="KastZonderOnderdelen">
+<Description>
+VHoss of pallet (zonder onderdelen) </Description>
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.enu.TBXVerpakking</ReturnType>
 <Implementation><![CDATA[	Quit "A"