Index: APPS/OV/dto/EDIOrderBevestigingLijn.cls.xml
===================================================================
diff -u
--- APPS/OV/dto/EDIOrderBevestigingLijn.cls.xml	(revision 0)
+++ APPS/OV/dto/EDIOrderBevestigingLijn.cls.xml	(revision 1698)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.OV.dto.EDIOrderBevestigingLijn">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="XMLNAME">
+<Default>OrderLine</Default>
+</Parameter>
+
+<Property name="KlantOrderlijnNummer">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="id"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="IdentNummer">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ProductIdentification"/>
+</Property>
+
+<Property name="KlantProductRef">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ProductReference"/>
+</Property>
+
+<Property name="Korttekst">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ProductShortDescription"/>
+</Property>
+
+<Property name="Aantal">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ConfirmedQuantity"/>
+</Property>
+
+<Property name="AantalEenheid">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="QuantityUnit"/>
+</Property>
+
+<Property name="LeverdatumBeloofd">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ConfirmedDeliveryDate"/>
+</Property>
+
+<Property name="EPrijsNetto">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="UnitPrice"/>
+</Property>
+
+<Property name="TotPrijsNetto">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="TotalPrice"/>
+</Property>
+
+<Property name="EGrootteOrde">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="PriceUnit"/>
+</Property>
+</Class>
+</Export>
Index: APPS/OV/dto/EDIOrderBevestiging.cls.xml
===================================================================
diff -u
--- APPS/OV/dto/EDIOrderBevestiging.cls.xml	(revision 0)
+++ APPS/OV/dto/EDIOrderBevestiging.cls.xml	(revision 1698)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.OV.dto.EDIOrderBevestiging">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="XMLNAME">
+<Default>OrderConfirmation</Default>
+</Parameter>
+
+<Property name="EDINr">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="EDINr"/>
+</Property>
+
+<Property name="OrderRef">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="OrderReference"/>
+</Property>
+
+<Property name="OrderNummer">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="VHOrderNumber"/>
+</Property>
+
+<Property name="Munt">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="Currency"/>
+</Property>
+
+<Property name="TotalePrijsNetto">
+<Description>
+Netto of Bruto ??? </Description>
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="TotalPrice"/>
+</Property>
+
+<Property name="Orderlijnen">
+<Type>APPS.OV.dto.EDIOrderBevestigingLijn</Type>
+<Collection>list</Collection>
+<Parameter name="XMLITEMNAME" value="OrderLine"/>
+<Parameter name="XMLNAME" value="OrderLines"/>
+</Property>
+</Class>
+</Export>
Index: BL/Flow/Proxy/pxOrder.cls.xml
===================================================================
diff -u -r1074 -r1698
--- BL/Flow/Proxy/pxOrder.cls.xml	(.../pxOrder.cls.xml)	(revision 1074)
+++ BL/Flow/Proxy/pxOrder.cls.xml	(.../pxOrder.cls.xml)	(revision 1698)
@@ -112,6 +112,14 @@
 <Type>BL.Flow.Proxy.pxPPODfields</Type>
 </Property>
 
+<Property name="TotalePrijsNetto">
+<Description>
+Specifiek voor EDI-bestellingen (als eerste gebruikt door SFS) 
+ Opmerking van WimV : deze propt wordt (nog) niet ingevuld, want het ordertotaal wordt in een manuele lijn berekend (raadpleeg PV)</Description>
+<Type>%String</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
 <Method name="Create">
 <Description>
 Aanmaken van een Order-proxy object</Description>
Index: WV GAProduct WWW.prj.xml
===================================================================
diff -u -r1626 -r1698
--- WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 1626)
+++ WV GAProduct WWW.prj.xml	(.../WV GAProduct WWW.prj.xml)	(revision 1698)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV GAProduct WWW" LastModified="2011-06-30 16:47:21" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
+<Project name="WV GAProduct WWW" LastModified="2011-07-15 14:18:58" Target="ophSendAlertMail^csp" TargetType="2" HttpServer="http://192.168.1.67:1972">
   <Items>
     <ProjectItem name="/csp/httplog/DLGqueryVH.csp" type="CSP"/>
     <ProjectItem name="/csp/httplog/queryVH.csp" type="CSP"/>
@@ -32,6 +32,8 @@
     <ProjectItem name="/vhisie/TBX/WizPData.csp" type="CSP"/>
     <ProjectItem name="/vhisie/TBX/Wizard.csp" type="CSP"/>
     <ProjectItem name="APPS.OV.OrderAanvraagChecker" type="CLS"/>
+    <ProjectItem name="APPS.OV.dto.EDIOrderBevestiging" type="CLS"/>
+    <ProjectItem name="APPS.OV.dto.EDIOrderBevestigingLijn" type="CLS"/>
     <ProjectItem name="APPS.TBXWeb.Actie" type="CLS"/>
     <ProjectItem name="APPS.TBXWeb.DomeinNamen.INC" type="MAC"/>
     <ProjectItem name="APPS.TBXWeb.EMailAdressen.INC" type="MAC"/>
@@ -42,6 +44,7 @@
     <ProjectItem name="APPS.TBXWeb.impl.ActieSFSCorpusProfielen" type="CLS"/>
     <ProjectItem name="BL.Flow.Offerte.LijnProductGA" type="CLS"/>
     <ProjectItem name="BL.Flow.Offerte.ProductGAData" type="CLS"/>
+    <ProjectItem name="BL.Flow.Proxy.pxProductLijn" type="CLS"/>
     <ProjectItem name="BL.PR.GA.TB.tmpDev.MAC" type="MAC"/>
     <ProjectItem name="BL.PR.GA.TB.tmpDev2.MAC" type="MAC"/>
     <ProjectItem name="BL.PR.GA.TandemBox" type="CLS"/>
@@ -176,6 +179,7 @@
     <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestActies" type="CLS"/>
     <ProjectItem name="vhisie/TBX/TestDataOptHFLB.csp" type="CSP"/>
     <ProjectItem name="wv.tmpDev3.MAC" type="MAC"/>
+    <ProjectItem name="zTryout.WV.APPS.OV.OrderBevestigingSFS" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: zTryout/WV/APPS/OV/OrderBevestigingSFS.cls.xml
===================================================================
diff -u
--- zTryout/WV/APPS/OV/OrderBevestigingSFS.cls.xml	(revision 0)
+++ zTryout/WV/APPS/OV/OrderBevestigingSFS.cls.xml	(revision 1698)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.WV.APPS.OV.OrderBevestigingSFS">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="MaakEDIOrderBevestigingStream">
+<Description>
+Oproepen via :
+  s dto=##class(zTryout.WV.APPS.OV.OrderBevestigingSFS).MaakEDIOrderBevestigingStream(ORDNr,1)  w dto,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ORDNr,blnIndentTags:%Boolean=0</FormalSpec>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	Set OrderBevestiging=..MaakEDIOrderBevestigingXML(ORDNr)
+	
+	Set Stream=##class(%FileBinaryStream).%New()
+	Set AllowEmptyProxy=0
+	Set NoXMLDeclaration=0
+	Set sc=$$ProxyToXMLStream^vhLib(OrderBevestiging, .Stream, .TopTag, blnIndentTags, AllowEmptyProxy, NoXMLDeclaration)
+	Quit:($$$ISERR(sc)) ""   ; Throw Error / Log Error / Send Mail  ??? 
+	Quit Stream
+]]></Implementation>
+</Method>
+
+<Method name="MaakEDIOrderBevestigingXML">
+<Description>
+Oproepen via :
+  s dto=##class(zTryout.WV.APPS.OV.OrderBevestigingSFS).MaakEDIOrderBevestigingXML(ORDNr)  w dto,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ORDNr</FormalSpec>
+<ReturnType>APPS.OV.dto.EDIOrderBevestiging</ReturnType>
+<Implementation><![CDATA[
+	Set OrderBevestiging=""
+	
+	Set ErrorMsg=""
+	Set pxFlowOrder=##class(BL.Flow.Proxy.pxOrder).Create(ORDNr, "","", .sc)
+	If $$$ISERR(sc) {
+		Set ErrorMsg="Fout bij het creëren van het BL.Flow.Proxy.pxOrder object (voor ORDNr="_ORDNr_") : "_$$ParseStatus^vhLib(sc)
+	}
+	ElseIf '$IsObject(pxFlowOrder) {
+		Set ErrorMsg="Geen BL.Flow.Proxy.pxOrder object gemaakt voor ORDNr="_ORDNr_"."
+	}
+	Else {
+		Set OrderBevestiging=..MaakOrderBevestigingDto(pxFlowOrder)
+	}
+	
+	If $L(ErrorMsg) {
+		Write ErrorMsg,!
+		; Add To ErrorLog :  ErrorMsg 
+		; Send Mail ... 
+	}
+	
+	Quit OrderBevestiging
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderBevestigingDto">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>pxFlowOrder:BL.Flow.Proxy.pxOrder</FormalSpec>
+<ReturnType>APPS.OV.dto.EDIOrderBevestiging</ReturnType>
+<Implementation><![CDATA[
+	Set OrderBevestiging=##class(APPS.OV.dto.EDIOrderBevestiging).%New()
+
+	Set OrderBevestiging.EDINr=pxFlowOrder.KLORDREF
+	Set OrderBevestiging.OrderRef=pxFlowOrder.ORDERREF
+	Set OrderBevestiging.OrderNummer=pxFlowOrder.ORDERNR
+	Set OrderBevestiging.Munt=pxFlowOrder.MUNT
+	Set OrderBevestiging.TotalePrijsNetto=..GeefTotalePrijsNetto(pxFlowOrder)
+	
+	Set FlowLijnIterator=##class(TECH.ListIterator).%New(pxFlowOrder.LIJNEN)
+	While FlowLijnIterator.HasNext() {
+		Set pxFlowLijn=FlowLijnIterator.Next()
+		If pxFlowLijn.%Extends("BL.Flow.Proxy.pxProductLijn") {
+			Set Lijn=##class(APPS.OV.dto.EDIOrderBevestigingLijn).%New()
+			Set Lijn.KlantOrderlijnNummer=$P(pxFlowLijn.KlantOrderlijnNummer,".",1)
+			Set Lijn.IdentNummer=pxFlowLijn.PRODUCT.IDENTNR
+			Set Lijn.KlantProductRef=pxFlowLijn.KLANTREF
+			Set Lijn.Korttekst=pxFlowLijn.PRODUCT.KORTTEKST
+			
+			Set Lijn.Aantal=pxFlowLijn.AANTAL
+			Set Lijn.AantalEenheid=pxFlowLijn.AantalEenheid
+			Set Lijn.LeverdatumBeloofd=pxFlowLijn.LEVERWEEK
+			Set Lijn.EPrijsNetto=pxFlowLijn.EPRIJSNETTO
+			Set Lijn.TotPrijsNetto=pxFlowLijn.TOTPRIJSNETTO
+			Set Lijn.EGrootteOrde=pxFlowLijn.EGROOTTEORDE
+			
+			Do OrderBevestiging.Orderlijnen.Insert(Lijn)
+		}
+		ElseIf pxFlowLijn.%Extends("BL.Flow.Proxy.pxProductLijn") {
+			; Hier kan je eventueel de TotalePrijsNetto uit halen
+		}
+	}
+	
+	Quit OrderBevestiging
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotalePrijsNetto">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>pxFlowOrder:BL.Flow.Proxy.pxOrder</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	; Laatste manuele lijn bevat het Totaalbedrag van het order 
+	; ... 
+	
+	Quit "9999.99"
+]]></Implementation>
+</Method>
+</Class>
+</Export>