Search found 18 matches

by James Bott
Sat Feb 03, 2024 7:34 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Mark field as required
Replies: 23
Views: 3346

Re: Mark field as required

There is a serious issue when making fields required. If the user doesn't have that information, they will likely just put anything in the field so they can save the record.

An alternative is to allow the user to save the record even if some of the "required" data is unknown. You could then flag ...
by James Bott
Sat Nov 25, 2023 10:48 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Windows 11 Fluent Design
Replies: 43
Views: 11714

Re: Windows 11 Fluent Design

I think he was referring to being. able to get Windows 11 style shadows when running Windows 10.
by James Bott
Fri Nov 17, 2023 10:04 pm
Forum: FiveWin for Harbour/xHarbour
Topic: DBF Repair Tools
Replies: 7
Views: 1230

Re: DBF Repair Tools

Tim,

Can you tell us which characters aren't visible? Better yet would be a few records that contain the problem characters.

James
by James Bott
Mon Nov 13, 2023 6:45 pm
Forum: FiveWin for Harbour/xHarbour
Topic: DBF Repair Tools
Replies: 7
Views: 1230

Re: DBF Repair Tools

Tim,

Then I used DBU to filter out only valid records, and tried to export them. I used the filter .NOT. EMPTY( fieldname ). However they must have something embedded in there because the filter doesn't work.

I would write a routine to replace all the fake blank fields with all real blanks. Of ...
by James Bott
Fri Nov 10, 2023 1:42 am
Forum: FiveWin for Harbour/xHarbour
Topic: Does TDatabase supports SEEK LAST?
Replies: 5
Views: 551

Re: Does TDatabase supports SEEK LAST?

Saved me a few keystrokes :)
I normally would type as (oDbf:cAlias)->(dbSeek(cSeek, nil, .t.))
If you use database objects then you can just do:

oCustomer:goBottom()
by James Bott
Tue Jul 25, 2023 1:24 am
Forum: FiveWin for Harbour/xHarbour
Topic: Mark field as required
Replies: 23
Views: 3346

Re: Mark field as required

Alan Cooper in his book "About Face 2.0, The Essentials of Human Interaction Design" he makes the point that there shouldn't be any required fields.

When you think about it, this makes a lot of sense. Before computers, on a paper form, if there was any missing data, it was just left blank by the ...
by James Bott
Thu Jun 15, 2023 12:37 am
Forum: FiveWin for Harbour/xHarbour
Topic: Program is frozen
Replies: 14
Views: 1335

Re: Program is frozen

Natter,

It sounds like a memory leak. Check to make sure you have ended all vars at the end of routines.

James
by James Bott
Thu Mar 02, 2023 4:35 pm
Forum: FiveWin para Harbour/xHarbour
Topic: error en tdatabase con DBF
Replies: 4
Views: 756

Re: error en tdatabase con DBF

Parece que ambos están usando objetos de la base de datos como si no fueran objetos. Estás haciendo mucho trabajo.

Cuando crea un objeto de base de datos, se abre automáticamente en una nueva área. Entonces puedes hacer:

oCliente1:= TDatabase:Nuevo( ,"cliente")
oCliente2:= TDatabase:Nuevo ...
by James Bott
Thu Mar 02, 2023 3:31 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Changing default printer for current application only
Replies: 2
Views: 449

Re: Changing default printer for current application only

Hua,

I don't know if this will help, but I found it in my notes.

Use the following to set the application's current printer. It will remain the current printer until changed.

//--- Set application's current printer. Returns .T. if successful.
// Author: James Bott
function setPrinter( cPrinter ...
by James Bott
Wed Mar 01, 2023 3:45 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Owner of the object
Replies: 7
Views: 544

Re: Owner of the object

I am not sure what you mean by "owner."
Did you mean local, private, or public?
by James Bott
Mon Feb 27, 2023 8:32 pm
Forum: FiveWin for Harbour/xHarbour
Topic: using Function twice with Object as Parameter ?
Replies: 2
Views: 360

Re: using Function twice with Object as Parameter ?

Jimmy,

I'm not sure I understand what you want to do but here is an example of adding a new sale amount to a oCustomer object using a function. Note that a customer object exists until you end it.

Function addSale( oCustomer, nNewSale )
oCustomer:TotalSales := oCustomer:TotalSales: + nNewSale ...
by James Bott
Wed Jan 11, 2023 11:47 pm
Forum: FiveWin for Harbour/xHarbour
Topic: How to create a PRIVATE variable owned by the caller?
Replies: 21
Views: 1828

Re: How to create a PRIVATE variable owned by the caller?

Enrico,

Why are you using a PRIVATE? I haven't used PRIVATEs for years.

You can do the same thing you wanted this way:

FUNCTION MAIN()

LOCALE cName:=""

cName:= CREATEVAR( cName, "Hello" )

? cName // it exists here

RETURN NIL

STATIC FUNCTION CREATEVAR( cName, xValue )

cName:= xValue ...
by James Bott
Fri Jan 06, 2023 2:35 am
Forum: FiveWin for Harbour/xHarbour
Topic: Ribbon Theme
Replies: 163
Views: 36874

Re: Ribbon Theme

Jilo1234,

Is there an option to do it?

I don't think so as this is standard windows app behavior.

Actually, I looked at several windows apps and they all have two color bars (single pixel high) at the bottom of the button bar--kind of a gradient. You will have to look hard to see this. I use a ...
by James Bott
Mon Jan 02, 2023 5:33 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Postal bar code
Replies: 8
Views: 1006

Re: Postal bar code

Tim,

Check out the "USPS Barcode FAQ & Tutorial" here:
barcodefaq.com/usps-postal/

I have never used postal barcodes, so I can't offer any help with this.

I hope you have already solved your problem.
by James Bott
Fri Dec 16, 2022 12:46 am
Forum: FiveWin for Harbour/xHarbour
Topic: View deleted records in xBrowse
Replies: 8
Views: 1128

Re: View deleted records in xBrowse

Tim,

It is possible to do INDEX ON ... FOR NOT DELETED

And you can create another index without that clause.

Then you can just switch indexes to get all records or only records not deleted.

I haven't tested this.

James