Index: OBJTimpl/WMSOrder/OphalenUserIdPickerVanLPN.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/OphalenUserIdPickerVanLPN.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/OphalenUserIdPickerVanLPN.cls.xml	(revision 67350)
@@ -0,0 +1,154 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.OphalenUserIdPickerVanLPN">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// W ##class(OBJTimpl.WMSOrder.OphalenOrderInOBJT).%New().GeefStatusVertaald(322726)
+
+]]></Content>
+</UDLText>
+
+<Method name="%OnNew">
+<FormalSpec>ConfigMgr:TECH.Config.ConfigMgr=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ConfigMgr = $$$Inject(ConfigMgr,##class(TECH.Config.ConfigMgr).Instance())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLConnectie">
+<ReturnType>%SQLGatewayConnection</ReturnType>
+<Implementation><![CDATA[
+	Set SqlConnection =##class(%SQLGatewayConnection).%New()
+    #dim OBJTSqlServer As %String = ..ConfigMgr.GeefString("OBJTimpl.DatasourceName")
+    Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SqlConnection.Connect(OBJTSqlServer,"",""))
+    Quit SqlConnection
+]]></Implementation>
+</Method>
+
+<Method name="GeefUserIdPickerVanLPN">
+<FormalSpec>Consolidatie:%String,LPN:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+    Set res=##class(TECH.ResultSet).%New("%DynamicQueryGW:SQLGW")
+    #dim OBJTConnection as %SQLGatewayConnection =..GeefSQLConnectie()
+	#dim Status as %String = ""
+    ;#dim SqlStatement as %String = "Select OUTBOUNDSTATUS FROM [OBJT_OUTBOUNDORDER] WHERE ID=?"
+    #dim SqlStatement as %String
+    Set SqlStatement = "select task.DTSSTART, outboundOrder.id, task.oid, employee.UserID, csitq.name, op.name, itemqty.VALUE " 
+    _ "from OBJT_TASK task"
+    _ "left join OBJT_PICKORDER pickorder"
+	_ "on task.ORDEROID = pickorder.OID"
+	_ "left join OBJT_ORDERLINK link"
+	_ "on link.PARENTCLASSNAME = 'objt.wms.bo.outboundmgt.OutboundOrder'"
+	_ "and link.CHILDOID = pickorder.oid"
+	_ "left join OBJT_OUTBOUNDORDER outboundOrder"
+	_ "on outboundOrder.oid = link.PARENTOID"
+	_ "left join OBJT_EMPLOYEE employee"
+	_ "on employee.oid = task.EMPLOYEEOID"
+	_ "left join OBJT_CONTAINERSTORAGEITEMQTY csitq"
+	_ "on csitq.oid = task.CONTAINERSTORAGEITEMQTYOID"
+	_ "left join OBJT_OPERATIONLINK opLink"
+	_ "on opLink.CHILDOID = task.REFOID"
+	_ "and opLink.PARENTCLASSNAME = 'objt.wms.bo.outboundmgt.OutboundOperation'"
+	_ "left join OBJT_OUTBOUNDOPERATION op"
+	_ "on op.oid = opLink.PARENTOID"
+
+	_ "left join OBJT_OUTBOUNDITEMQTY itemqty"
+	_ "on itemqty.OUTBOUNDOPERATIONOID = op.oid"
+
+	_ "where task.CATEGORY = 'PICK'"
+	_ "and outboundOrder.id = ?"
+	_ "and csitq.name = ?"
+
+
+    try
+    {
+    	Do res.Prepare(SqlStatement,,OBJTConnection)
+	    Do res.Execute(Consolidatie,LPN)    
+    } catch {
+	    do OBJTConnection.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+    If res.Next()
+    {
+	    Set Status=$G(res.Data("OUTBOUNDSTATUS"))
+    }
+    do OBJTConnection.Disconnect()
+
+    Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefStatusVertaald">
+<FormalSpec>CONSNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Status as %String =..GeefStatus(CONSNr)
+	
+	Quit:Status="" "Niet in OBJT"
+	Quit:Status=0 "Niet actief"
+	Quit:Status=1 "Gealloceerd"
+	Quit:Status=2 "Vrijgegeven"
+	Quit:Status=3 "Picking"
+	Quit:Status=12 "Geannuleerd"
+	Quit:Status=14 "Afgewerkt"
+	Quit "??? " _ Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefStatus">
+<FormalSpec>CONSNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim PickID as %String =..GeefOBJTPickID(CONSNr)
+	Quit:PickID="" ""
+	
+    Set res=##class(TECH.ResultSet).%New("%DynamicQueryGW:SQLGW")
+    #dim OBJTConnection as %SQLGatewayConnection =..GeefSQLConnectie()
+	#dim Status as %String = ""
+    #dim SqlStatement as %String = "Select OUTBOUNDSTATUS FROM [OBJT_OUTBOUNDORDER] WHERE ID=?"
+    
+    try
+    {
+    	Do res.Prepare(SqlStatement,,OBJTConnection)
+	    Do res.Execute(PickID)    
+    } catch {
+	    do OBJTConnection.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+    If res.Next()
+    {
+	    Set Status=$G(res.Data("OUTBOUNDSTATUS"))
+    }
+    do OBJTConnection.Disconnect()
+
+    Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefOBJTPickID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CONSNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'($D(^ORDW("D",CONSNr))#10) ""
+	#dim JaarMaand as %String = $$EXTDATE^vhLib.DataTypes(+$P(^ORDW("D",CONSNr),"\",18),"DM") ; geeft YY-MM
+	#dim OBJTPickID as %String = $E($TR(JaarMaand,"-")_"9999",1,4)_CONSNr ; voor uniciteit op lange termijn wordt YYMM toegevoegd
+	Quit OBJTPickID
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>