Not sure if I’m missing something, but when I run die Debug, it shows that is sets the correct values, but it is not transferring the data.
Maybe you can spot the problem.
Tnks
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim res As New ODBCResultSet
Dim retcode As Integer
retcode%=con.ConnectTo("DATASOURCE","USERNAME","PASSWORD")
If (retcode% = False) Then
Msgbox "Could not connect to datasource: DATASOURCE"
Exit Sub
End If
Set qry.connection = con
qry.SQL = "SELECT REQNO, ITNBR, QTYOR, ITDSC, DATER, DUEDT, MDATE, NAMER, ITCLS, BUYNO, CURPR, EXTPR, HOUSE, ACCTN, ORDNO, INVFG, UNMSR, PURUM, UMCNV, REFNO, PITD1, PITD2 FROM REQHDF"
Set res.Query = qry
res.execute
Dim seqid As Variant
Dim reqno As Variant
Dim itemno As Variant
Dim translatedqty As Variant
Dim itemdesc As Variant
Dim translatedduedate As Variant
Dim reqid As Variant
Dim itemclass As Variant
Dim buyer As Variant
Dim translateduprice As Variant
Dim translatedeprice As Variant
Dim house As Variant
Dim accountno As Variant
Dim orderno As Variant
Dim invflag As Variant
Dim unitmeas As Variant
Dim purchunit As Variant
Dim unitconv As Variant
Dim ext1 As Variant
Dim ext2 As Variant
counter = 0
seqid = doc.getitemvalue("seq_id")
reqno = doc.getitemvalue("reqno")
itemno = doc.getitemvalue("itemno")
translatedqty = doc.getitemvalue("translatedqty")
itemdesc = doc.getitemvalue("itemdesc")
translatedduedate = doc.getitemvalue("translatedduedate")
reqid = doc.getitemvalue("reqid")
itemclass = doc.getitemvalue("itemclass")
buyer = doc.getitemvalue("buyer")
translateduprice = doc.getitemvalue("translateduprice")
translatedeprice = doc.getitemvalue("translatedeprice")
house = doc.getitemvalue("house")
accountno = doc.getitemvalue("accountno")
orderno = doc.getitemvalue("orderno")
invflag = doc.getitemvalue("invflag")
unitmeas = doc.getitemvalue("unitmeas")
purchunit = doc.getitemvalue("purchunit")
unitconv = doc.getitemvalue("unitconv")
ext1 = doc.getitemvalue("ext1")
ext2 = doc.getitemvalue("ext2")
Forall items In seqid
res.addrow
Call res.SetValue("REQNO", reqno(0))
Call res.SetValue("ITNBR", itemno(counter))
Call res.SetValue("QTYOR", translatedqty(counter))
Call res.SetValue("ITDSC", itemdesc(counter))
Call res.SetValue("DUEDT", translatedduedate(0))
Call res.setvalue("NAMER", reqid(0))
Call res.SetValue("ITCLS", itemclass(counter))
Call res.SetValue("BUYNO", buyer(0))
Call res.SetValue("CURPR", translateduprice(counter))
Call res.SetValue("EXTPR", translatedeprice(counter))
Call res.SetValue("HOUSE", house(counter))
Call res.SetValue("ACCTN", accountno(counter))
Call res.SetValue("ORDNO", orderno(0))
Call res.SetValue("INVFG", invflag(counter))
Call res.SetValue("UNMSR", unitmeas(counter))
Call res.SetValue("PURUM", purchunit(counter))
Call res.SetValue("UMCNV", unitconv(counter))
Call res.SetValue("REFNO", reqno(0))
Call res.SetValue("PITD1", ext1(counter))
Call res.SetValue("PITD2", ext2(counter))
res.updaterow
counter=counter+1
End Forall
res.close(DB_CLOSE)
con.disconnect
End Sub