FiveTech Software tech support forums

... Understand. The problem is with TRANSPARENT and Themed dialogs (using Manifest).

Please apply this fix to \fwh\source\classes\dialog.prg:

Please locate this line of code in the METHOD Initialize(..) of Dialog.prg "TBAR;TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO ...

Please make this correction in the function FW_ReadImage() in the file fwh\source\function\imgtxtio.prg:

Please locate this line of code:
aBmp := { If( lDuplicate, DuplicateIcon( uBmp ), uBmp ), 0, 32, 32, .f., "ICON", .f., "" }

Replace this line of code with this line
aBmp := { If( lDuplicate ...

Silvio.Falconi

... NIL
MsgInfo("Errore nell'aprire il database!", "Errore")
RETURN NIL
ENDIF

oDbf:SetOrder(1)
oDbf:GoTop()

Select( oDbf:nArea ) // for use locate

ntotali_records := oDbf:OrdKeyCount()

LOCATE FOR Year(oDbf:data) = Val(nAnno2)
oDbf:load()
IF oDbf:Found()

LOCATE FOR Year(oDbf:data ...

Code: Select all | Expand

? cFilter := oCn:ExprnDBF( "STATE = ? .AND. AGE >= ?", { "NY", 45 } )
oRs:SetFilter( cFilter )
// OR
oRs:SetFilter( "STATE = ? .AND. AGE >= ?", { "NY", 45 } )
// and later
oRs:ReFilter( { "WA", 35 } )

Maurizio

Thanks RAO ,

? cLocate := oCn:ExprnDBF( "HIREDATE = ?", { DATE() } )
oRs:locate( cLocate )

This code works , where oCn is the connection and oRs is the recordset

but
? cFilter := oCn:ExprnDBF( "STATE = ? .AND. AGE >= ?", { "NY", 45 } )

where is the recordset ?

Maurizio

As Mr. Vilian said, the expressions used for oRs.SetFilter and oRs:Locate should use DBF syntax.
Very same expressions you use for setting filters or locate for statements in DBF.

There is another method which helps you to make these expression easily for you.

? cLocate := oCn:ExprnDBF( "HIREDATE ...

Maurizio

Thanks Vilian
it works correctly

Maurizio

vilian

I'm not Rao, sorry

But oRs:Locate() must be used with a xbase expression. So, you should to do something like this:

Code: Select all | Expand

    cLocate := " HIREDATE = CTOD( ' " + Dtoc(Date())+" ' ) "
   
   ? oRs:Locate(cLocate)

Maurizio

Hello Rao ,
in a select when I search for a date I use
SELECT * FROM customer WHERE HIREDATE= " +DTOS(DATE())

How do I use the date search with locate?
I tried
cLocate := " HIREDATE = '" + DTOS(DATE()) + "'"

But I have this error

Error occurred at: 10/21/24, 10:57:32
Error description: Error ...

Marc Venken

The magic lies in the Optimized filter with CDX, but when is it optimized ?

By setting the indexes ?
You see option 2b of Mr. Rao ? Using Locate ? didn't know it )))

I think if more members request the samples from Mr. Rao he will help us

... a part number, seek "INCVOICE" + "PARTNUMBER". We can do incremental search also.

(b) Continue your same program as it is. Instead of SEEK, use LOCATE to search the part number. I can assure that this also will be fast enough

You may consider options 2(b), 2(a), 1 in that order.

Please feel free ...

... has been overlooked for many years.
Thanks for pointing this out.

Can you apply this fix in xbrowse.prg and confirm if this working well.

Please locate these lines in METHOD KeyDown(...) in XBrowse.prg:
case nKey == VK_F2 .and. ::lF2KeyToEdit .and. ! ::lReadOnly
if ! ::lEditMode
WITH OBJECT ...

.- dimensions gets

Are your gets from source code or resources?
please apply this fix in TGet.prg

Please locate this line in the metho New()
::CalcSize( ::nTop, ::nLeft, nWidth, nHeight )
You may find this code near line 769 or one or two lines above or below.

Please comment out this line and ...

... Karinha)

-> SkinButtons() // Problemas con este comando en versiones nuevas?

Please apply this fix in \fwh\source\classes\button.prg

Please locate these lines at the end of the TBUTTON CLASS definition.

METHOD Html() INLINE ButtonHtml( ::hWnd )

METHOD Display() INLINE ::BeginPaint ...

... now, please apply this temporary fix:

\fwh\source\classes\btnbmp.prg

Please go to METHOD PaintCaption()
Towards the end of this method, please locate this code:
nClr := XEval( nClr, ::lMover, Self )
if ::lGdip .and. HB_ISNUMERIC( nClr ) .and. !lAnd( nClr, 0xff000000 )
nClr := nARGB( 255, nClr ...

FiveTech Software tech support forums

Search found 582 matches: locate

Re: problemas con CHECKBOX en FWH 2409

Re: FW_ReadImage error

locate with Tdatabase

Re: MariaDb how use locate for a date SOLVED

Re: MariaDb how use locate for a date SOLVED

Re: MariaDb how use locate for a date SOLVED

Re: MariaDb how use locate for a date

Re: MariaDb how use locate for a date

MariaDb how use locate for a date SOLVED

Re: Extending SetScope()

Re: Extending SetScope()

Re: Edit cell IN xBrowse for nEditType EDIT_GET_BUTTON

Re: Change dimensions gets FWH-24.09

Re: New FWH 24.09

Re: New FWH 24.09