anonymous Log in
Search
Recents:
v3.0
xml-l
location y modulo
21/04/20 14:12

martin gaston

Replies: 3

Hola
Trabajamos con gx16 u8, net. Estamos consumiendo un webservice,
Para ajustar el entorno del que consumimos el servicio utilizamos la
variable Location con sus respectivas propiedades
&Location = GetLocation(!'AbmEmpleados_WS_UsuarioInfo')
&Location.BaseUrl = &Valor.Trim() .....
Esto funciona perfectamente.
Ahora queremos incluir todos los servicios en un modulo para usarlos en
otras aplicaciones. Asi que simplemente convertimos el folder en un modulo
reconstruimos y probamos. Resulta que la aplicacion no pincha pero el
servicio no funciona. Probamos poniendo el nombre del paquete en el
getlocation, pero sucede lo mismo.
¿Que cosas se deben modificar para pasar los servicios a un modulo?
Saludos
Gracias
-----------------------------------------
Para Suscribirse/Desuscribirse:
http://www.gxtechnical.com/cgi-bin/hforum.exe?2,3,31
Por consultas owner-xml-l@gxtech.com.uy
Replies

r.calo6065

21/04/20 14:52
El nombre del location cambia al nombre del modulo más el nombre del servicios getlocation(“módulo“_“servicio”) Saludos El El mar, 21 de abr. de 2020 a la(s) 14:12, Martin Gaston < lonasmartin@gmail.com>

Enrique Almeida2770

21/04/20 14:57
Al poner un external objetct en un modulo, cambia del location que tenes que usar para el GetLocation(). Una solucion, es dejar el external object AbmEmpleados_WS_UsuarioInfo en el modulo raiz. Otra solucion, es que veas cual es el nombre con el que quedo el location del external object y pongas eso en el GetLocation. El mar., 21 de abr. de 2020 a la(s) 14:12, Martin Gaston ( lonasmartin@gmail.com)

luismiyashita

21/04/20 16:46
Olá Martin. Tivemos o mesmo problema. Criamos um procedimento que faz a mesma coisa do GetLocation(). o XPZ do procedimento esta anexo. O procedimento efetua a leitura de um arquivo XML com a mesma estrutura do arquivo Location.XML A chamada é desta forma. //Load Data from XML File IntSysCredi.Parametros.GetLocationProc(!'IntSysCrediRest',&Location,&LocationAdditionals,&Message) if &Message.Id <> !'200' // Añadir el retorno. Return endif // Call WebService &HttpClient.Host = &Location.Host &HttpClient.BaseUrl = &Location.BaseUrl &HttpClient.Port = &Location.Port &HttpClient.Secure = &Location.Secure &httpclient.AddHeader(!'Content-type',!'application/json; charset=UTF-8') &HttpClient.AddString(&ApiGetExtrato.ToJson()) &HttpClient.Execute(!'POST',!'WS_WebService') Criamos um módulo para consumir web services de forma que quando ocorrer qualquer alteração não é necessário exportar o módulo e atualizar em todas as KB´s que utilizem este módulo. Só necessitamos atualizar o módulo quando ocorrer alguma alteração nos parâmetros ou incluir um novo web servisse. Se quiser, mande um e-mail que explico como montamos isso. Un Saludo. Luis Miyashita.


Back to xml-l