Problem/Issue 4392
 
Query for PDR ID
Example: search for PDR ID 109-9999 , just enter 9999 into the entry field and press ENTER.
Open Build: Open Date: Language:
1.60.252 15.06.2001 (All)
Closed Build: Close Date: Platform:
1.90.321 11.08.2005 WIN32
State: Reference PDR ID: Hotfix Rollup No.:
CLOSED    
Symptom:
PICTURE "@S" enlarges GET variable in INSERT mode
Description:
PICTURE "@S" enlarges the resulting variable when used within GET
and INSERT mode is switched ON.





Solution:
To work around the problem described in this PDR, please proceed as
follows:

 o Copy the file GETSYS.PRG to your project folder. GETSYS.PRG can be
   found in folder \SOURCE\SYS of your Xbase++ installation
 o Load file GETSYS.PRG into an editor
   o Add the following code at the end of the file:
     // Work-around for PDR 4392, 08|27|2004
     STATIC PROCEDURE GetInsert (oGet,cChar)
       LOCAL nLen := Len(oGet:buffer)

         oGet:insert(cChar)

         IF Len(oGet:buffer) > nLen
            oGet:buffer := Left(oGet:buffer,nLen)
         ENDIF
     RETURN

   o Locate the following line in function GetApplyKey():

     IF Set(_SET_INSERT)
        // --> Locate this line in GETSYS.PRG:
        oGet:insert( cChar )
     ELSE

     Change the code as follows:

     IF Set(_SET_INSERT)
        // Work-around for PDR 4392, 08|27|2004
        GetInsert(oGet,cChar)
     ELSE
 o Save GETSYS.PRG
 o Add GETSYS.PRG to your project (.XPJ) file
 o Rebuild your project





 
(C) Copyright Alaska Software Inc. 2008, All rights reserved!
Disclaimer, Limitation of Liability, no Warranty: THE INFORMATION, DOCUMENTS, FILES AND MATERIALS CONTAINED IN THIS SITE ARE PROVIDED "AS IS". ALASKA SOFTWARE DOES NOT WARRANT THE ACCURACY, ADEQUACY OR COMPLETENESS OF THIS INFORMATION AND MATERIALS; THUS EXPRESSLY DISCLAIMS LIABILITY FOR ERRORS OR OMISSIONS IN THIS INFORMATION AND MATERIALS.
WARRANTIES OF ANY KIND, IMPLIED, EXPRESSED OR STATUTORY, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF NON-INFRINGEMENT OF THIRD PARTY RIGHTS, TITLE, MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR RESOLVEMENT-CLAIMS, ARE DISCLAIMED.