Page 1 of 1

New FWH 18.04

PostPosted: Mon Jun 04, 2018 6:35 am
by Antonio Linares

Re: New FWH 18.04

PostPosted: Thu Jun 07, 2018 6:03 pm
by TimStone
In another thread there is mention a new update to this release would be posted.

Can you please advise when the update is posted so we can download that one. Apparently it addresses issues with the DIALOG in xHarbour.

Thanks.

Re: New FWH 18.04

PostPosted: Fri Jun 08, 2018 12:28 am
by fraxzi
TimStone wrote:In another thread there is mention a new update to this release would be posted.

Can you please advise when the update is posted so we can download that one. Apparently it addresses issues with the DIALOG in xHarbour.

Thanks.


Hi Mr. Tim,

The new release was already published. I already downloaded it.

Re: New FWH 18.04

PostPosted: Fri Jun 08, 2018 3:45 am
by nageswaragunupudi
TimStone wrote:In another thread there is mention a new update to this release would be posted.

Can you please advise when the update is posted so we can download that one. Apparently it addresses issues with the DIALOG in xHarbour.

Thanks.

The issue pertains to MariaDB.
Not to dialogs as such.

Re: New FWH 18.04

PostPosted: Fri Jun 08, 2018 11:52 pm
by TimStone
Thank you.

I suppose it is time to start playing with SQL ...

Re: New FWH 18.04

PostPosted: Sat Jun 09, 2018 3:21 pm
by Rick Lipkin
Tim

I use MS Access and ( free ) Sql Express Server 2017 .. the nice thing about this combination . is you can use the same code for both and just change the connection string and your code is ( virtually ) seamless.

The only quirk about MS Access is quering by datetime .. and you have to use hash tags to surround your query dates instead of single quotes ..:

Code: Select all  Expand view

     cSQL := "SELECT * from WORKORD"
     If xDatabase = "S"  // sql server
        cSQL += " where date_out >= '"+DTOC(LDATE)+"' and date_out <= '"+DTOC(HDATE)+"'"
     Else                       // ms access
        cSql += " WHERE [Date_Out] >= #"+dtoc(lDate)+"# And [Date_Out] <= #"+dtoc(hDate)+"#"
     ENdif
     cSQL += " and wotype = '2' and ageneid = '"+xAGENEID+"' order by DATE_out"

 


This allows you to use MS Access as a portable database for those customers that can not afford MS Sql Server, however, you can also deploy Sql Express to your customer, but is more difficult for a small Customer to manage.... and you can forget about ANY optlock headaches and cranky dbf access on network shares.

Rao has created a whole set of ado wrappers to simplify the connections, recordsets, etc .. see \source\function\adofuncs.prg for the syntax .. or you can do it the ole fashioned ansi sql way .. \samples\AdoRick.prg ( ms access )

I only use DBfCdx for creating temporary tables for reports.

Rick Lipkin

Re: New FWH 18.04

PostPosted: Fri Jun 15, 2018 10:29 am
by byte-one
New SPINNER BUTTONS <cbmp1>,<cbmp2> and RIHGTTOLEFT for TGet seems not functioning! Headers (.CH) wrong?

Re: New FWH 18.04

PostPosted: Fri Jun 15, 2018 10:38 am
by Antonio Linares
Günther,

Could you provide an example to test that was working fine and it is not working now ? thanks

Re: New FWH 18.04

PostPosted: Fri Jun 15, 2018 11:47 am
by byte-one
Antonio, the source of TGet-class is ok, but in fivewin.ch the new clausulas are not present!

Re: New FWH 18.04

PostPosted: Fri Jun 15, 2018 1:55 pm
by nageswaragunupudi
The new clauses are present only in @ row,col GET command but not in REDEFINE command. In fact, we did not test this feature with resources.

However, can you test with resources and offer your feedback?
In the REDEFINE GET command, can you please replace the line
Code: Select all  Expand view
            [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ;
 


with
Code: Select all  Expand view
           [ <spin: SPINNER> [BUTTONS <bmp1>,<bmp2> ] [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ;
 


Please ensure that you do not include VSCROLBAR in the style while defining the resource in the rc file.

Re: New FWH 18.04

PostPosted: Mon Jun 25, 2018 12:34 pm
by byte-one
Mr. Rao,
I have tested for now oGet:lRightToLeft := .T. on get from resources.
Is functioning but the foreground-color is not respecting COLOR-Clause (always black).

Re: New FWH 18.04

PostPosted: Mon Jun 25, 2018 3:49 pm
by nageswaragunupudi
Painting is done with ::nClrText.
May I know how did you set the color?

Re: New FWH 18.04

PostPosted: Tue Jun 26, 2018 8:06 pm
by byte-one
Code: Select all  Expand view
REDEFINE GET obetrag VAR finanz->betrag ID 107 OF oDialog PICTURE PIC_BETRAG MESSAGE "Betrag" UPDATE COLOR NSAYFARBE_ALL_INVERS,NSAYFARBE_ALL FONT oFont_konto WHEN larbeit .and. !finanz->check1