49 lines
1.3 KiB
Plaintext
49 lines
1.3 KiB
Plaintext
#
|
|
# FOURJS_START_COPYRIGHT(U,2000)
|
|
# Property of Four Js*
|
|
# (c) Copyright Four Js 2000, 2019. All Rights Reserved.
|
|
# * Trademark of Four Js Development Tools Europe Ltd
|
|
# in the United States and elsewhere
|
|
#
|
|
# Four Js and its suppliers do not warrant or guarantee that these samples
|
|
# are accurate and suitable for your purposes. Their inclusion is purely for
|
|
# information purposes only.
|
|
# FOURJS_END_COPYRIGHT
|
|
#
|
|
IMPORT util
|
|
GLOBALS "ws_webservices.inc"
|
|
|
|
MAIN
|
|
DEFINE result,s STRING
|
|
DEFINE soapStatus INTEGER,
|
|
usuario_in RECORD # input record
|
|
usuario STRING,
|
|
CLAVE STRING,
|
|
CODIGO STRING
|
|
END RECORD
|
|
CLOSE WINDOW SCREEN
|
|
|
|
IF num_args()==1 THEN
|
|
LET mbsservicios_mbsserviciosPortTypeEndpoint.Address.URI = Retrieve_URL()
|
|
END IF
|
|
LET usuario_in.usuario='jsoto'
|
|
LET usuario_in.CLAVE = 'lmmjvsd2014'
|
|
LET usuario_in.CODIGO ='196681781079'
|
|
|
|
OPEN WINDOW w1 WITH FORM "producto"
|
|
|
|
CALL Producto(usuario_in.usuario,usuario_in.CLAVE,usuario_in.CODIGO) RETURNING soapstatus,result
|
|
DISPLAY "datos ",result
|
|
CALL fgl_winmessage("INFO",soapstatus,"INFO")
|
|
DISPLAY result TO a
|
|
|
|
CLOSE WINDOW w1
|
|
|
|
END MAIN
|
|
|
|
FUNCTION Retrieve_URL()
|
|
DEFINE url STRING
|
|
LET url = "http://192.168.40.10:8088/gas/ws/r/mbsservices"
|
|
RETURN url
|
|
END FUNCTION
|