Index: zTryout/FM/SFS/EDITest.cls.xml
===================================================================
diff -u
--- zTryout/FM/SFS/EDITest.cls.xml	(revision 0)
+++ zTryout/FM/SFS/EDITest.cls.xml	(revision 1960)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.FM.SFS.EDITest">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="MaakOfferte">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Flow.Offerte.pxHoofding</ReturnType>
+<Implementation><![CDATA[
+	
+	Set oH=##class(BL.Flow.Offerte.pxHoofding).%New()
+	Set oH.DocType="Bestellung"
+	//Set oH.DocDate="DD.MM.YYY"		// Datumformaat om de datums te parsen, maar werkt helemaal niet
+	Set oH.DocFrom="boe.sfsunimarket.biz"
+	Set oH.DocVerwerker="Franz Boehrer"
+	Set oH.OrderRef="FMA1968824/022"
+	Set oH.OrderCommRef = "FMAComm1968824/022"
+	Set oH.OrderDatum="28.05.2011"
+	Set oH.KlantID = 12486
+	
+	Set oA=##class(BL.Flow.Offerte.pxAdres).%New()
+	Set oA.Naam="SFS unimarket AG"
+	Set oA.Naam2="Zentrale Logistik"
+	Set oA.StraatNrBus="Feldstrasse 36"
+	Set oA.Woonplaats="Rebstein"
+	Set oA.PostNummer="9445"
+	Set oA.Land="CH"
+	Set oH.LevAdres=oA		// Als je het hier niet invult, kan je kiezen net voor het importeren.
+								// Als je het hier wel invult, en het komt niet overeen met het standaard leveradres, wordt gevraagd welk je wil tijdens het importeren
+	
+	Set A = oA.%ConstructClone()
+	Set A.Persoon="Franz Boehrer 2"
+	Set oH.Klant=A
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=1
+	Set oP.LijnRef="FMA lijnref"
+	Set oP.Aantal=2
+	Set oP.Prijs="16,89"
+	Set oP.GrootteOrde="H"
+	//Set oP.TotaalPrijs="12,66"
+	Set oP.LeverDatum="31.05.2011"
+	Set oP.KlantProdRef="453635"
+	Set oP.ProdBeschrijving="Blum Tandembox Seitenelement Z37G440D"
+	Set oP.ProdRef="FMA prodref voor 453635"
+	Do oH.Lijnen.SetAt(oP,1)
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=7
+	Set oP.Aantal=1
+	Set oP.Prijs="18,74"
+	Set oP.GrootteOrde="H"
+	//Set oP.TotaalPrijs="1370,26"
+	Set oP.LeverDatum="31.05.2011"
+	Set oP.KlantProdRef="458137"
+	Set oP.ProdRef="FMA Prodref voor 458137"
+	Set oP.ProdBeschrijving="Blum Tandembox Frontelement"
+	Do oP.TextBefore.Insert("FMA text before")
+	Do oP.TextAfter.Insert("FMA text after")
+	Do oH.Lijnen.SetAt(oP,2)
+
+	Quit oH
+]]></Implementation>
+</Method>
+
+<Method name="WriteToFile">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Offerte:BL.Flow.Offerte.pxHoofding</FormalSpec>
+<Implementation><![CDATA[
+	 set writer=##class(%XML.Writer).%New()
+	 set writer.Charset="UTF-8"
+	 set sc=writer.OutputToFile("\\notes01\shared\f m a\SFSTestorderFMA.xml")
+	 If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit
+	 s sc=writer.RootElement("ORDERS")
+	 If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit
+	 set sc=writer.Object(Offerte)
+	 If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit
+	 s sc=writer.EndRootElement()
+	 If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit
+	 s string=writer.GetXMLString()
+
+	w string
+]]></Implementation>
+</Method>
+
+<Method name="WriteIt">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set pxOfferte = ..MaakOfferte()
+	Do ..WriteToFile(pxOfferte)
+	Set Proc = ##class(zTryout.FM.SFS.MyEDIProcessor).%New()
+	Set Proc.KLNr=12486
+	Set pxOffertes(1) = pxOfferte
+	Do Proc.ConvertProxy(.pxOffertes)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: zTryout/FM/SFS/MyEDIProcessor.cls.xml
===================================================================
diff -u
--- zTryout/FM/SFS/MyEDIProcessor.cls.xml	(revision 0)
+++ zTryout/FM/SFS/MyEDIProcessor.cls.xml	(revision 1960)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.FM.SFS.MyEDIProcessor">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>BL.Flow.Offerte.ScanEDIMail</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Mail2OrderVerwerking">
+<FormalSpec>Lijst:%ListOfDataTypes</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	$$$InitOldLocals
+	New KLNr,Titel,Body,Link
+	Set Titel="Import EDI "_..KLNr
+	Set Body(1)="~Aantal orders: "_Lijst.Size
+	Set Link=1
+	Set Link(1)="KL\"_..KLNr_"\R"
+	Set EMailGroep="fma"
+	//Set MailId=$$SYSTEM^vhMAIL("KL",..KLNr,Titel,EMailGroep,.Body,.Link,"U")
+	Write Titel, !, Body(1), !, Link(1), !
+]]></Implementation>
+</Method>
+</Class>
+</Export>