Index: APPS/VKP/Intrastat/impl/MaandStatistiek.cls.xml
===================================================================
diff -u
--- APPS/VKP/Intrastat/impl/MaandStatistiek.cls.xml	(revision 0)
+++ APPS/VKP/Intrastat/impl/MaandStatistiek.cls.xml	(revision 59110)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Intrastat.impl.MaandStatistiek">
+<Description>
+Data verwerking - Order, Fakturen, Historiek, ProductRef</Description>
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="KLNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="Maand">
+<Type>%Date</Type>
+</Property>
+
+<Property name="Cache">
+<Description>
+node in ..Cache is listbuild met volgende elemente
+GN8Code, Omschrijving, Gewicht, Aantal, Waarde(omzet)
+waarbij aantal optioneel is</Description>
+<Type>%List</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+S bl=##class(APPS.VKP.Intrastat.impl.MaandStatistiek).%New(2671) d bl.OphalenData(),bl.Export2File()</Description>
+<FormalSpec>KLNr:%String,Maand:%Date=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KLNr=KLNr
+	Set ..Maand=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"FD")
+	Set:Maand'="" ..Maand=Maand
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OphalenData">
+<Implementation><![CDATA[
+	Set ExtMaand=$$EXTDATE^vhLib.DataTypes(..Maand,"DM4")_" "
+	Kill ..Cache
+	Set PRNr=0
+	For  {
+		Set PRNr=$O(^KSTKL(..KLNr,PRNr))
+		Quit:PRNr="" 
+		Continue:'$D(^KPR(PRNr))
+		Set StatNr=$$$PRGet($$$Statistieknummer)_" "
+		Continue:'$D(^INTRAST(2,StatNr))
+		Set R=$G(^KSTKL(..KLNr,PRNr,ExtMaand))
+		Continue:R=""
+		Set Aantal=$P(R,"\",1),Waarde=$P(R,"\",3)
+		Continue:Aantal'>0  
+		
+		;Key
+		Set StatRec=^INTRAST(2,StatNr)
+		Set SortKey=$P(StatRec,"\",1)_" "_$P(StatRec,"\",3)
+		Set:'$D(..Cache(SortKey)) ..Cache(SortKey)=$LB($P(StatRec,"\",1),$P(StatRec,"\",2))
+		
+		Set Gewicht=$$$PRGet($$$Gewicht)*Aantal/1000
+		Set lb=..Cache(SortKey)
+		Set $LI(lb,3)=$LG(lb,3)+Gewicht
+		Set:$P(StatRec,"\",3) $LI(lb,4)=$LG(lb,4)+Aantal ; Aanvullende eenheid
+		Set $LI(lb,5)=$LG(lb,5)+Waarde
+		Set ..Cache(SortKey)=lb
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WriteIntrastat">
+<Implementation><![CDATA[
+	Do ..WriteHeader()
+	Set SortKey=""
+	For {
+		Set SortKey=$O(..Cache(SortKey))
+	 	Quit:SortKey=""
+		Do ..WriteLine(..Cache(SortKey))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WriteHeader">
+<Implementation><![CDATA[
+	Write "GN8Code	Omschrijving	Gewicht	Aantal	Waarde"
+	Write !
+]]></Implementation>
+</Method>
+
+<Method name="WriteLine">
+<FormalSpec>lbData:%List</FormalSpec>
+<Implementation><![CDATA[
+	Write $LI(lbData,1)
+	Write *9,$LI(lbData,2)
+	Write *9,$$$ExcelNum(+$J($LI(lbData,3),0,2))
+	Write *9,$LG(lbData,4)
+	Write *9,$$$ExcelNum(+$J($LI(lbData,5),0,2))
+	Write !
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Intrastat/impl/ZendNaarKlant.cls.xml
===================================================================
diff -u
--- APPS/VKP/Intrastat/impl/ZendNaarKlant.cls.xml	(revision 0)
+++ APPS/VKP/Intrastat/impl/ZendNaarKlant.cls.xml	(revision 59110)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Intrastat.impl.ZendNaarKlant">
+<Description>
+Data verwerking - Order, Fakturen, Historiek, ProductRef</Description>
+<ClassType/>
+<IncludeCode>BL.EC.Common,Prod.Product,BL.Derde.Kennis</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="Maand">
+<Type>%Date</Type>
+</Property>
+
+<Property name="IntrastatOphaler">
+<Type>APPS.VKP.Intrastat.impl.MaandStatistiek</Type>
+</Property>
+
+<Property name="Cache">
+<Description>
+node in ..Cache is listbuild met volgende elemente
+GN8Code, Omschrijving, Gewicht, Aantal, Waarde(omzet)
+waarbij aantal optioneel is</Description>
+<Type>%List</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.VKP.Intrastat.impl.ZendNaarKlant).%New().ZendAll()</Description>
+<FormalSpec>Maand:%Date=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Maand=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"FD")
+	Set:Maand'="" ..Maand=Maand
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZendAll">
+<Implementation><![CDATA[	Do ..ZendNaarKlant(2671,"michel.mulder@hafele.nl")
+]]></Implementation>
+</Method>
+
+<Method name="ZendNaarKlant">
+<FormalSpec>KLNr:%String,EmailAdres:%String</FormalSpec>
+<Implementation><![CDATA[
+	;Set EmailAdres="pv@vanhoecke.be"
+	Set FilePad=..MaakFile(KLNr)
+	#dim From As %String = "nbr@vanhoecke.be"
+	#dim To As %String = $listbuild(EmailAdres)
+	
+	#dim lbAttachments As %List = $listbuild($listbuild(FilePad))
+	Do SendMiniMail^vhLib.Mail(From,To,"Intrastat "_$$EXTDATE^vhLib.DataTypes(..Maand,"DM4"),"",,,,,lbAttachments)
+	Do ##class(TECH.File).Delete(FilePad)
+]]></Implementation>
+</Method>
+
+<Method name="MaakFile">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	S bl=##class(APPS.VKP.Intrastat.impl.MaandStatistiek).%New(KLNr,..Maand) 
+	Do bl.OphalenData()
+	
+	Set Pad="c:\scratch\"
+	Set FileNaam="Intrastat "_KLNr_" "_$$EXTDATE^vhLib.DataTypes(..Maand,"DM4")_".txt"
+	Set File=Pad_FileNaam
+	Open File:"WSN"
+	Use File
+
+	Do bl.WriteIntrastat()	
+
+	Close File
+	Quit File
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>