Modal Form Previous Values

[johngtatp]

I open up a modal form and set all of the values to individual variables. I then compare the initial values to the final values prior to saving the changed values.

Now, is there a way in xbasic to reference the initial values on a modal form without recording all of them as variables?

[Stan Mathews]

Re: Modal Form Previous Values

I don't think it matters what type of form you are using. The initial values are those in the table(s) upon which the form is built.

See the wiki for .initial_value_get()

[Ray in Capetown]

Re: Modal Form Previous Values

If needed on a field by field basis;-

The Alpha Five system variable, A_FIELD_VALUE, is useful in the CanWriteField event. Because the CanWriteField event occurs before the field value you type is actually written to the record buffer, you can use the A_FIELD_VALUE system variable in your script to refer to the value that you typed into the control. If you reference the field by name, you will access the initial value in the field before you typed in a new value.

[johngtatp]

Re: Modal Form Previous Values

I am having a bit of syntax problems with .initial_value_get() . I want to check a bunch of fields so first question is can I put this on a button? If so, one field name is fuel_status how would I put this in a variable,
I tried:
dim test as c
test = fuel_staus.initial_value_get()

I put this on a button on a form but I get fuel_status not found, do I need a pointer?

[Stan Mathews]

Re: Modal Form Previous Values

I haven't used this but my reading says you want

test = fuel_staus.field_get().initial_value_get()

[Al Buchholz]

Re: Modal Form Previous Values

I haven't used this but my reading says you want

test = fuel_staus.field_get().initial_value_get()

or with a table pointer tblP

test = tblP.field_get("fuel_status").initial_value_get()

or you can use a number in field_get(n) and walk down the list of fields in the table.

[johngtatp]

Re: Modal Form Previous Values

I have never tried field_get(n), how do you know the which field is what certain number?

[Stan Mathews]

Re: Modal Form Previous Values

View the structure count top to bottom or view the browse and count left to right.

[Al Buchholz]

Re: Modal Form Previous Values

I have never tried field_get(n), how do you know the which field is what certain number?

This allows you to loop through the list of fields in a table and compare the initial_value() with the value_get()

    init = tblP.field_get(n).initial_value_get()
    final = tblP.field_get(n).value_get()
    if (init <> final) then
        field_changed = .T.
    else
        field_changed = .f.
    end if

To see the name of the field use: tblP.field_get(n).name_get()

More help here..

[johngtatp]

Re: Modal Form Previous Values

This ended up working great...

I am still playing with it, but now i have a button that checks each field on the form by setting variables and then calling a function to check if each field is dirty and then writes to an audit file if the get value and get initial value do not match. I am very inexperienced in coding and I am sure there is a better way, but...

Here is the function that writes to the audit file if the values are not the same:
FUNCTION auditcheck AS C ( )

if tmptable.field_get(var->fname).initial_value_get()<>tmptable.field_get(var->fname).value_get()
atable.enter_begin()
atable.time = var->nowtime
atable.fieldinfo = var->finfo
atable.userid = var->userid1
atable.message = alltrim(tmptable.field_get(var->fname).initial_value_get()) +" -> " + alltrim(tmptable.field_get(var->fname).value_get())
atable.resnum = var->resnum1
atable.enter_end(.t.)
else
end if
END FUNCTION

This is the button which keeps calling the function for each field:

im shared resnum1 as n
dim shared atable as p
dim shared tmptable as p
dim shared tmptable1 as p
dim shared audittable as p
dim shared finfo as c
dim shared fname as c
dim shared nowtime as t

dim shared userid1 as n

userid1="2"


tmptable=table.get("res_detail")


atable = table.open("audit",FILE_RW_SHARED)
nowtime = now()
resnum1 = tmptable.resnum

fname="fuel_status"
finfo="Fuel Status"
auditcheck()

fname="rcar_status"
finfo="RCar Status"
auditcheck()

fname="lav_status"
finfo="Lav Status"
auditcheck()

tmptable=table.get("reservation")
fname="notes"
finfo="R Notes"
auditcheck()
atable.close()


This only shows 4 of the fields it checks but this works. Thanks guys for your help on this.