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.

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.

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.