Trying to access some documents that reside in a scanning program called
FileNET (Panagon). The help for developers is confusing and the API's are
useless
I would appreciate any help in converting the following VB code to VFP7 code
********************************************
PUBLIC function docget (byval prop as string)
ON ERROR goto errorhandler
sy = "Not Finished"
dim oidmlib as new idmobjects.library
dim oidmcn as new adodb.connection
dim rs as adodb.recordset
dim odoc as idmobjects.documnet
dim over as idmobject.version
dim connectionstring as string
dim x as string
oidmlib.systemtype = idmsystypeis
oidmlib.name = "nyshsascfh:filenet"
oidmlib.logon "aq0340",,,idmlogonoptnoui
oidmcn.provider = "fndbprovider"
oidmcn.connectionstring = "data source=nyshsascfh:filenet;systemtype = "&
idmsystypeis
oidmcn.open
SET rs = new recordset
rs.maxrecords = 500
rs.activeconnection = oidmcn
string1 = "select f_docnumber from fndocument where fairhearingnumber = '" &
prop & "'" & and f_docclassname = 'fairhearingdc'"
rs.open string1
while not rs.eof
holder = holder & rs("f_docnumber") & ","
rs.movenext
wend
IF rs.bof then
SET rs = nothing
sy = "no records"
END if
oidmcn.close
SET oidmcn = nothing
oidmlib.logoff
SET oidmlib = nothing
IF sy <> "no records" then
sy = holder
docget = sy
END IF
EXIT function
errorhandler:
sy = err.description
docget = sy
END function
*********************************************
seems extremely convoluted to me, (Not a VB programmer here), the above was
created as an "Out of Process" DLL, but the programmer who wrote this is no
longer with us and cannot be contacted for help. With my limited knowledge
of VB, I have tried to convert this to VFP 7 but to no avail.
Would appreciate any and all suggestions and help I can get
Thanks
Mohammed
www.imaginecorp.com/whatwedo.htm