Dialog Posting Issue

[chadbrown]

Hi Below is from a Dialog

I am getting errors on posting to the table i believe from the initialize area. they return a value that is not numeric. But i need to keep the original table field to be numeric.
Does anyone know how to convert a character to numeric before the post to the table.


Initialize

CurrentForm.Controls.month = month(date())
CurrentForm.Controls.year = year(date())
CurrentForm.Controls.Day = day(date())
CurrentForm.Controls.store = "Alliston"


After Validate

tbl = table.open("totals as")
tbl.enter_begin()
tbl.store = alltrim(currentform.controls.store.value)
tbl.Month = alltrim(currentform.controls.month.value)
tbl.Year = alltrim(currentform.controls.Year.value)
tbl.Day = alltrim(currentform.controls.Day.value)
tbl.Post_paid__ = alltrim(currentform.controls.Post_Paid.value)
tbl.Pre_paid__ = alltrim(currentform.controls.Pre_Paid.value)
tbl.Data_device = alltrim(currentform.controls.Data_Device.value)
tbl.Upgrade_mig = alltrim(currentform.controls.Upgrade.value)
tbl.Esn_with_phone = alltrim(currentform.controls.Year.value)
tbl.Coam = alltrim(currentform.controls.Coam.value)
tbl.Extended_warranty = alltrim(currentform.controls.EWP.value)
tbl.Fun_bundles = alltrim(currentform.controls.Fun_Bundle.value)
tbl.Expressvu = alltrim(currentform.controls.Express_Vu.value)
tbl.High_speed_ = alltrim(currentform.controls.HSE.value)
tbl.Bell_bundle = alltrim(currentform.controls.Bell_Bundle.value)
tbl.enter_end(.t.)
tbl.close()

[drgarytraub]

Re: Dialog Posting Issue

Chad,

I am not sure what you are asking. You seem to be posting to the table, are you sayiong that it is not working?

What exactly is not working?

[chadbrown]

Re: Dialog Posting Issue

Yes when its posting to the table, I am getting errors because the day =day(date()) returns is not numeric so when it posts it gives errors. saying it cant fit but the sizing is fine, if i change the field property to character it works but i have lots of filters that need the field to be numeric.

[Steve Workings]

Re: Dialog Posting Issue

Does anyone know how to convert a character to numeric before the post to the table.

Use the Val() function.

MyCVar = "123.45"
?val(MyCVar)
= 123.45

[chadbrown]

Re: Dialog Posting Issue

Sorry Steve I'm still new where would i use that?

[peteconway]

Re: Dialog Posting Issue

Knowing evertyhing on the dialog form is "C"haracter you may want to convert on the store this way.

Use: CONVERT_TYPE()

example:
tbl.Year = convert_type(alltrim(currentform.controls.Year.value),N)

Legend is:

V5
"C" = Character

"N" = Numeric

"D" = Date

"L" = Logical

V6
"T" = Time (date time value)

[chadbrown]

Re: Dialog Posting Issue

Hi I tried that and it now returns this error.

Errors in: event.AfterValidate code:
Variable "N" not found.

[peteconway]

Re: Dialog Posting Issue

Sorry, use quotes

tbl.Year = convert_type(alltrim(currentform.controls.Year.value),"N")


V5
"C" = Character

"N" = Numeric

"D" = Date

"L" = Logical

V6
"T" = Time (date time value)

[chadbrown]

Re: Dialog Posting Issue

woohoo got it, the N was not in quotes
awesome thanks for the help.

[drgarytraub]

Re: Dialog Posting Issue

CurrentForm.Controls.month = month(date())
CurrentForm.Controls.year = year(date())
CurrentForm.Controls.Day = day(date())
CurrentForm.Controls.store = "Alliston"

Chad,

CurrentForm.Controls.Day is string

day(date()) returns a numeric value

So, you need to convert the numeric to a string, and that is done with str() like this:

CurrentForm.Controls.Day = str(day(date()))

Now, if day in your table is numeric then you need to use:

tbl.day=val(CurrentForm.Controls.Day)

And if it is character in the table then:

tbl.day=CurrentForm.Controls.Day

Gary

[chadbrown]

Re: Dialog Posting Issue

Thanks for all your help here is what worked.

Initialize

CurrentForm.Controls.month = month(date())
CurrentForm.Controls.year = year(date())
CurrentForm.Controls.Day = day(date())
CurrentForm.Controls.store = "Alliston"

After Validate

tbl = table.open("totals as")
tbl.enter_begin()
tbl.store = alltrim(currentform.controls.store.value)
tbl.Month = alltrim(currentform.controls.month.value)
tbl.Year = convert_type(alltrim(currentform.controls.Year.value),"N")
tbl.Day = convert_type(alltrim(currentform.controls.Day.value),"N")
tbl.Post_paid__ = convert_type(alltrim(currentform.controls.Post_Paid.value),"N")
tbl.Pre_paid__ = convert_type(alltrim(currentform.controls.Pre_Paid.value),"N")
tbl.Data_device = convert_type(alltrim(currentform.controls.Data_Device.value),"N")
tbl.Upgrade_mig = convert_type(alltrim(currentform.controls.Upgrade.value),"N")
tbl.Esn_with_phone = convert_type(alltrim(currentform.controls.Esn_With_Phone.value),"N")
tbl.Coam = convert_type(alltrim(currentform.controls.Coam.value),"N")
tbl.Extended_warranty = convert_type(alltrim(currentform.controls.EWP.value),"N")
tbl.Fun_bundles = convert_type(alltrim(currentform.controls.Fun_Bundle.value),"N")
tbl.Expressvu = convert_type(alltrim(currentform.controls.Express_Vu.value),"N")
tbl.High_speed_ = convert_type(alltrim(currentform.controls.HSE.value),"N")
tbl.Bell_bundle = convert_type(alltrim(currentform.controls.Bell_Bundle.value),"N")
tbl.enter_end(.t.)
tbl.close()

[Steve Wood]

Re: Dialog Posting Issue

I accidently deleted your PM on this subject, did Gary's response satisfy your question to me?

[chadbrown]

Re: Dialog Posting Issue

Yes actually the information from Pete fixed it all up. Thanks

[ChristJC]

Re: Dialog Posting Issue

Sorry, use quotes

tbl.Year = convert_type(alltrim(currentform.controls.Year.value),"N")


V5
"C" = Character

"N" = Numeric

"D" = Date

"L" = Logical

V6
"T" = Time (date time value)

Hi Peter

Have a similiar problem to Chad, I am trying to insert a value into the insert event code, but A5 is returning an error from SQL. The number I am inserting (3) is valid and conforms to the PK/FK relationships in SQL, so all I can guess is that (3) is still a string instead of numeric, and thats why the update wont go through

Does this part of the insert event code look right to you?

IF DataSubmitted.DoctorID = "" THEN
Datasubmitted.doctorid = 3
convert_type(alltrim(DataSubmitted.DoctorID),"N")

end if

Cheers

Jason

[peteconway]

Re: Dialog Posting Issue

IF DataSubmitted.DoctorID = "" THEN
Here you are testing for a string..
Datasubmitted.doctorid = 3
Here you are looking at a number you may want to try "3"
convert_type(alltrim(DataSubmitted.DoctorID),"N")

Should work - give it a go.