Index: AX/Uitgaand/PM/VerkoopPrijzen/impl/KATPrijzenExport.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/VerkoopPrijzen/impl/KATPrijzenExport.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/VerkoopPrijzen/impl/KATPrijzenExport.cls.xml	(revision 46277)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.VerkoopPrijzen.impl.KATPrijzenExport">
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="ExportAll">
+<Description>
+D ##class(AX.Uitgaand.PM.VerkoopPrijzen.impl.KATPrijzenExport).ExportAll()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	; Ophalen subgroepen waarin KAT producten zitten
+	Set PRNr=$O(^KPR(0))
+	While PRNr
+	{
+		If $L($TR($$$PRGet($$$KATPrijsHandel)," "))||$L($TR($$$PRGet($$$KATPrijsIndustrie)," "))
+		{
+			Set IsK43=$$$PRGet($$$KortTekst)["K43"
+			Set KATGroepen($$$PRGet($$$SubGroep),IsK43)=""
+		}
+		Set PRNr=$O(^KPR(PRNr))
+	}
+
+	Set Dev=$$OPEN^vhDEV(,"KATProducten.txt","W")
+	Use Dev
+	WRite "PRNr	KortTekst	SubGroep	K43	KatInd	KatHandel",!
+	Set PRNr=$O(^KPR(0))
+	While PRNr
+	{
+		Set IsK43=$$$PRGet($$$KortTekst)["K43"
+		If $$$PRGet($$$NONAktief)'=1
+		{
+			If $D(KATGroepen($$$PRGet($$$SubGroep),IsK43))&&($E($$$PRGet($$$IdentNummer))'=6)
+			{
+				Write PRNr,*9,$$$PRGet($$$KortTekst),*9,$$$PRGet($$$SubGroep),*9,$S(IsK43:"K43",1:""),*9,$TR($$$PRGet($$$KATPrijsIndustrie)," "),*9,$TR($$$PRGet($$$KATPrijsHandel)," "),!
+			}
+		}
+		Set PRNr=$O(^KPR(PRNr))
+	}
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/PrijsUitz/impl/PrijsUitzK43Aanmaken.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/PrijsUitz/impl/PrijsUitzK43Aanmaken.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/PrijsUitz/impl/PrijsUitzK43Aanmaken.cls.xml	(revision 46277)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.PrijsUitz.impl.PrijsUitzK43Aanmaken">
+<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="NoSa">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+D ##class(AX.Uitgaand.VKP.PrijsUitz.impl.PrijsUitzK43Aanmaken).%New().GenerateAll()</Description>
+<FormalSpec>NoSa:%Boolean="S"</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..NoSa=NoSa
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Set Dev=$$OPEN^vhDEV(,"K43 herrekening "_..NoSa_".txt","W")
+	Use Dev
+	Write "PRNr	KortTekst	LijstPrijs	SchadLijstPrijs	SchadKorting	VKPRijs	SchadVKPPrijs",!
+	Set PRNr=$O(^KPR(0))
+	While PRNr
+	{
+		If ($$$PRGet($$$KortTekst)["K43")&&($$$PRGet($$$LeveranciersNr)=$$$LevBlum)
+		{
+			Do ..Generate(PRNr) ;:PRNr=724481
+		}
+		Set PRNr=$O(^KPR(PRNr))
+	}
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>PRNr:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set PrijsRec=$$KLANTPR^KPRIJS($$$KlantDKGDeKeukenfabriek,PRNr)
+	Set VkpPrijs=+$P(PrijsRec,"\",14)
+	Set LijstPrijs=+$P(PrijsRec,"\",15)
+	If ..NoSa="N" {
+		Do $$$PRSet($$$DBPerc,60)
+		Do RECALC^PRODUKT2(PRNr)
+	} Else {
+		Do $$$PRSet($$$SchaduwDBPerc,60)
+	}
+	Set LijstSchaduwPrijsRec=$$KLANTPR^KPRIJS($$$KlantDKGDeKeukenfabriek,PRNr,..NoSa)
+	Set SchaduwLijstPrijs=+$P(LijstSchaduwPrijsRec,"\",15)
+	Set Korting=(SchaduwLijstPrijs-VkpPrijs)/SchaduwLijstPrijs*100
+	Set ^KLPUTZ(..NoSa,$$$KlantDKGDeKeukenfabriek,$$$PRGet($$$Hoofdgroep),$$$PRGet($$$Groep),$$$PRGet($$$SubGroep),PRNr,0)=Korting
+	Set ^KLPUTZ("I"_..NoSa,$$$PRGet($$$Hoofdgroep),$$$PRGet($$$Groep),$$$PRGet($$$SubGroep),PRNr,$$$KlantDKGDeKeukenfabriek)=""
+	Set SchaduwPrijsRec=$$KLANTPR^KPRIJS($$$KlantDKGDeKeukenfabriek,PRNr,..NoSa)
+	Write PRNr,*9,$$$PRGet($$$KortTekst)
+	Write *9,$$$ExcelNum(LijstPrijs),*9,$$$ExcelNum(SchaduwLijstPrijs),*9,$$$ExcelNum(Korting),*9,$$$ExcelNum(VkpPrijs),*9,$$$ExcelNum(+$P(SchaduwPrijsRec,"\",14))
+	Write !
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>