&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r2 GUI &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure /********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: * * * *********************************************************************/ /*---------------------------------------------------------------------------- File: _key-fnd.p Description: Generate the code needed in an adm-find-using-key procedure (used by SmartViewers that support foreign keys). Input Parameters: p_context-id - (INTEGER) Context ID of the current procedure Output Parameters: p_Code - (CHAR) code to return. (Including "END PROCEDURE." ). Author: Wm.T.Wood Created: March, 1996 Modified: ----------------------------------------------------------------------------*/ DEFINE INPUT PARAMETER p_context-id AS INTEGER NO-UNDO. DEFINE OUTPUT PARAMETER p_code AS CHAR NO-UNDO. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: Procedure Allow: Frames: 0 Add Fields to: Neither Other Settings: CODE-ONLY COMPILE */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* ************************* Create Window ************************** */ &ANALYZE-SUSPEND _CREATE-WINDOW /* DESIGN Window definition (used by the UIB) CREATE WINDOW Procedure ASSIGN HEIGHT = 2 WIDTH = 40. */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure /* ***************************** Local Definitions ***************************** */ DEFINE VAR ch AS CHAR NO-UNDO. DEFINE VAR cnt AS INTEGER NO-UNDO. DEFINE VAR db-tbl AS CHARACTER NO-UNDO. DEFINE VAR db-tbl-fld AS CHARACTER NO-UNDO. DEFINE VAR dtype AS CHARACTER NO-UNDO. DEFINE VAR fld AS CHARACTER NO-UNDO. DEFINE VAR i AS INTEGER NO-UNDO. DEFINE VAR ipos AS INTEGER NO-UNDO. DEFINE VAR key AS CHARACTER NO-UNDO. DEFINE VAR key-list AS CHARACTER NO-UNDO. DEFINE VAR key-name AS CHARACTER NO-UNDO. DEFINE VAR key-test AS CHARACTER NO-UNDO. DEFINE VAR l_found-one AS LOGICAL NO-UNDO. DEFINE VAR proc-id AS INTEGER NO-UNDO. &Scoped-define COMMENT-LINE ------------------------------------------------------------------------------ /* Standard End-of-line character - adjusted in 7.3A to be just chr(10) */ &Scoped-define EOL CHR(10) /* ******************************** Main Code ********************************** */ /* Get the context of the current procedure. */ RUN adeuib/_uibinfo.p (INPUT p_context-id, ?, "PROCEDURE", OUTPUT ch). proc-id = INTEGER (ch). p_code = "/*{&COMMENT-LINE}" + {&EOL} + " Purpose: Finds the current record using the contents of" + {&EOL} + " the 'Key-Name' and 'Key-Value' attributes." + {&EOL} + " Parameters: " + {&EOL} + "{&COMMENT-LINE}*/". /* Get the ACCEPTED-KEYS from the "Foreign Keys" XFTR section. This should be a list of the form: key-name|y|y|db.table.field key-name||y|db.table.field Accepted keys are ones with a "y" as the second entry. */ RUN adm/support/_xgetdat.p (p_context-id, 'Foreign Keys':U, 'FOREIGN-KEYS':U, OUTPUT key-list). cnt = NUM-ENTRIES (key-list, CHR(10)). FOUND-ONE: DO i = 1 to cnt: IF ENTRY(2, ENTRY(i, key-list, CHR(10)), "|":U) eq "y":U THEN DO: l_found-one = yes. LEAVE FOUND-ONE. END. END. IF NOT l_found-one THEN DO: p_code = p_code + {&EOL} + {&EOL} + " /* No Foreign keys are accepted by this SmartObject. */" . END. ELSE DO: p_code = p_code + {&EOL} + " DEF VAR key-value AS CHAR NO-UNDO." + {&EOL} + " DEF VAR row-avail-enabled AS LOGICAL NO-UNDO." + {&EOL} + {&EOL} + " /* LOCK status on the find depends on FIELDS-ENABLED. */" + {&EOL} + " RUN get-attribute ('FIELDS-ENABLED':U)." + {&EOL} + " row-avail-enabled = (RETURN-VALUE eq 'yes':U)." + {&EOL} + " /* Look up the current key-value. */" + {&EOL} + " RUN get-attribute ('Key-Value':U)." + {&EOL} + " key-value = RETURN-VALUE." + {&EOL} + {&EOL} + " /* Find the current record using the current Key-Name. */" + {&EOL} + " RUN get-attribute ('Key-Name':U)." + {&EOL} + " CASE RETURN-VALUE:". /* The "key-list" is of the form "key-name|y|y|db.tbl.fld". Parse this. */ DO i = 1 TO cnt: key = TRIM(ENTRY(i, key-list, CHR(10))). /* Is this an ACCEPTED key? */ IF ENTRY(2, key, '|':U) eq "y":U THEN DO: ASSIGN key-name = TRIM(ENTRY(1, key, '|':U)) db-tbl-fld = TRIM(ENTRY(4, key, '|':U)) . /* Parse the db-tbl-fld into its basic components. */ ASSIGN ipos = R-INDEX(db-tbl-fld, '.':U) db-tbl = SUBSTRING(db-tbl-fld, 1, ipos - 1, "CHARACTER":U) fld = SUBSTRING(db-tbl-fld, ipos + 1, -1, "CHARACTER":U) . /* The user may have wanted to suppress the db name in the UIB. Ask the UIB to set up the database/table name. */ RUN adeuib/_dbtbnam.p (proc-id, db-tbl, OUTPUT db-tbl). /* Get the datatype of the key field, and use it to process the key-value. (That is, all attributes are CHAR, so we need to convert the other data types.) */ RUN adeshar/_fldtype.p (INPUT db-tbl-fld, OUTPUT dtype). CASE dtype: WHEN "CHARACTER":U THEN key-test = "key-value":U. WHEN "DATE":U THEN key-test = "DATE(key-value)":U. WHEN "DECIMAL":U THEN key-test = "DECIMAL(key-value)":U. WHEN "INTEGER":U THEN key-test = "INTEGER(key-value)":U. WHEN "RECID":U THEN key-test = "INTEGER(key-value)":U. WHEN "ROWID":U THEN key-test = "TO-ROWID(key-value)":U. OTHERWISE DO: MESSAGE "Unexpected DATA-TYPE:" dtype SKIP "Found while generating code to find a table using key '" + key-name + "'.":U SKIP(1) "Please check code for {&FILE-NAME}." VIEW-AS ALERT-BOX ERROR. key-test = "key-value":U. END. END CASE. p_code = p_code + {&EOL} + " WHEN '":U + key-name + "':U THEN" + {&EOL} + " ~{src/adm/template/find-tbl.i" + {&EOL} + " &TABLE = ":U + db-tbl + {&EOL} + " &WHERE = ~"WHERE ":U + db-tbl + ".":U + fld + " eq ":U + key-test + "~"" + {&EOL} + " }". END. /* IF...y... */ END. /* Close the Case statement. */ p_code = p_code + {&EOL} + " END CASE." . END. /* End the Procedure. */ p_code = p_code + {&EOL} + {&EOL} + "END PROCEDURE.". /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME