Won't make new record...

[dik_coleman]

the code below will not make a new record.
it just goes to the record in the table that last had focus,
that means that it can go to the first record or any other record that had focus.
It just begins to overwrite whatever record it goes to.
This code snippet is preceeded by a progressive search for the customer id #. The transfer of the id # and the focus activation of the date field work just fine.
How do I make it -- start a new record????

IF a_dlg_button = "&OK" THEN	
	'Get 'Value' property of 'Cus_id' in Form 'fmtype_srch' .
	DIM window_name as C
	window_name = ":"+"fmtype_srch"
	DIM varP_Object as p
	'Get a pointer to the specified window
	varP_Object = obj(window_name)		
	vc_cusid = varP_Object:Cus_id.value
	vc_cus_lastname = varP_Object:Cus_Name_Last.value
        
        '======================================
	'Is the problem in the next line????
        'This is copied from chm....		
	:fmtype_cusform.new_record()
        '======================================

	:fmtype_cusform:tbl_cus_id.value=vc_cusid
        'next line just closes the 'searching' form
	fmtype_srch.close()
	'Activate object 'Tx_date' in Form 'fmtype_cusform' .
	DIM window_name as C
	window_name = ":"+"fmtype_cusform"
	DIM varP_Object as p
	'Get a pointer to the specified window
	varP_Object = obj(window_name)
	'Check if the specified window exists
	if .not. is_object(varP_Object) then 
		ui_msg_box("Error","The window '"+window_name+"' does not exist.",ui_stop_symbol)
	else
		varP_Object:Tx_date.activate()
	end if
END IF
' the following lines (other than 'end') do not apply
if pass_no=.f. then 
	fmtype_srch.close()
end if
%code%)
if pass_no=.t.
	goto repeat_lookup
end if

END

[dik_coleman]

RE: Won't make new record...

ooops
the script is run from a button on the form
'fmtype_cusform' and opens a new form for the search.
After the data is collected (id #) the 2nd form closes and
returns to the 'button' form.
D

[dik_coleman]

RE: Won't make new record...

found the solution...
OnInit for the form disallows edits...

by adding

dim object_name as c
object_name = ":"+"fmtype_cusform"
:fmtype_cusform.allow_change(.t.)

just ahead of the new record command it now works..

even tho the form 'fmtype_cusform' originated the script,
I needed to dim the object in order for A5 to see it from
the form called by that script.

thanx anyway
D

[Tom Cone Jr]

RE: Won't make new record...

Richard,

Your script enters the new record "through" the form using a method of the form object. Restrictions in place on the form at the time the script runs will be observed, just as though the user were sitting at the keyboard trying to enter the record manually.

If you want to manipulate the table "beneath" the form use methods for the table object, not the form object. Direct manipulation of the table can occur regardless of restrictions set in the form.

This is an aspect of Xbasic which often confuses folks, and yet is a testament to its flexibility. You can write code to the form and its objects, manipulating the table indirectly (i.e. through the form)... OR ... you can write directly to the underlying table bypassing the form (so to speak).

-- t

[dik_coleman]

RE: Won't make new record...

thanx for the insight..

D