W&T collega
Adattatori per TCP/IP, Ethernet, RS-232, RS-485, USB, 20 mA, Fibra ottica di vetro e plastica, http, SNMP, OPC, Modbus TCP, I/O digitale, I/O analogico, ISA, PCI

Applicazione sui gateway ERP:

Commutazione con ABAP mediante mouse


L’esempio ABAP qui descritto consente all’utente di controllare le uscite digitali del gateway ERP semplicemente cliccando sull’abituale interfaccia utente.

Con un minimo sforzo è possibile in questo modo attivare luci, tapparelle, apriporta, spie di segnalazione ecc in ambiente SAP.

1. Preparativi

Avete già alimentato il/i vostro/i gateway ERP

  • con la corrente,
  • effettuato il collegamento alla vostra rete,
  • e assegnato un indirizzo IP: con WuTility è facile!

Per il resto il gateway ERP è già preconfigurato di fabbrica.

2. Il codice sorgente ABAP

Il seguente codice esempio può essere copiato direttamente con copia/incolla. Solo le assegnazioni in rosso dell’indirizzo IP e della password devono essere sostituite dai valori da voi utilizzati:

  • pwd = password Wayback
    corrispondente alla password definita nel gateway ERP

  • host = indirizzo IP o hostname del gateway ERP

Testo sorgente sotto forma di file di testo: download


	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.
	

Non disponete ancora di un gateway ERP e desiderate semplicemente provarne il funzionamento come nell’esempio illustrato?

Nessun problema: vi mettiamo a disposizione gratuitamente per 30 giorni il gateway ERP. Non dovete far altro che compilare l’ordinazione del campione e vi forniremo il gateway ERP in prova in conto aperto. Se ci restistuite l’apparecchio entro 30 giorni, vi accreditiamo completamente la fattura.

All’ordinazione del campione