Con los nuevos sistemas una de las cosas que hoy en día escuchamos es: tenemos un web services donde puedes consultar…
Por lo que ante esta necesidad y teniendo un sistema desarrollado originalmente en powerbuilder 6.5 ( les traigo esta solución.
Un “consumer” de WS REST
Para hacer este ejemplo utilizaremos objetos no visuales, principalmente el objeto internetresult.
1.- Creamos un objeto heredado de internetresult (Estandard Class) al cual llamaremos: nvo_internet_result.
2.- Declaramos la siguiente variable de instancia
window lw_child //Handle
3.- Agregamos una función la cual llamaremos of_set_window en el objeto nvo internet_result.
-
Recibe argumento de tipo Window (Handle)
-
Retorna un Entero
4.- Agregamos código a una función la cual debe llamarse internetdata
-
Recibe argumento de tipo blob
-
Retorna un Entero
5.- Creamos un objeto no visual custom (Custom Class) al cual llamaremos: nvo_cws
6.- Declaramos las siguientes variables de instancia
string is_authorization
string is_endpoint
Inet iinet_base
nvo_internet_result iir_msgbox // El objeto creado anteriormente
string is_request
window iw_window //Handle
7.- Agregamos una función la cual llamaremos of_set_endpoint.
-
Recibe argumento de tipo String
-
Retorna un Entero
8.- Agregamos una función la cual llamaremos of_set_window en el objeto cws.
-
Recibe argumento de tipo Window (Handle)
-
Retorna un Entero
9.- Agregamos una función la cual llamaremos of_exec en el objeto nvo_cws.
10.- Una vez realizadas las acciones anteriores procedemos a crear la interface gráfica.
-
Agregamos un objeto window a nuestra aplicación con los siguientes objetos:
-
Single line edit al cual llamaremos: sle_resource, ahí pondremos donde esta nuestro recurso.
-
Multiline edit al cual llamaremos: mle_1
-
CommmandButton al cual llamaremos: cb_test
-
Y finalmente un datawindowsal cual llamaremos: dw_ws, su dataobject será un datawindow tipo external con dos campos tipo string
-
11.- Procedemos a poner el código en nuestra window
Agregamos el siguiente código en el evento open
obj_cws = CREATE nvo_cws
12.- Agregamos la función of_respuesta la cual es llamada dinámicamente .
13.- Finalmente ponemos el siguiente código en el evento clicked del botón
Imágenes de apoyo
Aunque nuestro web service rest puede producir json y xml por default genera el json
GlassFish 5 con el 4.1.1 generaba diversas excepciones
Definición del datawindow external