Hi All
A riddle within a mystery of an enigma. The code below runs fine on a Windows 7 PC. An exact copy of the application on a Windows XP PC yields an unhandled exception error. see attachment image. A5V9 Build 2095_3264 is installed on all the PC's. The script line in question: qry = tbl.query_create() .
Any pointers on this would be appreciated.
Thanks
Peter Gagiano
A riddle within a mystery of an enigma. The code below runs fine on a Windows 7 PC. An exact copy of the application on a Windows XP PC yields an unhandled exception error. see attachment image. A5V9 Build 2095_3264 is installed on all the PC's. The script line in question: qry = tbl.query_create() .
Code:
'debug(1) dim tPoseTable as p dim tbl as p Added 16 Apr 2010 tPoseTable = table.open("tpose") tbl = table.open("delsess") primTable = table.open("delgidlist") primtable.fetch_first() While .not. primtable.fetch_eof() vcurrentrec = primTable.Delegateoid dim tbl as p tbl.fetch_first() tbl.index_primary_put("Delgoidsessoid") query.description = "ActivitySheet" query.order = "" query.filter = "(DelegateOid = VAR->vcurrentrec) .and. (Void = .F. )" query.options = "" qry = tbl.query_create() 'nrecs = qry.records_get() dim vcounter as n vcounter = 1 While .not. tbl.fetch_eof() ' START INNER LOOP '------------------------ if vcounter = 1 then tPoseTable.enter_begin() 'enter field values tPoseTable.Delegateoid = tbl.Delegateoid tPoseTable.DTitle = tbl.DTitle tPoseTable.DInitials = tbl.Initials tPoseTable.Dname = tbl.dname tPoseTable.Dsurname = tbl.Dsurname tPoseTable.Company = tbl.Company tPoseTable.Country = tbl.Country tPoseTable.Activity1 = tbl.Sessdesc tPoseTable.enter_end(.T.) elseif vcounter = 2 then tposetable.index_primary_put("DelegateOid") recfound = tposetable.fetch_find(vcurrentrec) IF recfound > 0 THEN tPoseTable.change_begin() tPoseTable.Activity2 = tbl.Sessdesc tPoseTable.change_end(.T.) end if elseif vcounter = 3 then tposetable.index_primary_put("DelegateOid") recfound = tposetable.fetch_find(vcurrentrec) IF recfound > 0 THEN tPoseTable.change_begin() tPoseTable.Activity3 = tbl.Sessdesc tPoseTable.change_end(.T.) end if elseif vcounter = 4 then tposetable.index_primary_put("DelegateOid") recfound = tposetable.fetch_find(vcurrentrec) IF recfound > 0 THEN tPoseTable.change_begin() tPoseTable.Activity4 = tbl.Sessdesc tPoseTable.change_end(.T.) end if elseif vcounter = 5 then tposetable.index_primary_put("DelegateOid") recfound = tposetable.fetch_find(vcurrentrec) IF recfound > 0 THEN tPoseTable.change_begin() tPoseTable.Activity5 = tbl.Sessdesc tPoseTable.change_end(.T.) end if elseif vcounter = 6 then tposetable.index_primary_put("DelegateOid") recfound = tposetable.fetch_find(vcurrentrec) IF recfound > 0 THEN tPoseTable.change_begin() tPoseTable.Activity6 = tbl.Sessdesc tPoseTable.change_end(.T.) end if elseif vcounter = 7 then tposetable.index_primary_put("DelegateOid") recfound = tposetable.fetch_find(vcurrentrec) IF recfound > 0 THEN tPoseTable.change_begin() tPoseTable.Activity7 = tbl.Sessdesc tPoseTable.change_end(.T.) end if elseif vcounter = 8 then tposetable.index_primary_put("DelegateOid") recfound = tposetable.fetch_find(vcurrentrec) IF recfound > 0 THEN tPoseTable.change_begin() tPoseTable.Activity8 = tbl.Sessdesc tPoseTable.change_end(.T.) end if end if '------------------------- vcounter = vcounter + 1 tbl.fetch_next() End While ' END INNER LOOP primtable.fetch_next() End While tPoseTable.close() tbl.close() primtable.close()
Thanks
Peter Gagiano
Comment