Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml	(revision 47807)
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie">
+<Description>
+Registreren van de unieke ladecode met de gevens over product, klant, toelevering, order, ...
+</Description>
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Werkpost">
+<Type>%String</Type>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="PRNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="BaseArticleID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ExterneVariantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderID">
+<Type>%String</Type>
+</Property>
+
+<Property name="CommissieRef">
+<Type>%String</Type>
+</Property>
+
+<Property name="ToeleveringLijnID">
+<Type>%String</Type>
+</Property>
+
+<Property name="RegistratieCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="ObjectType">
+<Type>%String</Type>
+</Property>
+
+<Property name="ObjectRef">
+<Type>%String</Type>
+</Property>
+
+<Property name="Familie">
+<Type>%String</Type>
+</Property>
+
+<Index name="Registratie">
+<Properties>RegistratieCode</Properties>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String,Familie:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost=Werkpost
+	Set ..Familie=Familie
+	Set ..Tijdstip=$zdt($H,3)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.VKP.MaatwD9EA.RegistratieD</DataLocation>
+<DefaultData>RegistratieDefaultData</DefaultData>
+<IdLocation>^APPS.VKP.MaatwD9EA.RegistratieD</IdLocation>
+<IndexLocation>^APPS.VKP.MaatwD9EA.RegistratieI</IndexLocation>
+<StreamLocation>^APPS.VKP.MaatwD9EA.RegistratieS</StreamLocation>
+<Data name="RegistratieDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Werkpost</Value>
+</Value>
+<Value name="3">
+<Value>Tijdstip</Value>
+</Value>
+<Value name="4">
+<Value>KlantID</Value>
+</Value>
+<Value name="5">
+<Value>PRNr</Value>
+</Value>
+<Value name="6">
+<Value>BaseArticleID</Value>
+</Value>
+<Value name="7">
+<Value>ExterneVariantID</Value>
+</Value>
+<Value name="8">
+<Value>ToeleveringID</Value>
+</Value>
+<Value name="9">
+<Value>ToeleveringLijnID</Value>
+</Value>
+<Value name="10">
+<Value>RegistratieCode</Value>
+</Value>
+<Value name="11">
+<Value>ObjectType</Value>
+</Value>
+<Value name="12">
+<Value>ObjectRef</Value>
+</Value>
+<Value name="13">
+<Value>OrderID</Value>
+</Value>
+<Value name="14">
+<Value>CommissieRef</Value>
+</Value>
+<Value name="15">
+<Value>Familie</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/TAXDataOphaler.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/TAXDataOphaler.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/TAXDataOphaler.cls.xml	(revision 47807)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.TAXDataOphaler">
+<Super>%RegisteredObject,IDataOphaler</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost=Werkpost
+	Set ..Familie="TAO"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAanViaQueueID">
+<FormalSpec>ZoekID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo
+	Set InfoID=""
+	&SQL(SELECT ID INTO :InfoID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo Where VerwerkingID=:ZoekID)
+	If InfoID'=""
+	{
+		Set UitvoeringInfo=##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo).%OpenId(InfoID)
+		Set ..Registratie.PRNr = UitvoeringInfo.ProductID
+		Set ..Registratie.ToeleveringID=UitvoeringInfo.ToeleveringID
+		Set ..Registratie.ToeleveringLijnID=UitvoeringInfo.ToeleveringLijnID
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VulAanViaDossierCode">
+<FormalSpec>DossierCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set PRNr=..ZoekDossierCode(DossierCode)
+	If PRNr {
+		Set ..Registratie.PRNr = PRNr
+		Do ..ZoekToeleveringViaProduct()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/GaNaarProduct.cls.xml
===================================================================
diff -u -r47230 -r47807
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/GaNaarProduct.cls.xml	(.../GaNaarProduct.cls.xml)	(revision 47230)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/GaNaarProduct.cls.xml	(.../GaNaarProduct.cls.xml)	(revision 47807)
@@ -1,9 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.GaNaarProduct">
-<Super>%Persistent</Super>
+<Super>%RegisteredObject</Super>
 
 <Method name="Verwerk">
+<Description>
+Do ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.GaNaarProduct).Verwerk()</Description>
 <ClassMethod>1</ClassMethod>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
@@ -43,6 +45,7 @@
 <Implementation><![CDATA[
 	Set it=..GeefZoekIterator(..GeefSQLViaCode(Code))
 	Set PRNr=""
+	Set Registratie=""
 	While it.HasNext()
 	{
 		Set rs=it.Next()
@@ -58,8 +61,9 @@
 <FormalSpec>Code:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set Code=$$UPTRIMAN^vhRtn1(Code)
-	Set SqlStatement="Select ID from APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie where RegistratieCode='"_Code_"'"
+	Set Code=$E($$UPTRIMAN^vhRtn1(Code),1,10)
+	Set SqlStatement="Select ID,PRNr from APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie where RegistratieCode='"_Code_"'"
+	Quit SqlStatement
 ]]></Implementation>
 </Method>
 
@@ -74,22 +78,6 @@
 	Quit ResultSetIterator
 ]]></Implementation>
 </Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^APPS.VKP.MaaD9EA.GaNaarProductD</DataLocation>
-<DefaultData>GaNaarProductDefaultData</DefaultData>
-<IdLocation>^APPS.VKP.MaaD9EA.GaNaarProductD</IdLocation>
-<IndexLocation>^APPS.VKP.MaaD9EA.GaNaarProductI</IndexLocation>
-<StreamLocation>^APPS.VKP.MaaD9EA.GaNaarProductS</StreamLocation>
-<Data name="GaNaarProductDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-</Storage>
 </Class>
 
 
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml	(revision 47807)
@@ -0,0 +1,169 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler">
+<Abstract>1</Abstract>
+<IncludeCode>BL.Prod</IncludeCode>
+
+<Property name="Registratie">
+<Type>APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie</Type>
+</Property>
+
+<Property name="Familie">
+<Type>%String</Type>
+</Property>
+
+<Property name="Werkpost">
+<Type>%String</Type>
+</Property>
+
+<Method name="VulAanViaQueueID">
+<FormalSpec>QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="VulAanViaDossierCode">
+<FormalSpec>DossierCode:%String</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="Registreer">
+<FormalSpec>ObjectType:%String,ObjectRef:%String,Registratie:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim  ReturnWaarde as %String=""
+	
+	Set ..Registratie=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%New(..Werkpost,..Familie)
+	Set ..Registratie.ObjectType=ObjectType
+	Set ..Registratie.ObjectRef=ObjectRef
+	Set ..Registratie.RegistratieCode=..ExtractRegistratieCodeVanURL(Registratie)
+	If ObjectType="Q" ; via Queue of Uniek of verwerking ID
+	{
+		Do ..VulAanViaQueueID(ObjectRef)
+	}
+	ElseIf ObjectType="D"  ; via Dossiercode
+	{
+		Do ..VulAanViaDossierCode(ObjectRef)
+	}
+	
+	If ..Registratie.PRNr
+	{
+		Do ..VulAanMetOrder()
+		Set sc=..Registratie.%Save()
+		If $$$ISERR(sc)
+		{
+			Set ReturnWaarde="Kan registratie niet persisteren"
+		}
+	}
+	Else
+	{
+		Set ReturnWaarde="Geen product gevonden"
+	}
+	Quit ReturnWaarde
+]]></Implementation>
+</Method>
+
+<Method name="ExtractRegistratieCodeVanURL">
+<FormalSpec>Registratie</FormalSpec>
+<Implementation><![CDATA[
+	; extractie van code uit URL  https://www.orgalux.com/drawercode?QC="0005HL"
+	If $E(Registratie,1,4)="http"
+	{
+		Set Registratie=$P(Registratie,"?QC=",2)
+		Set Registratie=$TR(Registratie,"""")
+	}
+	Quit Registratie
+]]></Implementation>
+</Method>
+
+<Method name="VulAanMetOrder">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TOENr=..Registratie.ToeleveringID
+	Set TLUNr=..Registratie.ToeleveringLijnID
+	If TOENr
+	{
+		Set LEVNr=$P($G(^KTO1(TOENr),"*"),"\")
+		Set TOERec=$G(^KTO(LEVNr,TOENr,1))
+		If TOERec'=""
+		{
+			Set ..Registratie.KlantID=$P(TOERec,"\",8)
+			Set ..Registratie.OrderID=$P(TOERec,"\",7)
+			If TLUNr
+			{
+				Set TLNr=$G(^TO("IU",TOENr,TLUNr),"*")
+				Set TLRec=$G(^KTO(LEVNr,TOENr,TLNr))
+				If TLRec'=""
+				{
+					Set ORDNr=$P(TLRec,"\",27)
+					Set OLNr=$P(TLRec,"\",28)
+					If ORDNr,OLNr
+					{
+						Set KLNr=$P($G(^KO1(ORDNr,"F")),"\")
+						If KLNr 
+						{
+							Set ORDRec=$G(^KOD(KLNr,"F",ORDNr,1))
+							Set ..Registratie.KlantID=KLNr
+							Set ..Registratie.OrderID=ORDNr
+							Set ..Registratie.CommissieRef=$P(ORDRec,"\",19)
+						}
+					}
+				}
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZoekToeleveringViaProduct">
+<Implementation><![CDATA[
+	Set PRNr=..Registratie.PRNr
+	If PRNr
+	{
+		Set TOENr=$O(^TO("IP",PRNr,""))
+		If TOENr&&($O(^TO("IP",PRNr,TOENr))="") ; Toelevering gekend en er is er maar één
+		{
+			Set TLUNr=$O(^TO("IP",PRNr,TOENr,""))
+			If TLUNr,(($O(^TO("IP",PRNr,TOENr,""),-1)#10)=(TLUNr#10)) ; Toeleveringslijn er er is er maar één (gesplitste lijnen zijn wel toegelaten)
+			Set ..Registratie.ToeleveringID=TOENr
+			Set ..Registratie.ToeleveringLijnID=TLUNr
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZoekDossierCode">
+<FormalSpec>DossierCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:DossierCode?1(1"T",1"A",1"L")2.5E1N DossierCode=$E(DossierCode,2,$L(DossierCode)-1) ; Strip eerste letter (=familie) en laatste letter (=checkdigit)
+	Set pxCriteria=..InitCriteria(DossierCode)
+	Set blSearch=##class(BL.Prod.Search).%New()
+	Do blSearch.SearchIndex(pxCriteria,.Y)
+	Set PRNr=""
+	For I=1:1:$O(Y(""),-1)
+	{
+		Set:$P($$GENTYP^HAD(Y(I)),"\")=..Familie PRNr=Y(I)
+	}
+	Quit PRNr
+]]></Implementation>
+</Method>
+
+<Method name="InitCriteria">
+<FormalSpec>ZoekTekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>BL.Prod.sub.pxSearchCriteria</ReturnType>
+<Implementation><![CDATA[
+	Set pxCriteria=##class(BL.Prod.sub.pxSearchCriteria).%New($$$ProdCritUsageAll)
+ 	Set pxCriteria.Saleable=$LB($$$ProdCritSaleable) ; alleen verkoopbare producten
+ 	Set pxCriteria.At=$$$ProdCritAtDossier
+ 	Set pxCriteria.SearchTxt=ZoekTekst
+ 	Set pxCriteria.MaxCount=100
+ 	Set pxCriteria.Sorted=$$$ProdCritSortedNot
+ 	Quit pxCriteria
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/Test.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/Test.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/Test.cls.xml	(revision 47807)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.Test">
+<Super>%RegisteredObject</Super>
+
+<Method name="Test">
+<Description>
+d ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Test).Test()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ws=##class(WS.Halux.PPS.LadeCodeServer).%New()
+	;Do ws.RegistreerViaQueueID("P1",2592858,"ABC153")
+	Write ws.RegistreerViaQueueID("LP1",7346933,"https://www.orgalux.com/drawercode?QC=""0005HL""")
+	;Write ws.RegistreerViaDossier("TBX","R9VN","tDD153"),!
+	;Write ws.RegistreerViaDossier("TBX","TR9VN7","tDD153"),!
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.VKP.Maatwerk.LadD9EA.TestD</DataLocation>
+<DefaultData>TestDefaultData</DefaultData>
+<IdLocation>^APPS.VKP.Maatwerk.LadD9EA.TestD</IdLocation>
+<IndexLocation>^APPS.VKP.Maatwerk.LadD9EA.TestI</IndexLocation>
+<StreamLocation>^APPS.VKP.Maatwerk.LadD9EA.TestS</StreamLocation>
+<Data name="TestDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/LBXDataOphaler.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/LBXDataOphaler.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/LBXDataOphaler.cls.xml	(revision 47807)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.LBXDataOphaler">
+<Super>%RegisteredObject,IDataOphaler</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost=Werkpost
+	Set ..Familie="LBX"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAanViaQueueID">
+<FormalSpec>UniqueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem 
+	#dim Product As DOM.PM.LBXProduct.impl.LBXLadeImpl
+	Set WerklijstItem=##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(UniqueID)
+	;d DumpObject^%apiOBJ(WerklijstItem)
+	;d DumpObject^%apiOBJ(WerklijstItem.UitvoeringInfo)
+	Set ..Registratie.PRNr = WerklijstItem.UitvoeringInfo.ProductID
+	Set ..Registratie.ToeleveringID=WerklijstItem.UitvoeringInfo.ToeleveringID
+	Set ..Registratie.ToeleveringLijnID=WerklijstItem.UitvoeringInfo.ToeleveringLijnID
+	;w ..Registratie.PRNr," ", ..Registratie.ToeleveringID," ", ..Registratie.ToeleveringLijnID,!
+]]></Implementation>
+</Method>
+
+<Method name="VulAanViaDossierCode">
+<FormalSpec>DossierCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set PRNr=..ZoekDossierCode(DossierCode)
+	If PRNr {
+		Set ..Registratie.PRNr = PRNr
+		Do ..ZoekToeleveringViaProduct()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/TBXDataOphaler.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/TBXDataOphaler.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/TBXDataOphaler.cls.xml	(revision 47807)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.TBXDataOphaler">
+<Super>%RegisteredObject,IDataOphaler</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost=Werkpost
+	Set ..Familie="TBX"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAanViaQueueID">
+<FormalSpec>QueueID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set QueueElement=##class(DS.PPS.TBX.Queue).%OpenId(QueueID)
+	Quit:'$isObject(QueueElement) ""
+	Set ..Registratie.PRNr = QueueElement.Product.%Id()
+	Set ..Registratie.ToeleveringID=QueueElement.TOENr
+	Set ..Registratie.ToeleveringLijnID=QueueElement.TLUNr
+]]></Implementation>
+</Method>
+
+<Method name="VulAanViaDossierCode">
+<FormalSpec>DossierCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set PRNr=..ZoekDossierCode(DossierCode)
+	If PRNr {
+		Set ..Registratie.PRNr = PRNr
+		Do ..ZoekToeleveringViaProduct()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>