I have a form that I want certain fields to be read only if the form is marked as completed (with a y or n entered in a text field).  I set up the code to read only if = Y and writable if n.  The problem is that if a record is at read only and then you add a  new record the new record is also set at read only even though the complete field has an intial value of N.  The code works when you are in the record with being = to Y or N but not when you advance.  I have put the code in on form entry, tried it in form name and/or field name.

if  @isblank(exchange rate) then exchange rate = "1.000"

goto product code look up



if complete0 = "Y" then
{
readonly(total price per unit,1)
readonly(customs3,1)
readonly(duty3,1)
readonly(freight3,1)
readonly(fruit3,1)
readonly(handling3,1)
readonly(other3,1)
readonly(other_a2,1)
readonly(other_b3,1)
readonly(stor_fin3,1)
readonly(storage3,1)
readonly(exchange rate, 1)
readonly(fruit cost, 1)
readonly(sf cost, 1)
readonly(frt cost, 1)
readonly(customs cost, 1)
readonly(duty cost, 1)
readonly(other cost, 1)
readonly(other 1 cost, 1)
readonly(storage cost, 1)
readonly(handling cost, 1)
readonly(other 2 cost, 1)
readonly(total price per unit, 1)
readonly(po price,1)
readonly(fruit5, 1)
readonly(stor_fin5, 1)
readonly(freight5, 1)
readonly(customs5, 1)
readonly(duty5, 1)
readonly(other5, 1)
readonly(other_a5,1)
readonly(storage5,1)
readonly(handling5, 1)
readonly(other_b5, 1)

}



if complete0 = "n"  then
{

readonly(total price per unit,0)
readonly(customs3,0)
readonly(duty3,0)
readonly(freight3,0)
readonly(fruit3,0)
readonly(handling3,0)
readonly(other3,0)
readonly(other_a2,0)
readonly(other_b3,0)
readonly(stor_fin3,0)
readonly(storage3,0)
readonly(exchange rate, 0)

readonly(fruit cost,0)
readonly(sf cost, 0)
readonly(frt cost, 0)
readonly(customs cost,0)
readonly(duty cost, 0)
readonly(other cost, 0)
readonly(other 1 cost, 0)
readonly(storage cost, 0)
readonly(handling cost, 0)
readonly(other 2 cost, 0)
readonly(total price per unit, 0)
readonly(po price,0)
readonly(fruit5, 0)
readonly(stor_fin5, 0)
readonly(freight5, 0)
readonly(customs5, 0)
readonly(duty5, 0)
readonly(other5, 0)
readonly(other_a5,0)
readonly(storage5,0)
readonly(handling5, 0)
readonly(other_b5, 0)





}


                 

Makes no difference.

Y if value is Y and N if value is N

I have a initial value of N in that field.  Plus just to make sure.......when you open form  - if that field is blank it enters N (over kill - but just in case)

It's like it doesn't recognize the value in the field when you add a new record when you are entering multiple records.  If you go into the file new - it is fine.  It  also does it properly when you search existing records.  (This is a new feature to an existing file.)

Sorry.....I didn't understand your question until I read it again!  Which having that info.....makes me believe the problem is with my add data command.  The write(ln) doesnt even pop up when you add data from my command button but it does if you add data through the menu tree.     Everything in my files are by command button as people here don't want to use the menu tree or even see it!
I have the double command in there so you can switch to add data from the search menu.
var success as int
var vTemp as Int

     If (@Mode() = 0) Or (@Mode() = 1)
     {
           vTemp = @CreateNewRecord()
     }

                 

if @mode() = 2
{

success = @selectTreeItem("Search Menu!Switch to Add Data Mode (Ctrl-F6)")
@exit
}