Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r29059 -r39040
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 29059)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 39040)
@@ -117,10 +117,8 @@
 </Method>
 
 <Method name="AddToBuffer">
-<Description>
-JBL opmerking : ProdIsInKOM mag weg want wordt nergens meer gebruikt, enkel doorgegeven</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[bfrRGID:%Library.String,bfrVolgNr:%Library.String,ProductNr:%Library.String,Dossier:%Library.String,Locatie:%Library.String,PalletID:%Library.String,UserID:%Library.String,&ProdIsInKOM:%Library.String,UseThisTLNr:%Library.String="",StartQty:%Library.Integer,AttachTLNrAndQuitIfLineExists:%Boolean=0,ToeleveringID:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[bfrRGID:%Library.String,bfrVolgNr:%Library.String,ProductNr:%Library.String,Dossier:%Library.String,Locatie:%Library.String,PalletID:%Library.String,UserID:%Library.String,&ProdIsInKOM:%Library.String,UseThisTLNr:%Library.String="",StartQty:%Library.Integer,AttachTLNrAndQuitIfLineExists:%Boolean=0,GebruikTotaalAantalIndienUseThisTLNr:%Boolean=1]]></FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.List</ReturnType>
@@ -129,6 +127,7 @@
 <Implementation><![CDATA[
  //RETURN VALUES
  //ERRORS:
+ //-7: Product komt niet voor in de toelevering die is meegegeven via UseThisTLNr
  //-6: Starthoeveelheid is groter dan aantal aanwezig in toeleveringen
  //-5: Starthoeveelheid is kleiner dan 0
  //-4: Fout bij INCBufferQty (INCBufferQty wordt gebruikt indien opgegeven product,pallet,locatie reeds id buffer zitten)
@@ -151,57 +150,60 @@
 	;   Enkel het product (met ProductNr) van de toelevering (met UseThisTLNr) wordt toegevoegd,
 	;   dit met maximaal aantal.
 	
- 
- New Status,SEP,MagTotaalToeleveringRecepteren
+ New Status,SEP
  Set SEP=..#bfrSEP
  Set ProdIsInKOM=0
- Set MagTotaalToeleveringRecepteren = (UseThisTLNr'="")
- Set:(UseThisTLNr'="") ToeleveringID = UseThisTLNr
 
+ // Enkele variabelen om de code makkelijker te kunnen volgen ...  :-P 
+ New ZonderToeleveringBeperking,MetToeleveringBeperking,GebruikDeelAantalVanDezeToelevering
+ Set ZonderToeleveringBeperking = (UseThisTLNr="")
+ Set MetToeleveringBeperking = ($$$Not(ZonderToeleveringBeperking))
+ Set GebruikDeelAantalVanDezeToelevering = (MetToeleveringBeperking && ($$$Not(GebruikTotaalAantalIndienUseThisTLNr)))
+ 
  //---------------------------------------------------------------------------------------------
- // 1. Bestaat ^TO("IP",ProductNr)?
+ // 1.A Bestaat ^TO("IP",ProductNr)?
  //---------------------------------------------------------------------------------------------
  Quit:('$D(^TO("IP",ProductNr))) $LB(-1,"Product '"_ProductNr_"' komt niet voor in een toelevering.")
+ 
+ //---------------------------------------------------------------------------------------------
+ // 1.B Bestaat ^TO("IP",ProductNr,UseThisTLNr)?
+ //---------------------------------------------------------------------------------------------
+ If UseThisTLNr '= "" {
+	Quit:('$D(^TO("IP",ProductNr,UseThisTLNr))) $LB(-7,"Product '"_ProductNr_"' komt niet voor in toelevering '"_UseThisTLNr_"'.")
+ }
 
  //---------------------------------------------------------------------------------------------
  // 2. Check of Prod met PalletID & Locatie reeds eerder is toegevoegd
  //---------------------------------------------------------------------------------------------
  Set Status=$LB(0)  ;neutraal
  New LijnNr,INCError
- Set LijnNr=..IsProdWithLocAndPalInBuffer(bfrRGID,bfrVolgNr,ProductNr,Locatie,PalletID,ToeleveringID)
- 
+ Set LijnNr=..IsProdWithLocAndPalInBuffer(bfrRGID,bfrVolgNr,ProductNr,Locatie,PalletID)
+
  ;Indien AttachTLNrAndQuitIfLineExists=1 en de bufferlijn bestaat reeds, dan koppelen we het toeleveringsnummer
  ;aan deze lijn en laten we voor de rest de scangegevens zoals ze waren
- If AttachTLNrAndQuitIfLineExists && (ToeleveringID'="") && MagTotaalToeleveringRecepteren && (LijnNr'=0) Do  Quit $LB(4,"Product '"_ProductNr_"' gekoppeld aan toelevering '""', scanaantal ongewijzigd.")
- . Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,ToeleveringID) 
-
- If LijnNr'=0 {
-		If (ToeleveringID="")  {   ;Bufferlijn bestaat reeds, geen assoc toeleveringsnummer meegegeven, inhoud van de lijn gewoon +1
-			Set Status=..INCBufferQty(bfrRGID,bfrVolgNr,LijnNr)
-			If $LI(Status)=1 {   ;Indien status=2 => dan is de toelevering reeds afgewerkt
-				New Rec
-				Set Rec=^UPRCP("B",bfrRGID,bfrVolgNr,LijnNr)
-				Set $P(Rec,SEP,$$$bsnScanTime)=$H    ;ScanTime opnieuw instellen...
-				Set ^UPRCP("B",bfrRGID,bfrVolgNr,LijnNr)=Rec
-			}
-			Set:($LI(Status)>0) Status=$LB(2,"Product '"_ProductNr_"' succesvol ingescand. "_$LI(Status,2))		
-		} ElseIf (ToeleveringID'="") && MagTotaalToeleveringRecepteren {  ;Bufferlijn bestaat reeds, assoc toeleveringsnummer opgegeven, lijn op maximum scanaantal instellen
-			New TotalQty
-			Set TotalQty=..GetTotalQtyViaProdNr(ProductNr,ToeleveringID)
-			Do ..SetBufferQtyDone(bfrRGID,bfrVolgNr,LijnNr,TotalQty)
-			Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,ToeleveringID)
-			Set:($LI(Status)>0) Status=$LB(2,"Product '"_ProductNr_"' ingesteld op maximum waarde ("_TotalQty_"). "_$LI(Status,2))
-		}ElseIf (ToeleveringID'="") && 'MagTotaalToeleveringRecepteren{
-			Set Status=..INCBufferQty(bfrRGID,bfrVolgNr,LijnNr)
-			If $LI(Status)=1 {   ;Indien status=2 => dan is de toelevering reeds afgewerkt
-				Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,ToeleveringID)
-			}
-		}
- }
-	
+ If AttachTLNrAndQuitIfLineExists && (UseThisTLNr'="") && (LijnNr'=0) Do  Quit $LB(4,"Product '"_ProductNr_"' gekoppeld aan toelevering '""', scanaantal ongewijzigd.")
+ . Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,UseThisTLNr)
+  
+ 
+ If LijnNr'=0 Do
+ . If ( ZonderToeleveringBeperking || (MetToeleveringBeperking && GebruikDeelAantalVanDezeToelevering)) Do   ;Bufferlijn bestaat reeds, geen assoc toeleveringsnummer meegegeven, inhoud van de lijn gewoon +1
+ ..  Set Status=..INCBufferQty(bfrRGID,bfrVolgNr,LijnNr)
+ ..  If $LI(Status)=1 Do   ;Indien status=2 => dan is de toelevering reeds afgewerkt
+ ...   New Rec
+ ...   Set Rec=^UPRCP("B",bfrRGID,bfrVolgNr,LijnNr)
+ ...   Set $P(Rec,SEP,$$$bsnScanTime)=$H    ;ScanTime opnieuw instellen...
+ ...   Set ^UPRCP("B",bfrRGID,bfrVolgNr,LijnNr)=Rec
+ ..  Set:(($LI(Status)>0) && (ZonderToeleveringBeperking)) Status=$LB(2,"Product '"_ProductNr_"' succesvol ingescand. "_$LI(Status,2))
+ ..  Set:(($LI(Status)>0) && (GebruikDeelAantalVanDezeToelevering)) Status=$LB(0)
+ . Else  Do     ;Bufferlijn bestaat reeds, assoc toeleveringsnummer opgegeven, lijn op maximum scanaantal instellen
+ ..  New TotalQty
+ ..  Set TotalQty=..GetTotalQtyViaProdNr(ProductNr,UseThisTLNr)
+ ..  Do ..SetBufferQtyDone(bfrRGID,bfrVolgNr,LijnNr,TotalQty)
+ ..  Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,UseThisTLNr)
+ ..  Set:($LI(Status)>0) Status=$LB(2,"Product '"_ProductNr_"' ingesteld op maximum waarde ("_TotalQty_"). "_$LI(Status,2))
+ 
  Quit:($LI(Status)'=0) Status
 
-
  //---------------------------------------------------------------------------------------------
  // 3. Afdalen in ^TO("IP",ProductNr), ToeleveringsNummers ophalen
  //    OPBOUW: ^TO("IP",ProductNr,TLNr,TLUNr)
@@ -211,48 +213,56 @@
  Set AantalToeleveringenFound=0, TotalQty=0
  Set ProdIsInKOM=0, ErrorList=""
 
- 
  ; ===[ NODE 3: TLNr ]===
- If ToeleveringID="" Do   
+ If ZonderToeleveringBeperking Do   
  . New tmpStatus,TLNr
  . Set TLNr=""
  . For  Set TLNr=$O(^TO("IP",ProductNr,TLNr)) Quit:(TLNr="")  Do
  ..  Set tmpStatus=..FIsToeleveringsNrAllowed(TLNr)
  ..  Quit:($LI(tmpStatus)'=1)
  ..  Do atbRunThroughToelev(ProductNr,TLNr,.ProdIsInKOM,.ErrorList,.TotalQty,.AantalToeleveringenFound)
  Else  Do   ;Indien TLNr opgegeven, enkel deze meetellen in bufferlijn
- . Do atbRunThroughToelev(ProductNr,ToeleveringID,.ProdIsInKOM,.ErrorList,.TotalQty,.AantalToeleveringenFound)
+ . Do atbRunThroughToelev(ProductNr,UseThisTLNr,.ProdIsInKOM,.ErrorList,.TotalQty,.AantalToeleveringenFound)
 
  New QtyDone
- Set QtyDone=..GetQtyDoneViaProdNr(ProductNr,,,,,ToeleveringID)
+ Set QtyDone=..GetQtyDoneViaProdNr(ProductNr,,,,,UseThisTLNr)
  
  If (TotalQty = QtyDone)
  {
 	 Quit $LB(3,"Het bestelde aantal voor de toelevering is volledig gescand.")
  }
-
  ;De Qty die initieel in de buffer komt te staan (zelf opgegeven, TLNr aanwezig->TotalQty, anders 1)
- Set StartQty=$G(StartQty)
- If StartQty = "" {
-	 If MagTotaalToeleveringRecepteren{
-		 Set StartQty = TotalQty-QtyDone
-	 }Else{
-		 Set StartQty = 1
-	 }
- }
+ Set StartQty=$G(StartQty,$S(ZonderToeleveringBeperking:1,1:TotalQty-QtyDone))
  Quit:(StartQty<0) $LB(-5,"Interne fout: starthoeveelheid("_StartQty_") is kleiner dan nul.")
  Quit:(StartQty>TotalQty) $LB(-6,"Interne fout: starthoeveelheid("_StartQty_") is groter dan aantal in toeleveringen("_TotalQty_").")
 
  Quit:(ErrorList'="") $LB(-2,ErrorList)
 
  Quit:(AantalToeleveringenFound=0) $LB(-3,"Product '"_ProductNr_"' heeft toeleveringen, maar deze kunnen niet verwerkt worden met dit programma (ongeldige leverancier(s)).")
-
- ;AllesOK: Aan buffer toevoegen
- New Rec,LijnNr
- Set Rec=ProductNr_SEP_Dossier_SEP_PalletID_SEP_Locatie_SEP_StartQty_SEP_$H_SEP_UserID_SEP_ToeleveringID
- Set LijnNr=..GetNewLijnNr(bfrRGID,bfrVolgNr)
- Set ^UPRCP("B",bfrRGID,bfrVolgNr,LijnNr)=Rec
-
+ 
+ /// JBL, sorry voor de commentaar, maar ik denk dat hier gebeurd : 
+ /// SITUATIE 1 :  (ZonderToeleveringBeperking) 
+ /// UseThisTLNr = ""
+ /// Dan wordt hier een nieuwe lijn in buffer aangemaakt als het product er nog niet in zat. 
+ /// 
+ /// SITUATIE 2 :  (MetToeleveringBeperking) 
+ ///; - UseThisTLNr = ToeleveringsNr
+	;   Enkel het product (met ProductNr) van de toelevering (met UseThisTLNr) wordt toegevoegd,
+	;   dit met maximaal aantal
+ /// op dat moment wordt het totaal aantal toegevoegd aan de buffer met de toeleveringID
+ /// Wat er nu is bijgekomen is dat de property 'GebruikTotaalAantalIndienUseThisTLNr' optioneel is bijgekomen.
+ /// Ik vermoed dat onderstaand vroeger enkel mocht uitgevoerd worden als 
+ /// - UseThisTLNr ingevuld was, want bij lege UseThisTLNr hij kwam niet tot hier door de early quits
+ /// Onderstaande code mag dus vanaf heden enkel uitgevoerd worden als 
+ /// - UseThisTLNr ingevuld is
+ /// - GebruikTotaalAantalIndienUseThisTLNr = 1
+ If ((ZonderToeleveringBeperking) || (MetToeleveringBeperking && GebruikTotaalAantalIndienUseThisTLNr)) {
+	 ;AllesOK: Aan buffer toevoegen
+	 New Rec,LijnNr
+	 Set Rec=ProductNr_SEP_Dossier_SEP_PalletID_SEP_Locatie_SEP_StartQty_SEP_$H_SEP_UserID_SEP_$G(UseThisTLNr)
+	 Set LijnNr=..GetNewLijnNr(bfrRGID,bfrVolgNr)
+	 Set ^UPRCP("B",bfrRGID,bfrVolgNr,LijnNr)=Rec
+ }
  Quit $LB(1,"Product '"_ProductNr_"' succesvol toegevoegd aan buffer '"_bfrRGID_"'("_AantalToeleveringenFound_" toelevering(en)).")
 
  ;========================================================================================================
@@ -265,7 +275,7 @@
  . Set TLLNr=^TO("IP",ProductNr,TLNr,TLUNr)
  . Set ToeleveringsQty=..FGetToeleveringsQty(TLNr,TLLNr)
  . If ToeleveringsQty=-1 Do
- ..  Set ErrorList=ErrorList_"Het bestelde aantal van toelevering '"_TLNr_"' is onbekend voor lijn "_TLUNr
+ ..  Set ErrorList=ErrorList_"Het bestelde aantal van toelevering '"_TLNr_"' is onbekend. "
  . Else  Do
  ..  Set TotalQty=TotalQty+ToeleveringsQty
  Set AantalToeleveringenFound=AantalToeleveringenFound+1
@@ -279,7 +289,7 @@
 <Implementation><![CDATA[
 	Set EventData = ##class(BL.MB.UGLYPicking.Events.ToeFinishedEventData).%New("",bfrRGID,bfrVolgNr)
 	Set Event = ##class(BL.MB.UGLYPicking.Events.ToeFinishedEvent).%New(EventData)
-	Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
 ]]></Implementation>
 </Method>
 
@@ -612,7 +622,8 @@
  Set:(CloseTime="") CloseTime=$H  ;Eventuele error opvangen
  Set CloseTime=$ZDT(CloseTime,2,2)
  Set Msg=ReceptieGroep_" receptie afgesloten door '"_UserId_"' op "_CloseTime_$S(DoMailOnly:" (mail delayed).",1:".")
- Set Status=$$SendMiniMail^vhLib($$$SystemMail("Receptie-UGLY"),EmailList,"UGLY Receptie "_CloseTime,Msg)
+ ; geen mails meer PV 05 03 2012
+ Set Status=$$$OK ;$$SendMiniMail^vhLib($$$SystemMail("Receptie-UGLY"),EmailList,"UGLY Receptie "_CloseTime,Msg)
 
  ;Error?
  If $$$ISERR(Status) Do  Quit $LB(-2,$$ParseStatus^vhLib(Status))
@@ -1388,12 +1399,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsDirectLevering">
+<Description>
+Controle of de Toelevering onmiddellijk op de GLS vrachtwagen kan geplaatst worden.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>bfrRGID:%Library.String,bfrVolgNr:%Library.String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Boolean</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+	Set IsDirectLevering= ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaReceptieBuffer(bfrRGID , bfrVolgNr)=""
+	Quit IsDirectLevering
+]]></Implementation>
+</Method>
+
 <Method name="IsProdWithLocAndPalInBuffer">
 <Description>
 Geeft LijnNr terug bij overeenkomst
 </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>bfrRGID:%Library.String,bfrVolgNr:%Library.String,ProductNr:%Library.String,Locatie:%Library.String,PalletID:%Library.String,ToeleveringID:%String=""</FormalSpec>
+<FormalSpec>bfrRGID:%Library.String,bfrVolgNr:%Library.String,ProductNr:%Library.String,Locatie:%Library.String,PalletID:%Library.String</FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.Integer</ReturnType>
@@ -1411,8 +1438,7 @@
  . If $P(Rec,SEP,1)=ProductNr Do
  ..  If $P(Rec,SEP,4)=Locatie Do
  ...   If $P(Rec,SEP,3)=PalletID Do
- ....   If ((ToeleveringID="") || ($P(Rec,SEP,8)=ToeleveringID)) Do
- .....    Set Found=Loop   ;Geef LijnNr terug bij overeenkomst
+ ....    Set Found=Loop   ;Geef LijnNr terug bij overeenkomst
 
  Quit Found
 ]]></Implementation>
@@ -1435,7 +1461,7 @@
 <FormalSpec>RGID:%String,VolgNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set Lock = "^UPRCP(""B"","""_RGID_""","_VolgNr_")"
+	Set Lock = $Name(^UPRCP("B",RGID,VolgNr))
 	Set ID  = ##class(TECH.Lock.LockUtils).GeefProcessID(Lock)
 	Quit ID
 ]]></Implementation>
@@ -2145,64 +2171,25 @@
 <Implementation><![CDATA[
 	/// Update locatie op productlijnen
 	Set EenProductID = ""
-	Set LijnNr = $O(^UPRCP("B",RGID,VolgNr,""))
+	Set LijnNr = $O(^UPRCP("B","TB",VolgNr,""))
 	While (LijnNr '= ""){
-		Set EenProductID = $Piece(^UPRCP("B",RGID,VolgNr,LijnNr),"\",1)
-		Set PalletID = $Piece(^UPRCP("B",RGID,VolgNr,LijnNr),"\",3)
+		Set EenProductID = $Piece(^UPRCP("B","TB",VolgNr,LijnNr),"\",1)
+		Set PalletID = $Piece(^UPRCP("B","TB",VolgNr,LijnNr),"\",3)
 		Do ..ChangeBufferLocAndPal(RGID,VolgNr,LijnNr,LocatieID,PalletID)
-		Set LijnNr = $O(^UPRCP("B",RGID,VolgNr,LijnNr))
+		Set LijnNr = $O(^UPRCP("B","TB",VolgNr,LijnNr))
 	}
 	
 	/// Update locatie in klantspecifieke eigenschappen 
-	Set KlantID = ..GetJointKlantNrViaProdNr(EenProductID)
-	If (KlantID '= ""){
-		Set $Piece(^UPRCP("K",RGID,KlantID),"\",1) = LocatieID
-	}
-]]></Implementation>
-</Method>
-
-<Method name="GeefLijnNrVoorProductInBuffer">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductID:%String,RGID:%String,VolgNr:%Integer</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	Set LijnNr = ""
-	Set IsLijnGevonden = 0
-	If $Data(^UPRCP("B",RGID,VolgNr)){
-		Set LijnNr = $O(^UPRCP("B",RGID,VolgNr,""))
-		While (('IsLijnGevonden) && (LijnNr '= ""))
-		{
-			Set ProductIDInBuffer = $P(^UPRCP("B",RGID,VolgNr,LijnNr),"\",1)
-			If ProductID = ProductIDInBuffer 
-			{
-				Set IsLijnGevonden = 1	
-			}Else{
-				Set LijnNr = $O(^UPRCP("B",RGID,VolgNr,LijnNr))
-			}
+	If (EenProductID '= ""){
+		Set KlantID = ..GetJointKlantNrViaProdNr(EenProductID)
+		If (KlantID '= ""){
+			Set $Piece(^UPRCP("K","TB",KlantID),"\",1) = LocatieID
 		}
+	}Else{
+		$$$WriteToLog("FOUT : In de buffer ^UPRCP(""B"",""TB"","_VolgNr_") is geen ProductID gevonden, de KlantID kon niet worden gezocht. Kon ^UPRCP(""K"",""TB"",KlantID) niet worden geupdate !")	
 	}
-	Quit LijnNr
 ]]></Implementation>
 </Method>
-
-<Method name="WijzigProductAantalInBuffer">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductID:%String,Aantal:%Integer,RGID:%String,BufferVolgNr:%Integer</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%List</ReturnType>
-<Implementation><![CDATA[
-	Set Status = ""
-	Set LijnNr = ##class(BL.MB.UGLYPicking.Receptie).GeefLijnNrVoorProductInBuffer(ProductID,RGID,BufferVolgNr)
-	If LijnNr '= ""	{
-		Set Status =  ##class(BL.MB.UGLYPicking.Receptie).CHANGEBufferQty(RGID,BufferVolgNr,LijnNr,Aantal)	
-	}Else{
-		Set Status = $LB(-88,"Het product '"_ProductID_"' is niet gevonden in buffer ^UPRCP(""B"","""_RGID_""","_BufferVolgNr_").")
-	}	
-	Quit Status
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(revision 0)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml	(revision 39040)
@@ -0,0 +1,200 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.MB.UGLYPicking.VerzendDirectControleur">
+<ClassType/>
+<IncludeCode>BL.Derde.LevSpecifiek</IncludeCode>
+<ProcedureBlock>0</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Parameter name="AantalWerkDagen">
+<Description>
+Vandaag op transport en morgen leveren = Aantalwerkdagen=1, maar er mag 1 dag extra omdat DI1 in de namiddag wordt geproduceerd.</Description>
+<Default>2</Default>
+</Parameter>
+
+<Parameter name="MaxAantalLades">
+<Default>15</Default>
+</Parameter>
+
+<Parameter name="GewensteVerzendwijze">
+<Default>DI1</Default>
+</Parameter>
+
+<Method name="ControleViaReceptieBuffer">
+<Description>
+w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaReceptieBuffer("TB",5)</Description>
+<FormalSpec>bfrRGID:%String,bfrVolgNr:%String</FormalSpec>
+<ReturnType>%Library.String</ReturnType>
+<Implementation><![CDATA[
+	Set TOENr=..GeefGemeenschappelijkeToelev(bfrRGID,bfrVolgNr)
+	Quit:TOENr="" "GEEN GEMEENSCHAPPELIJKE TOELEV"
+	Quit ..ControleViaToelevering(TOENr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefGemeenschappelijkeToelev">
+<FormalSpec>bfrRGID:%String,bfrVolgNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Library.String</ReturnType>
+<Implementation><![CDATA[
+ 
+	Set GemeenschappelijkeToelev=""
+	Set LijnNrLoop=""
+	Set EarlyQuit=0
+	For  Set LijnNrLoop=$O(^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)) Quit:((LijnNrLoop="") || EarlyQuit)  Do
+	. Set Rec=^UPRCP("B",bfrRGID,bfrVolgNr,LijnNrLoop)
+	. Set BufferLijnToelev=$P(Rec,"\",8) ; Indien bufferlijn gekoppeld aan toelevering
+	. If BufferLijnToelev="" Set BufferLijnToelev=..GeefToeleveringVoorProduct($P(Rec,"\",1))
+	. 
+	. If BufferLijnToelev="" Do ; Geen toelevering gevonden voor de bufferlijn
+	. .   Set GemeenschappelijkeToelev=""
+	. .   Set EarlyQuit=1
+	. Else  If (GemeenschappelijkeToelev="") Do
+	. .   Set GemeenschappelijkeToelev=BufferLijnToelev   ;Eerste maal, AssocToelev onthouden
+	. Else  If (BufferLijnToelev'=GemeenschappelijkeToelev)
+	...   Set EarlyQuit=1                       ;Tweede maal, geen gemeenschappelijke AssocToelev...
+	...   Set GemeenschappelijkeToelev=""
+	
+	Quit GemeenschappelijkeToelev
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringVoorProduct">
+<FormalSpec>ProductNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+ 	;Check of er minstens een toelevering gekoppeld is aan het productnr
+	Quit:('$D(^TO("IP",ProductNr))) ""
+ 
+	New TOENr
+	Set TOENr=""
+	Set TOENr=$O(^TO("IP",ProductNr,TOENr))
+ 
+	;Check of er slechts één toelevering gekoppeld
+	Quit:($O(^TO("IP",ProductNr,TOENr))'="") ""
+ 
+	Quit TOENr
+]]></Implementation>
+</Method>
+
+<Method name="ControleViaToelevering">
+<Description>
+w ##class(BL.MB.UGLYPicking.VerzendDirectControleur).%New().ControleViaToelevering(247031)</Description>
+<FormalSpec>TOENr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;q "N/Yet"
+	Set KLNr=$P($G(^KTO($$$LevHalux,TOENr,1)),"\",8)
+	Quit:'KLNr "GEEN KLANT IN TOELEVERING"
+	Set ORDNr=$P($G(^KTO($$$LevHalux,TOENr,1)),"\",7)
+	Quit:'ORDNr "GEEN ORDER IN TOELEVERING"
+	
+	Quit ..ControleViaOrder(ORDNr)
+]]></Implementation>
+</Method>
+
+<Method name="ControleViaOrder">
+<FormalSpec>ORDNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set KLNr=$P(^KO1(ORDNr,"F"),"\")
+	Quit:'..ControleerVerzendwijze(KLNr,ORDNr) "FOUTIEVE VERZENDWIJZE"
+	Quit:'..ControleerKredietWaardig(KLNr) "ONVOLDOENDE KREDIET"
+	
+	Quit ..ControleerLijnen(KLNr,ORDNr)
+]]></Implementation>
+</Method>
+
+<Method name="BevatMaatwerk">
+<FormalSpec>KLNr,ORDNr</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
+	Set OLNr=$O(^KOD(KLNr,"F",ORDNr,99)) 
+	Set MemGenTyp=""
+	While (OLNr'="") && (FoutCode="")
+	{
+		Set Lijn=$G(^KOD(KLNr,"F",ORDNr,OLNr))
+		If $P($P(Lijn,"\",17),"#")'="KF11" ; geen tekstlijn
+		{
+			Set:$P($P(Lijn,"\",17),"#")'="KF0" FoutCode="Geen product lijn"
+
+			Set PRNr=$P(Lijn,"\",2)
+			Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1)
+			Set:MemGenTyp="" MemGenTyp=GenTyp
+		}
+		Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) 
+	}
+	Quit MemGenTyp
+]]></Implementation>
+</Method>
+
+<Method name="ControleerVerzendwijze">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
+	Set Verzendwijzen=$P(Hoofding,"\",7)
+	; Alleen die klanten die ELKE dag met DI1 wordt geselecteerd
+	; dus "DI1;3" en "DI1;2`DI1;4" gelden niet
+	Quit Verzendwijzen=..#GewensteVerzendwijze
+]]></Implementation>
+</Method>
+
+<Method name="ControleerKredietWaardig">
+<FormalSpec>KLNr:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	/// Controle of er vervallen facturen zijn
+	Set D="\"
+	Set KredietWaardig=$$WAARDIG^KREDIET(KLNr,"D")
+	Quit $P(KredietWaardig,"\")
+]]></Implementation>
+</Method>
+
+<Method name="ControleerLijnen">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
+	Set OLNr=$O(^KOD(KLNr,"F",ORDNr,99)) 
+	Set SomVanAantal=0
+	Set FoutCode=""
+	Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhLib.DataTypes($H,"A",..#AantalWerkDagen)) ; Indien ASAP ingesteld dan 99 dagen
+	;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhDTyp($H,"A",..#AantalWerkDagen)) ; Indien ASAP ingesteld dan 99 dagen
+	Set MemGenTyp=""
+	While (OLNr'="") && (FoutCode="")
+	{
+		Set Lijn=$G(^KOD(KLNr,"F",ORDNr,OLNr))
+		If $P($P(Lijn,"\",17),"#")'="KF11" ; geen tekstlijn
+		{
+			Set:$P($P(Lijn,"\",17),"#")'="KF0" FoutCode="Geen product lijn"
+
+			Set Datum=$P(Lijn,"\",25)
+			Set:Datum>MaximaleLeverdag FoutCode="Later leveren "_Datum
+
+			Set SomVanAantal=SomVanAantal+$P(Lijn,"\",3)
+			Set:SomVanAantal>..#MaxAantalLades FoutCode="Groot aantal "_SomVanAantal	
+
+			Set PRNr=$P(Lijn,"\",2)
+			Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
+			Set GenTyp=$S(GenTyp="":"*",1:GenTyp)
+			Set:$P(GenTyp,"\")'?1(1"TBX",1"LBX",1"TAO") FoutCode="GenType geen lade "_GenTyp
+			
+			Set:(MemGenTyp'="")&(MemGenTyp'=GenTyp) FoutCode="Verschillend GenType "_MemGenTyp_"="_GenTyp
+			Set MemGenTyp=GenTyp
+			
+			;w ORDNr," ",OLNr," ",PRNr," ",$P(^KPR(PRNr,0),"\")," ",$$EXTDATE^vhLib.DataTypes(Datum)," ",SomVanAantal," ",GenTyp,!
+		}
+		Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) 
+	}
+	Quit FoutCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>