Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml
===================================================================
diff -u
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(revision 0)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(revision 31833)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.PrijsBerekening.impl.PrijsBerekeningService">
+<Super>TECH.RegisteredObject,APPS.EDI.PrijsBerekening.PrijsBerekeningService</Super>
+
+<Method name="GeefPrijs">
+<FormalSpec>EDIAanvraag:APPS.EDI.PrijsBerekening.dto.Aanvraag</FormalSpec>
+<ReturnType>APPS.EDI.PrijsBerekening.dto.Resultaat</ReturnType>
+<Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.EDI.PrijsBerekening.dto.Resultaat).%New()
+	Set Resultaat.KostPrijs = 99.99 * EDIAanvraag.Aantal
+	Quit Resultaat
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EXT/ResponseVerwerker.cls.xml
===================================================================
diff -u
--- EXT/ResponseVerwerker.cls.xml	(revision 0)
+++ EXT/ResponseVerwerker.cls.xml	(revision 31833)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.ResponseVerwerker">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="Verwerk">
+<Abstract>1</Abstract>
+<FormalSpec>EDIResultaat:APPS.EDI.Resultaat</FormalSpec>
+<ReturnType>EXT.Response</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: EXT/Response.cls.xml
===================================================================
diff -u
--- EXT/Response.cls.xml	(revision 0)
+++ EXT/Response.cls.xml	(revision 31833)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Response">
+<Abstract>1</Abstract>
+</Class>
+
+
+</Export>
Index: EXT/Optima/CalculPrix/dto/Response.cls.xml
===================================================================
diff -u
--- EXT/Optima/CalculPrix/dto/Response.cls.xml	(revision 0)
+++ EXT/Optima/CalculPrix/dto/Response.cls.xml	(revision 31833)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Optima.CalculPrix.dto.Response">
+<Super>TECH.RegisteredObject,EXT.Response</Super>
+
+<Property name="KostPrijs">
+<Type>%Numeric</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/EDI/PrijsBerekening/dto/Resultaat.cls.xml
===================================================================
diff -u
--- APPS/EDI/PrijsBerekening/dto/Resultaat.cls.xml	(revision 0)
+++ APPS/EDI/PrijsBerekening/dto/Resultaat.cls.xml	(revision 31833)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.PrijsBerekening.dto.Resultaat">
+<Super>APPS.EDI.Resultaat</Super>
+
+<Property name="KostPrijs">
+<Type>%Numeric</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/EDI/Resultaat.cls.xml
===================================================================
diff -u
--- APPS/EDI/Resultaat.cls.xml	(revision 0)
+++ APPS/EDI/Resultaat.cls.xml	(revision 31833)
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Resultaat">
+<Abstract>1</Abstract>
+<Super>TECH.DataTransferObject</Super>
+</Class>
+
+
+</Export>
Index: APPS/EDI/Aanvraag.cls.xml
===================================================================
diff -u
--- APPS/EDI/Aanvraag.cls.xml	(revision 0)
+++ APPS/EDI/Aanvraag.cls.xml	(revision 31833)
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Aanvraag">
+<Abstract>1</Abstract>
+<Super>TECH.DataTransferObject</Super>
+</Class>
+
+
+</Export>
Index: APPS/EDI/PrijsBerekening/PrijsBerekeningService.cls.xml
===================================================================
diff -u
--- APPS/EDI/PrijsBerekening/PrijsBerekeningService.cls.xml	(revision 0)
+++ APPS/EDI/PrijsBerekening/PrijsBerekeningService.cls.xml	(revision 31833)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.PrijsBerekening.PrijsBerekeningService">
+<Abstract>1</Abstract>
+<Super>APPS.EDI.Service</Super>
+
+<Method name="GeefPrijs">
+<Description>
+EDIAanvraag bevat : IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken, Klant As DOM.VKP.KlantID, Personality As DOM.common.enu.Personality</Description>
+<FormalSpec>EDIAanvraag:APPS.EDI.Aanvraag</FormalSpec>
+<ReturnType>APPS.EDI.Resultaat</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDI/Service.cls.xml
===================================================================
diff -u
--- APPS/EDI/Service.cls.xml	(revision 0)
+++ APPS/EDI/Service.cls.xml	(revision 31833)
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Service">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+</Class>
+
+
+</Export>
Index: EXT/Optima/CalculPrix/ServiceWeb.cls.xml
===================================================================
diff -u
--- EXT/Optima/CalculPrix/ServiceWeb.cls.xml	(revision 0)
+++ EXT/Optima/CalculPrix/ServiceWeb.cls.xml	(revision 31833)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Optima.CalculPrix.ServiceWeb">
+<Super>vhLib.WebService</Super>
+
+<Method name="PeekServer">
+<WebMethod>1</WebMethod>
+</Method>
+</Class>
+
+
+</Export>
Index: EXT/Request.cls.xml
===================================================================
diff -u
--- EXT/Request.cls.xml	(revision 0)
+++ EXT/Request.cls.xml	(revision 31833)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Request">
+<Abstract>1</Abstract>
+</Class>
+
+
+</Export>
Index: EXT/Optima/CalculPrix/dto/Request.cls.xml
===================================================================
diff -u
--- EXT/Optima/CalculPrix/dto/Request.cls.xml	(revision 0)
+++ EXT/Optima/CalculPrix/dto/Request.cls.xml	(revision 31833)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Optima.CalculPrix.dto.Request">
+<Super>TECH.RegisteredObject,EXT.Request</Super>
+
+<Property name="Aantal">
+<Type>%Numeric</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: EXT/RequestVerwerker.cls.xml
===================================================================
diff -u
--- EXT/RequestVerwerker.cls.xml	(revision 0)
+++ EXT/RequestVerwerker.cls.xml	(revision 31833)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.RequestVerwerker">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="Verwerk">
+<Abstract>1</Abstract>
+<FormalSpec>Request:EXT.Request</FormalSpec>
+<ReturnType>APPS.EDI.Aanvraag</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDI/PrijsBerekening/dto/Aanvraag.cls.xml
===================================================================
diff -u
--- APPS/EDI/PrijsBerekening/dto/Aanvraag.cls.xml	(revision 0)
+++ APPS/EDI/PrijsBerekening/dto/Aanvraag.cls.xml	(revision 31833)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.PrijsBerekening.dto.Aanvraag">
+<Super>APPS.EDI.Aanvraag</Super>
+
+<Property name="IngegevenKenmerken">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>%Numeric</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>DOM.VKP.KlantID</Type>
+</Property>
+
+<Property name="PersonalityID">
+<Type>DOM.common.enu.Personality</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: EXT/Optima/CalculPrix/impl/RequestVerwerker.cls.xml
===================================================================
diff -u
--- EXT/Optima/CalculPrix/impl/RequestVerwerker.cls.xml	(revision 0)
+++ EXT/Optima/CalculPrix/impl/RequestVerwerker.cls.xml	(revision 31833)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Optima.CalculPrix.impl.RequestVerwerker">
+<Super>TECH.RegisteredObject,EXT.RequestVerwerker</Super>
+
+<Method name="Verwerk">
+<FormalSpec>Request:EXT.Optima.CalculPrix.dto.Request</FormalSpec>
+<ReturnType>APPS.EDI.PrijsBerekening.dto.Aanvraag</ReturnType>
+<Implementation><![CDATA[
+	
+	Set EDIAanvraag = ##class(APPS.EDI.PrijsBerekening.dto.Aanvraag).%New()
+	Set EDIAanvraag.KlantID = "VoorlopigKlantID"
+	Set EDIAanvraag.Aantal = Request.Aantal
+	Quit EDIAanvraag
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EXT/Optima/CalculPrix/impl/ResponseVerwerker.cls.xml
===================================================================
diff -u
--- EXT/Optima/CalculPrix/impl/ResponseVerwerker.cls.xml	(revision 0)
+++ EXT/Optima/CalculPrix/impl/ResponseVerwerker.cls.xml	(revision 31833)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="EXT.Optima.CalculPrix.impl.ResponseVerwerker">
+<Super>TECH.RegisteredObject,EXT.ResponseVerwerker</Super>
+
+<Method name="Verwerk">
+<FormalSpec>EDIResultaat:APPS.EDI.PrijsBerekening.dto.Resultaat</FormalSpec>
+<ReturnType>EXT.Optima.CalculPrix.dto.Response</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(EXT.Optima.CalculPrix.dto.Response).%New()
+	Set Response.KostPrijs = EDIResultaat.KostPrijs
+	Quit Response
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>