Index: AXif/Crm/CustomerOut/Header.cls.xml =================================================================== diff -u -r37937 -r42160 --- AXif/Crm/CustomerOut/Header.cls.xml (.../AXBizTalk/Crm/Customer/Header.cls.xml) (revision 37937) +++ AXif/Crm/CustomerOut/Header.cls.xml (.../AXif/Crm/CustomerOut/Header.cls.xml) (revision 42160) @@ -1,6 +1,6 @@ - + serial %SerialObject,%XML.Adaptor Index: AXimpl/BizTalkMessage/EventHandler/CustomerAddressInsert.cls.xml =================================================================== diff -u -r42128 -r42160 --- AXimpl/BizTalkMessage/EventHandler/CustomerAddressInsert.cls.xml (.../CustomerAddressInsert.cls.xml) (revision 42128) +++ AXimpl/BizTalkMessage/EventHandler/CustomerAddressInsert.cls.xml (.../CustomerAddressInsert.cls.xml) (revision 42160) @@ -8,7 +8,7 @@ KlantAdresGemaaktEvent:DOM.VKP.VanHoeckeKlant.event.KlantAdresGemaaktEvent Index: AXif/Crm/CustomerOut/Customer.cls.xml =================================================================== diff -u -r39492 -r42160 --- AXif/Crm/CustomerOut/Customer.cls.xml (.../AXBizTalk/Crm/Customer/Customer.cls.xml) (revision 39492) +++ AXif/Crm/CustomerOut/Customer.cls.xml (.../AXif/Crm/CustomerOut/Customer.cls.xml) (revision 42160) @@ -1,6 +1,6 @@ - + %SerialObject,%XML.Adaptor Index: AXimpl/BizTalkMessage/EventHandler/CustomerUpdate.cls.xml =================================================================== diff -u -r42128 -r42160 --- AXimpl/BizTalkMessage/EventHandler/CustomerUpdate.cls.xml (.../CustomerUpdate.cls.xml) (revision 42128) +++ AXimpl/BizTalkMessage/EventHandler/CustomerUpdate.cls.xml (.../CustomerUpdate.cls.xml) (revision 42160) @@ -8,7 +8,7 @@ KlantWijzigEvent:TECH.Events.KlantWijzigEvent Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml =================================================================== diff -u -r42132 -r42160 --- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 42132) +++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 42160) @@ -24,7 +24,7 @@ -AXBizTalk.Crm.Customer.Customer +AXif.Crm.CustomerOut.Customer 1 @@ -45,13 +45,13 @@ -Command:AXBizTalk.Crm.Customer.Request -AXBizTalk.Crm.Customer.MessageParts +Command:AXif.Crm.CustomerOut.Request +AXif.Crm.CustomerOut.MessageParts Index: AXif/Crm/CustomerOut/Body.cls.xml =================================================================== diff -u --- AXif/Crm/CustomerOut/Body.cls.xml (revision 0) +++ AXif/Crm/CustomerOut/Body.cls.xml (revision 42160) @@ -0,0 +1,37 @@ + + + +serial +%SerialObject,%XML.Adaptor + + +%String +1 + + + +1 + + + +AXif.Crm.CustomerOut.MessageParts + + + + + + +%Library.CacheSerialState +BodyState +^AXBizTalk.Crm.Customer.BodyS + +"Body" + +MessageParts + + + + + + + Index: AXimpl/BizTalkMessage/EventHandler/CustomerAddressDelete.cls.xml =================================================================== diff -u -r42128 -r42160 --- AXimpl/BizTalkMessage/EventHandler/CustomerAddressDelete.cls.xml (.../CustomerAddressDelete.cls.xml) (revision 42128) +++ AXimpl/BizTalkMessage/EventHandler/CustomerAddressDelete.cls.xml (.../CustomerAddressDelete.cls.xml) (revision 42160) @@ -8,7 +8,7 @@ KlantAdresVerwijderdEvent:DOM.VKP.VanHoeckeKlant.event.KlantAdresVerwijderdEvent Index: AXif/Crm/CustomerOut/MessageParts.cls.xml =================================================================== diff -u -r37937 -r42160 --- AXif/Crm/CustomerOut/MessageParts.cls.xml (.../AXBizTalk/Crm/Customer/MessageParts.cls.xml) (revision 37937) +++ AXif/Crm/CustomerOut/MessageParts.cls.xml (.../AXif/Crm/CustomerOut/MessageParts.cls.xml) (revision 42160) @@ -1,6 +1,6 @@ - + serial %SerialObject,%XML.Adaptor @@ -10,7 +10,7 @@ -AXBizTalk.Crm.Customer.Customer +AXif.Crm.CustomerOut.Customer Index: AXimpl/RequestComposer.cls.xml =================================================================== diff -u -r42138 -r42160 --- AXimpl/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 42138) +++ AXimpl/RequestComposer.cls.xml (.../RequestComposer.cls.xml) (revision 42160) @@ -36,7 +36,7 @@ Request:%CacheString %CacheString - + %SerialObject,%XML.Adaptor @@ -19,11 +19,11 @@ -AXBizTalk.Crm.Customer.Envelope +AXif.Crm.CustomerOut.Envelope -Command:%String,SubjectId:%String,Message:AXBizTalk.Crm.Customer.Envelope="" +Command:%String,SubjectId:%String,Message:AXif.Crm.CustomerOut.Envelope="" 1 1 %Status @@ -41,8 +41,6 @@ RequestState ^AXBizTalk.Crm.CustADA9.RequestS -listnode - Command Index: AXimpl/BizTalkMessage/EventHandler/CustomerAddressUpdate.cls.xml =================================================================== diff -u -r42128 -r42160 --- AXimpl/BizTalkMessage/EventHandler/CustomerAddressUpdate.cls.xml (.../CustomerAddressUpdate.cls.xml) (revision 42128) +++ AXimpl/BizTalkMessage/EventHandler/CustomerAddressUpdate.cls.xml (.../CustomerAddressUpdate.cls.xml) (revision 42160) @@ -8,7 +8,7 @@ KlantAdresWijzigEvent:DOM.VKP.VanHoeckeKlant.event.KlantAdresGewijzigdEvent Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml =================================================================== diff -u -r39825 -r42160 --- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 39825) +++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 42160) @@ -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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.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 AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID()) Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"") ]]> @@ -522,18 +522,18 @@ #dim EmailAdressenLijst = ##class(%ListOfDataTypes).%New() Do ..Klant.IndienMethodCall("GeefFacturatieEmailAdressen").DanReturn(EmailAdressenLijst) - #dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID()) + #dim GeconverteerdeKlant As AXif.Crm.CustomerOut.Customer = ..GeefCustomer(..Klant.GeefID()) Do $$$AssertEquals(GeconverteerdeKlant.FacturatieNaar,"") ]]> KlantId:%String -AXBizTalk.Crm.Customer.Customer +AXif.Crm.CustomerOut.Customer Index: AXimpl/Crm/CustomerAddressOut/Converter/AddressDeleteConverter.cls.xml =================================================================== diff -u -r42147 -r42160 --- AXimpl/Crm/CustomerAddressOut/Converter/AddressDeleteConverter.cls.xml (.../AddressDeleteConverter.cls.xml) (revision 42147) +++ AXimpl/Crm/CustomerAddressOut/Converter/AddressDeleteConverter.cls.xml (.../AddressDeleteConverter.cls.xml) (revision 42160) @@ -4,8 +4,8 @@ TECH.RegisteredObject -Command:AXBizTalk.Crm.Customer.Request -AXBizTalk.Crm.Customer.MessageParts +Command:AXif.Crm.CustomerOut.Request +AXif.Crm.CustomerOut.MessageParts - + serial %SerialObject,%XML.Adaptor @@ -18,12 +18,12 @@ -AXBizTalk.Crm.Customer.Header +AXif.Crm.CustomerOut.Header -AXBizTalk.Crm.Customer.Body +AXif.Crm.CustomerOut.Body Index: AXimpl/Crm/CustomerAddressOut/Converter/AddressUpsertConverter.cls.xml =================================================================== diff -u -r42157 -r42160 --- AXimpl/Crm/CustomerAddressOut/Converter/AddressUpsertConverter.cls.xml (.../AddressUpsertConverter.cls.xml) (revision 42157) +++ AXimpl/Crm/CustomerAddressOut/Converter/AddressUpsertConverter.cls.xml (.../AddressUpsertConverter.cls.xml) (revision 42160) @@ -43,8 +43,8 @@ -Command:AXBizTalk.Crm.Customer.Request -AXBizTalk.Crm.Customer.MessageParts +Command:AXif.Crm.CustomerOut.Request +AXif.Crm.CustomerOut.MessageParts