Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml =================================================================== diff -u -r36203 -r36210 --- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml (.../Test.cls.xml) (revision 36203) +++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Test.cls.xml (.../Test.cls.xml) (revision 36210) @@ -29,7 +29,7 @@ #dim OfferteGeneratorStub As vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteGenerator = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteGenerator).%New() Do OfferteGeneratorStub.IndienMethodCall("GeefOfferteDto", $$$ElkeWaarde).DanReturn(##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.Offerte).%New()) - #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.HaefeleBE.Melder).%New("", OfferteGeneratorStub) + #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New("", OfferteGeneratorStub) Do HttpVerzender.Verzend(..OfferteStub) Do HttpApiMock.Verifieer() @@ -45,7 +45,7 @@ #dim HttpApiStub As vhTest.Mock.TECH.Http.HttpAPI = ##class(vhTest.Mock.TECH.Http.HttpAPI).MockInstance() Do HttpApiStub.IndienMethodCall("GeefHttpPoster") - #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.HaefeleBE.Melder).%New("", OfferteGeneratorMock) + #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New("", OfferteGeneratorMock) Do HttpVerzender.Verzend(..OfferteStub) Do OfferteGeneratorMock.Verifieer() @@ -66,7 +66,7 @@ #dim HttpApiStub As vhTest.Mock.TECH.Http.HttpAPI = ##class(vhTest.Mock.TECH.Http.HttpAPI).MockInstance() Do HttpApiStub.IndienMethodCall("GeefHttpPoster").DanReturn(HttpPosterStub) - #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.HaefeleBE.Melder).%New(LoggerMock, OfferteGeneratorStub) + #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New(LoggerMock, OfferteGeneratorStub) Do HttpVerzender.Verzend(..OfferteStub) Do LoggerMock.Verifieer() @@ -86,7 +86,7 @@ #dim OfferteGeneratorStub As vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteGenerator = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteGenerator).%New() Do OfferteGeneratorStub.IndienMethodCall("GeefOfferteDto", $$$ElkeWaarde).DanException(##class(TECH.Exceptions.GeneralErrorException).%New("Een exceptie")) - #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.HaefeleBE.Melder).%New(LoggerMock, OfferteGeneratorStub) + #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New(LoggerMock, OfferteGeneratorStub) Do HttpVerzender.Verzend(..OfferteStub) Do LoggerMock.Verifieer() @@ -107,7 +107,7 @@ #dim HttpApiStub As vhTest.Mock.TECH.Http.HttpAPI = ##class(vhTest.Mock.TECH.Http.HttpAPI).MockInstance() Do HttpApiStub.IndienMethodCall("GeefHttpPoster").DanReturn(HttpPosterStub) - #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.HaefeleBE.Melder).%New(LoggerMock, OfferteGeneratorStub) + #dim HttpVerzender As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New(LoggerMock, OfferteGeneratorStub) Do HttpVerzender.Verzend(..OfferteStub) Do LoggerMock.Verifieer() Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Melder.cls.xml =================================================================== diff -u -r36202 -r36210 --- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Melder.cls.xml (.../personality/HaefeleBE/Melder.cls.xml) (revision 36202) +++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Melder.cls.xml (.../HttpVerzender/HaefeleBE.cls.xml) (revision 36210) @@ -1,6 +1,6 @@ - + APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml =================================================================== diff -u -r36202 -r36210 --- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml (.../BesteldeOfferteMelder.cls.xml) (revision 36202) +++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml (.../BesteldeOfferteMelder.cls.xml) (revision 36210) @@ -56,13 +56,13 @@ SFSPersonality:DOM.common.SFSPersonality - HaefeleBEPersonality:DOM.common.HaefeleBEPersonality - Index: zTryout/WV/APPS/EC/SFS/TestSFS.cls.xml =================================================================== diff -u -r35899 -r36210 --- zTryout/WV/APPS/EC/SFS/TestSFS.cls.xml (.../TestSFS.cls.xml) (revision 35899) +++ zTryout/WV/APPS/EC/SFS/TestSFS.cls.xml (.../TestSFS.cls.xml) (revision 36210) @@ -12,7 +12,7 @@ Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).SFS()) #dim Offerte As APPS.VKP.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId(3204) ; (3204) 3266 - Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.SFS.Melder).%New().Meld(Offerte) + Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS).%New().Verzend(Offerte) ]]> Index: vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml =================================================================== diff -u -r35899 -r36210 --- vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml (.../Test.cls.xml) (revision 35899) +++ vhTest/Integratie/Unishop/PurchaseOrderService001/Service/Test.cls.xml (.../Test.cls.xml) (revision 36210) @@ -80,8 +80,8 @@ do ##class(vhTest.Utils.APPC.EC.dto.Offerte).VerwijderPersistenteIDVanOfferteDto(DoorbesteldeOfferte) do ..DataExporteerder.ExporteerDataTransferObject(DoorbesteldeOfferte, "DoorbesteldeOfferte.xml","XmlExport") -#dim Offerte1 As APPS.EC.dto.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(1) - Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.SFS.Melder).%New().Meld(Offerte1) + #dim Offerte1 As APPS.EC.dto.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(1) + Do ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS).%New().Verzend(Offerte1) ]]> Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml =================================================================== diff -u --- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml (revision 0) +++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/SFS.cls.xml (revision 36210) @@ -0,0 +1,42 @@ + + + +APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender + + +1 +DOM.common.Personality + + + + +XMLStream:%Stream +1 +TECH.Http.Message + Test : "xic30" + Set HttpMessage.ContentType = "text/xml" + Set HttpMessage.ContextEncoding = "UTF-8" + Set HttpMessage.Data = XMLStream + + Do HttpMessage.Params.InsertKeyValue("namespace", "http://sfs.biz/xi/ch/vanhoecke") + Do HttpMessage.Params.InsertKeyValue("interface", "SI_VANHOECKE_out_ORDERS2") + Do HttpMessage.Params.InsertKeyValue("service", "VANHOECKE") + Do HttpMessage.Params.InsertKeyValue("party", "VANHOECKE") + Do HttpMessage.Params.InsertKeyValue("QOS", "EO") + Do HttpMessage.Params.InsertKeyValue("sap-user", "VANHOECKE") + Do HttpMessage.Params.InsertKeyValue("sap-password", "hoec4s!f") + Do HttpMessage.Params.InsertKeyValue("sap-client", "100") + Do HttpMessage.Params.InsertKeyValue("sap-language", "EN") + + Quit HttpMessage +]]> + + + + + FishEye: Tag 36210 refers to a dead (removed) revision in file `APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/HaefeleBE/Melder.cls.xml'. FishEye: No comparison available. Pass `N' to diff?