Index: AX/Uitgaand/VKP/PrijsUitz/impl/PrijsUitzDixfConverter.cls.xml
===================================================================
diff -u -r46136 -r47131
--- AX/Uitgaand/VKP/PrijsUitz/impl/PrijsUitzDixfConverter.cls.xml	(.../PrijsUitzDixfConverter.cls.xml)	(revision 46136)
+++ AX/Uitgaand/VKP/PrijsUitz/impl/PrijsUitzDixfConverter.cls.xml	(.../PrijsUitzDixfConverter.cls.xml)	(revision 47131)
@@ -8,6 +8,14 @@
 <Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
 </Property>
 
+<Property name="PartijAPI">
+<Type>%RegisteredObject</Type>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>%RegisteredObject</Type>
+</Property>
+
 <Property name="LineNum">
 <Type>%String</Type>
 <Private>1</Private>
@@ -83,13 +91,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PrijzenInclBTW">
+<Type>%Boolean</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SoprConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Set ..PartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+ 	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -108,6 +123,7 @@
 	Set ..TotDatum=$LG(..lbData,8)
 	Set ..Query=$LG(..lbData,14)
 	Set ..KLNr=itPrijsUitz.GeefKLNr()
+	Do ..BepaalPrijzenInclBTW()
 	Set ..HoofdGroep=itPrijsUitz.GeefHoofdGroep()
 	Set ..Groep=itPrijsUitz.GeefGroep()
 	Set ..SubGroep=itPrijsUitz.GeefSubGroep()
@@ -154,11 +170,11 @@
 		Do ..ConvertHoofdGroepUitzondering()
 	}
 	
-	Set ..AxPrijsUitz.Opmerking=..AxPrijsUitz.Opmerking_"/"_..GeefCodexGroep()_"/"_..Korting1_"/"_..Korting2
+	Set ..AxPrijsUitz.Opmerking= $s(..PrijzenInclBTW:"PrijzenInclBTW/",1:"")_..AxPrijsUitz.Opmerking_"/"_..GeefCodexGroep()_"/"_..Korting1_"/"_..Korting2
 
 	Quit ..AxPrijsUitz
 	
- ; Set AxPrijsUitz.Active=""
+ /*; Set AxPrijsUitz.Active=""
  ; Set AxPrijsUitz.AllocateMarkup=""
  ; Set AxPrijsUitz.CalendarDays=""
   Set ..AxPrijsUitz.CodexSetupId=""
@@ -182,7 +198,7 @@
   ;Set ..AxPrijsUitz.SearchAgain=""
   Set ..AxPrijsUitz.ToDate=""
   Set ..AxPrijsUitz.ToQty=""
-  Set ..AxPrijsUitz.Opmerking=""
+  */
 ]]></Implementation>
 </Method>
 
@@ -262,8 +278,12 @@
 	{
 		Set PrijsRec=$$KLANTPR^KPRIJS(..KLNr,..PRNr)
 		Set NettoPrijs=+$piece(PrijsRec,"\",14)
+		If ..PrijzenInclBTW
+		{
+			Set NettoPrijs=+$J(NettoPrijs*1.21,0,2)
+		}
 		Set ..AxPrijsUitz.PriceCur=$$$ExcelNum(NettoPrijs*100)
-		Set ..AxPrijsUitz.PriceUnit="100STKS"
+		Set ..AxPrijsUitz.PriceUnit="100"
 		Set ..AxPrijsUitz.CodexSetupId=""
 		Set ..AxPrijsUitz.Percent1=""
 		Set ..AxPrijsUitz.Percent2=""
@@ -273,42 +293,47 @@
 	{
 		If +..Korting1=-0.1 ; Plus
 		{
-			Set ..AxPrijsUitz.CodexSetupId="BSL_PLUS"
+			Set ..AxPrijsUitz.CodexSetupId="BSL Cons"
 			Set ..AxPrijsUitz.Percent1=..Korting2
 		}
 		If +..Korting1=0.1 ; Rabat
 		{
-			Set ..AxPrijsUitz.CodexSetupId="BSL_RABAT"
+			Set ..AxPrijsUitz.CodexSetupId="BSL Rabat"
 			Set ..AxPrijsUitz.Percent1=$$$ExcelNum(..Korting2)
 		}
 		ElseIf +..Korting1=0.2 ; Spil 
 		{
-			Set ..AxPrijsUitz.CodexSetupId="BSL_SPIL"
+			Set ..AxPrijsUitz.CodexSetupId="BSL Spil"
 			Set ..AxPrijsUitz.Percent1=$$$ExcelNum(..Korting2)
 		}
 		ElseIf +..Korting1=0.3 ; Basis
 		{
-			Set ..AxPrijsUitz.CodexSetupId="BSL_BASIS"
+			Set ..AxPrijsUitz.CodexSetupId="BSL Basis"
 			Set ..AxPrijsUitz.Percent1=$$$ExcelNum(..Korting2)
 		}
 		ElseIf +..Korting1=0.4 ; Groot
 		{
-			Set ..AxPrijsUitz.CodexSetupId="BSL_GROOT"
+			Set ..AxPrijsUitz.CodexSetupId="BSL Groot"
 			Set ..AxPrijsUitz.Percent1=$$$ExcelNum(..Korting2)
 		}
 		Else
 		{
-			Set ..AxPrijsUitz.CodexSetupId="BSL_LIJST"
+			Set ..AxPrijsUitz.CodexSetupId="BSL Lijst"
 			Set ..AxPrijsUitz.Percent1=$$$ExcelNum(..Korting1)
 			Set ..AxPrijsUitz.Percent2=$$$ExcelNum(..Korting2)
 		}
 	}
 	Else
 	{
-		Set ..AxPrijsUitz.CodexSetupId=CodexGroep_"_LIJST"
-			Set ..AxPrijsUitz.Percent1=$$$ExcelNum(..Korting1)
-			Set ..AxPrijsUitz.Percent2=$$$ExcelNum(..Korting2)
+		Set ..AxPrijsUitz.CodexSetupId=CodexGroep_" Lijst"
+		Set ..AxPrijsUitz.Percent1=$$$ExcelNum(..Korting1)
+		Set ..AxPrijsUitz.Percent2=$$$ExcelNum(..Korting2)
 	}
+	
+	If (..AxPrijsUitz.CodexSetupId'="")&&..PrijzenInclBTW
+	{
+		Set ..AxPrijsUitz.CodexSetupId=..AxPrijsUitz.CodexSetupId_"+btw"
+	}
 ]]></Implementation>
 </Method>
 
@@ -353,19 +378,35 @@
 	{
 		Set CodexGroep="BSL"
 		Set:$$ISORGAL^PRODUKT2(..PRNr) CodexGroep="OL"
-		Set:$$ISTAORCUB^PRODUKT2(..PRNr) CodexGroep="TAC"
+		Set:$$ISTAORCUB^PRODUKT2(..PRNr) CodexGroep="TA"
 		Set:($$$ProductGet(..PRNr,$$$Hoofdgroep)["ZZ")&&($$$ProductGet(..PRNr,$$$Groep)["MAG") CodexGroep="MAG"
 	}
 	Else
 	{
 		Set CodexGroep="BSL"
 		Set:..HoofdGroep["OL" CodexGroep="OL"
-		Set:..HoofdGroep["TA" CodexGroep="TAC"
+		Set:..HoofdGroep["TA" CodexGroep="TA"
 		Set:(..HoofdGroep["ZZ")&&(..Groep["MAG") CodexGroep="MAG"
 	}
 	Quit CodexGroep
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalPrijzenInclBTW">
+<Implementation><![CDATA[
+ 
+	Set KlantID = ..PartijAPI.GeefKlantPartijID(..KLNr)
+ 	Set Klant = ..VerkoopAPI.GeefKlant(KlantID)
+ 	If Klant.GeefBusinessType() = ##class(DOM.VKP.enu.BusinessType).B2C()
+ 	{
+	 	Set ..PrijzenInclBTW=1
+	}
+ 	Else
+ 	{
+	 	Set ..PrijzenInclBTW=0
+	}
+]]></Implementation>
+</Method>
 </Class>