Kbase P60720: How to supress the data dictionary field validations when us
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
12/26/2003 |
|
Status: Unverified
GOAL:
How to suppress the data dictionary field validations when using a dynamic browse object?
FIX:
The following sample code creates a dynamic browse against the customer table of the sports database. It uses the buffer-field's object VALIDATE-EXPRESSION attribute to suppress all existing field database validations:
DEFINE VARIABLE hFrame AS HANDLE NO-UNDO.
DEFINE VARIABLE hBrowse AS HANDLE NO-UNDO.
DEFINE VARIABLE hQuery AS HANDLE NO-UNDO.
DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO.
DEFINE VARIABLE hField AS HANDLE NO-UNDO.
DEFINE VARIABLE cQueryString AS CHARACTER NO-UNDO.
DEFINE VARIABLE iField AS INTEGER NO-UNDO.
DEFINE FRAME fBrowseFrame
WITH SIZE 80 BY 20 NO-LABELS.
CREATE BUFFER hBuffer
FOR TABLE "Customer" BUFFER-NAME "bCustomer".
ASSIGN
hFrame = frame fBrowseFrame:HANDLE
cQueryString = "for each bCustomer where bCustomer.Balance <> ? no-lock.".
CREATE QUERY hQuery.
hQuery:SET-BUFFERS(hBuffer).
hQuery:QUERY-PREPARE(cQueryString).
hQuery:QUERY-OPEN.
CREATE BROWSE hBrowse
ASSIGN
FRAME = hFrame
QUERY = hQuery
WIDTH = 60
DOWN = 5
ROW-MARKERS = NO
VISIBLE = YES
SENSITIVE = YES
READ-ONLY = YES
COLUMN-SCROLLING = YES
SEPARATORS = YES
EXPANDABLE = NO
COLUMN-RESIZABLE = YES.
DO iField = 1 TO hBuffer:NUM-FIELDS:
ASSIGN
hField = hBuffer:BUFFER-FIELD(iField)
hField:VALIDATE-EXPRESSION = ''.
hBrowse:ADD-LIKE-COLUMN(hField).
END.
WAIT-FOR CLOSE OF THIS-PROCEDURE.