Index: vhUnitTest/APPS/TRANSP/GLS/impl/TestEtiketBouwerResponseVisitor.cls.xml =================================================================== diff -u -r40367 -r40510 --- vhUnitTest/APPS/TRANSP/GLS/impl/TestEtiketBouwerResponseVisitor.cls.xml (.../TestEtiketBouwerResponseVisitor.cls.xml) (revision 40367) +++ vhUnitTest/APPS/TRANSP/GLS/impl/TestEtiketBouwerResponseVisitor.cls.xml (.../TestEtiketBouwerResponseVisitor.cls.xml) (revision 40510) @@ -22,9 +22,9 @@ Set Response.T979 = Input ;Act - Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New() + Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketBouwerResponseVisitor).%New() Do EtiketBouwerVisitor.VerwerkFreightResponse(Response) - #dim Etiket As APPS.TRANSP.GLS.Etiket.Etiket = EtiketBouwerVisitor.GeefEtiket() + #dim Etiket As APPS.TRANSP.GLS.GLSv1.impl.Etiket.Base = EtiketBouwerVisitor.GeefEtiket() #dim VerwerkteResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightResponse = Etiket.Response ;Assert @@ -39,9 +39,9 @@ Set Response.T8902 = "Test15CharsLang" ;Act - Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New() + Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketBouwerResponseVisitor).%New() Do EtiketBouwerVisitor.VerwerkParcelResponse(Response) - #dim Etiket As APPS.TRANSP.GLS.Etiket.Etiket = EtiketBouwerVisitor.GeefEtiket() + #dim Etiket As APPS.TRANSP.GLS.GLSv1.impl.Etiket.Base = EtiketBouwerVisitor.GeefEtiket() #dim VerwerkteResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse = Etiket.Response ;Assert @@ -57,9 +57,9 @@ Set Response.T8903 = "T]nog tekst]nog iets]nog wat]abc" ;Act - Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.impl.EtiketBouwerResponseVisitor).%New() + Set EtiketBouwerVisitor = ##class(APPS.TRANSP.GLS.GLSv1.impl.EtiketBouwerResponseVisitor).%New() Do EtiketBouwerVisitor.VerwerkParcelResponse(Response) - #dim Etiket As APPS.TRANSP.GLS.Etiket.Etiket = EtiketBouwerVisitor.GeefEtiket() + #dim Etiket As APPS.TRANSP.GLS.GLSv1.impl.Etiket.Base = EtiketBouwerVisitor.GeefEtiket() #dim VerwerkteResponse As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelResponse = Etiket.Response ;Assert