Index: AXif/Crm/CustomerOut/MessageParts/Customer.cls.xml
===================================================================
diff -u
--- AXif/Crm/CustomerOut/MessageParts/Customer.cls.xml (revision 0)
+++ AXif/Crm/CustomerOut/MessageParts/Customer.cls.xml (revision 42161)
@@ -0,0 +1,446 @@
+
+
+
+%SerialObject,%XML.Adaptor
+
+
+%String
+1
+
+
+
+http://schemas.vanhoecke.be/2016/11/Crm/Customer
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Library.CacheSerialState
+CustomerState
+^AXBizTalk.CustomerS
+
+
+Klantnummer
+
+
+Naam
+
+
+Toenaam
+
+
+Telefoon
+
+
+Fax
+
+
+VerkortNummer
+
+
+Email
+
+
+RelatieType
+
+
+BIDIMedewerker
+
+
+Status
+
+
+Regio
+
+
+Activiteit
+
+
+Kwantitatief
+
+
+Kwaliteit
+
+
+PrijsCodexBeslag
+
+
+PrijsCodexOrgalux
+
+
+PrijsCodexTaor
+
+
+Betalingstermijn
+
+
+Leveringsvoorwaarde
+
+
+Kredietlimiet
+
+
+FacturatieFrequentie
+
+
+AantalFacturen
+
+
+AantalVervallenFacturen
+
+
+PercentageVervallenFacturen
+
+
+AantalFacturenVervallen
+
+
+Adressen
+
+
+HoofdadresLand
+
+
+HoofdadresPostcode
+
+
+HoofdadresPlaats
+
+
+HoofdadresStraat
+
+
+HoofdadresVerzendwijze
+
+
+BezoekadresLand
+
+
+BezoekadresPostcode
+
+
+BezoekadresPlaats
+
+
+BezoekadresStraat
+
+
+BezoekadresVerzendwijze
+
+
+LeverAdressen
+
+
+Leveradressen
+
+
+HoofdadresLandcode
+
+
+BezoekadresLandcode
+
+
+Taal
+
+
+BTWnummer
+
+
+KwaliteitKeuken
+
+
+KwaliteitHandel
+
+
+KwaliteitMeubelHandel
+
+
+KwaliteitScholen
+
+
+KwaliteitOpenbareBesturen
+
+
+KwaliteitConsument
+
+
+KwaliteitLeverancier
+
+
+KwaliteitSoftware
+
+
+KwaliteitMeubelhandel
+
+
+KortingContant
+
+
+Opmerking6
+
+
+Opmerking7
+
+
+Opmerking8
+
+
+Opmerking9
+
+
+Website
+
+
+Leverstop
+
+
+LeverstopMotivatie
+
+
+IncassoProcedure
+
+
+FacturatieVerzendenPer
+
+
+FactuurVerzendingVia
+
+
+KVKnummer
+
+
+BUDIMedewerker
+
+
+FacturatieNaar
+
+
+
+
+
+
+
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r42160 -r42161
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 42160)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 42161)
@@ -80,7 +80,7 @@
@@ -92,7 +92,7 @@
Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("info@example.com")
Do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("http://www.example.com")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.Klantnummer,"01234")
Do $$$AssertEquals(GeconverteerdeKlant.Naam,"DE NAAM")
@@ -154,7 +154,7 @@
Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("03/1234899")
Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/1234567")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03 1234899")
]]>
@@ -165,7 +165,7 @@
Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/987654")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03 987654")
]]>
@@ -174,7 +174,7 @@
@@ -184,7 +184,7 @@
@@ -194,7 +194,7 @@
@@ -204,7 +204,7 @@
@@ -214,7 +214,7 @@
@@ -224,7 +224,7 @@
@@ -234,7 +234,7 @@
@@ -244,7 +244,7 @@
@@ -254,7 +254,7 @@
@@ -264,7 +264,7 @@
@@ -275,7 +275,7 @@
Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Handel")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitHandel,"969950001")
]]>
@@ -286,7 +286,7 @@
Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Meubelhandel")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitMeubelhandel,"969950001")
]]>
@@ -297,7 +297,7 @@
Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Keuken")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitKeuken,"969950001")
]]>
@@ -308,7 +308,7 @@
Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Scholen")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitScholen,"969950001")
]]>
@@ -319,7 +319,7 @@
Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Consument")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitConsument,"969950001")
]]>
@@ -330,7 +330,7 @@
Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Openbare besturen")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitOpenbareBesturen,"969950001")
]]>
@@ -341,7 +341,7 @@
Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Leverancier")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitLeverancier,"969950001")
]]>
@@ -352,7 +352,7 @@
Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Software")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitSoftware,"969950001")
]]>
@@ -364,7 +364,7 @@
Do FakeBezoekadres.ZetLandNr("")
Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(FakeBezoekadres)
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresLandcode,"BEL")
]]>
@@ -379,7 +379,7 @@
Do ..Klant.IndienMethodCall("GeefOpmerking9").DanReturn("een opmerking met ;")
Do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("www;example.com")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.FacturatieFrequentie,"M1-16")
Do $$$AssertEquals(GeconverteerdeKlant.Opmerking6,"een opmerking met -")
@@ -394,7 +394,7 @@
@@ -404,7 +404,7 @@
@@ -414,7 +414,7 @@
@@ -424,7 +424,7 @@
@@ -435,7 +435,7 @@
Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("0032-3/123.45.67")
Do ..Partij.IndienMethodCall("GeefTelefax").DanReturn("+32-3/123.45.67")
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"0032 3 123 45 67")
Do $$$AssertEquals(GeconverteerdeKlant.Fax,"+32 3 123 45 67")
@@ -448,15 +448,15 @@
Do NLDAdres.ZetLandNr(##class(DOM.common.enu.Land).Nederland())
Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(NLDAdres)
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.KVKnummer,"12345678")
]]>
@@ -486,7 +486,7 @@
@@ -498,7 +498,7 @@
Do EmailAdressenLijst.Insert("email@example.com")
Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"email@example.com")
]]>
@@ -511,7 +511,7 @@
Do EmailAdressenLijst.Insert("email2@example.com")
Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"")
]]>
@@ -522,15 +522,15 @@
#dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst)
- #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID())
+ #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.MessageParts.Customer = ..GeefCustomer(..Klant.GeefID())
Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"")
]]>
KlantId:%String
-AXif.Crm.CustomerOut.Customer
+AXif.Crm.CustomerOut.MessageParts.Customer
-AXif.Crm.CustomerOut.Customer
+AXif.Crm.CustomerOut.MessageParts.Customer
1
@@ -51,7 +51,7 @@
Set ..Partij = ..PartijAPI.GeefPartij(Command.SubjectId)
Set ..Klant = ..VerkoopAPI.GeefKlant(Command.SubjectId)
- Set ..Customer = ##class(AXif.Crm.CustomerOut.Customer).%New()
+ Set ..Customer = ##class(AXif.Crm.CustomerOut.MessageParts.Customer).%New()
Do ..ConvertAccountInformatie()
Do ..ConvertAlgemeneSegmentering()
Index: AXif/Crm/CustomerOut/MessageParts.cls.xml
===================================================================
diff -u -r42160 -r42161
--- AXif/Crm/CustomerOut/MessageParts.cls.xml (.../MessageParts.cls.xml) (revision 42160)
+++ AXif/Crm/CustomerOut/MessageParts.cls.xml (.../MessageParts.cls.xml) (revision 42161)
@@ -10,7 +10,7 @@
-AXif.Crm.CustomerOut.Customer
+AXif.Crm.CustomerOut.MessageParts.Customer