Error Management for VO 2.8 SP3 compatible

Prev: Problems connecting to SQL Server Express
Next: help help help... invalid record header..

From: Rene J. Pajaron on 6 Jul 2010 09:05

---

Hello,

I read it somewhere that there is VO error management system that
replaces VO built-in error log. I would like to make my users and
field support staff alike well-informed and undo some confusion that
about what is runtime error window is and error/info boxes that I used
to display warnings and information.

Built-in routines for email (and SMS?), that would be great.

I am using VO2.8 SP3.

Thanks in advance.

Regards,

Rene

From: Geoff Schaller on 7 Jul 2010 04:48

---

Yes. My SO Service Client does all that and more. Google back for a full
set of instructions in this newsgroup but you can get the code and
sample client from:

ftp://www.softwareobjectives.com.au/anonymous/so.service.client.zip

Cheers,

Geoff



"Rene J. Pajaron" <rjpajaron(a)gmail.com> wrote in message
news:49bf9850-3ea1-4288-b8b0-c6c3066aa99d(a)a4g2000prm.googlegroups.com:

> Hello,
>
> I read it somewhere that there is VO error management system that
> replaces VO built-in error log. I would like to make my users and
> field support staff alike well-informed and undo some confusion that
> about what is runtime error window is and error/info boxes that I used
> to display warnings and information.
>
> Built-in routines for email (and SMS?), that would be great.
>
> I am using VO2.8 SP3.
>
> Thanks in advance.
>
> Regards,
>
> Rene

From: richard.townsendrose on 7 Jul 2010 06:30

---

Rene

in your shell window init() method put this

// set up TDOC Error system
SELF:VOErrorBlock:=ErrorBlock({ | oErr | TDOCErrorHandler(oErr) })


then you need to catch it. we do two things
a) write an error log
b) place a message on screen and close ... try to force the user to
tell us...

here's the code for the first bit - we close everything and "logout"
you can pass what you wabt to your "bug box".

we have two levels - the bug box, and then the details in a textbox{}

FUNCTION TDOCErrorHandler(oError AS Error)
LOCAL cText := '' AS STRING
LOCAL oBugBox AS BugDetail2
LOCAL cErrMsg := '' AS STRING
LOCAL cErrLog := '' AS STRING
LOCAL aErrData AS ARRAY

// back to vo error block
ErrorBlock({ | oErr | _Break(oErr) })

BEGIN SEQUENCE

aErrData := TDOCWriteErrLog(oError) // writes err log file
cErrMsg:=aErrData[1]
cErrLog:=aErrData[2]

oBugBox:=BugDetail2{SysObject(), {cErrLog, cErrMsg} }:Show()

END SEQUENCE

CloseLookups()
IF ! SysObject():Login == NULL_OBJECT
SysObject():Login:Logout(TRUE, cErrLog)
ENDIF
IF ! SysObject():Licence == NULL_OBJECT
SysObject():Licence:LogOut()
ENDIF
AdsApplicationExit()
QUIT

RETURN NIL



FUNCTION TDOCWriteErrLog(oError AS Error) AS ARRAY STRICT
LOCAL cPath := '' AS STRING
LOCAL cFile := '' AS STRING // ErrorLog
LOCAL cText := '' AS STRING
LOCAL siHandle := 0 AS PTR
LOCAL wi := 0 AS DWORD
LOCAL cEntity := '' AS STRING
LOCAL aArgs := {} AS ARRAY
LOCAL cErrorMsg := '' AS STRING
LOCAL liSize := 0 AS LONG
LOCAL uLine AS USUAL

cPath := AllTrim(WorkDir())
IF Right(cPath,1) <> '\'
cPath := cPath + '\'
ENDIF
cFile := cPath + 'T'+SubStr3(Time(),1,2)+SubStr3(Time(),
4,2)+SubStr3(Time(),7,2)+'.ERR'
IF ! File(cFile)
siHandle := FCreate2(cFile,FC_NORMAL)
FClose(siHandle)
ENDIF
siHandle := FOpen2(cFile,FO_WRITE+FO_EXCLUSIVE)
FSeek3(siHandle,0L,FS_END)

FWriteLine(siHandle,LoadResString('TDOC System
Information',IDG_TDOCSYSTEMINFORMATION,nPLH))
FWriteLine(siHandle,LoadResString('Application',IDG_APPLICATION,nPLH)
+': '+SysObject():AppName)
FWriteLine(siHandle,LoadResString('Version',TG_VERSION,nPLH)+':
'+_TDOC_VERSION+"."+_TDOC_MAJORRELEASE+"."+_TDOC_MINORRELEASE)
FWriteLine(siHandle,LoadResString('User Name
Ref',IDG_USERNAMEREF,nPLH)+': '+ SysObject():GetSet(AppUser))
FWriteLine(siHandle,LoadResString('Error File',IDG_ERRORFILE,nPLH)+':
'+cFile)
FWriteLine(siHandle,LoadResString('Date',ID_DATE,nPLH)+':
'+DToC(Today()))
FWriteLine(siHandle,LoadResString('Time',ID_TIME,nPLH)+': '+Time())
FWriteLine(siHandle,LoadResString('Windows
Version',IDG_WINDOWSVERSION,nPLH)+': '+WinVersionInfo())
//FWriteLine(siHandle,'Ext Error: '+GetExtError())
FWriteLine(siHandle,'Data Set: ' +
SysObject():GetSet(DataPath))

FWriteLine(siHandle,'')
FWriteLine(siHandle,LoadResString('TDOC Where-in-Program
Information',IDG_TDOCWHEREINPROGRAM,nPLH))
//
123456789012345678901234567890123456789012345678901234567890
FWriteLine(siHandle,'Module Entity
Line No')
wi := 0
cEntity := STRING(ProcName(wi))
DO WHILE ! Empty(cEntity)
cText := PadR(STRING(ProcFile(wi)),20)
cText := cText + PadR(cEntity,28)
uLine := ProcLine(wi)
IF uLine <> NIL
cText := cText + PadL(NTrim(uLine),4)
ENDIF
FWriteLine(siHandle,cText)
wi:=wi + 1
cEntity := STRING(ProcName(wI))
ENDDO

FWriteLine(siHandle,'')
FWriteLine(siHandle,LoadResString('Error
Detail',IDG_ERRORDETAIL,nPLH))
FWriteLine(siHandle,'Arg: '+oError:Arg)
FWriteLine(siHandle,'ArgNum: '+NTrim(oError:ArgNum))
aArgs := oError:Args
FOR wI := 1 UPTO ALen(aArgs)
FWriteLine(siHandle,'Args: '+Str(wI,3)+AsString(aArgs[wI])
+' : '+TypeString(UsualType(aArgs[wI])))
NEXT
FWriteLine(siHandle,'ArgType: '+TypeString(oError:ArgType))
FWriteLine(siHandle,'ArgTypeReq:
'+TypeString(oError:ArgTypeReq))
FWriteLine(siHandle,'CallFuncSym:
'+Symbol2String(oError:CallFuncSym))
FWriteLine(siHandle,'CanDefault: '+AsString(oError:CanDefault))
FWriteLine(siHandle,'CanRetry: '+AsString(oError:CanRetry))
FWriteLine(siHandle,'CanSubstitute:
'+AsString(oError:CanSubstitute))
FWriteLine(siHandle,'Description: '+oError:Description)
FWriteLine(siHandle,'FileHandle: '+NTrim(oError:FileHandle))
FWriteLine(siHandle,'FileName: '+oError:FileName)
FWriteLine(siHandle,'FuncPtr: '+AsString(oError:FuncPtr))
FWriteLine(siHandle,'FuncSym:
'+Symbol2String(oError:FuncSym))
FWriteLine(siHandle,'GenCode: '+ErrString(oError:GenCode))
FWriteLine(siHandle,'MaxSize: '+NTrim(oError:MaxSize))
FWriteLine(siHandle,'MethodSelf: '+AsString(oError:MethodSelf))
FWriteLine(siHandle,'Operation: '+oError:Operation)
FWriteLine(siHandle,'OsCode: '+NTrim(oError:OsCode)+' :
'+DosErrString(oError:OsCode))
IF oError:Severity == ES_CATASTROPHIC
FWriteLine(siHandle,'Severity: CATASTROPHIC')
ELSEIF oError:Severity == ES_ERROR
FWriteLine(siHandle,'Severity: ERROR')
ELSEIF oError:Severity == ES_WARNING
FWriteLine(siHandle,'Severity: WARNING')
ENDIF
FWriteLine(siHandle,'SubCode: '+NTrim(oError:SubCode))
FWriteLine(siHandle,'SubCodeText: '+oError:SubCodeText)
FWriteLine(siHandle,'SubstituteType:
'+TypeString(oError:SubstituteType))
FWriteLine(siHandle,'SubSystem: '+oError:SubSystem)
FWriteLine(siHandle,'Tries: '+NTrim(oError:Tries))

FWriteLine(siHandle,'')
FWriteLine(siHandle,LoadResString('TDOC User Status
Information',IDG_TDOCUSERSTATUSINFO,nPLH))
FWriteLine(siHandle,'ACTIVATION:
'+NTrim(Memory(MEMORY_ACTIVATION)))
FWriteLine(siHandle,'CLASSCOUNT:
'+NTrim(Memory(MEMORY_CLASSCOUNT)))
FWriteLine(siHandle,'COLLECT:
'+NTrim(Memory(MEMORY_COLLECT)))
FWriteLine(siHandle,'COLLECTCOUNT:
'+NTrim(Memory(MEMORY_COLLECTCOUNT)))
FWriteLine(siHandle,'CS:
'+NTrim(Memory(MEMORY_CS)))
FWriteLine(siHandle,'CS_SIZE:
'+NTrim(Memory(MEMORY_CS_SIZE)))
FWriteLine(siHandle,'DB_DS:
'+NTrim(Memory(MEMORY_DB_DS)))
FWriteLine(siHandle,'DB_DS_SIZE:
'+NTrim(Memory(MEMORY_DB_DS_SIZE)))
FWriteLine(siHandle,'DS:
'+NTrim(Memory(MEMORY_DS)))
FWriteLine(siHandle,'DS_SIZE:
'+NTrim(Memory(MEMORY_DS_SIZE)))
FWriteLine(siHandle,'DYNINFOFREE:
'+NTrim(Memory(MEMORY_DYNINFOFREE)))
FWriteLine(siHandle,'DYNINFOMAX:
'+NTrim(Memory(MEMORY_DYNINFOMAX)))
FWriteLine(siHandle,'DYNINFOSIZE:
'+NTrim(Memory(MEMORY_DYNINFOSIZE)))
FWriteLine(siHandle,'DYNINFOUSED:
'+NTrim(Memory(MEMORY_DYNINFOUSED)))
FWriteLine(siHandle,'FUNCTIONCOUNT:
'+NTrim(Memory(MEMORY_FUNCTIONCOUNT)))
FWriteLine(siHandle,'GLOBALSEL:
'+NTrim(Memory(MEMORY_GLOBALSEL)))
FWriteLine(siHandle,'MAXATOM:
'+NTrim(Memory(MEMORY_MAXATOM)))
FWriteLine(siHandle,'MEMTOTAL:
'+NTrim(Memory(MEMORY_MEMTOTAL)))
FWriteLine(siHandle,'PRIVAT:
'+NTrim(Memory(MEMORY_PRIVAT)))
FWriteLine(siHandle,'PUBLIC:
'+NTrim(Memory(MEMORY_PUBLIC)))
FWriteLine(siHandle,'REGCOLLNOTIFYEND_COUNT:
'+NTrim(Memory(MEMORY_REGCOLLNOTIFYEND_COUNT)))
FWriteLine(siHandle,'REGCOLLNOTIFYSTART_COUNT:
'+NTrim(Memory(MEMORY_REGCOLLNOTIFYSTART_COUNT)))
FWriteLine(siHandle,'REGISTERAXIT:
'+NTrim(Memory(MEMORY_REGISTERAXIT)))
FWriteLine(siHandle,'REGISTEREXIT_COUNT:
'+NTrim(Memory(MEMORY_REGISTEREXIT_COUNT)))
FWriteLine(siHandle,'REGISTERKID:
'+NTrim(Memory(MEMORY_REGISTERKID)))
FWriteLine(siHandle,'RT_DGROUP:
'+NTrim(Memory(MEMORY_RT_DGROUP)))
FWriteLine(siHandle,'RT_DS:
'+NTrim(Memory(MEMORY_RT_DS)))
FWriteLine(siHandle,'SEQUENCE:
'+NTrim(Memory(MEMORY_SEQUENCE)))
FWriteLine(siHandle,'SP:
'+NTrim(Memory(MEMORY_SP)))
FWriteLine(siHandle,'SS:
'+NTrim(Memory(MEMORY_SS)))
FWriteLine(siHandle,'STACK_FREE:
'+NTrim(Memory(MEMORY_STACK_FREE)))
FWriteLine(siHandle,'STACK_SIZE:
'+NTrim(Memory(MEMORY_STACK_SIZE)))
FWriteLine(siHandle,'STACKKID:
'+NTrim(Memory(MEMORY_STACKKID)))
FWriteLine(siHandle,'SYSTEM_FREE:
'+NTrim(Memory(MEMORY_SYSTEM_FREE)))
FWriteLine(siHandle,'SYSTEM_MAX:
'+NTrim(Memory(MEMORY_SYSTEM_MAX)))
FWriteLine(siHandle,'WINDOWS_SYSTEMRESOURCES:
'+NTrim(Memory(MEMORY_WINDOWS_SYSTEMRESOURCES)))
FWriteLine(siHandle,'WINDOWS_GDIRESOURCES:
'+NTrim(Memory(MEMORY_WINDOWS_GDIRESOURCES)))
FWriteLine(siHandle,'WINDOWS_SYSTEMRESOURCES:
'+NTrim(Memory(MEMORY_WINDOWS_USERRESOURCES)))

liSize := FTell(siHandle)
liSize := IIF(liSize > 64000,64000,liSize)

cErrorMsg := Space(DWORD(liSize))

FCommit(siHandle)
FClose(siHandle)

siHandle:= FOpen2(cFile, FO_READ+FO_SHARED)
cErrorMsg:= FReadStr(siHandle, DWORD(liSize))

FClose(siHandle)

RETURN {cErrorMsg, cFile}

hope that easier than using geoff's stuff ..

apologies geoff

richard

From: John Martens on 7 Jul 2010 08:05

---

Rene,

I just check for teh VO error file at startup and if it is there I mail
it to me.
Most of the times this gives me enough clues what to fix.

Cheers,
John


Op 6-7-2010 15:05, Rene J. Pajaron schreef:
> Hello,
>
> I read it somewhere that there is VO error management system that
> replaces VO built-in error log. I would like to make my users and
> field support staff alike well-informed and undo some confusion that
> about what is runtime error window is and error/info boxes that I used
> to display warnings and information.
>
> Built-in routines for email (and SMS?), that would be great.
>
> I am using VO2.8 SP3.
>
> Thanks in advance.
>
> Regards,
>
> Rene

From: Rene J. Pajaron on 7 Jul 2010 22:43

---

Geoff,

Thank you very much. I am thinking about you when I post this
question, I just do not know the proper keyword to use in searching
this.

Thanks,

Rene

On Jul 7, 4:48 pm, "Geoff Schaller"
<geo...(a)softwarexobjectives.com.au> wrote:
> Yes. My SO Service Client does all that and more. Google back for a full
> set of instructions in this newsgroup but you can get the code and
> sample client from:
>
> ftp://www.softwareobjectives.com.au/anonymous/so.service.client.zip
>
> Cheers,
>
> Geoff
>
> "Rene J. Pajaron" <rjpaja...(a)gmail.com> wrote in messagenews:49bf9850-3ea1-4288-b8b0-c6c3066aa99d(a)a4g2000prm.googlegroups.com:
>
> > Hello,
>
> > I read it somewhere that there is VO error management system that
> > replaces VO built-in error log.  I would like to make my users and
> > field support staff alike well-informed and undo some confusion that
> > about what is runtime error window is and error/info boxes that I used
> > to display warnings and information.
>
> > Built-in routines for email (and SMS?), that would be great.
>
> > I am using VO2.8 SP3.
>
> > Thanks in advance.
>
> > Regards,
>
> > Rene
>
>

 |  Next  |  Last
Pages: 1 2
Prev: Problems connecting to SQL Server Express
Next: help help help... invalid record header..