Reset field Value to isbalnk

[forskare]

I have a field on a form where the user enters a reason for marking a record. I also have a button on this form that runs the unmark operation. When I pres the unmark button, I also want the reason field to be rid of all data. How would I delete the value in the field for each record that's marked when I run the Unmark operation?

Thanks,

kenn

[forskare]

RE: Reset field Value to isbalnk

Got it solved. Back on 4/8/99, Selwyn answered thisvery question with the following:

there are lots of ways to do this. one easy way is the following. say the date field is called invoice_date and the name of the object on the form is also invoice_date:
use this xbasic

parent:invoice_Date.text = ""

or just
invoice_date.text = ""

Works like a champ!!

Thank you Selwyn!! ~(:>}

kenn

[forskare]

RE: Reset field Value to isbalnk

Not so quick Nordin, Selwyns code works great but for only one record. Kevin Coyle also submitted code:

tbl = table.current()
tbl.change_begin()
tbl.date1.blank_put()
tbl.date2.blank_put()
tbl.date3.blank_put()
tbl.date4.blank_put()
tbl.date5.blank_put()
tbl.change_end(.T.)
parent.resynch()

You must change the "date1 to date5" to reflect the name of your date fields in your table. Hope it works out for you.......Kevin Coyle

It appears to me that a line of code is needed for each record where there is a value in the field to be deleted. If this is the case, one would have to take a shot at the # of lines to include and hopefully there would be no more marked records than the number of lines of code. If this is the case, surely there must be a way to clear all values for all records for that particular field when the Unmark button is pushed.

Thanks,

kenn

[Tom Cone Jr]

RE: Reset field Value to isbalnk

Ken,

If I'm reading you right, you would not need a separate line in your script for each 'record'... just a separate line for each 'field' you want to blank in the current 'record'. Presumably this is known at design time, and should not be a problem. -- tom

[forskare]

RE: Reset field Value to isbalnk

Tom,

This is the code on the button which deletes the value. It only does one record.

MarkReason.text = ""

If I understand what you're saying, it should delete the value or text in the field MarkReason for all records. Yes/No?

kenn

[Stan Mathews]

RE: Reset field Value to isbalnk

Ken,

It's called a loop.

tbl = table.current()
tbl.fetch_first()
while .not. tbl.fetch_eof()
tbl.change_begin()
tbl.date1.blank_put()
tbl.date2.blank_put()
tbl.date3.blank_put()
tbl.date4.blank_put()
tbl.date5.blank_put()
tbl.change_end(.T.)
end while
parent.resynch()

This code won't leave you on the same record where you began, necessarily. You could add code to capture the current index, set the index to record number order, capture the current record number, proccess the script for blanking, fetch the oroginal record number, and reset the index to the original.

[Tom Cone Jr]

RE: Reset field Value to isbalnk

Ken,

It's not clear to me whether you're having trouble blanking more than one field in the current record, or the same fields in more than one record.

If you want to process all the 'marked' records you could modify Stan's idea like this:

tbl = table.current() ' get pointer to primary table
if tbl.mode_get() > 0 then
   ui_msg_box("Oops","Save pending change or enter first.")
   end
end if

tbl.fetch_first() 
while .not. tbl.fetch_eof() 
   if marked() then
      tbl.change_begin() 
      tbl.date1.blank_put() 
      tbl.date2.blank_put() 
      tbl.date3.blank_put() 
      tbl.date4.blank_put() 
      tbl.date5.blank_put() 
      tbl.change_end(.T.) 
    end if
    tbl.fetch_next()
end while 
parent.resynch()

If this isn't what you need, please explain, in detail. You may safely assume we don't know the context in which your script is running, or what you're trying to accomplish.
Thanks.

-- tom

[forskare]

RE: Reset field Value to isbalnk

tom,

"It's not clear to me whether you're having trouble blanking more than one field in the current record, or the same fields in more than one record."

The same field in more than one record. It would be the field for the records that are marked, so when the records are unmarked, the values in the MarkReason field are also deleted or the field becomes blank. Actually, the field should become blank no matter which records are marked. That way, if the user inadvertently enters data into the MarkReason field and the record is not marked, the data will still be deleted or the field will become blank/empty.

Thanks,

kennn

[CALocklin]

RE: Reset field Value to isbalnk

Ken,

Modifying Tom's code, the following will unmark all marked records and blank out the Date1 field.

tbl = table.current() '--- GET POINTER TO PRIMARY TABLE
IF tbl.mode_get() > 0
   ui_msg_box( "Oops", "Save pending change or enter first." )
   END
END IF

tbl.fetch_first() 
WHILE .not. tbl.fetch_eof() 
   IF marked()
      tbl.change_begin()
         tbl.field_get(0).value_put( " " )  '--- THIS UNMARKS THE RECORD.
         tbl.date1.blank_put()  '--- THIS BLANKS THE FIELD.
      tbl.change_end(.T.) 
   END IF
   tbl.fetch_next()
END WHILE 
parent.resynch()

If you want to blank the field in every record in the table, simple remove the "IF marked()" (and, of course, the END IF). This will also "unmark" the records that are already unmarked but so what?

Note: If a table is opened with "table.open()" then "marked()" must be changed to "tbl.is_marked()". Or, better yet, just use "tbl.is_marked()" whenever you use the table mode. "Marked()" only refers to the primary table unless used with the table name as in: Marked( "mytable" ). However, this could be dangerous in Xbasic because a table opened in Xbasic might end up with a different alias name.

Also, when a table is opened with "tp = table.open()" don't forget to include a "tp.close()" when you're done with the table.

[forskare]

RE: Reset field Value to isbalnk

Cal,

Thanks for your suggestions. I haven't had a chance to work with it but will get to it later tonight.

Thanks again,

kenn

[forskare]

RE: Reset field Value to isbalnk

Cal,

The code works great and does what I need to do.

Thanks,

kenn