' ********************************************************************************
' Program: DELTEX.PF3
' ********************************************************************************

external $$fct, $$sysfiles, get_choice()
public $yn

'Normaly we would use the RAD delete command but we have to deal with the
'text file notes that go along with the record. Note  the use of the RAD
'get_choice() function, although the doc says it returns text it really
'returns a number and you have to put in null strings for the blank lines.

data delete record
$yn = get_choice("Delete .txt file associated","with contact #"|str([Cnum])|" y/n ?"," "," ","Yes No",4)
if $yn = 1
   tools file erase $$sysfiles|"notes\"|str([Cnum])|".*"
end if