Index: UI/MB/UGLYPicking/dlgOrderListDeliverySelection.cls.xml
===================================================================
diff -u
--- UI/MB/UGLYPicking/dlgOrderListDeliverySelection.cls.xml	(revision 0)
+++ UI/MB/UGLYPicking/dlgOrderListDeliverySelection.cls.xml	(revision 73957)
@@ -0,0 +1,1043 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="UI.MB.UGLYPicking.dlgOrderListDeliverySelection">
+<ClassType>serial</ClassType>
+<IncludeCode>UglyPickingCNTs,KeyCodesCNTs,BL.Derde.Kennis,BL.Derde.KlantSpecifiek</IncludeCode>
+<StorageStrategy>Default</StorageStrategy>
+<Super>%Library.TMFormClass</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="FilterMagazijn">
+<Type>%Library.String</Type>
+</Property>
+
+<Property name="EventCtrlr">
+<Type>EH.Makova.EventCtrlr</Type>
+</Property>
+
+<Property name="Form">
+<Type>%Library.TMForm</Type>
+</Property>
+
+<Property name="InLijnMode">
+<Type>%Library.Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="MagazijnClicked">
+<Type>%Library.String</Type>
+</Property>
+
+<Property name="VerzendwijzeClicked">
+<Type>%Library.String</Type>
+</Property>
+
+<Property name="UserId">
+<Type>%Library.String</Type>
+<InitialExpression>"(onbekend)"</InitialExpression>
+</Property>
+
+<Property name="aLijn">
+<Type>%Library.String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="aVerzendwijzeCtrls">
+<Type>%Library.String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="aMagazijnenForOrder">
+<Type>%Library.String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="aOrder">
+<Type>%Library.String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="btnCancel">
+<Type>%TMButton</Type>
+</Property>
+
+<Property name="btnViaOrder">
+<Type>%TMButton</Type>
+</Property>
+
+<Property name="frmPickList">
+<Type>%Library.String</Type>
+<InitialExpression>$$$NULLOREF</InitialExpression>
+</Property>
+
+<Property name="lbMagazijnen">
+<Type>%Library.List</Type>
+<InitialExpression>$LB("HALUX","ORGALUX","UGLY","LANG","TRANSFER")</InitialExpression>
+</Property>
+
+<Property name="lbVerzendwijzes">
+<Type>%Library.List</Type>
+<InitialExpression>$LB("DD1","DI1","DI2 + OD","EXPORT + URGENT","REST")</InitialExpression>
+</Property>
+
+<Property name="lblExtraInfo">
+<Type>%TMLabel</Type>
+</Property>
+
+<Property name="shBack">
+<Type>%TMShape</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ n result
+ i initvalue="" q $$$OK
+ s %SMWOrefs(+%this)=%this
+ d %this.Initialization(initvalue)
+ s result=%this.OnCreate(initvalue)
+ i result'=$$$OK  d
+ . d %this.Form.%Close()
+ . k %SMWOrefs(+%this)
+ e  d %this.Form.SetContainer(+%this)
+ q result
+]]></Implementation>
+</Method>
+
+<Method name="BuildButtonArray">
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ Kill ..aVerzendwijzeCtrls
+
+ New MagazijnLoop,MaxMagazijnen
+ Set MaxMagazijnen=$LL(..lbVerzendwijzes)
+ For MagazijnLoop=1:1:MaxMagazijnen Do
+ . Do bbaBuildMagazijnCtrls($LI(..lbVerzendwijzes,MagazijnLoop),MagazijnLoop,MaxMagazijnen)
+
+ Quit
+
+ ;------------------------------------------------------------------------------
+bbaBuildMagazijnCtrls(Magazijn,Pos,MaxMagazijnen)
+ ;MAGAZIJN BUTTON
+ New Button,BtnHeight
+ Set Button=##class(%TMButton).%New($LB(%this.Form.Address,0))
+ Set BtnHeight=180\MaxMagazijnen
+ Set Button.Left=12
+ Set Button.Top=10+((Pos-1)*BtnHeight)
+ Set Button.Width=140
+ Set Button.Height=BtnHeight
+ Set Button.Caption=Magazijn
+ Set Button.Font.Style=$LB("fsBold")
+
+ Set ..aVerzendwijzeCtrls(Magazijn,$$$mcButton)=Button
+ Set ..aVerzendwijzeCtrls(Magazijn,$$$mcButton).OnClick=$LB(%this,"btnORDERVerzendwijzeClick")
+ 
+ ;KLIK PANEL
+ New Panel
+ Set Panel=##class(%TMPanel).%New($LB(%this.Form.Address,0))
+ Set Panel.Left=155
+ Set Panel.Top=Button.Top
+ Set Panel.Width=70
+ Set Panel.Color=..shBack.Brush.Color
+ Set Panel.Height=BtnHeight
+ Set Panel.BevelInner=$$$bvNone
+ Set Panel.BevelOuter=$$$bvNone
+ Set Panel.Tag=Magazijn
+ ;Set Panel.OnClick=$LB(%this,"btnORDERVerzendwijzeClick")
+ 
+ ;AANTAL LABEL
+ New Label
+ Set Label=##class(%TMLabel).%New($LB(Panel.Address,0))
+ Set Label.Left=10
+ Set Label.Top=3
+ Set Label.Caption="Aantal"
+ Set Label.Font.Style=$LB("fsBold")
+ Set Label.Transparent="True"
+ Set Label.Parent=Panel
+ Set Label.Tag=Magazijn
+ ;Set Label.OnClick=$LB(%this,"btnORDERVerzendwijzeClick")
+
+ Set ..aVerzendwijzeCtrls(Magazijn,$$$mcAantal)=Label
+ 
+ ;INFO LABEL
+ Set Label=##class(%TMLabel).%New($LB(Panel.Address,0))
+ Set Label.Left=10
+ Set Label.Top=18
+ Set Label.Caption=""
+ Set Label.Font.Color=$$$clRed
+ Set Label.Transparent="True"
+ Set Label.Parent=Panel
+ Set Label.Tag=Magazijn
+ ;Set Label.OnClick=$LB(%this,"btnORDERVerzendwijzeClick")
+
+ Set ..aVerzendwijzeCtrls(Magazijn,$$$mcInfo)=Label
+ 
+ Quit
+]]></Implementation>
+</Method>
+
+<Method name="DesignDefinition">
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ;object DesignForm: TDesignForm
+ ;  Left = 171
+ ;  Top = 158
+ ;  BorderIcons = []
+ ;  BorderStyle = bsToolWindow
+ ;  Caption = 'Verzendwijze - Selectie'
+ ;  ClientHeight = 241
+ ;  ClientWidth = 232
+ ;  Color = clBtnFace
+ ;  Font.Charset = DEFAULT_CHARSET
+ ;  Font.Color = clWindowText
+ ;  Font.Height = -11
+ ;  Font.Name = 'MS Sans Serif'
+ ;  Font.Style = []
+ ;  OldCreateOrder = False
+ ;  Position = poScreenCenter
+ ;  OnClose = DesignFormClose
+ ;  PixelsPerInch = 96
+ ;  TextHeight = 13
+ ;  object shBack: CShape
+ ;    Left = 4
+ ;    Top = 4
+ ;    Width = 225
+ ;    Height = 192
+ ;    Brush.Color = clWindow
+ ;  end
+ ;  object btnCancel: CButton
+ ;    Left = 4
+ ;    Top = 198
+ ;    Width = 59
+ ;    Height = 40
+ ;    Anchors = [akLeft, akBottom]
+ ;    Caption = '&ESC'
+ ;    Font.Charset = DEFAULT_CHARSET
+ ;    Font.Color = clWindowText
+ ;    Font.Height = -11
+ ;    Font.Name = 'MS Sans Serif'
+ ;    Font.Style = [fsBold]
+ ;    ParentFont = False
+ ;    TabOrder = 0
+ ;    OnClick = btnCancelClick
+ ;  end
+ ;end
+]]></Implementation>
+</Method>
+
+<Method name="DesignFormClose">
+<FormalSpec>Args:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ; Args format: $lb(Sender,Action)
+ n Sender,Action
+ s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
+ s Action=$lg(Args,2)
+ ;Beginning of user code
+
+ If $zobjstate(..EventCtrlr) Do
+ . Do ..EventCtrlr.Finalize()
+ . Do ..EventCtrlr.%Close()
+
+ ;End of user code
+ s Args=$lb(Sender,Action)
+ q
+]]></Implementation>
+</Method>
+
+<Method name="Destroy">
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ d %this.btnViaOrder.%Close()
+ d %this.btnCancel.%Close()
+ d %this.lblExtraInfo.%Close()
+ d %this.shBack.%Close()
+ d %this.Form.%Close()
+ k %SMWOrefs(+%this)
+ q
+]]></Implementation>
+</Method>
+
+<Method name="DispatchMsg">
+<FormalSpec>Msg:EH.Lib.Msg</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ If Msg.Type="EXEC_QUERY" Do
+ . If Msg.SubType="OPENSTAANDE" Do
+ ..  Do CreateFlyingMsg^vhVisual("ORDER SELECTIE",200,1,$$$clWhite)
+ Else  If Msg.Type="CLOSE_QUERY" Do
+ . If Msg.SubType="OPENSTAANDE" Do
+ ..  Do DestroyFlyingMsg^vhVisual()
+ ..  Do MApplication.ProcessMessages()
+ Else  If Msg.Type="NEW_ROW" Do
+ . If Msg.SubType="OPENSTAANDE" Do
+ ..  Do SetFlyingSubMsg^vhVisual("Verwerking Consolidatie "_$LI(Msg.Params,1),1)
+ Else  Do
+ . Do ..EventCtrlr.OrigOnDispatchMsg(Args)
+
+ Quit
+]]></Implementation>
+</Method>
+
+<Method name="EXEPickOrder">
+<FormalSpec>ConsNr,Magazijn:%Library.String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Boolean</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ;Lock Check
+ New EarlyQuit
+ Set EarlyQuit=0
+ Lock +^UGLYOrderPick(ConsNr):0
+ Else  Do
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Order '"_ConsNr_"' wordt momenteel verwerkt, de eerstvolgende wordt genomen.",$$$MBICONINFORMATION)
+ . Do:(..dCOMPWRITEOrders()=0) ..Form.Close()
+ . Set EarlyQuit=1
+ Quit:(EarlyQuit) 0
+
+ ;Knowledgebase adhv klant
+ New HoofdingObj
+ Set HoofdingObj=##class(Flow.OrderWMS.Hoofding).%OpenId(ConsNr)
+ If '$IsObject(HoofdingObj) Do  Quit 0
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Kan het hoofdingobject met ID '"_ConsNr_"' niet openen.",$$$MBICONINFORMATION)
+ If '$IsObject(HoofdingObj.Klant) Do  Quit 0
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen klant gekoppeld aan hoofdingobject '"_ConsNr_"'.",$$$MBICONINFORMATION)
+
+ ; Raisen van een UGLYPicking gestart of herstart event.
+ new EventData,Event
+ Set EventData = ##class(TECH.Events.UGLYPickingEventData).%New(ConsNr)
+ If '$length($piece(^ORDW("D",ConsNr),"\",26)) Set Event = ##class(TECH.Events.UGLYPickingStartedEvent).%New(EventData)
+ Else  Set Event = ##class(TECH.Events.UGLYPickingRestartedEvent).%New(EventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+ If '$length($piece(^ORDW("D",ConsNr),"\",26)) Set $piece(^ORDW("D",ConsNr),"\",26)=$Horolog  ; wegschrijven tijdstip start UGLYPicking
+
+ Do ..ShowKennisAnkers(HoofdingObj.Klant.Nummer)
+
+ $$$WriteToLog("ConsNr: "_ConsNr_", Magazijn: "_Magazijn_", Klant: "_HoofdingObj.Klant.Naam_" ("_HoofdingObj.Klant.Nummer_")")
+
+ ;Expliciet sluiten
+ Set HoofdingObj=$$$NULLOREF
+
+ ;Picking
+ Set:(..frmPickList=$$$NULLOREF) ..frmPickList=##class(UI.MB.UGLYPicking.dlgPickList).%New($LB(%this.Form.Address,0))
+
+ Do ..frmPickList.rInit()
+
+ Set ..frmPickList.ConsNr=ConsNr
+ Set ..frmPickList.Magazijn=Magazijn
+ Set ..frmPickList.UserId=..UserId
+ Do ..SetExtraInfo("Even geduld...")
+ Do MApplication.ProcessMessages()
+
+ If '..frmPickList.dCOMPWRITElvPickList() Do  Quit 0
+ . Do ..SetExtraInfo()
+ . Lock -^UGLYOrderPick(ConsNr)
+
+ Do ..SetExtraInfo()
+ ;Enkel form tonen indien er pallets zijn, zoniet zal er wel een
+ ;negatieve afmelding gebeurd zijn via de oproep van ..frmPickList's
+ ;dCOMPWRITElvPickList (zie boven). OrderConfirmed zal dan afh.
+ ;van het succes van deze negatieve afmelding 1 of 0 zijn
+ Do:(..frmPickList.PalletsAvailable) ..frmPickList.Form.ShowModal()
+
+ New Continue
+ Set Continue=..frmPickList.OrderConfirmed
+
+ Lock -^UGLYOrderPick(ConsNr)
+
+ ; --- Boodschappen weergeven ---
+ If Continue Do
+ . New MagazijnCnt
+ . Set MagazijnCnt=$LL(..aMagazijnenForOrder(ConsNr))-1     ;-1 omdat er nu ook een gepicked is...
+ . ;COUNT=0 -> HET ORDER KOMT IN GEEN ENKEL MAGAZIJN MEER VOOR
+ . If MagazijnCnt=0 Do
+ ..  New ExtraInfo,EWMSStatus,VerzendWijze,HoofdingObj
+ ..  Set HoofdingObj=##class(Flow.OrderWMS.Hoofding).%OpenId(ConsNr)
+ ..  If HoofdingObj=$$$NULLOREF Do
+ ...   Set VerzendWijze="de verzendwijze is onbekend: kan object met Id '"_ConsNr_"' niet openen"
+ ...   Set ExtraInfo="Klant: (onbekend)."
+ ..  Else  Do
+ ...   Do ..ShowKennisAnkers(HoofdingObj.Klant.Nummer)
+ ...   Set VerzendWijze=HoofdingObj.VerzendWijze
+ ...   If $D(^RES("KLANT","PI","VERZENDWIJZE","D",VerzendWijze)) Do
+ ....    Set VerzendWijze="de verzendwijze is "_$P(^RES("KLANT","PI","VERZENDWIJZE","D",VerzendWijze),"`",2)
+ ...   Else  Do
+ ....    Set VerzendWijze="de verzendwijze '"_VerzendWijze_"' kan niet vertaald worden"
+ ...   Set ExtraInfo="Klant: "_$S($IsObject(HoofdingObj.Klant):HoofdingObj.Klant.Naam,1:"(onbekend)")_$S(Magazijn="ORGALUX":", Orgalux.",1:".")_$C(13,10,13,10)
+ ...   Do HoofdingObj.%Close()
+ ..  Set EWMSStatus=##class(BL.MB.UGLYPicking.PalletPick).GetEWMSStatus(ConsNr,$LB(Magazijn))
+ ..  Set:(EWMSStatus'="") EWMSStatus=EWMSStatus_$C(13,10,13,10)
+ ..  ;Do WL^vhDBG(ExtraInfo_EWMSStatus_"Alle lijnen van order '"_ConsNr_"' zijn gepicked: "_$ZCVT(VerzendWijze,"L")_".")
+ ..  Do MApplication.AddToAppLog("Order done: "_ConsNr)
+ ..  Do pdaMsgBox^vhVisual(..Form.Caption,ExtraInfo_EWMSStatus_"Alle lijnen van order '"_ConsNr_"' zijn gepicked: "_$ZCVT(VerzendWijze,"L")_".",$$$MBICONINFORMATION)
+ . ;COUNT>0 -> HET ORDER KOMT NOG IN 1 OF MEERDERE MAGAZIJNEN VOOR - GEEF EEN TUSSENBOODSCHAP
+ . Else  Do
+ ..  New EWMSStatus
+ ..  Set EWMSStatus=##class(BL.MB.UGLYPicking.PalletPick).GetEWMSStatus(ConsNr,$LB(Magazijn))
+ ..  If EWMSStatus'="" Do
+ ...   Set Continue=($$pdaMsgBox^vhVisual(..Form.Caption,EWMSStatus_$C(13,10,13,10)_"Doorgaan met dit order?",$$$MBICONQUESTION,1)=$$$mrOk)
+
+ Quit Continue
+]]></Implementation>
+</Method>
+
+<Method name="EXEPickOrderAndUpdateLists">
+<FormalSpec>ConsNr,Magazijn:%Library.String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ;Order goed gepicked?
+ If ..EXEPickOrder(ConsNr,Magazijn) Do
+ . If $LL(..aMagazijnenForOrder(ConsNr))>1 Do   ;komt voor in meerdere magazijnen, toon magazijnen...
+ ..  Do ..dCOMPWRITESubLijnen(ConsNr)
+ . Else  Do
+ ..  Do:(..dCOMPWRITEOrders()=0) ..Form.Close()
+ Else  Do
+ . Do:(..dCOMPWRITEOrders()=0) ..Form.Close()
+
+ Quit
+]]></Implementation>
+</Method>
+
+<Method name="GetShortDueOut">
+<FormalSpec>DueOut:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.String</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ New DueDag,VandaagDag
+ Set VandaagDag=$P($H,",",1)
+ Set DueDag=$P(DueOut,",",1)
+
+ Quit:(DueDag<VandaagDag) "0"
+ Quit:((DueDag-VandaagDag)>0) "V"
+
+ New DueTijd,VandaagTijd
+ Set VandaagTijd=$P($H,",",2)
+ Set DueTijd=$P(DueOut,",",2)
+
+ Quit:(DueTijd<VandaagTijd) "0"
+ Quit (DueTijd-VandaagTijd)\3600
+]]></Implementation>
+</Method>
+
+<Method name="Initialization">
+<FormalSpec>initvalue:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<PublicList>MApplication</PublicList>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ s MApplication.ClientState="Loading"
+ s %this.Form=##class(%Library.TMForm).%New(initvalue)
+ s %this.shBack=##class(%TMShape).%New($lb(%this.Form.Address,0))
+ s %this.lblExtraInfo=##class(%TMLabel).%New($lb(%this.Form.Address,0))
+ s %this.btnCancel=##class(%TMButton).%New($lb(%this.Form.Address,0))
+ ;s %this.btnViaOrder=##class(%TMButton).%New($lb(%this.Form.Address,0))
+ s MApplication.ClientState="NoWait"
+ d %this.Form.SetMultiProperty($lb("Left","Top","BorderIcons","BorderStyle","Caption","ClientHeight","ClientWidth","Color","OldCreateOrder","Position","OnClose","PixelsPerInch"),$lb(171,158,$lb(),"bsToolWindow","Verzendwijze - Selectie",241,232,$$$clBtnFace,"False","poScreenCenter",$lb(%this,"DesignFormClose"),96))
+ d %this.Form.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
+ d %this.shBack.SetMultiProperty($lb("Left","Top","Width","Height"),$lb(4,4,225,192))
+ d %this.shBack.Brush.SetMultiProperty($lb("Color"),$lb($$$clWindow))
+ d %this.lblExtraInfo.SetMultiProperty($lb("Left","Top","Width","Height","Alignment","AutoSize","Caption","ParentFont","Layout","WordWrap"),$lb(149,200,79,36,"taCenter","False","","False","tlCenter","True"))
+ d %this.lblExtraInfo.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlue,-11,"MS Sans Serif",$lb()))
+ d %this.btnCancel.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ParentFont","TabOrder","OnClick"),$lb(4,198,59,40,$lb("akLeft","akBottom"),"&ESC","False",0,$lb(%this,"btnCancelClick")))
+ d %this.btnCancel.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb("fsBold")))
+ ;d %this.btnViaOrder.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","ParentFont","TabOrder","OnClick"),$lb(63,198,83,40,$lb("akLeft","akBottom"),"&VIA ORDER","False",1,$lb(%this,"btnViaOrderClick")))
+ ;d %this.btnViaOrder.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb("fsBold")))
+ s MApplication.ClientState="Wait"
+ q
+]]></Implementation>
+</Method>
+
+<Method name="OnCreate">
+<FormalSpec>initvalue:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Status</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ;EVENTs
+ New FixedEQID
+ Set FixedEQID=$$$cmOrderSel.GetFixedEQID()
+
+ If FixedEQID="" Do
+ . New Msg
+ . Set Msg="No fixed EQID found in Business Logic."_$C(13,10)
+ . Set Msg=Msg_"Cannot receive specific, private events."
+ . Do pdaMsgBox^vhVisual(..Form.Caption,Msg,$$$MBICONERROR)
+ Else  Do
+ . Set ..EventCtrlr=##class(EH.Makova.EventCtrlr).%New()
+ . Do ..EventCtrlr.Initialize(FixedEQID)
+ . Do ..EventCtrlr.SetTimerDisabled()        ;Direct dispatching, no use of queue
+ . Set ..EventCtrlr.OnDispatchMsg=$LB(%this,"DispatchMsg")
+ . 
+ ;MAGAZIJN CTRLs
+ Do ..BuildButtonArray()
+ 
+ q $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ResetButtonArray">
+<FormalSpec>OnClickMethod:%Library.List</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ New MagazijnLoop,Magazijn
+ For MagazijnLoop=1:1:$LL(..lbVerzendwijzes) Do
+ . Set Magazijn=$LI(..lbVerzendwijzes,MagazijnLoop)
+ . Set ..aVerzendwijzeCtrls(Magazijn,$$$mcAantal).Caption=""
+ ;. Set ..aVerzendwijzeCtrls(Magazijn,$$$mcInfo).Caption=""
+ . Set ..aVerzendwijzeCtrls(Magazijn,$$$mcButton).Caption=Magazijn
+ . Set ..aVerzendwijzeCtrls(Magazijn,$$$mcButton).Enabled="True"
+ . Set ..aVerzendwijzeCtrls(Magazijn,$$$mcButton).OnClick=OnClickMethod
+
+ Quit
+]]></Implementation>
+</Method>
+
+<Method name="SetExtraInfo">
+<FormalSpec>Info:%Library.String=""</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ Set ..lblExtraInfo.Caption=Info
+
+ Quit
+]]></Implementation>
+</Method>
+
+<Method name="ShowKennisAnkers">
+<FormalSpec>KlantNr:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ;Achterhalen of er kennisankers aan het product gekoppeld zijn
+ New Error,lbKennisID
+
+ Set D="\"
+ Set lbKennisID=$$$cmKennis.GetIDsToPopup(KlantNr,.Error,$LB($$$adMagazijnPicking),,..UserId,$$$dtUglyPickingKlant,KlantNr,1,$$$cpEmpty,0)
+
+ If Error'="" Do  Quit 1
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Fout tijdens achterhalen kennisankers: "_Error,$$$MBICONERROR)
+
+ Quit:($LL(lbKennisID)=0) 1
+
+ ;Kennisankers weergeven
+ New frmKB
+ Set frmKB=##class(UI.MB.UGLYPicking.dlgKB).%New($LB(%this.Form.Address,0))
+ Quit:('frmKB.PrepareViaIDs(lbKennisID,$$$dtUglyPickingKlant,KlantNr,..UserId)) 1
+
+ Quit (frmKB.Form.ShowModal()=$$$mrOk)
+]]></Implementation>
+</Method>
+
+<Method name="btnCancelClick">
+<FormalSpec>Args:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ; Args format: $lb(Sender)
+ n Sender
+ s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
+ ;Beginning of user code
+
+ $$$UIMakovaBtnClickToLog
+
+ New ExitForm
+ If ..InLijnMode Do
+ . Set ExitForm=(..dCOMPWRITEOrders()=0)   ;Geen orders meer->afsluiten
+ Else  Do
+ . Set ExitForm=1
+ Do:(ExitForm) ..Form.Close()
+ ;End of user code
+ s Args=$lb(Sender)
+ q
+]]></Implementation>
+</Method>
+
+<Method name="btnORDERVerzendwijzeClick">
+<FormalSpec>Args:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ; Args format: $lb(Sender)
+ n Sender
+ s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
+ ;Beginning of user code
+ 
+ $$$UIMakovaBtnClickToLog
+
+ If ..VerzendwijzeClicked'="" Do  Quit
+ . ; VerzendwijzeClicked voorkomt dat meerdere 'Verzendwijzen' TEGELIJK geopend worden,
+ . ; m.a.w. wanneer twee buttons 'gelijktijdig' ge-clicked worden (accidently).
+ . $$$WriteToLog("ButtonClick cancelled: VerzendwijzeClicked (="_..VerzendwijzeClicked_") is not empty!")
+
+ New ConsNr,Verzendwijze
+ Set ConsNr=Sender.Tag
+ Set Verzendwijze=Sender.Caption
+ ;Set Sender.Enabled="True"
+ 
+ Set ..VerzendwijzeClicked=Verzendwijze
+ 
+ New frmOrderList
+ Set frmOrderList=##class(UI.MB.UGLYPicking.dlgOrderList).%New($LB(%this.Form.Address,0)) 
+ 
+ Set frmOrderList.FilterMagazijn=..FilterMagazijn
+ Set frmOrderList.FilterVerzendwijze=Verzendwijze
+ Set ..VerzendwijzeClicked=""
+ 
+ Quit:(frmOrderList.dCOMPWRITElbOrders()=0)
+ Quit:(frmOrderList.Form.ShowModal()=$$$mrCancel)
+ 
+ Do ..EXEPickOrderAndUpdateLists(frmOrderList.outConsNr,..FilterMagazijn)
+ 
+ ;End of user code
+ s Args=$lb(Sender)
+ q
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method btnSUBLIJNMagazijnClick(Args As %String) [ Language = cache, ProcedureBlock = 0, SoapBindingStyle = document, SoapBodyUse = literal ]
+{
+ ; Args format: $lb(Sender)
+ n Sender
+ s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
+ ;Beginning of user code
+ 
+ $$$UIMakovaBtnClickToLog
+
+ If ..VerzendwijzeClicked'="" Do  Quit
+ . ; Added by WimV (on 23/01/2008)
+ . ; MagazijnClicked voorkomt dat meerdere 'magazijnen' TEGELIJK geopend worden,
+ . ; m.a.w. wanneer twee buttons 'gelijktijdig' ge-clicked worden (accidently).
+ . $$$WriteToLog("ButtonClick cancelled: VerzendwijzeClicked (="_..VerzendwijzeClicked_") is not empty!")
+
+ New ConsNr,Magazijn
+ Set ConsNr=Sender.Tag
+ Set Magazijn=Sender.Caption
+ Set Sender.Enabled="False"
+ //Set ..MagazijnClicked=Magazijn
+ Set ..VerzendwijzeClicked=Magazijn
+ Do ..EXEPickOrder(ConsNr,Magazijn)
+
+ Set ..VerzendwijzeClicked=""
+ Set Sender.Enabled="True"
+
+ If ..dCOMPWRITESubLijnen(ConsNr)=0 Do
+ . Do:(..dCOMPWRITEOrders()=0) ..Form.Close()
+
+ ;End of user code
+ s Args=$lb(Sender)
+ q
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="btnViaOrderClick">
+<FormalSpec>Args:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ; Args format: $lb(Sender)
+ n Sender
+ s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
+ ;Beginning of user code
+ $$$UIMakovaBtnClickToLog
+ 
+ New ConsNr
+ Set ConsNr=""
+ If $$pdaMsgBox^vhVisual(..Form.Caption,"Geef het ordernummer op:",$$$MBICONQUESTION,1,1,.ConsNr)=$$$mrOk Do
+ . If +ConsNr=0 Do
+ ..  New frmOrderList
+ ..  Set frmOrderList=##class(UI.MB.UGLYPicking.dlgOrderList).%New($LB(%this.Form.Address,0))
+ ..  Quit:(frmOrderList.dCOMPWRITElbOrders()=0)
+ ..  If frmOrderList.Form.ShowModal()=$$$mrOk Do
+ ...   Set ConsNr=frmOrderList.outConsNr
+ . Quit:(+ConsNr=0)
+ . If ..dCOMPWRITEOrders(ConsNr)=0 Do
+ ..  Do ..dCOMPWRITEOrders()
+
+ ;End of user code
+ s Args=$lb(Sender)
+ q
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*Method dCOMPEVENTPanelClick(Args As %String) [ Language = cache, ProcedureBlock = 0, SoapBindingStyle = document, SoapBodyUse = literal ]
+{
+ ; Args format: $lb(Sender)
+ n Sender
+ s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
+ ;Beginning of user code
+ ;
+ ;Assoc magazijn aanwezig in Tag
+ New Magazijn
+ Set Magazijn=Sender.Tag
+ 
+ ;Assoc button achterhalen
+ Set Button=$G(..aVerzendwijzeCtrls(Magazijn,$$$mcButton))
+ ;Niet gevonden? error!
+ Quit:('$IsObject(Button))
+
+ ;Button niet enabled->geen stuff meer in dat magazijn->niks doen
+ Quit:(Button.Enabled="False")
+ //Geklikt op orderlijst en niet magazijn
+ New frmOrderList
+ 
+ Set frmOrderList=##class(UI.MB.UGLYPicking.dlgOrderList).%New($LB(%this.Form.Address,0)) 
+ 
+ Set frmOrderList.FilterMagazijn=Sender.Tag
+ Quit:(frmOrderList.dCOMPWRITElbOrders()=0)
+ Quit:(frmOrderList.Form.ShowModal()=$$$mrCancel)
+ 
+ Do ..dCOMPWRITEOrders(frmOrderList.outConsNr)
+ 
+ ;End of user code
+ s Args=$lb(Sender)
+ q
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="dCOMPWRITEOrders">
+<FormalSpec>ViaConsNr:%Library.String=""</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Integer</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ;Auto restart app om geheugenlekken te dichten
+ If ^UGLYLinesPickedCnt($J)>^UGLYMAXLinesPickedCnt Do  Quit 0
+ . Kill ^UGLYOrderPick("ACTIVE",$J)
+ . $$$UIWriteToLog("=== UGLY Picking closed: automatic ===")
+ . New CmdLine
+ . Set CmdLine=""""_MApplication.ExeName()_""" -a"_$ZU(110)_" -p7200 -n"_$ZU(5)_"  ""-gUGLY Picking""  -u~"_..UserId_" -w"_..UserId
+ . Do MApplication.Execute(CmdLine)
+ . Do MApplication.Terminate()
+ If (ViaConsNr'="") && '##class(Flow.OrderWMS.Hoofding).%ExistsId(ViaConsNr) Do  Quit 0
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Het opgegeven order "_ViaConsNr_" bestaat niet.",$$$MBICONINFORMATION)
+ ; --- Initialisation ---
+ Set ..Form.Caption="Verzendwijze - selectie"
+ Set ..InLijnMode=0
+ Set ..btnCancel.Caption="&ESC"
+ Set ..btnCancel.Enabled="False"
+ ;Set ..btnViaOrder.Visible="False"
+ ;Set ..btnViaOrder.Enabled="False"
+ ;Do ..SetExtraInfo("Even geduld...")
+ Set MApplication.ScreenCursor=$$$crHourGlass
+ ; --- INIT aOrder ---
+ Kill ..aOrder
+ New MagazijnLoop,Magazijn
+ For MagazijnLoop=1:1:$LL(..lbVerzendwijzes) Do
+ . Set Magazijn=$LI(..lbVerzendwijzes,MagazijnLoop)
+ . Set ..aOrder(Magazijn,$$$moAantal)=0
+ . Set ..aOrder(Magazijn,$$$moOldestDueOut)=0
+ . Set ..aOrder(Magazijn,$$$moOldestBOPicking)=0
+ . Set ..aOrder(Magazijn,$$$moUrgentie)=0
+ . Set ..aOrder(Magazijn,$$$moAfhaling)=0
+ . Set ..aOrder(Magazijn,$$$moConsNr)=0
+ . Set ..aOrder(Magazijn,$$$moMultipleMagazijn)=0
+ . 
+ ; --- Reset MagazijnControls ---
+ Do ..ResetButtonArray($LB(%this,"btnORDERVerzendwijzeClick"))  ;OnClick event van magazijn-buttons koppelen
+ 
+ ; --- Openstaande orders ophalen ---
+ ; - Sortering bepalen
+ ; - Aantal magazijnen waarover order verdeeld is achterhalen...
+ 
+ New RS,Query
+ Set Query="BL.MB.UGLYPicking.OrderSel:QOpenstaandePerMag"
+ Set RS=##class(%ResultSet).%New(Query)
+ If RS=$$$NULLOREF Do  Quit 0
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Kan de query '"_Query_"' niet openen.",$$$MBICONERROR)
+
+ New ExecStatus
+ Set ExecStatus=RS.Execute()
+
+ If $$$ISERR(ExecStatus) Do  Quit 0
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Kan de query '"_Query_"' niet uitvoeren: "_$$ParseStatus^vhLib(ExecStatus),$$$MBICONERROR)
+ 
+ ;Query doorlopen
+ Kill ..aMagazijnenForOrder
+ New ConsNr,Magazijn,tmpOldestDueOut,LockedConsNrs,InvalidMags,Verzendwijze,CheckMagazijn,Magazijn
+ Set LockedConsNrs=""
+ Set InvalidMags=""
+ Set CheckMagazijn=(..FilterMagazijn'="")
+ For  Quit:'RS.Next()  Do
+ . Set ConsNr=RS.Get("ConsolidatieNr")
+ . Set Verzendwijze=RS.Get("VerzendWijze")
+ . Set Magazijn=RS.Get("Magazijn")
+ . Quit:(CheckMagazijn && (Magazijn'=..FilterMagazijn))
+ . Set:(##class(TECH.StringUtils).Equals(Verzendwijze, "HD", "HD1", "HD2", "HD3", "HD4", "HD5", "HD6", "HD7", "HW", "HW3", "DA", "DA1", "DA2", "DA3", "DA4", "DA5", "DA6", "DA7", "DA8", "DA9", "DAX", "BS", "BS3", "DO", "DO3", "DO4", "U01", "U02", "U03", "U04", "U05", "U06", "U07", "U08", "U09", "U10", "U11", "E01", "E02", "E03", "E04", "E05", "E06", "E07", "E08", "E09", "E10", "E11", "E12", "EX", "EXU", "SFS", "T01", "T02", "T03", "T04", "T05", "T06", "T07", "T08", "HA1", "HA2", "HA3", "HA4", "AFH", "SNT")) Verzendwijze = "EXPORT + URGENT"
+ . Set:(##class(TECH.StringUtils).Equals(Verzendwijze,"DI2", "OD", "OD1", "OD2", "OD3", "OD4", "OD5")) Verzendwijze = "DI2 + OD"
+ . Set:(##class(TECH.StringUtils).Equals(Verzendwijze,"DD1")) Verzendwijze = "DD1"
+ . Set:(##class(TECH.StringUtils).Equals(Verzendwijze,"DI1")) Verzendwijze = "DI1"
+ . If '##class(TECH.ListUtils).Contains(##class(TECH.ListUtils).ListbuildToList(..lbVerzendwijzes), Verzendwijze) Do
+ ..  Set Verzendwijze="REST"
+ . Set ..aOrder(Verzendwijze,$$$moAantal)=(..aOrder(Verzendwijze,$$$moAantal)+1)
+ . Set:(..GetShortDueOut(RS.Get("Tijd"))=0)&&(..aOrder(Verzendwijze,$$$moUrgentie)<2) ..aOrder(Verzendwijze,$$$moUrgentie)=$S(RS.Get("KlantNr")=$$$KlantKeller:2,1:1) ; bij Keller wordt DRINGEND -> SUPERSPOED ;
+ /*. Quit:((ViaConsNr'="") && (ViaConsNr'=ConsNr))
+ . If $$IsLocked^vhLib("^UGLYOrderPick("_ConsNr_")") || ##class(APPS.MAG.UglyPickingService).%New().IsBonInGebruik(ConsNr) Do  Quit
+ ..  Set:('$LF(LockedConsNrs,ConsNr)) LockedConsNrs=LockedConsNrs_$LB(ConsNr)
+ . Set Magazijn=RS.Get("Magazijn")
+ . If '$LF(..lbMagazijnen,Magazijn) Do  Quit
+ ..  Set InvalidMags=InvalidMags_$C(13,10)_ConsNr_": "_Magazijn_"."
+ . Set ..aOrder(Magazijn,$$$moAantal)=..aOrder(Magazijn,$$$moAantal)+1
+ . If $D(..aMagazijnenForOrder(ConsNr)) Do
+ ..  Quit:($LF(..aMagazijnenForOrder(ConsNr),Magazijn))  ;Magazijn reeds in lijst
+ ..  Set ..aMagazijnenForOrder(ConsNr)=..aMagazijnenForOrder(ConsNr)_$LB(Magazijn)   ;Wordt gebruikt voor het achterhalen van een order verdeeld over meerdere magazijnen
+ . Else  Do
+ ..  Set ..aMagazijnenForOrder(ConsNr)=$LB(Magazijn)*/
+ /*. Set:(RS.Get("VerzendWijze")?1(1"AFH",1"AF".E)) ..aOrder(Magazijn,$$$moAfhaling)=1
+ . If ..aOrder(Magazijn,$$$moConsNr)=0 Do  Quit    ;EERSTE MAAL GEGEVENS INVULLEN (we moeten minima zoeken)
+ ..  Set ..aOrder(Magazijn,$$$moOldestDueOut)=$$HToNum^vhLib(RS.Get("Tijd"))
+ ..  Set ..aOrder(Magazijn,$$$moOldestBOPicking)=$$HToNum^vhLib(RS.Get("BeginPicking"))
+ ..  Set ..aOrder(Magazijn,$$$moConsNr)=ConsNr
+ . Set tmpOldestDueOut=$$HToNum^vhLib(RS.Get("Tijd"))
+ . If tmpOldestDueOut<..aOrder(Magazijn,$$$moOldestDueOut) Do
+ ..  Set ..aOrder(Magazijn,$$$moOldestDueOut)=tmpOldestDueOut
+ ..  Set ..aOrder(Magazijn,$$$moOldestBOPicking)=$$HToNum^vhLib(RS.Get("BeginPicking"))
+ ..  Set ..aOrder(Magazijn,$$$moConsNr)=ConsNr
+ . Else  If tmpOldestDueOut=..aOrder(Magazijn,$$$moOldestDueOut) Do
+ ..  If $$HToNum^vhLib(RS.Get("BeginPicking"))<..aOrder(Magazijn,$$$moOldestBOPicking) Do
+ ...   Set ..aOrder(Magazijn,$$$moOldestBOPicking)=$$HToNum^vhLib(RS.Get("BeginPicking"))
+ ...   Set ..aOrder(Magazijn,$$$moConsNr)=ConsNr
+ */
+ Do RS.%Close()
+ 
+ If InvalidMags'="" Do
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Niet te verwerken orders in magazijnen:"_$C(13,10)_InvalidMags,$$$MBICONERROR)
+ 
+ ; --- Interface aanpassen aan verkregen gegevens ---
+ ; OrderCnt kan bijv. 4 zijn, ondanks het feit dat er slechts één ordernr is:
+ ; Het order komt dan voor in 4 verschillende magazijnen
+ ; 
+ 
+ New OrderCnt,thisOrderCnt
+ Set OrderCnt=0
+ For MagazijnLoop=1:1:$LL(..lbVerzendwijzes) Do
+ . Set Magazijn=$LI(..lbVerzendwijzes,MagazijnLoop)
+ . Set thisOrderCnt=..aOrder(Magazijn,$$$moAantal)
+ . If thisOrderCnt'=0 Do
+ ..  Set OrderCnt=OrderCnt+thisOrderCnt   
+ ..  Set ..aVerzendwijzeCtrls(Magazijn,$$$mcAantal).Caption=thisOrderCnt_" order"_$S(thisOrderCnt=1:"",1:"s")
+ ..  Set ..aVerzendwijzeCtrls(Magazijn,$$$mcInfo).Caption=$S(..aOrder(Magazijn,$$$moUrgentie)=2:"Superspoed",..aOrder(Magazijn,$$$moAfhaling):"Afhaling",..aOrder(Magazijn,$$$moUrgentie):"Dringend",1:"")
+ //..  Set ..aVerzendwijzeCtrls(Magazijn,$$$mcButton).Enabled="True"
+ //..  Set ConsNr=..aOrder(Magazijn,$$$moConsNr)
+ //..  Set ..aVerzendwijzeCtrls(Magazijn,$$$mcButton).Tag=ConsNr
+ 
+ ; --- finalisation ---
+ Set ..btnCancel.Enabled="True"
+ ;Set ..btnViaOrder.Enabled="False"
+ Set MApplication.ScreenCursor=$$$crDefault
+ 
+ /*
+ ; --- final msgs ---
+ If LockedConsNrs'="" Do
+ . New LockedConsNrsCnt
+ . Set LockedConsNrsCnt=$LL(LockedConsNrs)
+ . Do ..SetExtraInfo(LockedConsNrsCnt_" order"_$S(LockedConsNrsCnt=1:" is",1:"s zijn")_" bezet")
+ Else  Do
+ . Do ..SetExtraInfo()
+ . */
+ /*
+ If OrderCnt=0 Do  Quit 0
+ . New Msg
+ . If LockedConsNrs="" Do
+ ..  If ViaConsNr="" Do
+ ...   Set Msg="Alle orders zijn verwerkt."
+ ..  Else  Do
+ ...   Set Msg="Het opgegeven order "_ViaConsNr_" bevat geen lijnen om te verwerken met dit programma."
+ . Else  Do
+ ..  New LockedConsNrsCnt
+ ..  Set LockedConsNrsCnt=$LL(LockedConsNrs)
+ ..  Set Msg="Er zijn geen orders meer ter beschikking."_$C(13,10,13,10)
+ ..  Set Msg=Msg_"Momenteel "_$S(LockedConsNrsCnt=1:"is",1:"zijn")_" er nog "_LockedConsNrsCnt_" in verwerking: "_$$ListToPieces^vhLib(LockedConsNrs,", ")_"."
+ . Do pdaMsgBox^vhVisual(..Form.Caption,Msg,$$$MBICONINFORMATION)
+ Else  Do
+ . Set:(ViaConsNr'="") ..Form.Caption="Orders - selectie - "_$$CEL^vhFMT(0,"ViaConsNr","N","L",8,0,"")
+ */
+ Set ^testPVR(1) = OrderCnt
+ Quit OrderCnt
+]]></Implementation>
+</Method>
+
+<Method name="dCOMPWRITESubLijnen">
+<FormalSpec>ConsNr:%Library.String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Integer</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ ; --- Initialisation ---
+ Set ..Form.Caption="Verzendwijze - selectie"
+ Set ..InLijnMode=1
+ Set ..btnCancel.Caption="<< &BACK"
+ ;Set ..btnViaOrder.Visible="False"
+ Set ..btnCancel.Enabled="False"
+ Do ..SetExtraInfo("Even geduld...")
+ Set MApplication.ScreenCursor=$$$crHourGlass
+
+ ; --- INIT aLijn ---
+ Kill ..aLijn
+ New MagazijnLoop,Magazijn
+ For MagazijnLoop=1:1:$LL(..lbMagazijnen) Do
+ . Set Magazijn=$LI(..lbMagazijnen,MagazijnLoop)
+ . Set ..aLijn(Magazijn)=0
+
+ ; --- Reset MagazijnControls ---
+ Do ..ResetButtonArray($LB(%this,"btnORDERVerzendwijzeClick"))  ;OnClick event van magazijn-buttons koppelen
+ ; --- Magazijnen voor order ophalen ---
+ New RS,Query
+ Set Query="BL.MB.UGLYPicking.OrderSel:QOpenstaandePerConsNr"
+ Set RS=##class(%ResultSet).%New(Query)
+ If RS=$$$NULLOREF Do  Quit 0
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Kan de query '"_Query_"' niet openen.",$$$MBICONERROR)
+
+ New ExecStatus
+ Set ExecStatus=RS.Execute(ConsNr)
+
+ If $$$ISERR(ExecStatus) Do  Quit 0
+ . Do pdaMsgBox^vhVisual(..Form.Caption,"Kan de query '"_Query_"' niet uitvoeren: "_$$ParseStatus^vhLib(ExecStatus),$$$MBICONERROR)
+
+ ;Query doorlopen
+ Kill ..aMagazijnenForOrder(ConsNr)    ;laatste array: zo blijven we werken met 'verse' data...
+ New thisConsNr
+ For  Quit:'RS.Next()  Do
+ . Quit:($D(^$LOCK("^UGLYOrderPick("_ConsNr_")")))
+ . Set Magazijn=RS.Get("Magazijn")
+ . Set ..aLijn(Magazijn)=..aLijn(Magazijn)+RS.Get("AantalLijnen")
+ . If $D(..aMagazijnenForOrder(ConsNr)) Do
+ ..  Quit:($LF(..aMagazijnenForOrder(ConsNr),Magazijn))  ;Magazijn reeds in lijst
+ ..  Set ..aMagazijnenForOrder(ConsNr)=..aMagazijnenForOrder(ConsNr)_$LB(Magazijn)   ;Wordt gebruikt voor het achterhalen van een order verdeeld over meerdere magazijnen
+ . Else  Do
+ ..  Set ..aMagazijnenForOrder(ConsNr)=$LB(Magazijn)
+
+ Do RS.%Close()
+ 
+ ; --- Interface updaten met de verkregen lijngegevens ---
+ New LijnenCnt,thisLijnenCnt
+ Set LijnenCnt=0
+ For MagazijnLoop=1:1:$LL(..lbVerzendwijzes) Do
+ . Set Magazijn=$LI(..lbVerzendwijzes,MagazijnLoop)
+ . Set thisLijnenCnt=..aLijn(Magazijn)
+ . If thisLijnenCnt'=0 Do
+ ..  Set LijnenCnt=LijnenCnt+..aLijn(Magazijn)
+ ;..  Set ..aVerzendwijzeCtrls(Magazijn,$$$mcAantal).Caption=thisLijnenCnt_" lijn"_$S(thisLijnenCnt=1:"",1:"en")
+ ;..  Set ..aVerzendwijzeCtrls(Magazijn,$$$mcInfo).Caption=""
+ ;..  Set ..aVerzendwijzeCtrls(Magazijn,$$$mcButton).Enabled="True"
+ ;..  Set ..aVerzendwijzeCtrls(Magazijn,$$$mcButton).Tag=ConsNr
+ 
+ ; --- finalisation ---
+ Set ..btnCancel.Enabled="True"
+ Do ..SetExtraInfo("Order "_$$CEL^vhFMT(0,"ConsNr","N","L",8,0,""))
+ Set MApplication.ScreenCursor=$$$crDefault
+
+ Quit LijnenCnt
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<Data name="TMFormClassState">
+<Subscript>"%Library.TMFormClass"</Subscript>
+<Value name="1">
+<Value>Address</Value>
+</Value>
+<Value name="2">
+<Value>Form</Value>
+</Value>
+<Value name="3">
+<Value>EventCtrlr</Value>
+</Value>
+<Value name="4">
+<Value>InLijnMode</Value>
+</Value>
+<Value name="5">
+<Value>MagazijnClicked</Value>
+</Value>
+<Value name="6">
+<Value>UserId</Value>
+</Value>
+<Value name="7">
+<Value>btnCancel</Value>
+</Value>
+<Value name="8">
+<Value>btnViaOrder</Value>
+</Value>
+<Value name="9">
+<Value>frmPickList</Value>
+</Value>
+<Value name="10">
+<Value>lbMagazijnen</Value>
+</Value>
+<Value name="11">
+<Value>lbVerzendwijzes</Value>
+</Value>
+<Value name="12">
+<Value>lblExtraInfo</Value>
+</Value>
+<Value name="13">
+<Value>shBack</Value>
+</Value>
+<Value name="14">
+<Value>VerzendwijzeClicked</Value>
+</Value>
+<Value name="15">
+<Value>FilterMagazijn</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: UI/MB/UGLYPicking/dlgOrderList.cls.xml
===================================================================
diff -u -r58126 -r73957
--- UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 58126)
+++ UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 73957)
@@ -11,6 +11,10 @@
 <Type>%Library.String</Type>
 </Property>
 
+<Property name="FilterVerzendwijze">
+<Type>%Library.String</Type>
+</Property>
+
 <Property name="Form">
 <Type>%Library.TMForm</Type>
 </Property>
@@ -298,23 +302,35 @@
  Do ..lbOrders.Items.Clear()
 
  ;Query doorlopen
- New ConsNr,DottedConsNr,OrderCnt,Magazijn,CheckMagazijn,VzwSpecial
+ New ConsNr,DottedConsNr,OrderCnt,Magazijn,CheckMagazijn,VzwSpecial,Verzendwijze,IsExportEnUrgent,IsRestGroep,IsDI2EnOD,IsDD1,IsDI1
  Set OrderCnt=0
  Set CheckMagazijn=(..FilterMagazijn'="")
+ Set CheckVerzendwijze=(..FilterVerzendwijze'="")
+ 
  For  Quit:'RS.Next()  Do
  . Set ConsNr=RS.Get("ConsolidatieNr")
  . Set Magazijn=RS.Get("Magazijn")
+ . Set Verzendwijze=RS.Get("VerzendWijze")
+ . Set IsExportEnUrgent=##class(TECH.StringUtils).Equals(Verzendwijze, "HD", "HD1", "HD2", "HD3", "HD4", "HD5", "HD6", "HD7", "HW", "HW3", "DA", "DA1", "DA2", "DA3", "DA4", "DA5", "DA6", "DA7", "DA8", "DA9", "DAX", "BS", "BS3", "DO", "DO3", "DO4", "U01", "U02", "U03", "U04", "U05", "U06", "U07", "U08", "U09", "U10", "U11", "E01", "E02", "E03", "E04", "E05", "E06", "E07", "E08", "E09", "E10", "E11", "E12", "EX", "EXU", "SFS", "T01", "T02", "T03", "T04", "T05", "T06", "T07", "T08", "HA1", "HA2", "HA3", "HA4", "AFH", "SNT")
+ . Set IsDI2EnOD=##class(TECH.StringUtils).Equals(Verzendwijze,"DI2", "OD", "OD1", "OD2", "OD3", "OD4", "OD5")
+ . Set IsDD1=##class(TECH.StringUtils).Equals(Verzendwijze,"DD1")
+ . Set IsDI1=##class(TECH.StringUtils).Equals(Verzendwijze,"DI1")
  . Quit:(CheckMagazijn && (Magazijn'=..FilterMagazijn))
+ . Quit:(CheckVerzendwijze && ("DI1"=..FilterVerzendwijze) && '(IsDI1))
+ . Quit:(CheckVerzendwijze && ("DD1"=..FilterVerzendwijze) && '(IsDD1))
+ . Quit:(CheckVerzendwijze && ("DI2 + OD"=..FilterVerzendwijze) && '(IsDI2EnOD))
+ . Quit:(CheckVerzendwijze && ("EXPORT + URGENT"=..FilterVerzendwijze) && '(IsExportEnUrgent))
+ . Quit:(CheckVerzendwijze && ("REST"=..FilterVerzendwijze) && '('IsDI1 && 'IsDD1 && 'IsDI2EnOD && 'IsExportEnUrgent))
  . Set DottedConsNr=$$CEL^vhFMT(0,"ConsNr","N","L",8,0,"")
- . Set VzwSpecial=RS.Get("VerzendWijze")   ; Added by WimV on 03/03/2009
+ . Set VzwSpecial=Verzendwijze
  . ; volgende lijn wat aangepast, omdat vzw altijd getoond moet worden, behoud van bestaande omzettingen JoW, ICT-609
  . Set VzwSpecial=$S(VzwSpecial?1(1"AF".E):"AFH", VzwSpecial?1(1"EX",1"EXU"):"EX", VzwSpecial?1(1"SNT"):"SNT", VzwSpecial?1(1"TPO",1"TPU"):"TP", 1:VzwSpecial)
  . Do ..lbOrders.Items.Add($LB(DottedConsNr,Magazijn,RS.Get("TijdSmall"),RS.Get("AantalLijnen"),ConsNr,($$IsLocked^vhLib("^UGLYOrderPick("_ConsNr_")")||##class(APPS.MAG.UglyPickingService).%New().IsBonInGebruik(ConsNr)),RS.Get("KlantNaam"),(RS.Get("VerzendWijze")?1(1"AF".E,1"AFH")),(..GetShortDueOut(RS.Get("Tijd"))=0),VzwSpecial))
  . Set OrderCnt=OrderCnt+1
 
  Do ..lbOrders.Items.EndUpdate()
 
- Set ..Form.Caption="Order - Lijst"_$S(CheckMagazijn:" ["_..FilterMagazijn_"]",1:"")
+ Set ..Form.Caption="Order - Lijst"_$S(CheckMagazijn:" ["_..FilterMagazijn_$S(CheckVerzendwijze:" - "_..FilterVerzendwijze,1:"")_"]",1:"")
 
  ; --- finalisation ---
  Set ..btnCancel.Enabled="True"
@@ -524,6 +540,9 @@
 <Value name="30">
 <Value>FilterMagazijn</Value>
 </Value>
+<Value name="31">
+<Value>FilterVerzendwijze</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: UI/MB/UGLYPicking/dlgOrderSel.cls.xml
===================================================================
diff -u -r60085 -r73957
--- UI/MB/UGLYPicking/dlgOrderSel.cls.xml	(.../dlgOrderSel.cls.xml)	(revision 60085)
+++ UI/MB/UGLYPicking/dlgOrderSel.cls.xml	(.../dlgOrderSel.cls.xml)	(revision 73957)
@@ -762,13 +762,11 @@
  Quit:(Button.Enabled="False")
 
  New frmOrderList
- Set frmOrderList=##class(UI.MB.UGLYPicking.dlgOrderList).%New($LB(%this.Form.Address,0))
+ Set frmOrderList=##class(UI.MB.UGLYPicking.dlgOrderListDeliverySelection).%New($LB(%this.Form.Address,0))
  Set frmOrderList.FilterMagazijn=Sender.Tag
- Quit:(frmOrderList.dCOMPWRITElbOrders()=0)
+ Quit:(frmOrderList.dCOMPWRITEOrders()=0)
  Quit:(frmOrderList.Form.ShowModal()=$$$mrCancel)
-
- Do ..dCOMPWRITEOrders(frmOrderList.outConsNr)
-
+ 
  ;End of user code
  s Args=$lb(Sender)
  q
@@ -1173,6 +1171,9 @@
 <Value name="55">
 <Value>MagazijnClicked</Value>
 </Value>
+<Value name="56">
+<Value>VerzendwijzeClicked</Value>
+</Value>
 </Data>
 </Storage>
 </Class>