Index: AXimpl/Admin/TRANSPORT/Levbon/BonLevering.cls.xml
===================================================================
diff -u -r55346 -r58984
--- AXimpl/Admin/TRANSPORT/Levbon/BonLevering.cls.xml	(.../BonLevering.cls.xml)	(revision 55346)
+++ AXimpl/Admin/TRANSPORT/Levbon/BonLevering.cls.xml	(.../BonLevering.cls.xml)	(revision 58984)
@@ -87,14 +87,17 @@
 
 <Property name="Naam">
 <Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Property name="StraatEnNr">
 <Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Property name="Gemeente">
 <Type>%String</Type>
+<Parameter name="MAXLEN" value="100"/>
 </Property>
 
 <Property name="Postkode">
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml
===================================================================
diff -u -r51707 -r58984
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml	(.../InstellenData.cls.xml)	(revision 51707)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml	(.../InstellenData.cls.xml)	(revision 58984)
@@ -41,6 +41,10 @@
 <Type>%Decimal</Type>
 </Property>
 
+<Property name="Kleur">
+<Type>%String</Type>
+</Property>
+
 <Property name="Rol">
 <Type>DOM.PM.Maatwerk.Lade.enu.ZijkantRol</Type>
 </Property>
@@ -66,6 +70,14 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="AantalKeerRework">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Kar">
+<Type>%String</Type>
+</Property>
+
 <Property name="ValingeOfBalikoRug">
 <Description>
 V of B</Description>
Index: AXimpl/PM/Kenmerk/ConvertAll.cls.xml
===================================================================
diff -u -r56983 -r58984
--- AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 56983)
+++ AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 58984)
@@ -51,7 +51,7 @@
 
 <Method name="Verwerk">
 <Implementation><![CDATA[
-	Set ..itProduct=##class(AXProductIterator).%New($S(..UpdateOnly=1:$H-1,1:""))
+	Set ..itProduct=##class(AXProductIterator).%New($S(..UpdateOnly=1:$H-2,1:""))
 	#dim lbProductIDs as %List
 	#dim ProductID as %String
 	#dim RecID as %String
@@ -100,9 +100,11 @@
 <Implementation><![CDATA[
 	If '(..BestaatLinkReeds(ProductID)&&..UpdateOnly)
 	{	
+		w ProductID," ",PRNr," ", RecID," ", InventTransID,!
+		;w "Converteer"
 		Do ..ConverteerOne(PRNr)
 		If ##class(Kenmerken).%ExistsId(PRNr)
-		{	
+		{	;w "CreateLink"
 			Do ..CreateAXLink(ProductID,PRNr,RecID,InventTransID)
 		}
 	}
Index: APPS/Halux/Planning/ResourcePitchingService.cls.xml
===================================================================
diff -u -r57446 -r58984
--- APPS/Halux/Planning/ResourcePitchingService.cls.xml	(.../ResourcePitchingService.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/ResourcePitchingService.cls.xml	(.../ResourcePitchingService.cls.xml)	(revision 58984)
@@ -45,6 +45,7 @@
 
 <Method name="VerwerkAll">
 <Implementation><![CDATA[
+	
 	Quit:'..Lock()
 	
 	Do ..ImportCapaciteit()
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml
===================================================================
diff -u -r51707 -r58984
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(.../OphalenData.cls.xml)	(revision 51707)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(.../OphalenData.cls.xml)	(revision 58984)
@@ -23,31 +23,51 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OphalenData">
+<Method name="Test">
 <Description>
-Do DumpObject^%apiOBJ(##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZMV35L96023"))</Description>
+d ##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).Test()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do DumpObject^%apiOBJ(##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZKV60R97846"))
+	s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZFU55L96948")
+	w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar," ",dto.AantalKeerRework,!
+	s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZCV60L97903")
+	w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar," ",dto.AantalKeerRework,!
+	s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZKV60R97846")
+	w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar," ",dto.AantalKeerRework,!
+	s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZMV60L97841")
+	w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar," ",dto.AantalKeerRework,!
+	s dto=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZNA40L97863")
+	w dto.BarcodeID, " ", dto.HoogteCode, " ", dto.Hoogte," ",dto.Diepte," ",dto.Kar," ",dto.AantalKeerRework,!
+]]></Implementation>
+</Method>
+
+<Method name="OphalenData">
 <FormalSpec>BarcodeID:%String</FormalSpec>
 <ReturnType>APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData</ReturnType>
 <Implementation><![CDATA[
 	If $E(BarcodeID)'="Z" Quit "Geen zijkant"
 	
 	#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=:BarcodeID)
+	&SQL(SELECT ID INTO :InfoID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo WHERE VerwerkingID=:BarcodeID)
 	If InfoID'=""
 	{
 		Set UitvoeringInfo=##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo).%OpenId(InfoID)
 		Set ..InstellenData=##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData).%New()
 		
 		Set ..InstellenData.BarcodeID = BarcodeID
+		Set ..InstellenData.Kar=$P(UitvoeringInfo.OptimalisatieData.EtiketLijn2,"KAR ",2)
+		Set ..InstellenData.Kleur=$P(UitvoeringInfo.OptimalisatieData.EtiketLijn1,"/",2)
 		Set ..InstellenData.ProductID = UitvoeringInfo.ProductID
 		Set ..InstellenData.BatchID = UitvoeringInfo.BatchID
 		Set ..InstellenData.KlantID = UitvoeringInfo.PartijID
 		Set ..InstellenData.ToeleveringID=UitvoeringInfo.ToeleveringID
-		Set ..InstellenData.DossierCode=UitvoeringInfo.DossierCode	
+		Set ..InstellenData.DossierCode=UitvoeringInfo.DossierCode
 		Do ..OphalenKlantInfo()
 		Do ..OphalenProductInfo()
 		Do ..OphalenLaatsteKeer()
+		Do ..OphalenRework()
 	}
 	
 	Quit ..InstellenData
@@ -76,8 +96,8 @@
 	
 	Set ..InstellenData.ValingeOfBalikoRug = Zijkant.GeefConcept()
 	Set ..InstellenData.HoogteCode = Lade.GeefHoogte()
-	Set ..InstellenData.Hoogte = Lade.GeefHoogteInMM()
-	Set ..InstellenData.Diepte = Lade.GeefDiepteInMM()
+	Set ..InstellenData.Hoogte = Zijkant.GeefHoogteInMM() ;( Lade.GeefHoogteInMM()
+	Set ..InstellenData.Diepte = Zijkant.GeefLengteInMM()  ;Lade.GeefDiepteInMM()
 	Set ..InstellenData.AantalHakenCode=..BepaalAantalHaken()
 	Set ..InstellenData.HeeftLaserLogo=''(IngegevenKenmerken.ZijkantLogoID) ; als ID leeg of nul is dan geen log
 ]]></Implementation>
@@ -121,6 +141,15 @@
 	Set ..InstellenData.AantalKeerGetest=AantalKeer
 ]]></Implementation>
 </Method>
+
+<Method name="OphalenRework">
+<Implementation><![CDATA[
+	Set BarcodeID=..InstellenData.BarcodeID
+	Set AantalKeerRework=0
+	&SQL(SELECT count(IsRework) INTO :AantalKeerRework FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE MachineID='Rework' and VerwerkingID=:BarcodeID)
+	Set ..InstellenData.AantalKeerRework=AantalKeerRework
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.PPS.TAXZijkantTesterServer.txt
===================================================================
diff -u -r54979 -r58984
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.PPS.TAXZijkantTesterServer.txt	(.../WS.Halux.PPS.TAXZijkantTesterServer.txt)	(revision 54979)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.PPS.TAXZijkantTesterServer.txt	(.../WS.Halux.PPS.TAXZijkantTesterServer.txt)	(revision 58984)
@@ -28,6 +28,7 @@
                     <s:element minOccurs="0" name="Diepte" type="s:decimal"/>
                     <s:element minOccurs="0" name="HoogteCode" type="s:string"/>
                     <s:element minOccurs="0" name="Hoogte" type="s:decimal"/>
+                    <s:element minOccurs="0" name="Kleur" type="s:string"/>
                     <s:element minOccurs="0" name="Rol" type="s0:ZijkantRol"/>
                     <s:element minOccurs="0" name="HeeftLaserLogo" type="s:boolean"/>
                     <s:element minOccurs="0" name="Opmerking" type="s:string"/>
@@ -42,6 +43,8 @@
                         </s:simpleType>
                     </s:element>
                     <s:element minOccurs="0" name="AantalKeerGetest" type="s:long"/>
+                    <s:element minOccurs="0" name="AantalKeerRework" type="s:long"/>
+                    <s:element minOccurs="0" name="Kar" type="s:string"/>
                     <s:element minOccurs="0" name="ValingeOfBalikoRug">
                         <s:simpleType>
                             <s:restriction base="s:string">
Index: APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml
===================================================================
diff -u -r57446 -r58984
--- APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 58984)
@@ -72,9 +72,10 @@
 	#Dim PRNr, AxProductID as %String
 	Set TOENr=..ProductieOrderLijn.ToeleveringNr
 	Set TLUNr=..ProductieOrderLijn.UniekLijnNr\100*100
-	Set ResourceID=""
-	&SQL(select top 1 ID into :ResourceID from APPS_Halux_Planning_Resource_dto.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr)
-	Quit $L(ResourceID)
+	Set PRNr=..ProductieOrderLijn.ProductGetObjectId()
+	Set ResPRNr=""
+	&SQL(select top 1 Product into :ResPRNr from APPS_Halux_Planning_Resource_dto.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr)
+	Quit ResPRNr=PRNr
 ]]></Implementation>
 </Method>
 
@@ -97,6 +98,7 @@
 <Method name="ConverteerOne">
 <Implementation><![CDATA[
 		#Dim PRNr,GenTyp,GenTyp2 as %String
+		#dim Convertor as ConvertProductAbstract
 		Set PRNr=..ProductieOrderLijn.ProductGetObjectId()
 		Quit:'PRNr
 		Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
@@ -106,36 +108,46 @@
 		;w GenTyp," ",PRNr,!
 		If GenTyp="TBX"
 		{   
-			Do ##class(ConvertTBX).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertTBX).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp="LBX"
 		{	
-			Do ##class(ConvertLBX).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertLBX).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp="TAO"
 		{
-			Do ##class(ConvertTAX).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertTAX).%New(..ProductieOrderLijn)
 		}
 		ElseIf (GenTyp="KAD")||(GenTyp="PRF")||(GenTyp="GLA")
 		{
-			Do ##class(ConvertKAD).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertKAD).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp2="DIV\ASM"
 		{
-			Do ##class(ConvertASM).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertASM).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp="DIV\ZSN"
 		{
-			Do ##class(ConvertDIV).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertDIV).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp="DIV"
 		{
-			Do ##class(ConvertDIV).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertDIV).%New(..ProductieOrderLijn)
 		}
 		Else
 		{
-			Do ##class(ConvertDIV).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertDIV).%New(..ProductieOrderLijn)
 		}
+
+		If '$isObject(Convertor)&&("DIV"'[GenTyp)
+		{ ;fallback naar DIV indien Convertor niet geinitialiseerd is
+			Set Convertor=##class(ConvertDIV).%New(..ProductieOrderLijn)
+		}
+		
+		If $isObject(Convertor)
+		{ ; uitvoeren convertor
+			Do Convertor.Converteer()
+		}
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/Metingen.cls.xml
===================================================================
diff -u -r54526 -r58984
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/Metingen.cls.xml	(.../Metingen.cls.xml)	(revision 54526)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/Metingen.cls.xml	(.../Metingen.cls.xml)	(revision 58984)
@@ -156,30 +156,6 @@
 <Type>%Decimal</Type>
 </Property>
 
-<Property name="InstelHaak1In">
-<Type>%Decimal</Type>
-</Property>
-
-<Property name="InstelHaak1Uit">
-<Type>%Decimal</Type>
-</Property>
-
-<Property name="InstelHaak1NIn">
-<Type>%Decimal</Type>
-</Property>
-
-<Property name="InstelHaak1NUit">
-<Type>%Decimal</Type>
-</Property>
-
-<Property name="InstelHaak2In">
-<Type>%Decimal</Type>
-</Property>
-
-<Property name="InstelHaak2Uit">
-<Type>%Decimal</Type>
-</Property>
-
 <Property name="InstelLengtePos">
 <Type>%Decimal</Type>
 </Property>
@@ -228,6 +204,8 @@
 <IndexLocation>^APPS.Halux.PPS.TA90E2.MetingenI</IndexLocation>
 <StreamLocation>^APPS.Halux.PPS.TA90E2.MetingenS</StreamLocation>
 <Data name="MetingenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
@@ -244,167 +222,125 @@
 <Value>ProductID</Value>
 </Value>
 <Value name="6">
-<Value>KlantID</Value>
+<Value>PRNr</Value>
 </Value>
 <Value name="7">
-<Value>Diepte</Value>
+<Value>KlantID</Value>
 </Value>
 <Value name="8">
-<Value>HoogteCode</Value>
+<Value>Diepte</Value>
 </Value>
 <Value name="9">
-<Value>Hoogte</Value>
+<Value>HoogteCode</Value>
 </Value>
 <Value name="10">
-<Value>LinksRechts</Value>
+<Value>Hoogte</Value>
 </Value>
 <Value name="11">
-<Value>LaserLogo</Value>
+<Value>LinksRechts</Value>
 </Value>
 <Value name="12">
-<Value>Opmerking</Value>
+<Value>LaserLogo</Value>
 </Value>
 <Value name="13">
-<Value>DossierCode</Value>
+<Value>Opmerking</Value>
 </Value>
 <Value name="14">
-<Value>TijdstipTest</Value>
+<Value>DossierCode</Value>
 </Value>
 <Value name="15">
-<Value>DiepteMeting</Value>
+<Value>TijdstipTest</Value>
 </Value>
 <Value name="16">
-<Value>HoogteMetingVoor</Value>
+<Value>Werkpost</Value>
 </Value>
 <Value name="17">
-<Value>HoogteMetingAchter</Value>
+<Value>MetingDiepte</Value>
 </Value>
 <Value name="18">
-<Value>DikteMeting</Value>
+<Value>FoutDiepte</Value>
 </Value>
 <Value name="19">
-<Value>FrontHaakOnder</Value>
-</Value>
-<Value name="20">
-<Value>FrontHaakBoven</Value>
-</Value>
-<Value name="21">
-<Value>GestoptOpStap</Value>
-</Value>
-<Value name="22">
-<Value>Werkpost</Value>
-</Value>
-<Value name="23">
-<Value>PRNr</Value>
-</Value>
-<Value name="24">
-<Value>MetingDiepte</Value>
-</Value>
-<Value name="25">
-<Value>FoutDiepteField</Value>
-</Value>
-<Value name="26">
 <Value>MetingHoogteCode</Value>
 </Value>
-<Value name="27">
+<Value name="20">
 <Value>MetingHoogteVoor</Value>
 </Value>
-<Value name="28">
+<Value name="21">
 <Value>MetingHoogteAchter</Value>
 </Value>
-<Value name="29">
+<Value name="22">
 <Value>FoutHoogteVoor</Value>
 </Value>
-<Value name="30">
+<Value name="23">
 <Value>FoutHoogteAchter</Value>
 </Value>
-<Value name="31">
+<Value name="24">
 <Value>MetingDikte</Value>
 </Value>
-<Value name="32">
+<Value name="25">
 <Value>FoutDikte</Value>
 </Value>
-<Value name="33">
+<Value name="26">
 <Value>MetingFrontHaakOnderIn</Value>
 </Value>
-<Value name="34">
+<Value name="27">
 <Value>MetingFrontHaakOnderuit</Value>
 </Value>
-<Value name="35">
+<Value name="28">
 <Value>FoutFrontHaakOnderLP</Value>
 </Value>
-<Value name="36">
+<Value name="29">
 <Value>FoutFrontHaakOnderHP</Value>
 </Value>
-<Value name="37">
+<Value name="30">
 <Value>MetingFrontHaakBovenIn</Value>
 </Value>
-<Value name="38">
+<Value name="31">
 <Value>MetingFrontHaakBovenUit</Value>
 </Value>
-<Value name="39">
+<Value name="32">
 <Value>FoutFrontHaakBovenLP</Value>
 </Value>
-<Value name="40">
+<Value name="33">
 <Value>FoutFrontHaakBovenHP</Value>
 </Value>
-<Value name="41">
+<Value name="34">
 <Value>FoutFraxinusGatFout</Value>
 </Value>
-<Value name="42">
+<Value name="35">
 <Value>FoutFrontHakenNietTerug</Value>
 </Value>
-<Value name="43">
+<Value name="36">
 <Value>InstelPlankDikte</Value>
 </Value>
-<Value name="44">
-<Value>InstelHaak1In</Value>
-</Value>
-<Value name="45">
-<Value>InstelHaak1Uit</Value>
-</Value>
-<Value name="46">
-<Value>InstelHaak1NIn</Value>
-</Value>
-<Value name="47">
-<Value>InstelHaak1NUit</Value>
-</Value>
-<Value name="48">
-<Value>InstelHaak2In</Value>
-</Value>
-<Value name="49">
-<Value>InstelHaak2Uit</Value>
-</Value>
-<Value name="50">
+<Value name="37">
 <Value>InstelLengtePos</Value>
 </Value>
-<Value name="51">
+<Value name="38">
 <Value>InstelLengteNeg</Value>
 </Value>
-<Value name="52">
+<Value name="39">
 <Value>InstelHoogtePos</Value>
 </Value>
-<Value name="53">
+<Value name="40">
 <Value>InstelHoogteNeg</Value>
 </Value>
-<Value name="54">
+<Value name="41">
 <Value>InstelDiktePos</Value>
 </Value>
-<Value name="55">
+<Value name="42">
 <Value>InstelDikteNeg</Value>
 </Value>
-<Value name="56">
+<Value name="43">
 <Value>InstelHaakPos</Value>
 </Value>
-<Value name="57">
+<Value name="44">
 <Value>InstelHaakNeg</Value>
 </Value>
-<Value name="58">
+<Value name="45">
 <Value>InstelHaakHP</Value>
 </Value>
-<Value name="59">
-<Value>FoutDiepte</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: Flow/Had/OrderHfd.cls.xml
===================================================================
diff -u -r29059 -r58984
--- Flow/Had/OrderHfd.cls.xml	(.../OrderHfd.cls.xml)	(revision 29059)
+++ Flow/Had/OrderHfd.cls.xml	(.../OrderHfd.cls.xml)	(revision 58984)
@@ -299,8 +299,9 @@
  Do:(Opties["ORDF") ENDTAG^XMLWRITE(DevObj,"ORDER")
  Do WRITE^XMLWRITE(DevObj,NL)
  Quit
-xmlwBuildBarCodeData
- Set:($IsObject(objProduct)) arBarCode(LijnNr)=objProduct.GetBarCodeData()
+xmlwBuildBarCodeData 
+ ; Aanpassing PV 26/11/2019 - De barcodes worden niet meer afgedrukt op de documenten dus moeten ze ook niet meer gegenereerd worden (server IMAP01)
+ ;Set:($IsObject(objProduct)) arBarCode(LijnNr)=objProduct.GetBarCodeData() 
  Quit
 xmlwPrepBarcodeIMGs
 #define bcDossier   1
Index: APPS/BD/CarbonFootprint/impl/AfstandBepaler.cls.xml
===================================================================
diff -u -r34389 -r58984
--- APPS/BD/CarbonFootprint/impl/AfstandBepaler.cls.xml	(.../AfstandBepaler.cls.xml)	(revision 34389)
+++ APPS/BD/CarbonFootprint/impl/AfstandBepaler.cls.xml	(.../AfstandBepaler.cls.xml)	(revision 58984)
@@ -130,11 +130,108 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// s bl=##class(APPS.BD.CarbonFootprint.impl.AfstandBepaler).%New()
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d bl.GetLatLon("1020","BRUSSEL 2","Belgie","BURO & DESIGN CENTER B.71")
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d bl.GetLatLon("1160","OUDERGEM","Belgie","AVENUE J.VAN HOREBEECK 44-46")
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d bl.GetLatLon("9140","Tielrode","Belgie","Kerkstraat 116")
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d bl.GetLatLon("4251","Esc-Sur-Alzette","Luxembourg","Rue Du Moulin 58")
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d bl.GetLatLon("4251","Esc-Sur-Alzette","Luxembourg","Rue J.P. Bausch 121")
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d bl.GetLatLon("4960","MALMEDY","Belgie","BELLEV. RUE G. DE BELVÂ 12")
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d bl.GetLatLon("2870","PUURS","Belgie","Schoolstraat 9")
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d bl.GetLatLon("","","BEL","") ; fout
+
+]]></Content>
+</UDLText>
+
+<Method name="GetLatLon">
+<FormalSpec>Postkode:%String,Gemeente:%String,Land:%String,Straat:%String</FormalSpec>
+<Implementation><![CDATA[
+	
+	;voorbeeld URL : https://maps.googleapis.com/maps/api/geocode/xml?address=Kerkstraat 116,9140+Tielrode,Belgie&language=nl-BE&key=AIzaSyCK-xrNAAE2vncS4pWxW8JAPnjI2bDPv-g
+	Set httprequest=##class(%Net.HttpRequest).%New()
+	Set httprequest.Https=1
+	Set httprequest.SSLConfiguration="GoogleAPI"
+	Set httprequest.Server="maps.googleapis.com"
+	Do httprequest.SetParam("address",..Converteer(Straat)_","_Postkode_"+"_..Converteer(Gemeente)_","_..Converteer(Land))
+	Do httprequest.SetParam("language","nl-BE")
+	Do httprequest.SetParam("key","AIzaSyCK-xrNAAE2vncS4pWxW8JAPnjI2bDPv-g")
+	;d DumpObject^%apiOBJ(httprequest)
+	w httprequest.ReturnParams()
+	Do httprequest.Get("/maps/api/geocode/xml")
+	;d DumpObject^%apiOBJ(httprequest.HttpResponse)
+	;d httprequest.HttpResponse.OutputToDevice()
+	Set XMLData=..GetResponseData(httprequest.HttpResponse)
+	;w XMLData
+	Set lbLatLon= ..ExtractLatLon(XMLData)
+]]></Implementation>
+</Method>
+
+<Method name="ExtractLatLon">
+<FormalSpec>XMLData</FormalSpec>
+<Implementation><![CDATA[
+	Set Lat=+$P($P(XMLData,"<lat>",2),"</lat>",1)
+	Set Lon=+$P($P(XMLData,"<lng>",2),"</lng>",1)
+	Write Lat, ":",Lon,!
+	Quit $lb(Lat,Lon)
+]]></Implementation>
+</Method>
+
 <Method name="BerekenAfstandEnTijd">
 <FormalSpec>VanGemeente:%String,VanLand:%String,TotGemeente:%String,TotLand:%String,Afstand:APPS.BD.CarbonFootprint.impl.AfstandTussenGemeenten</FormalSpec>
 <Implementation><![CDATA[
 	
 	;voorbeeld URL : http://maps.googleapis.com/maps/api/distancematrix/xml?origins=Sint-Niklaas,Belgie&destinations=Olen,Belgie&language=nl-BE
+	;voorbeeld URL : http://maps.googleapis.com/maps/api/geocode/xml?address=Kerkstraat 116,9140+Tielrode,Belgie&language=nl-BE
 	Set httprequest=##class(%Net.HttpRequest).%New()
 	Set httprequest.Https=1
 	Set httprequest.SSLConfiguration="GoogleAPI"
Index: APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml
===================================================================
diff -u -r57548 -r58984
--- APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 57548)
+++ APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 58984)
@@ -82,11 +82,25 @@
 <Implementation><![CDATA[
 	Set ..ProductieOrderLijn=ProductieOrderLijn
 	Set ..PRNr=ProductieOrderLijn.ProductGetObjectId()
-	Do ..OphalenAXKenmerken()
-	;d:..PRNr=2223146 DumpObject^%apiOBJ(..AXKenmerken)
-	Do ..BuildResourceCodes()
-
-	Quit $$$OK
+	Set Status=$$$OK
+	Try {
+		Do ..OphalenAXKenmerken()
+		;d:..PRNr=2223146 DumpObject^%apiOBJ(..AXKenmerken)
+		Do ..BuildResourceCodes()
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		If $isObject(..AXKenmerken)
+		{
+			#dim Omschrijving As TECH.String = "Convert product gefaald : '" _ProductieOrderLijn.Product.IdentNummer _"' AxInventTransId : '" _ProductieOrderLijn.AxInventTransId _"' ToeleveringNr : '" _ProductieOrderLijn.ToeleveringNr _"'"
+			#dim GeneralErrorException As TECH.Exceptions.GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New(Omschrijving)
+			Do ##class(TECH.ExceptionHandler).Throw(GeneralErrorException)	
+		} else {
+			; Als kenmerken ontbreken dan via DIVERSE verder verwerken (zie klasse ConvertAll)
+			Set Status=""
+		}
+	}
+	
+	Quit Status
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/MetingOpslaan.cls.xml
===================================================================
diff -u -r54526 -r58984
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/MetingOpslaan.cls.xml	(.../MetingOpslaan.cls.xml)	(revision 54526)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/MetingOpslaan.cls.xml	(.../MetingOpslaan.cls.xml)	(revision 58984)
@@ -35,7 +35,7 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	set md=##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.MetingData).%New()
-	Set md.BarcodeID="ZNV30R60314"
+	Set md.BarcodeID="ZKV60R97846"
 
 	Set md.Diepte=444
 	Set md.DiepteFout=0
@@ -57,12 +57,6 @@
 	Set md.FraxinusGatFout=0
 	Set md.FrontHakenNietTerug=1
 	Set md.InstelPlankDikte=13
-	Set md.InstelHaak1In=0.3
-	Set md.InstelHaak1Uit=0.3
-	Set md.InstelHaak1NIn=0.2
-	Set md.InstelHaak1NUit=0.2
-	Set md.InstelHaak2In=0.4
-	Set md.InstelHaak2Uit=0.4
 	Set md.InstelLengtePos=0.5
 	Set md.InstelLengteNeg=0.5
 	Set md.InstelHoogtePos=0.5
@@ -72,6 +66,8 @@
 	Set md.InstelHaakPos=0.3
 	Set md.InstelHaakNeg=0.3
 	Set md.InstelHaakHP=0.5
+	
+	
 	d ##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.MetingOpslaan).%New("TZT1").OpslaanMeting(md)
 ]]></Implementation>
 </Method>
@@ -83,7 +79,7 @@
 	Set ..InstellenData=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New(..Werkpost).OphalenData(..MetingData.BarcodeID)
 	If $IsObject(..InstellenData)
 	{
-		d DumpObject^%apiOBJ(..InstellenData)
+		;d DumpObject^%apiOBJ(..InstellenData)
 	Set ..Meting=##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.Metingen).%New()
 	
 	Do ..CopierenBasisData()
@@ -137,12 +133,6 @@
 <Method name="CopierenInstelData">
 <Implementation><![CDATA[
 	Set ..Meting.InstelPlankDikte = ..MetingData.InstelPlankDikte
-	Set ..Meting.InstelHaak1In = ..MetingData.InstelHaak1In
-	Set ..Meting.InstelHaak1Uit = ..MetingData.InstelHaak1Uit
-	Set ..Meting.InstelHaak1NIn = ..MetingData.InstelHaak1NIn
-	Set ..Meting.InstelHaak1NUit = ..MetingData.InstelHaak1NUit
-	Set ..Meting.InstelHaak2In = ..MetingData.InstelHaak2In
-	Set ..Meting.InstelHaak2Uit = ..MetingData.InstelHaak2Uit
 	Set ..Meting.InstelLengtePos = ..MetingData.InstelLengtePos
 	Set ..Meting.InstelLengteNeg = ..MetingData.InstelLengteNeg
 	Set ..Meting.InstelHoogtePos = ..MetingData.InstelHoogtePos