Mario H. Sabado wrote:
------------------------------
Message: 10
Date: Mon, 26 May 2008 22:38:39 -0700 (PDT)
From: Edmer <[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>>
Subject: [Harbour] Issue #3 about GET command
To: harbour@harbour-project.org <mailto:harbour@harbour-project.org>
Message-ID: <[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>>
Content-Type: text/plain; charset=us-ascii
In the following test prg, If I typed 12345678.12345 in the GET the it
will
display 12345678.12345 in the next line where the GET and SAY displays are
aligned. But if I didn't typed any data and just press <enter> only
then it
will display _____12345.7689. The SAY display is not aligned with the GET
display by 2 spaces in the left. Please advice.
*--- Start here ---
PROCEDURE MAIN
local getlist := {}
local c1 := 12345.7689
clear screen
@ 1,1 get c1 pict "99999999.99999"
read
@ 3,1 say c1
RETURN
*---
Regards,
Ed
--------------
The same problem encountered when building the DBU utility with
(x)Harbour. When you open a table together with an existing index and
try to rebuild the index by pressing F3, 2 chars from left are truncated.
Regards,
Mario
Hi
I just started with this project, and my builded with Harbour DBU also
truncate 2 character from left, but it is not GET problem
DBU builded with Harbour truncate 2 chars from left, becouse INDEXEXT()
function return ".ntx" (small cases)
defined in nbrddntx.h
-----------------------------------------------
/* DBFNTX default extensions */
#define NTX_INDEXEXT ".ntx"
-----------------------------------------------
Here is code from dbuutil.prg:
___________________________________
FUNCTION ntx_key
PARAMETERS filename
PRIVATE k, buffer, handle, k_pos
* initialize variable to hold key expression
k = ""
IF FILE(M->filename)
* only if the file exists
IF INDEXEXT() = ".NTX"
* Clipper index file format
k_pos = 23
ELSE
* .NDX..dBASE index file format
k_pos = 25
ENDIF
.......
__________________________________
I chaghe IF INDEXEXT() = ".NTX" to
IF UPPER(INDEXEXT()) = ".NTX"
and my DBU work fine
------------------------------------------------------------------------
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
