Index: BL/Flow/Offerte/pxHoofding.cls.xml
===================================================================
diff -u -r1695 -r1703
--- BL/Flow/Offerte/pxHoofding.cls.xml	(.../pxHoofding.cls.xml)	(revision 1695)
+++ BL/Flow/Offerte/pxHoofding.cls.xml	(.../pxHoofding.cls.xml)	(revision 1703)
@@ -70,6 +70,11 @@
 <Parameter name="XMLNAME" value="ORDERREF"/>
 </Property>
 
+<Property name="OrderEDIRef">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ORDEREDIREF"/>
+</Property>
+
 <Property name="OrderCommRef">
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="ORDERCOMMREF"/>
@@ -89,11 +94,6 @@
 <Parameter name="XMLPROJECTION" value="COLLECTION"/>
 </Property>
 
-<Property name="OrderEDIRef">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="ORDEREDIREF"/>
-</Property>
-
 <Property name="EtiketKlantNaam">
 <Description>
 De naam van de klant zal op het (Orgalux product-)etiket afgedrukt worden 
@@ -110,6 +110,236 @@
 <Parameter name="XMLNAME" value="BUYERCITY"/>
 </Property>
 
+<Method name="CreateXMLSchema">
+<Description>
+TestMethod  Create XMLSchema for EDI
+Oproepen via 
+  s sc=##class(BL.Flow.Offerte.pxHoofding).CreateXMLSchema()   w sc,!</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set FileName="EDI_Order_Schema.xml"
+	Set FilePathTest="\\Notes01\Shared\P V\"
+	Set FilePath=##class(%File).NormalizeDirectory(FilePathTest)_FileName
+	Set TopTag="EDI_ORDER_VH"
+	
+	// Create Stream + assign FileName 
+	Set FileStream=##class(%FileCharacterStream).%New()
+	Set sc=FileStream.LinkToFile(FilePath)
+	Quit:($$$ISERR(sc)) sc
+	Set sc=$$ProxyToXMLStream^vhLib("XMLSCHEMA:BL.Flow.Offerte.pxHoofding",.FileStream, .TopTag)
+	Quit:($$$ISERR(sc)) sc
+	Set sc=FileStream.SaveStream()
+	
+	// Close object instances
+	Do FileStream.%Close()
+	Set FileStream=""
+	Quit sc
+]]></Implementation>
+</Method>
+
+<Method name="FillAssentiBeslag">
+<Description>
+d ##class(BL.Flow.Offerte.pxHoofding).FillAssentiBeslag()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+
+	Set oH=##class(BL.Flow.Offerte.pxHoofding).%New()
+	Set oH.DocType="Bestelling"
+	Set oH.DocFrom="isolde@assenti.be"
+	Set oH.DocVerwerker="Isolde Depelseneer"
+	Set oH.OrderRef="Bestelling Tim"
+	Set oH.OrderEDIRef="IO09002331"
+	Set oH.OrderDatum="11.12.2009"
+	
+	Set oA=##class(BL.Flow.Offerte.pxAdres).%New()
+	Set oA.Naam="Assenti NV"
+	Set oA.Naam2=""
+	Set oA.StraatNrBus="Schuurhovenveld 3220"
+	Set oA.Woonplaats="Sint-Truiden"
+	Set oA.PostNummer="3800"
+	Set oA.Land="B"
+	Set oH.LevAdres=oA
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=1
+	Set oP.LijnRef="001"
+	Set oP.Aantal=25
+	Set oP.Prijs=""
+	Set oP.GrootteOrde="0"
+	Set oP.TotaalPrijs=""
+	Set oP.LeverDatum="11.12.2009"
+	Set oP.KlantProdRef="ZRG346VIC.CR"
+	Set oP.ProdBeschrijving="Verstelbare reling 400mm chroo"
+	Set oP.ProdRef="ZRG400VICRELWA V Reling 400"
+	Do oH.Lijnen.SetAt(oP,1)
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=2
+	Set oP.LijnRef="002"
+	Set oP.Aantal=40
+	Set oP.Prijs=""
+	Set oP.GrootteOrde="S"
+	Set oP.TotaalPrijs=""
+	Set oP.LeverDatum="11.12.2009"
+	Set oP.KlantProdRef="358M2702SLIWA/G"
+	Set oP.ProdRef="358M270LIWA/G TB + Ladezij 270"
+	Set oP.ProdBeschrijving="TB + Ladezijkant links 270"
+	Do oH.Lijnen.SetAt(oP,2)
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=3
+	Set oP.LijnRef="003"
+	Set oP.Aantal=40
+	Set oP.Prijs=0
+	Set oP.GrootteOrde="S"
+	Set oP.TotaalPrijs=0
+	Set oP.LeverDatum="11.12.2009"
+	Set oP.KlantProdRef="358M2702SREWA/G"
+	Set oP.ProdRef="358M270REWA/G TB + Ladezij 270"
+	Set oP.ProdBeschrijving="TB + Ladezijkant rechts 270"
+	Do oH.Lijnen.SetAt(oP,3)
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=4
+	Set oP.LijnRef="004"
+	Set oP.Aantal=500
+	Set oP.Prijs=0
+	Set oP.GrootteOrde="H"
+	Set oP.TotaalPrijs=0
+	Set oP.LeverDatum="11.12.2009"
+	Set oP.KlantProdRef="75T1590B"
+	Set oP.ProdRef="74T1590BMBV250NI Scharnier 107"
+	Set oP.ProdBeschrijving="Scharnier clip top 107'Inserta"
+	Do oP.TextAfter.Insert("1ste lijn vrije tekst ivm met het product")
+	Do oP.TextAfter.Insert("2de lijn vrije tekst ivm met het product")
+	Do oH.Lijnen.SetAt(oP,4)
+	
+	
+	 set writer=##class(%XML.Writer).%New()
+	 set writer.Charset="UTF-8"
+	 set writer.Indent=1
+	 set sc=writer.OutputToFile("\\notes01\shared\p v\OrdersAssentiBeslag.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(oH)
+	 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="FillAssentiLaden">
+<Description>
+d ##class(BL.Flow.Offerte.pxHoofding).FillAssentiLaden()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+
+	Set oH=##class(BL.Flow.Offerte.pxHoofding).%New()
+	Set oH.DocType="Bestelling"
+	Set oH.DocFrom="Brecht@assenti.be"
+	Set oH.DocVerwerker="Brecht Vanherle"
+	Set oH.OrderRef="Bestelling Laden AO071209"
+	Set oH.OrderEDIRef="IO09002320"
+	Set oH.OrderDatum="08.12.2009"
+	
+	Set oA=##class(BL.Flow.Offerte.pxAdres).%New()
+	Set oA.Naam="Assenti NV"
+	Set oA.Naam2=""
+	Set oA.StraatNrBus="Schuurhovenveld 3220"
+	Set oA.Woonplaats="Sint-Truiden"
+	Set oA.PostNummer="3800"
+	Set oA.Land="B"
+	Set oH.LevAdres=oA
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=1
+	Set oP.LijnRef="001"
+	Set oP.Aantal=2
+	Set oP.Prijs=""
+	Set oP.GrootteOrde="0"
+	Set oP.TotaalPrijs=""
+	Set oP.LeverDatum="09.12.2009"
+	Set oP.KlantProdRef="TB8GB09030300B"
+	Set oP.ProdBeschrijving="Tandembox 903 x 300 B"
+	Set oP.ProdRef="Tandembox 903 x 300 B"
+	Set oP.TBXLade=##class(pxTBXLadeCustomer).CreateFromProduct(448701)
+	Do oP.TextAfter.Insert("Gelieve zo snel mogelijk te leveren")
+	Do oH.Lijnen.SetAt(oP,1)
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=2
+	Set oP.LijnRef="002"
+	Set oP.Aantal=2
+	Set oP.Prijs=""
+	Set oP.GrootteOrde="S"
+	Set oP.TotaalPrijs=""
+	Set oP.LeverDatum="09.12.2009"
+	Set oP.KlantProdRef="777AS ARTIKLE01"
+	Set oP.ProdBeschrijving="Type M TB8GM09030300M"
+	Set oP.TBXLade=##class(pxTBXLadeCustomer).CreateFromProduct(499485)
+	Do oP.TextAfter.Insert("Gelieve zo snel mogelijk te leveren")
+	Do oH.Lijnen.SetAt(oP,2)
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=3
+	Set oP.LijnRef="003"
+	Set oP.Aantal=1
+	Set oP.Prijs=0
+	Set oP.GrootteOrde="S"
+	Set oP.TotaalPrijs=0
+	Set oP.LeverDatum="09.12.2009"
+	Set oP.KlantProdRef="777AS ARTIKEL01"
+	Set oP.ProdBeschrijving="Type D TB8GD09130400D"
+	Set oP.TBXLade=##class(pxTBXLadeCustomer).CreateFromProduct(247030)
+	Do oP.TextAfter.Insert("Gelieve zo snel mogelijk te leveren")
+	Do oH.Lijnen.SetAt(oP,3)
+
+	Set oP=##class(BL.Flow.Offerte.pxLijn).%New()
+	Set oP.LijnType="P"
+	Set oP.LijnPos=4
+	Set oP.LijnRef="004"
+	Set oP.Aantal=1
+	Set oP.Prijs=0
+	Set oP.GrootteOrde="H"
+	Set oP.TotaalPrijs=0
+	Set oP.LeverDatum="09.12.2009"
+	Set oP.KlantProdRef="TB8GS09130350MM"
+	Set oP.ProdRef="Tandembox 913 x 350 MM"
+	Set oP.ProdBeschrijving="Tandembox 913 x 350 MM"
+	Set oP.TBXLade=##class(pxTBXLadeCustomer).CreateFromProduct(517784) ; zou 246941 moeten zijn maar toen bestond sifon lade nog niet)
+	Do oP.TextAfter.Insert("Gelieve zo snel mogelijk te leveren")
+	Do oH.Lijnen.SetAt(oP,4)
+	
+	
+	 set writer=##class(%XML.Writer).%New()
+	 set writer.Charset="UTF-8"
+	 set writer.Indent=1
+	 set sc=writer.OutputToFile("\\notes01\shared\p v\OrdersAssentiLaden.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(oH)
+	 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="Fill">
 <Description>
 d ##class(BL.Flow.Offerte.pxHoofding).Fill()</Description>
@@ -185,7 +415,7 @@
 	
 	 set writer=##class(%XML.Writer).%New()
 	 set writer.Charset="UTF-8"
-	 set sc=writer.OutputToFile("\\notes01\shared\p v e\Orders.xml")
+	 set sc=writer.OutputToFile("\\notes01\shared\p v\Orders.xml")
 	 If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit
 	 s sc=writer.RootElement("ORDERS")
 	 If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit