Writing to a table ignoring field rules

[Mark Williams]

I have the following code that writes a record to a table:

DIM doctbl as P
doctbl = table.open("Faxes_Sent",FILE_RW_SHARED)
doctbl.enter_begin()
doctbl.tracking=alltrim(str(val(case->Case_Id)))
doctbl.Fax_Num=substr(zip->fax_num,1,10)
doctbl.date_sent=Date()
doctbl.Time_Sent=time("0h:0m:0s")
doctbl.Rejected=.f.
doctbl.enter_end(.t.)
doctbl.close()

This works fine, except in the table "faxes_sent", the "fax_num" field has a field rule defined as "###-###-####".

The above ignores the field rule and saves the field as ##########

Is it possible to modify this so it honors the field rule settings?

Thanks

[Ted Giles]

Might be easiest to format the fax# as nnn-nnn-nnnn before writing it.

[Mark Williams]

Might be easiest to format the fax# as nnn-nnn-nnnn before writing it.

Thanks, Ted...

Thought that might be the case but I don't have any idea how to go about doing that.

Thanks

[johnkoh]

See "Field Rules Honored During Xbasic Data Entry" from help.
http://documentation.alphasoftware.c...ommitting%20It
and there is some other function which Honored field rule other than "<tbl>.enter_begin()"

[Ronald Anusiewicz]

I believe you need to add the .t. argument in the enter_begin function so the enter will honor the field rules.

doctbl.enter_begin(.t.)

[Tom Cone Jr]

I think adding the " .t. " parameter is worth a try. The helps indicate this enforces field rules if the code uses a pointer to a table that's supporting the current form. See: tbl.enter_begin Method

The help system indicates this won't work when a new instance of the table is being opened by the code. But I think it's worth a try anyway.

[Mark Williams]

I think adding the " .t. " parameter is worth a try. The helps indicate this enforces field rules if the code uses a pointer to a table that's supporting the current form. See: tbl.enter_begin Method

The help system indicates this won't work when a new instance of the table is being opened by the code. But I think it's worth a try anyway.

You're correct, Tom.

Adding the .t. parameter did not work for the reason you stated.

Is it possible to manipulate the data before writing it to the table?

Thanks

[Ted Giles]

You will need to research the way to split stuff up.
Posting will honour field rules, and so does Append.

[Mike Wilson]

Hi Mark,
I'm with Ted, format the value before/during writing to the tables. I frankly avoid field rules absolutely as much as possible and do the heavy lifting in the scripts. Avoids conflict like you are experiencing.

[Ted Giles]

Mark, this is the logic for taking a Char field, chopping it up and reassembling it.
Taken from the Interactive Window. Copy the text into the I/w and try it out.

dim fax as c
fax = "1234567890" ' I am presuming that the fax# is stored as a character

?fax
= "1234567890" 'to see if the value is populated

? left(fax,3) ' left 3 values. Starts at place 1 and selects 3 characters
= "123"

?mid(fax,4,3) ' mid values. Starts at place 4 for 3 characters
= "456"

? right(fax,4) ' right values. Reads back 4 characters from the end
= "7890"

? left(fax,3)+"-"+mid(fax,4,3)+"-"+right(fax,4) ' Assemble it and add the "-" as a separator. You only need this bit.
= "123-456-7890"


So in your script, the fax_num to be written might be

left(fax_num,3)+"-"+mid(fax_num,4,3)+"-"+right(fax_num,4)

[Mark Williams]

Mark, this is the logic for taking a Char field, chopping it up and reassembling it.
Taken from the Interactive Window. Copy the text into the I/w and try it out.

dim fax as c
fax = "1234567890" ' I am presuming that the fax# is stored as a character

?fax
= "1234567890" 'to see if the value is populated

? left(fax,3) ' left 3 values. Starts at place 1 and selects 3 characters
= "123"

?mid(fax,4,3) ' mid values. Starts at place 4 for 3 characters
= "456"

? right(fax,4) ' right values. Reads back 4 characters from the end
= "7890"

? left(fax,3)+"-"+mid(fax,4,3)+"-"+right(fax,4) ' Assemble it and add the "-" as a separator. You only need this bit.
= "123-456-7890"


So in your script, the fax_num to be written might be

left(fax_num,3)+"-"+mid(fax_num,4,3)+"-"+right(fax_num,4)

Ted,

This was incredibly helpful. I was easily able to adapt this logic to my application and it works great.

Many thanks!

[Mike Wilson]

Gosh Ted,
LOL!! And all these years I've used substr(fax_num,4,3) and I could have used mid(fax_num,4,3). Never too old to learn.

[Tom Cone Jr]

Mike, ... but sometimes too old to retain ! (I speak from personal experience.)

[Ted Giles]

I thought it would be easier to explain;
Left Middle Right

Substr is quicker to code ( copy and change start and length ) when chopping up a long string.