f



Clipper GET different than xHarbour GET when UPDATED() = .F.

I'm porting pretty big application from Clipper 5.3b to xHarbour 1.0.0.
I have found one difference between Clipper and xHarbour.
Look at the sample code:

PROCEDURE test()
CLS
a := 1 / 3
@ 10,10 GET a PICTURE "@E 999,999.9"
KEYBOARD CHR(13)    // simulate user pressing Enter
READ
b := a * 3
@ 12,10 SAY b PICTURE "@E 999,999.99999"
// in Clipper 5.3b   you will see: 1,00000
// in xHarbour 1.000 you will see: 0,90000
RETURN

In Clipper, when GET variable is not updated it retains it's precision,
but in xHarbour it is rounded according to the PICTURE clause.
It is very important difference for me. Now i must fix my code using
UPDATE() or oGet:Changed statements in many places.
Is it any solution to fix it globally for xHarbour 1.0.0 ? (I must stay for
that moment with this stable version of xHarbour because I use 
OTC libraries - Terminal and Mediator for Oracle)

Regards
Grzegorz


0
4/24/2008 3:24:27 PM
comp.lang.xharbour 5470 articles. 0 followers. Post Follow

9 Replies
1073 Views

Similar Articles

[PageSpeed] 40

Grzegorz,


Grzegorz Wojnarowski escreveu:

> I'm porting pretty big application from Clipper 5.3b to xHarbour 1.0.0.
> I have found one difference between Clipper and xHarbour.
> Look at the sample code:
>
> PROCEDURE test()
> CLS
> a := 1 / 3
> @ 10,10 GET a PICTURE "@E 999,999.9"
> KEYBOARD CHR(13)    // simulate user pressing Enter
> READ
> b := a * 3
> @ 12,10 SAY b PICTURE "@E 999,999.99999"
> // in Clipper 5.3b   you will see: 1,00000
> // in xHarbour 1.000 you will see: 0,90000
> RETURN
>
> In Clipper, when GET variable is not updated it retains it's precision,
> but in xHarbour it is rounded according to the PICTURE clause.
> It is very important difference for me. Now i must fix my code using
> UPDATE() or oGet:Changed statements in many places.
> Is it any solution to fix it globally for xHarbour 1.0.0 ? (I must stay for
> that moment with this stable version of xHarbour because I use
> OTC libraries - Terminal and Mediator for Oracle)
>
In my opinion it is not a bug of xHarbour, but a question of
precision;
xharbour is just more accurate.

see,

PROCEDURE test()
CLS
a := 1 / 3
@ 10,10 GET a PICTURE "@E 999,999.9999999999"
 KEYBOARD CHR(13)    // simulate user pressing Enter
READ
b := a * 3
@ 12,10 SAY b PICTURE "@E 999,999.9999999999"

// output:  CLIPPER                           0,3333333333
//                                                      0,1000000000

// output:  xHarbour                            0,3333333333
//                                                      0,9999999999

RETURN

mathematically, xharbour is correct.

Reinaldo
0
reinaldohf (90)
4/24/2008 4:52:05 PM
..... continue

in all my code when i don't need precision, i use ROUND(nValue, 2).

Reinaldo
0
reinaldohf (90)
4/24/2008 5:04:58 PM
On Apr 24, 8:24=A0am, "Grzegorz Wojnarowski"
<grzegorz.wojnarow...@remove.psi.wroc.pl> wrote:
> I'm porting pretty big application from Clipper 5.3b to
> xHarbour 1.0.0.  I have found one difference between
> Clipper and xHarbour. Look at the sample code:
>
> PROCEDURE test()
> CLS
> a :=3D 1 / 3
> @ 10,10 GET a PICTURE "@E 999,999.9"
> KEYBOARD CHR(13) =A0 =A0// simulate user pressing Enter
> READ
> b :=3D a * 3
> @ 12,10 SAY b PICTURE "@E 999,999.99999"
> // in Clipper 5.3b =A0 you will see: 1,00000
> // in xHarbour 1.000 you will see: 0,90000
> RETURN
>
> In Clipper, when GET variable is not updated it
> retains it's precision, but in xHarbour it is
> rounded according to the PICTURE clause. It is
> very important difference for me. Now i must
> fix my code using UPDATE() or oGet:Changed
> statements in many places.  Is it any solution
> to fix it globally for xHarbour 1.0.0 ? (I must
> stay for that moment with this stable version
> of xHarbour because I use OTC libraries -
> Terminal and Mediator for Oracle)

I would question how xHarbour behaves when you use "KEYBOARD
CHR(27)".  The <Enter> key is "save changes" according to Clipper
documentation.  This might save you making massive changes.

David A. Smith
0
dlzc1 (2365)
4/24/2008 7:30:57 PM
Reinaldo

----- Original Message ----- 
From: <reinaldohf@gmail.com>
Newsgroups: comp.lang.xharbour
Sent: Thursday, April 24, 2008 6:52 PM
Subject: Re: Clipper GET different than xHarbour GET when UPDATED() = .F.


> Grzegorz,
>
>
> Grzegorz Wojnarowski escreveu:
>
>> I'm porting pretty big application from Clipper 5.3b to xHarbour 1.0.0.
>> I have found one difference between Clipper and xHarbour.
>> Look at the sample code:
>>
>> PROCEDURE test()
>> CLS
>> a := 1 / 3
>> @ 10,10 GET a PICTURE "@E 999,999.9"
>> KEYBOARD CHR(13)    // simulate user pressing Enter
>> READ
>> b := a * 3
>> @ 12,10 SAY b PICTURE "@E 999,999.99999"
>> // in Clipper 5.3b   you will see: 1,00000
>> // in xHarbour 1.000 you will see: 0,90000
>> RETURN
>>
>> In Clipper, when GET variable is not updated it retains it's precision,
>> but in xHarbour it is rounded according to the PICTURE clause.
>> It is very important difference for me. Now i must fix my code using
>> UPDATE() or oGet:Changed statements in many places.
>> Is it any solution to fix it globally for xHarbour 1.0.0 ? (I must stay 
>> for
>> that moment with this stable version of xHarbour because I use
>> OTC libraries - Terminal and Mediator for Oracle)
>>
> In my opinion it is not a bug of xHarbour, but a question of
> precision;
> xharbour is just more accurate.
>
> see,
>
> PROCEDURE test()
> CLS
> a := 1 / 3
> @ 10,10 GET a PICTURE "@E 999,999.9999999999"
> KEYBOARD CHR(13)    // simulate user pressing Enter
> READ
> b := a * 3
> @ 12,10 SAY b PICTURE "@E 999,999.9999999999"
>
> // output:  CLIPPER                           0,3333333333
> //                                                      0,1000000000
>
> // output:  xHarbour                            0,3333333333
> //                                                      0,9999999999
>
> RETURN
>
> mathematically, xharbour is correct.
>
> Reinaldo


I don't say that it is a bug in xHarbour, but xHarbour is not compatible 
with Clipper at this point.
In Clipper, when you don't update numerical variable in the GET, variable 
remains unchanged
(oGet:Changed == .F. and  a_after := a_before)
Otherwise in xHarbour it is ALWAYS rounded according to the GET picture
(oGet:Changed == .F. but a_after := VAL(TRAN(a_before, oGet:Picture))


Your sample:
   // output:  CLIPPER                           0,3333333333
   //                                                     0,1000000000
This is correct! Try in xHarbour:
a := 1/3
@ 10,10 SAY a PICTURE "@E 999,999.9999999999"
@ 11,10 SAY a*3 PICTURE "@E 999,999.9999999999"

you will get the same!


Regards
Grzegorz 

0
4/24/2008 7:43:07 PM
Uzytkownik "dlzc" napisal ...

> I would question how xHarbour behaves when you use "KEYBOARD
> CHR(27)".  The <Enter> key is "save changes" according to Clipper
> documentation.  This might save you making massive changes.

> David A. Smith

Dear David

There is no difference if i use KEYBOARD CHR(13), KEYBOARD CHR(27)
or remove this line and press [Enter] or [Esc] key manually - result will be 
the same.
You are right, [Enter] key is "save changes", but when there is no ther keys
except [Enter], there are no changes and nothing should be saved
(notice, that both Clipper and xHarbour set UPDATED() == .F.
and oGet:Changed == .F. )

Grzegorz

0
4/24/2008 8:00:46 PM
Dear Grzegorz Wojnarowski:

On Apr 24, 12:43=A0pm, "Grzegorz Wojnarowski"
<grzegorz.wojnarow...@remove.psi.wroc.pl> wrote:
=2E..
> I don't say that it is a bug in xHarbour, but
> xHarbour is not compatible with Clipper at
> this point.

It is a bug, and you should submit a bug report, IMO.  The variable's
contents are being altered, even if <Esc> is "pressed" *and* the flags
that indicate changes were made, fail to show the orignal value has
been altered.

Question is (now) is it the "@E" template function, or the nummeric
mask?

David A. Smith
0
dlzc1 (2365)
4/24/2008 9:31:06 PM
Uzytkownik "dlzc" <dlzc1@cox.net> napisal:

> Question is (now) is it the "@E" template function, or the nummeric
> mask?

"@E" is template function (numerics with comma and period reverse (European
style)). But you can run my sample program without any PICTURE clause and
result will be the same (depending on current SET DECIMAL value).

Grzegorz


0
4/24/2008 10:46:51 PM
look,

the same behavior like in Clipper:

PROCEDURE test()
cls
a := 1 / 3
@ 10,10 GET a PICTURE "@E 999,999.9"
keyboard(chr(27))
b := a * 3
BeforeRead(a,b)
read
AfterRead(a,b)
inkey(0)
RETURN

static function BeforeRead( a,b )
   ? "========== inside function BeforeRead()=========="
   ?
   ? "Shoing a : ",a
   ? "Shoing b : ",b
   ? updated()
return

static function AfterRead( a,b )
   ? "========== inside function AfterRead()=========="
   ? "Shoing a : ",a
   ? "Shoing b : ",b
   ? updated()
return

Reinaldo Henrique

Grzegorz Wojnarowski escreveu:

> Uzytkownik "dlzc" <dlzc1@cox.net> napisal:
>
> > Question is (now) is it the "@E" template function, or the nummeric
> > mask?
>
> "@E" is template function (numerics with comma and period reverse (European
> style)). But you can run my sample program without any PICTURE clause and
> result will be the same (depending on current SET DECIMAL value).
>
> Grzegorz
0
reinaldohf (90)
4/25/2008 5:35:06 PM
Grzegorz,

> >
> > "@E" is template function (numerics with comma and period reverse (European
> > style)). But you can run my sample program without any PICTURE clause and
> > result will be the same (depending on current SET DECIMAL value).
> >
> > Grzegorz

Really, xHarbour is updating the PICTURE after READ.

PROCEDURE test()
local getlist := {}, a , b

cls
a := 1 / 3

@ 10,10 GET a pict "9999999.9999"
keyboard(chr(13))
b := a * 3
? "UpDated = ",BeforeRead(a,b)
read

? "UpDated = ", AfterRead(a,b, GetList)
inkey(0)

RETURN

static function BeforeRead( a,b )
   ? "========== inside function BeforeRead()=========="
   ?
   ? "Shoing a : ",a
   ? "Shoing b : ",b
   ? updated()
return upDated()

static function AfterRead( a,b,GetList )
local i
   ? "========== inside function AfterRead()=========="
   ? "Shoing a : ",a
   ? "Shoing b : ",b
   ? updated()

   for i := 1 to len( GetList )
      ? GetList[i]
   next

return upDated()

Reinaldo Henrique
0
reinaldohf (90)
4/25/2008 6:00:26 PM
Reply:

Similar Artilces:

Clipper GET different than xHarbour GET
A client has pointed out a difference in the way Clipper handles a get with "@S" picture clause vs. xHarbour. Consider the following code snippet: func main local cData := "12345678901234567890" local cNext := " " clea @ 1,0 get cData pict "@S10" @ 2,0 get cNext read return During execution, if you move the cursor to the right in the first field beyond the first 10 characters so that it scrolls right and then press enter to position to the 2nd get field, the first field retains its display position in xHarbour, whereas in the Clipper version the field is repositioned back to the first character. I hope this is clear. This was tested with version 0.99.71 CVS Thanks, Gene Should be fixed after ChangeLog,v 1.5919 2008/02/12 regards, Eduardo On 11 fev, 21:21, "Gene Stempel" <genestem...@mindspring.com> wrote: > A client has pointed out a difference in the way Clipper handles a get with > "@S" picture clause vs. xHarbour. > Consider the following code snippet: > > func main > local cData := "12345678901234567890" > local cNext := " " > clea > @ 1,0 get cData pict "@S10" > @ 2,0 get cNext > read > return > > During execution, if you move the cursor to the right in the first field > beyond the first 10 characters so that it scrolls right and then press enter > to position to ...

Newbie - xHarbour/CLipper/Linux
Hello, I tried to move quite simple Clipper app to Linux/xHarbour. I have installed xHarbour from rpms, the app compiled with no errors, I can run it and everything seems ok (Polish national chars, box chars, database fields) except GETs. Trying to input national chars in GET fields result with some completely strange characters. The system is Fedora Core 5, locale pl_PL (ISO8859-2), I can input and display national chars correctly in shell, vi, mc etc. Any suggestions? jk Dnia 11.07.2007 10:40, u�ytkowniczka/u�ytkownik jk napisa�a/napisa� (niepotrzebne skre�li�): > Hello, > > I tried to move quite simple Clipper app to Linux/xHarbour. > > I have installed xHarbour from rpms, the app compiled with no errors, I > can run it and everything seems ok (Polish national chars, box chars, > database fields) except GETs. Trying to input national chars in GET > fields result with some completely strange characters. > > The system is Fedora Core 5, locale pl_PL (ISO8859-2), I can input and > display national chars correctly in shell, vi, mc etc. > > Any suggestions? For example in fris lines your programL request HB_LANG_PLISO request HB_CODEPAGE_PLISO HB_LANGSELECT( 'PLISO' ) HB_SETCODEPAGE( "PLISO" ) Jacek K. -- "Serce rozwa�ne szuka m�dro�ci, usta niem�drych syc� si� g�upot�." (Prz 15:14) "The heart of him that hath understanding seeketh knowledge: but the mouth of fools feedeth on f...

A difference between clipper and xHarbour
Hi, This example highlights a huge different behavior between Clipper 5.3b and xHarbour. FUNCTION MAIN() PRIVATE aOne := {} CLEAR AADD( aOne, "1 - ONE " ) ; @ 1 , 10 GET aOne[ LEN ( aOne ) ] AADD( aOne, "2 - TWO " ) ; @ 2 , 10 GET aOne[ LEN ( aOne ) ] AADD( aOne, "3 - THREE " ) ; @ 3 , 10 GET aOne[ LEN ( aOne ) ] AADD( aOne, "4 - FOUR " ) ; @ 4 , 10 GET aOne[ LEN ( aOne ) ] READ RETURN NIL On 16 Wrz, 11:44, Marco Boschi <i...@marcoboschi.it> wrote: > Hi, > =A0 =A0 This example highlights a huge different behavior between Clipper > 5.3b and xHarbour. > > FUNCTION MAIN() > > PRIVATE aOne :=3D {} > > CLEAR > > AADD( aOne, "1 - ONE =A0 " ) =A0 ; @ 1 , 10 GET aOne[ LEN ( aOne ) ] > AADD( aOne, "2 - TWO =A0 " ) =A0 ; @ 2 , 10 GET aOne[ LEN ( aOne ) ] > AADD( aOne, "3 - THREE " ) =A0 ; @ 3 , 10 GET aOne[ LEN ( aOne ) ] > AADD( aOne, "4 - FOUR =A0" ) =A0 ; @ 4 , 10 GET aOne[ LEN ( aOne ) ] > > READ > > RETURN NIL I confirm ! I have tested it with Clipper, xHarbour 1.0.0 and xHarbour 1.2.1 (Rev. 6686): Clipper 5.3b - OK xHarbour 1.0.0 - OK xHarbour 1.2.1 - Error I think it is very serious problem. Regards Grzegorz ...

Getting Started with Xharbour-
I'm on a Win7 box. I've not DLed any xharbour stuff yet. I see that there are "builds" using various compilers. Does that mean that I need to have that particular compiler installed on my system? Will I ever need to recompile anything? Duke, > I'm on a Win7 box. I've not DLed any xharbour stuff yet. > > I see that there are "builds" using various compilers. Does that mean that > I need > to have that particular compiler installed on my system? Yes. > Will I ever need to recompile anything? No. You have to compile xHarbour sources only if you download them from SVN, not if you download the distribution packages (the updated ones from Mel website). EMG -- EMAG Software Homepage: http://www.emagsoftware.it The EMG Music page: http://www.emagsoftware.it/emgmusic The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum The Best of Spectrum Games: http://www.emagsoftware.it/tbosg On Tuesday, February 11, 2014 7:31:40 AM UTC-7, Enrico Maria Giordano wrote: > Duke, > > > > > I'm on a Win7 box. I've not DLed any xharbour stuff yet. > > I see that there are "builds" using various compilers. Does that mean that > > I need > > to have that particular compiler installed on my system? > > Yes. Thank you, Enrico! I'm just a hobbyist "hacker", more at home on *nix systems. Would you have a Window...

Problem with xHarbour GET system
I'm converting several large Clipper programs to xHarbour and have run into a problem with GET that I can't figure out. Here is a simple bit of code to get keyboard input: *************************** #include "Inkey.ch" FUNCTION MAIN() LOCAL GetList := {} LOCAL cText := SPACE(10) Setmode(25.80) Setcolor("W/B,GR+/R,W,,N/W) CLS @ 10, 10 SAY 'Enter text:' @ 10, 25 GET cText READ RETURN NIL END *************************** Compiles and builds OK in xHarbour but the field will not accept input. I get...

xHarbour Get System Enhancements.
Hello 1. Is there a way for us users to use xharbour native get system to pass in the password editmask via the picture clause at the get command? 2. It would be nice to be able to have a textarea in the get system, something like @09,32 get mComments MEMO AT 10,10,22,72 with a built-in spelling check utility would be awesome! thanks. <LAFDNSS@gmail.com> wrote in message news:f0208ba3-a8bb-4b0e-aaaa-e98cc84f6efa@d21g2000prf.googlegroups.com... > Hello > 1. Is there a way for us users to use xharbour native > get system to pass in the password editmask via > the picture clause at the get command? http://groups.google.com/group/comp.lang.xharbour/msg/9c393f87a53cf484 > 2. It would be nice to be able to have a textarea in > the get system, something like > > @09,32 get mComments MEMO AT 10,10,22,72 http://www.the-oasis.net/ftpmaster.php3?content=ftpgenrl.htm .... down to memoget.zip > with a built-in spelling check utility would be awesome! You could perhaps OLE into MSWord or OpenOffice... David A. Smith Dear LAFD... On Nov 19, 11:20=A0pm, LAFD...@gmail.com wrote: =2E.. > @09,32 get mComments MEMO AT 10,10,22,72 with a built-inspelling > check utility would be awesome! I found a related article in PC magazine... http://www.donationcoder.com/Software/Mouser/clipboardhelpandspell/index.htm= l You can write a validation routine that pushes the memo field onto the clipboard, and call one of the many "clipboard spell c...

how to get newline with gets?
Hello. I like the -nonewline option of puts, and wonder why there isn't a counter option in gets? The reason I need it is effectively I am doing this: set line [gets -withnewline stdin] if {[lindex $line end] eq "\r" } { # do something } if {[lindex $line end] eq "\n" } { # do something different } I guess without such an option I have to read byte-by-byte to achieve this, right? Thanks. On 5/11/11 1:21 PM, =E5=90=95=E9=9F=A6=E7=94=AB wrote: > Hello. I like the -nonewline option of puts, and wonder why there isn't= a > counter option in gets? > > The reason I need it is effectively I am doing this: > > set line [gets -withnewline stdin] > > if {[lindex $line end] eq "\r" } { # do something } > if {[lindex $line end] eq "\n" } { # do something different } > > I guess without such an option I have to read byte-by-byte to achieve t= his, > right? You could just do the gets and check the line termination configuration w= ith=20 fconfigure. Why does it matter? --=20 +------------------------------------------------------------------------= + | Gerald W. Lester, President, KNG Consulting LLC = | | Email: Gerald.Lester@kng-consulting.net = | +------------------------------------------------------------------------= + On 05/12/2011 02:27 AM, Gerald W. Lester wrote: > > You could just do the gets and check the line termina...

A difference between clipper and xHarbour #2
Hi, due to the run-time error in a routine I found a difference between xHarbour and clipper FUNCTION MAIN() LOCAL cString := "4327824378924398243789243" LOCAL nValue := VAL(cString) ? nValue // display ******************** ? CHR( nValue ) // at this point a windows error dialog apperas and application continue do run // until I don't kill it using task manager RETURN NIL the same function in clip53b works fine Marco, On Oct 27, 2:53=A0pm, Marco Boschi <i...@marcoboschi.it> wrote: > Hi, > =A0 =A0due to the run-time error in a routine I found a difference betwee= n > xHarbour and clipper > > FUNCTION MAIN() > > LOCAL cString :=3D "4327824378924398243789243" > > LOCAL nValue =A0:=3D VAL(cString) > > ? nValue =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 = =A0 =A0 // display > ******************** > > ? CHR( nValue ) =A0 // at this point a windows error dialog apperas and > application continue do run > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 // until I don't kill= it using task manager > > RETURN =A0NIL > > the same function in clip53b works fine You have forgotten to list your xHarbour version, your C compiler and your OS and processor informations. xHarbour is a multiplatform project, Clipper was a 16-bit software designed for MS Dos. My below sample code works ok on my ...

Xharbour Hwgui how get the value of reachedit.
Hi i have a problem with Hwgui and reachedit. I dont know how get the value in rtf format of reachedit: oRichedit:title return the string not the rtf format. I can only set with the function RE_INSERTTEXT(handle,rtf). Sorry for my english. Regards, Giuseppe Mastrangelo hi Giuseppe Mastrangelo > Hi i have a problem with Hwgui and reachedit. > I dont know how get the value in rtf format of reachedit: > oRichedit:title return the string not the rtf format. > I can only set with the function RE_INSERTTEXT(handle,rtf). > Sorry for my english. please post an small samples of what you trying to do Regards Luiz I want save the value of: @ 20,10 RICHEDIT oEdit TEXT "" SIZE 200,30 re_SetCharFormat( oEdit:handle, { { 1,6,,,,.T. }, { 8,13,255,,,,,.T. } } ) in a memo field in rtf format, oEdit:title reuturn only the string without the definition of fonte color ecc.. in rtf format. Exemple of rtf format: {\rtf1\ansi\ansicpg1252\deff0\deflang1040{\fonttbl{\f0\fnil\fcharset0 Times New Roman;}{\f1\fswiss\fcharset0 Arial;}} {\colortbl ;\red255\green0\blue0;} \viewkind4\uc1\pard\b\f0\fs26 Hello\b0 , \cf1\ul world\cf0\ulnone !\f1\fs20\par } Regards Giuseppe <culikr@gmail.com> ha scritto nel messaggio news:1182898893.280310.202460@k29g2000hsd.googlegroups.com... > hi Giuseppe Mastrangelo > > > Hi i have a problem with Hwgui and reachedit. > > I dont know how get the value in rtf format of reachedit: > > oRichedit:title r...

Control key differences between Clipper and xHarbour
This is driving me nuts. I'm migrating a Clipper app to console mode xHarbo= ur. Everything works fine except for a function key assignment. There are t= hree columns of data displayed. F10 moves two columns of date to the left o= ne column, then gets new data for column 3. original 1 2 3=20 1 2 3 1 2 3 1 2 3 After F10 2 3 4=20 2 3 4 2 3 4 2 3 4 In Clipper, this works fine. F10 does a 'Keyboard chr(23)'. But In xHarbour= the same keyboard command does not move the columns, instead the new data = is displayed in column 3. The record pointer was advanced but it's still in= the same GET (I think.)=20 If I do 'keyboard chr(23) + chr(27)' the columns advance, all the correct d= ata is these EXCEPT for the current GET which duplicates the same data acro= ss all columns. After F10 in xHarbour, after F10, assuming column 3 row 2 is the current GE= T.=20 The GET data is duplicated, overwriting the data in the table because these= are live GETS, no memvars 2 3 4=20 2 4 4 2 3 4 2 3 4 It appear xHarbour handles keyboard codes different than Clipper. Any help = appreciated. The code is below. (Yes, it is way old school code and is so i= diosyncratic that rewriting this module isn't an option.) I'm using an old = version of xHarbour. Would that make a difference? ****** SET KEY SET KEY -9 TO nextwk ***** The remapping of F10 PROCEDURE nextwk KEYBOARD CHR(23) IF UPDATED() .AND. !(LASTKEY()...

Why do I get different results when I change select to an update
select * FROM O_MY_TEMP C, O_MY_TEMP2 D,PS_PO_HDR E WHERE C.BUSINESS_UNIT = D.BUSINESS_UNIT AND C.PO_ID = D.PO_ID AND C.LINE_NBR = D.LINE_NBR AND C.SCHED_NBR = D.SCHED_NBR AND C.DISTRIB_LINE_NUM = D.DISTRIB_LINE_NUM AND C.BUSINESS_UNIT = E.BUSINESS_UNIT AND C.PO_ID = E.PO_ID AND C.ENC+D.ENC <> 0 begin transaction UPDATE PS_PO_HDR SET POST_DOC = POST_DOC,BCM_HDR_STATUS = BCM_HDR_STATUS,PO_POST_STATUS = PO_POST_STATUS FROM O_MY_TEMP C, O_MY_TEMP2 D,PS_PO_HDR E WHERE C.BUSINESS_UNIT = D.BUSINESS_UNIT AND C.PO_ID = D.PO_ID AND C.LINE_NBR = D.LINE_NBR AND C.SCHED_NBR = D.SCHED_NBR AND C.DISTRIB_LINE_NUM = D.DISTRIB_LINE_NUM AND C.BUSINESS_UNIT = E.BUSINESS_UNIT AND C.PO_ID = E.PO_ID AND C.ENC+D.ENC <> 0 rollback ...

Getting Started for Visual xHarbour posted on xHDN
Hello, We have put the first 4 chapters of the new Getting Started for Visual xHarbour on xHDN! You can find them on http://www.xHarbour.com/xHDN -> "Product Manuals" Let me know how you like it so far ok? More chapters to follow! ;-) -- Sincerely, Patrick Mast, xHarbour.com Inc. http://www.xHarbour.com On 27 Set, 19:30, Patrick Mast <Patrick.RemoveThis.M...@xHarbour.com> wrote: > Hello, > > We have put the first 4 chapters of the new Getting Started for Visual > xHarbour on xHDN! > You can find them onhttp://www.xHarbour.com/xHDN-> "Product Manuals" > > Let me know how you like it so far ok? > > More chapters to follow! > > ;-) > > -- > Sincerely, > > Patrick Mast, > xHarbour.com Inc.http://www.xHarbour.com One of thing more difficult to undertand in that xharbour builder and visual xharboru are two different path in my work with demo of visual xharbur i have dream a chapther titled "How use visual xharbour with a large xharbour application" ...

How to add code created by Visual xHarbour to a xHarbour Application [Updated 25th Feb 2009]
As you are probably aware, CA-Clipper codes can readily be recompiled in Xharbour into a W32 executable. In my scenario, I have a complex processing engine originally written in CA-Clipper 5.2e which can then be called within my Delphi applications I had earlier used CA-Clipper 5.2e +Fivewin to create a W16 executable which was then called via winexec() from my Delphi Application. Being 16-bits meant that NTVDM was called automatically by Windows. What I wanted was a true W32 executable which will not require the usage of NTVDM. There are 2 scenarios involved 1) Automatic processing without user input 2) Need for user input before automatic processing takes place More at Clipper... Clipper... Clipper , http://cch4clipper.blogspot.com CCH http://cch4clipper.blogspot.com Dear CCH: "CCH" <ChongHwa.Chee@gmail.com> wrote in message news:119aca48-f9b5-4938-bc37-5652222f4190@q18g2000vbn.googlegroups.com... > As you are probably aware, CA-Clipper codes can > readily be recompiled in Xharbour into a W32 > executable. In my scenario, I have a complex > processing engine originally written in CA-Clipper > 5.2e which can then be called within my Delphi > applications > > I had earlier used CA-Clipper 5.2e +Fivewin to > create a W16 executable which was then called > via winexec() from my Delphi Application. Being > 16-bits meant that NTVDM was called automatically > by Windows. What I wanted was a true W32 > executable which w...

get we get a fire started?
Hey all slow here these days....... A simple question for the gurus.........can I get hypervoxels to show up behind a transparent object? for example......bubbles inside a glass....shot from outside the glass........or are you forced to render the hypervoxels first and then overlay the glass later? I am stuck still using LW8.5 all thoughts welcome....just to get some discussion going hope everyone is well cheers Matthew ...

clipper to xharbour
Hi all i use clipper but want to move more to a windows like prg can x harbour do this and is the code difrend Were do i start Thanx Andre Andre, By downloading the free demo at www.xHarbour.com you get a startup manual for xBuilder and a ready to run environment for your tests. Ella <meter@reacomp.co.za> wrote in message news:ba9bb057-e2ff-4fe4-9275-7ba4843cf4e4@j68g2000hsf.googlegroups.com... > Hi all > > i use clipper but want to move more to a windows like prg > > can x harbour do this and is the code difrend > > Were do i start > > > Thanx > > Andre Andre: "basically" a Clipper app should go straight into xHarbour with no problem at all, unless of course, you were using 3rd party libraries. xHarbour builder demo has all the needed stuff to start working in minutes. Regards Rene Flores http://www.ciber-tec.com meter@reacomp.co.za escribi�: > Hi all > > i use clipper but want to move more to a windows like prg > > can x harbour do this and is the code difrend > > Were do i start > > > Thanx > > Andre I compiled and linked my app with more than 254.000 lines of code, with just a few changes in the code. I modified some code only where had function calls to 16bits libraries. If you can understand Portuguese or Spanish, a good place to find ou more is news://news.xharbour.org I have helped a lot of people there, and I am very well recognized in brazilian x...

Get paid while you get online!!
I found a great Internet company - Cashfiesta.com - that has created a product everyone can benefit from. They pay you while you work or play on your computer. All you need to do is keep their software - the FiestaBar=99 - active while you are online. They even pay you when your friends are using their computers. Unlike other companies, Cashfiesta gives you control over how much money you earn. They have an individual payrate based on the number of Special Offers you sign up for. As some of these offers are free, you can increase your payrate up to 33 times without spending a penny. It's free and easy to join and your privacy is completely protected. Here is the link, enjoy and happy money making. http://www.cashfiesta.com/php/join.php?ref=3Dmutant_rabbi ...

Get the ball boy get it Goblin aka Saint Sloblin get the ball boy!
<smile> On Mon, 12 Dec 2011 16:52:03 -0500, Big Steel wrote: > <smile> He's too fat to be a ball boy. He can't even see his own feet let alone the ball on the basketball or tennis court. On 12/12/2011 5:36 PM, Frank The Wank wrote: > On Mon, 12 Dec 2011 16:52:03 -0500, Big Steel wrote: > >> <smile> > > He's too fat to be a ball boy. > He can't even see his own feet let alone the ball on the basketball > or tennis court. He's the grounds keeper a lawn-boy. ...

Get
I have this: @content = split(/\n/, get "http://my.domain.com/acc/ip.cgi"); Which pulls data from cgi script once every few minutes. Is there an easy way to convert to pulling data from a local file in the same directory? M M wrote: > I have this: > > @content = split(/\n/, get "http://my.domain.com/acc/ip.cgi"); > > Which pulls data from cgi script once every few minutes. Is there an easy > way to convert to pulling data from a local file in the same directory? Just open the file for reading, and read it in. See: perldoc -f open perldoc -f read...

xharbour
buenos d=EDas estoy incursionando en el xharbour ya baje unos demos que est= an en la pagina de xharbour pero al compilar se bloquea el exe alguien me p= uede ayudar con una version mejorcita o con alguna recomendacion para poder= compilar??? Dear jahirv On Monday, August 13, 2012 6:36:13 AM UTC-7, jahirv wrote: > buenos d=EDas estoy incursionando en el xharbour > ya baje unos demos que estan en la pagina de > xharbour pero al compilar se bloquea el exe > alguien me puede ayudar con una version mejorcita > o con alguna recomendacion para poder compilar??? Which ...

why get different result of a simple code on different compiler?
-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi, I am quite confused on a equation, as following: #include <iostream> int main(){ int i = 2; int c = (++i)+(++i)+(++i); std::cout << c << std::endl; } In my mind, the final result should be 12, since 3+4+5. But the result I got is interesting. Visual C++ .Net 2005 (8.0) - C++: Result: 15 Visual C++ .Net 2005 (8.0) - C++/CLI: Result: 15 Visual C++ 6.0 Result: 13 Borland C++ Builder 5 Result: 12 gcc version 3.4.2 (mingw-special): Result: 13 g++ (GCC) 4.0.1 20050727 (Red Hat 4.0.1-5) Result: 13 Visual...

Comercial xHarbour Vs Free xHarbour
What are the differences between paid xHarbour (www.xharbour.com) and free xHarbour from www.xharbour.org Regards, George On 3 Dic, 17:18, "George Abinader" <georgeabina...@msn.com> wrote: > What are the differences between paid xHarbour (www.xharbour.com) and free > xHarbour fromwww.xharbour.org > > Regards, > > George xHarbour.org is a programming language is a superset of the well known xBase language: Clipper. xHarbour.org is 100% backward compatible with the Clipper Language, you can download binary and contrib from http://sourceforge.net/project/downloading.php?groupname=xharbour&filename=xharbour-1-0-0-beta1-bin-w32-bcc-5-5.exe&use_mirror=switch http://sourceforge.net/project/downloading.php?groupname=xharbour&filename=xharbour-1.0.0-beta1.src.contrib.zip&use_mirror=dfn you must also download a c compiler (i suggest Borland 5.5) http://www.codegear.com/downloads/free/cppbuilder Basically xharbour.com add An IDE with integrated debug ,a Gui and other library, an integrated c compiler. xharbour.com It is a more ready to use product but you can find other product with similar feature like Xailer,Fivewin,Minigui, ecc xHarbour.com adds to xharbour.org many features and tools like : Visual xHarbour, SQLRDD, xBuild Project Wizard, ActiveX, and many library like CT3Comm.lib,,HipSix.lib , rmDbfCdx.lib ,DbgServe.lib ,ActiveX.lib http://www.xharbour.com/index.asp?page=products_home Xharbour.com include an integrated c...

How Do I get Notified when the JFrame Gets Resized?
What do I have to do to be notified when the JFrame my JPanel is in gets resized? Like if somebody clicks on the corner and drags it so that I have a new width and new height, or if somebody clicks on the button that makes the JFrame take up the whole screen? Kevin S On 20-11-2010 12:58, KevinSimonson wrote: > What do I have to do to be notified when the JFrame my JPanel is in > gets resized? Like if somebody clicks on the corner and drags it so > that I have a new width and new height, or if somebody clicks on the > button that makes the JFrame take up the whole scre...

Get get include pages to work...
Greetings, I have the following: require_once($_SERVER["DOCUMENT_ROOT"]."/virtuals/doc-root.php4"); I also have several more include and include once that pull various sections into my main page. I am trying to get this working on a local machine for testing purposes. I have (windwos) Apache and PHP set up on my machine and have written several test pages to confirm things are working. When I perform an echo of the Document_root and global_root I get the following: server doc root: C:/Dewaynewww/TrentonWeb/Apache2/htdocs global doc root: Anyone have any ideas why I can&...

[News] Apt-Get Gets a Challenge
Aptitude vs Apt-Get ,----[ Quote ] | Aptitude is just superior to apt-get in every way, shape, and form. Better | dependency handling. Better curses application. Better options. ONE tool. | Better stdout formatting. The list goes on and on. I see constantly, on | forums, IRC and email, the use of apt-get. We need to better educate our | brethren and sisters about the proper use of tools, and show them the | enlightened way of aptitude. I’ve been using aptitude since I first learned | about it, ad will continue to do so the remainder of my Debian/Ubuntu days. `---- http://www.pthr...

Web resources about - Clipper GET different than xHarbour GET when UPDATED() = .F. - comp.lang.xharbour

No known threat of Brussels-type attack in U.S.: Homeland Security chief
U.S. Secretary of Homeland Security Jeh Johnson said on Tuesday that the United States has no intelligence that indicates there is a plot to ...

iPhone SE Releases March 28: Should You Upgrade?
Apple’s iPhone SE becomes available for purchase on March 28. What is known about the new iOS device, and is it worth upgrading from your older ...

Google's New Cuban Tech Center Is a Symbolic Victory for Silicon Valley Elite
Silicon Valley has officially invaded Cuba . Cuban sculptor Alexis Leiva Machado, better known as Kcho, has helped Google open a small “technology ...

How to search your Android device quickly with Google Gesture Search
Need an easier way to search for all the things you have tucked within your Android device? The perfect solution might be Google Gesture Search. ...

Rob Ford, former Toronto mayor, dead at 46 after cancer fight: family
Chicago Tribune Rob Ford, former Toronto mayor, dead at 46 after cancer fight: family Chicago Tribune Rob Ford, the pugnacious, populist former ...

‘DWTS’: Peta Murgatroyd And Nyle DiMarco Discuss Learning From Each Other
Dancing With The Stars veteran Peta Muragtroyd is learning to look at dance in a whole new light this season. In a way, she has also become the ...

Tennis Official Quits Post Over His ‘Coattails’ Remarks on Women
Moore, who had drawn wide rebuke for saying that women’s players owed a great debt to men, stepped down as director of the BNP Paribas Open in ...

Tesla Ludicrous Mode now available as retrofit for Model S P90D
Filed under: Green , Tesla , Green Automakers , Sedan , Electric , Performance Did you pass on Ludicrous Mode when you ordered your P90D. You ...

Los Angeles Mayor Eric Garcetti Urges Obama to Make Stonewall Inn a National Monument: VIDEO
Los Angeles Mayor Eric Garcetti has written to President Obama asking him to designate the Stonewall Inn as a National Monument. The letter ...

Texas Man Charged in Death of Infant Son Left in Hot Car
A South Texas man has been charged in the death of his 4-month-old son whom he left in a hot car for at least 40 minutes last summer

Resources last updated: 3/22/2016 8:09:52 PM