Xbase++ : ErrorSys

[AUGE_OHR]

hi,

have enhance QT ErrorSys and now i got Information like Xbase++ Style

QT_Error_XB1.jpg (59.46 KiB) Viewed 978 times

it is just 1st Version so do not expect to much

hbqt_errorsys_01.zip

(3.7 KiB) Downloaded 119 times

have fun

[AUGE_OHR]

hi,

Sorry, there is a Error in last Version

Code: Select all

   cLog +=  "IndexOrd()          :" + LTRIM( STR( ORDNUMBER() ) )+CRLF
   IF ORDNUMBER() > 0
      cLog +=  "Indexfocus()        :" + ORDSETFOCUS()+CRLF
      cLog +=  "Indexname()         :" + ORDNAME()+CRLF
      cLog +=  "Indexkey()          :" + ORDKEY()+CRLF
   ENDIF
   IF USED()

must be

Code: Select all

   IF USED()
      cLog +=  "IndexOrd()          :" + LTRIM( STR( ORDNUMBER() ) )+CRLF
      IF ORDNUMBER() > 0
         cLog +=  "Indexfocus()        :" + ORDSETFOCUS()+CRLF
         cLog +=  "Indexname()         :" + ORDNAME()+CRLF
         cLog +=  "Indexkey()          :" + ORDKEY()+CRLF
      ENDIF
  ENDIF

else it give a recursive Error when no DBF is used