Artikelbilder anzeigen mittels ID, ID-Datensätze liegen auf i5

[Klaas]

Hallo,

kaum ist mal weniger los, da haben die Vorgesetzten ganz Komische Ideen.

Wir haben im Unternehmen Bilder von Artikeln.
Diese sind in unserem CRM mit Kundendaten verknüpft.
Parallel arbeitet eine IBM i5 mit einer Eignenentwicklung von Warenwirtschaftssystem.
Auf der i5 liegen wiederum andere Daten.

Es soll nun so sein, dass der User, der sonst gar nicht mit einem PC oder ähnlichen arbeitet, einen Scanner nimmt und den Barcode des Artikels einscannt.
Damit bekomme ich die ID. (Nur auf i5 vorhanden)

Diese ID lese ich auf der i5 aus und bekomme zurück:
ID des Artikels = Lieferauftragsnr. + Artikelnummer

Diesen neuen Datensatz suche Ich in Notes und bekomme das Bild zurück.
Lieferauftragsnr. + Artikelnummer = Bild

So der Plan.
Geht so was überhaupt?
Hat jemand schon mal so etwas ähnliches gemacht?
Wie tief müsste man gehen? Ich bin ja nur ein armer kleiner Fachinformatiker.
Ich hatte auch überlegt, die ID’s im NotesDokument vor zu halten. Das Problem ist nur, wie halte ich diese ID’s aktuell.

Viele Grüße ausm Schnee

Klaas

[m3]

Na da würde ich mich mal schlau machen, wie Du mit der i5 bzw. dem WWS sprechen kannst - file, webservice, datenbank, ...

[Klaas]

als ersten geh-versuch habe ich mal eine SQL-Abfrage gemacht. Damit würde ich eine Tabelle mit allen aktuellen ID's bekommen.

Aber momentan leider noch die komplette liste. und das dauert schon einen moment wenn der Client 500.000 Datensätze ausliest.

[m3]

Du hast Doch die ID, da kannst Du doch eh eine wunderschöne Abfrage machen, dass Du die Lieferauftragsnr. + Artikelnummer zurück bekommst.

[Klaas]

Hallo m3,

du hast vollkommen recht. Ich hatte zunächst garkeinen überblick über das Thema.

Die ODBC-Verbinung steht jetzt.

Das Problem ist nur das Result bleibt leer.
(UserName und PW der Verbindung habe ich entfernt)

Code

Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet

Code

	Set con = New ODBCConnection
	Set qry = New ODBCQuery
	Set result = New ODBCResultSet
	Set qry.Connection = con
	Set result.Query = qry
	Call con.ConnectTo( "Test" , "xxx" , "xxx" )
	qry.SQL = "SELECT IDIDNR , IDKUND , IDARTN FROM ANWDTA.IDSTAP WHERE IDIDNR = 1111302"

Wenn ich die selbe Abfrage im SQL-Explorer laufen lasse, dann bekomme ich eine Tabelle mit Idnummer, Kundennummer und Artikelnummer

Viele Grüße

Klaas

[Thomas Schulte]

Aus der Zeit als IBM noch Redbooks geschrieben hat ....
Enabling Web Services for the
IBM iSeries Server

[Klaas]

Sorry Thomas aber damit komme ich leider nicht weiter.

Ich habe jetzt nochmal alles durchgeschaut und meine Code mit dem Beispielcode der Notes-Hilfe verglichen.
Aber leider habe ich nichts gefunden.

Viele Grüße

Klaas

[m3]

Klaas, da fehlt eine Fehlerbehandlung, desweiteren die Info, ich welchem User-Kontext der Code ausgeführt wird und ob dieser Zugriff auf die ODBC-Verbindung hat, ...

[Klaas]

Neuer Tag, neue Ideen.

Und es Funktioniert. es lag warscheinlich an sehr vielen Sachen.
Doch das schlimmste war wohl ich.


Vielen Dank für eure Hilfe, ich werde jetzt öffter Fehlerbehandlungen mit einbauchen.

Code

Sub Click(Source As Button)
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = workspace.CurrentDocument
	
	On Error Goto errorhdl
	
	Set con = New ODBCConnection
	Set qry = New ODBCQuery
	Set result = New ODBCResultSet
	Set qry.Connection = con
	Set result.Query = qry
	If uidoc.FieldGetText( "fdMAWTeilID") ="" Then Exit Sub
	qry.SQL =  "SELECT IDIDNR , IDKUND , IDARTN FROM ANWDTA.IDSTAP WHERE IDIDNR = "+ uidoc.FieldGetText( "fdMAWTeilID")
	If Not con.ConnectTo( "Test" , "DBLREIM" , "MAW" ) Then
		Messagebox "Could not connect to " & dataSource
	End If
	If Not result.Execute Then
		Messagebox _
		result.GetExtendedErrorMessage,, result.GetErrorMessage
	End If
	If result.GetValue("IDKUND") ="" Then
		Messagebox "keine Daten gefunden"
		Exit Sub
	End If
	Call uidoc.FieldSetText("fdMAWKdnr", Cstr(result.GetValue("IDKUND")))
	Call uidoc.FieldSetText("fdMAWArtnr", Cstr(result.GetValue("IDARTN")))
	Exit Sub
errorhdl:
	Print "Fehler in StartConnection: " + Error$ + ", Zeile: " + Str(Erl)
End Sub