W&T conecta
Interfaces para TCP/IP, Ethernet, RS-232, RS-485, USB, 20mA, fibra óptica de vidrio y de plástico, http, SNMP, OPC, Modbus TCP, I/O digital, I/O analógico, ISA, PCI

Aplicación para ERP-Gateways:

conexión mediante clic del ratón con ABAP


El ejemplo de ABAP descrito aquí permite el control de salidas digitales del ERP-Gateway mediante un sencillo clic con el ratón por parte del usuario en su entorno de usuario habitual.

De este modo es posible con un mínimo esfuezo conectar iluminación, persianas, abrepuertas, luces de señalización, etc. desde entornos SAP.

1. Preparativos

Ya tiene su(s) ERP-Gateway(s)

  • con corriente,
  • conectado a su red,
  • dotado con una dirección IP - con WuTility no hay problemas.

El ERP-Gateway ya está totalmente preconfigurado de fábrica.

2. El código fuente de ABAP

El código de ejemplo siguiente puede ser aplicado directamente con la función copiar/pegar. Solo tiene que rojo cambiar las asignaciones de la dirección IP y la contraseña por los parámetros que Ud. emplea:

  • pwd = contraseña para Wayback
    según la contraseña guardada en el ERP-Gateway

  • host = dirección IPo nombre del host del ERP-Gateway

Texto fuente como archivo de texto: Descarga


	data:
	user(30) type c,
	pwd(30) type c,
	host(64) type c,
	dest like rfcdes-rfcdest value 'SAPFTP'.
	write: /'Testprogramm für das WuT ERP-Gateway Wayback #57635',
				/'Hier können Sie durch einen Doppelklick auf die entsprechende',
				/'Zeile direkt die Ausgänge des Gerätes schalten.'.
				uline.
	write: /'Kanal 0 an',
				/'Kanal 0 aus',
				/, /'Kanal 1 an',
				/'Kanal 1 aus'.
	at line-selection.
	CASE SY-LISEL.
	WHEN 'Kanal 0 an'.
			user = 'output0=on'.
	WHEN 'Kanal 0 aus'.
			user = 'output0=off'.
	WHEN 'Kanal 1 an'.
			user = 'output1=on'.
	WHEN 'Kanal 1 aus'.
			user = 'output1=off'.
	WHEN OTHERS.
			user = ''.
	ENDCASE.
	*********** Hier die IP-Adresse und das Passwort eintragen.************
	host = '148.53.130.1'.
	pwd = 'test'.
	***********************************************************************
	data: hdl type i,
			key type i value 26101957,
			slen type i.
	data: begin of result occurs 0,
			line(100) type c,
			end of result.
	set extended check off.
	slen = strlen( pwd ).
	call function 'HTTP_SCRAMBLE'
		exporting
		source = pwd
		sourcelen = slen
		key = key
		importing
		destination = pwd.
	call function 'FTP_CONNECT'
		exporting
		user = user
		password = pwd
		host = host
		rfc_destination = dest
		importing
		handle = hdl.
	call function 'FTP_DISCONNECT'
		exporting
		handle = hdl.
	call function 'RFC_CONNECTION_CLOSE'
		exporting
		destination = pwd
		exceptions
		others = 1.
	

¿Usted aún no tiene ningún ERP-Gateway y desea simplemente probar el ejemplo expuesto?

No hay problema: nosotros ponemos a su disposición el ERP-Gateway gratuitamente durante 30 días. Para ello sólo tiene que hacer un pedido de muestras y nosotros le suministramos ERP-Gateway de prueba con factura abierta. Si nos devuelve el aparato en un plazo de 30 días le abonamos la factura íntegra.

Al pedido muestra