Duplicate records not allowed in file wxsess

MSG_ERROR_REPORT (433) - OWXWEBAPPERROR (18) - at address 4559
MSG_ERROR_REPORT (433) - OWXWEBAPPERROR (18) - at address 14498
GET_CREATEANONYMOUSSESSION (6167) - OWXSESSION (52) - at address 21508
GET_NEWUSERID (6367) - OWXUSER (119) - at address 23779
GET_DOCALL (1284) - OCALLINTERFACE (120) - in native code
GET_DOCALL (1284) - OWXUSER (119) - at address 8678
MSG_ONDFFUNC (4901) - OVDFINETSESSION (40) - at address 7256
MSG_STARTWEBAPP (5261) - OWEBAPP (38) - at address 11436
[start] - at address 36069


VDF-GUIdance - Autocoloring indexfields
This article was brought to you by the guys from VDF-GUIdance.
For more DataFlex targeted articles see http://www.vdf-guidance.com

Autocoloring indexfields

by Peter Bosch

Summary

This package contains a subclass extension that automatically colors a data-aware object if it has search capabilities. This way the user will know on what field he/she can use the find keys (F7/F8/F9). In the package is also an example of how to subclass the dbform and the dbgrid class. Files for support in the IDE are also included.		 Size: 3 KB Download
Date Created: 06/10/1999
Date Updated: 31/01/2000
Author: Peter Bosch
Company: info trans Logistik Systems GmbH


This package contains a subclass extension that automatically colors a data-aware object if it has search capabilities. This way the user will know on what field he/she can use the find keys (F7/F8/F9).
Part of the package is also an example of how-to subclass the dbform and the dbgrid class.
Files for support in the IDE/Studio are also included and the package has been tested to work with VDF5 - VDF9
The screenshot above shows a revised Customer Entry View which is exactly the same as the original view as in the standard Order Entry Example .
The change between this view and the one in your example workspace is that the dbForms used are not the standard dbForms, but cWikadbForms instead.
( Note: A cWikadbForm class is the dbForm subclass which is supplied with this package )
Quite recently there has been a question on the newsgroups on how one would apply the same technique for required fields.
Below is some example code in which a required field adds a star to the label.

  Function Is_Required Returns Integer
    Integer Srvr Field# OK
    Get Server To Srvr
    If (Srvr = 0) Function_Return 0
    Get Data_Field  To Field#
    Get Field_Option of Srvr Field# DD_REQUIRED to OK
    Function_Return OK
  End_Function

  Function Required_KZ Returns String
    If (Is_Required(Self)) Function_Return "*"
    Function_Return ""
  End_Function

  Procedure Set Label String Val
     Forward Set Label To (Trim(Required_KZ(Self) * Label))
  End_Procedure

Download



Autocolor.zip

Links



Sonata Software Multimedia Presentation A nice presentation with voice over that explains more in details on how-to use this subclass in your application.

Copyright © 1999 - 2025 VDF-GUIdance on all material published, for details see our Disclaimer.