Index: BL/MB/UGLYPicking/Opslag.cls.xml
===================================================================
diff -u -r8430 -r33875
--- BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 8430)
+++ BL/MB/UGLYPicking/Opslag.cls.xml	(.../Opslag.cls.xml)	(revision 33875)
@@ -524,15 +524,14 @@
 
 <Method name="CommitChangeStock">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LocID:%Library.String,Locatie:%Library.List,Sectie:%Library.String,Product:%Library.String,CCQty:%Library.Integer,Reden:%Library.String="",UserID:%Library.String="",HistoryRemark:%Library.String=""</FormalSpec>
+<FormalSpec>LocID:%Library.String,Locatie:%Library.List,Sectie:%Library.String,Product:%Library.String,CCQty:%Library.Integer,Reden:%Library.String="",UserID:%Library.String="",HistoryRemark:%Library.String="",AutoCC:%Library.Boolean=0</FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.String</ReturnType>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
  $$$WriteToLog("*** COMMIT CHANGE STOCK ***")
- 
  //----------------------------------------------------------------------------------------------
  //SQL Gateway object aanmaken
  //----------------------------------------------------------------------------------------------
@@ -551,7 +550,7 @@
  //----------------------------------------------------------------------------------------------
  //COMMIT PICKING
  //----------------------------------------------------------------------------------------------
- Set tmpStatus=..FChangeStock(LocID,Locatie,Sectie,Product,CCQty,0,HistoryRemark,SQLGCWrapper,Reden,UserID)
+ Set tmpStatus=..FChangeStock(LocID,Locatie,Sectie,Product,CCQty,0,HistoryRemark,SQLGCWrapper,Reden,UserID, AutoCC)
  $$$WriteToLog("ChangeStock: "_$$LCVT^vhLib(tmpStatus))
 
  //----------------------------------------------------------------------------------------------
@@ -616,7 +615,7 @@
 
 <Method name="FChangeStock">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LocID:%Library.String,Locatie:%Library.List,Sectie:%Library.String,Product:%Library.String,ChangeToQty:%Library.String,WithReservation:%Library.Boolean=0,HistoryRemark:%Library.String="",SQLGCWrapper:%Library.String,Reden:%Library.String,UserID:%Library.String</FormalSpec>
+<FormalSpec>LocID:%Library.String,Locatie:%Library.List,Sectie:%Library.String,Product:%Library.String,ChangeToQty:%Library.String,WithReservation:%Library.Boolean=0,HistoryRemark:%Library.String="",SQLGCWrapper:%Library.String,Reden:%Library.String,UserID:%Library.String,AutoCC:%Library.Boolean=0</FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.List</ReturnType>
@@ -628,6 +627,7 @@
  $$$WriteToLog("- Sectie: "_Sectie_", Product: "_Product)
  $$$WriteToLog("- ChangeToQty: "_CCQty_", Reden: "_Reden)
  $$$WriteToLog("- UserID: "_UserID_", Remark: "_HistoryRemark_", with reservation: "_WithReservation)
+ $$$WriteToLog("- AutoCC: "_AutoCC)
  
  //RETURN VALUES:
  //ERRORS
@@ -654,6 +654,7 @@
  Set C("REDEN")=Reden
  Set C("USER")=UserID
  Set C("VOLGNR")=$R(10000)  ;Doesn't matter, wo enkel gebruikt bij error
+ Set C("AUTOCC")=AutoCC
 
  New InventoryID
  Set InventoryID=$LI(tmpStatus,2)
Index: UI/MB/UGLYPicking/dlgOrderPick.cls.xml
===================================================================
diff -u -r33813 -r33875
--- UI/MB/UGLYPicking/dlgOrderPick.cls.xml	(.../dlgOrderPick.cls.xml)	(revision 33813)
+++ UI/MB/UGLYPicking/dlgOrderPick.cls.xml	(.../dlgOrderPick.cls.xml)	(revision 33875)
@@ -147,6 +147,11 @@
 <Type>%Library.String</Type>
 </Property>
 
+<Property name="ccAutoCC">
+<Type>%Library.Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
 <Property name="lbPrintPalletMagsToIgnore">
 <Type>%Library.List</Type>
 <InitialExpression>$LB("HALUX")</InitialExpression>
@@ -1005,7 +1010,9 @@
  
  ;frequent cycle counts
  If '..PerformCycleCount do
- . Set:(PalletResObj.Inventory.ExtraInt7 > 0) ..PerformCycleCount = 1   ;Heeft de nightly ZetAutoCC() ExtraInt7 gezet? zo ja: C/C triggeren
+ . If (PalletResObj.Inventory.ExtraInt7 > 0) do
+ . . Set ..ccAutoCC = 1
+ . . Set ..PerformCycleCount = 1   ;Heeft de nightly ZetAutoCC() ExtraInt7 gezet? zo ja: C/C triggeren
 
  Do PalletResObj.%Close()
 
@@ -1076,7 +1083,7 @@
  . Set CCForm.UserId=..UserId
  . Set CCForm.btnCancel.Enabled="False"
  . New PrepareOK
- . Set PrepareOK=CCForm.PrepareViaParams(..ccLocID,..ccLocatie,..ccSectie,..ccProduct,..ccCurrentQtyPcs)
+ . Set PrepareOK=CCForm.PrepareViaParams(..ccLocID,..ccLocatie,..ccSectie,..ccProduct,..ccCurrentQtyPcs, ..ccAutoCC)
  . If PrepareOK="" Do
  ..  Do CCForm.Form.ShowModal()
  ..  Set QtyIsChanged=CCForm.QtyIsChanged
@@ -2134,6 +2141,9 @@
 <Value name="107">
 <Value>lblOrderRef</Value>
 </Value>
+<Value name="108">
+<Value>ccAutoCC</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: UI/MB/UGLYPicking/dlgCC.cls.xml
===================================================================
diff -u -r1074 -r33875
--- UI/MB/UGLYPicking/dlgCC.cls.xml	(.../dlgCC.cls.xml)	(revision 1074)
+++ UI/MB/UGLYPicking/dlgCC.cls.xml	(.../dlgCC.cls.xml)	(revision 33875)
@@ -5,6 +5,7 @@
 <IncludeCode>KeyCodesCNTs,UglyPickingCNTs</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="CurrentQtyPcs">
 <Type>%Library.Integer</Type>
@@ -57,6 +58,11 @@
 <InitialExpression>0</InitialExpression>
 </Property>
 
+<Property name="AutoCC">
+<Type>%Library.Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
 <Property name="Sectie">
 <Type>%Library.String</Type>
 </Property>
@@ -754,7 +760,7 @@
  Do MApplication.ProcessMessages()
 
  New tmpStatus
- Set tmpStatus=$$$cmOpslag.CommitChangeStock(..PalletID,..Locatie,..Sectie,..ProductNr,Qty,CCReden,..UserId,"C/C: "_CCReden)
+ Set tmpStatus=$$$cmOpslag.CommitChangeStock(..PalletID,..Locatie,..Sectie,..ProductNr,Qty,CCReden,..UserId,"C/C: "_CCReden, ..AutoCC)
 
  If tmpStatus="" Do
  . Set ..Form.ModalResult=$$$mrOk
@@ -892,7 +898,6 @@
  . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(Status,2)_$C(13,10,13,10)_"Probeer later eens opnieuw.",$$$MBICONINFORMATION)
 
  Quit 0
-
 ]]></Implementation>
 </Method>
 
@@ -1015,7 +1020,7 @@
 </Method>
 
 <Method name="PrepareViaParams">
-<FormalSpec>LocID:%String,Locatie:%List,Sectie:%String,Product:%String,CurrentQtyPcs:%Integer</FormalSpec>
+<FormalSpec>LocID:%String,Locatie:%List,Sectie:%String,Product:%String,CurrentQtyPcs:%Integer,AutoCC:%Library.Boolean=0</FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.String</ReturnType>
@@ -1031,6 +1036,7 @@
  Set ..Locatie=Locatie
  Set ..CurrentQtyPcs=CurrentQtyPcs
  Set ..lblAanwezig.Caption=$$DottedInt^vhLib(CurrentQtyPcs)
+ Set ..AutoCC = AutoCC
 
  ;Interface: gegevens verwerken
  Quit:('..LoadProduct(..ProductNr)) "Kan de gegevens van product "_..ProductNr_" niet inlezen voor het uitvoeren van een cycle count."
@@ -1169,7 +1175,6 @@
  Set ..txtGx.Text=0
  Do ..FocusAantal()
  Quit
-
 ]]></Implementation>
 </Method>
 
@@ -1717,6 +1722,9 @@
 <Value name="105">
 <Value>lblAanwezig</Value>
 </Value>
+<Value name="106">
+<Value>AutoCC</Value>
+</Value>
 </Data>
 </Storage>
 </Class>