current field

[asawyer13]

Re: current field

Thanks,
Alan

[enstorms]

Re: current field

G.,
I would appreciate a copy, also if you'd be willing to send it.
Thanks.
Ernie

[enstorms]

Re: current field

Bumping this back to the top.
The attached is a short movie that was submitted to this forum about a year ago by G.Gabriel, showing a technique of using the "+" and "-" keys to adjust numeric, date or character fields up or down. I am primarily interested in adjusting date field. I really would like to have access to this code behind the technique if at all possible, hint, hint......(G.Gabriel)
Thanks.
Ernie

P.S. in trying to use the a_current_field system variable I get the error:

Variable "a_current_field" not found.

[G Gabriel]

Re: current field

I did look in the "Vault" and couldn't find the darn thing! I must have deleted it right after I wrote it which is what I always do.
If things quiet down a little, I will re-read the question and see if I could write it again. Sorry.

[enstorms]

Re: current field

Thanks, G. Appreciate you getting back to me. I'm trying to create a function I can use wherever instead of having to use the literal field object names. This is the code I am using to perform the calc if the "+" key is pressed:

parentform:deliver_date.text = dtoc(ctod(parentform:deliver_date.text)+1)

Ernie

[Garry Flanigan]

Re: current field

Just as a starting point, I wrote the function below, which is is generic for numeric and date fields. It is used by putting PlusMinusValue() in the OnKey event:

FUNCTION PlusMinusValue AS V ( )
if a_user.key.value = "+" then
	if a_user.key.event = "down"
		vFName = current_object()
		evaluate_template("vFValue = " + vFName + ".value")
		if typeof(vFValue)="D" .or. typeof(vFValue)="N" then
		   A_USER.KEY.handled = .T.
			evaluate_template(vFName+".value = " + vFName + ".value + 1" )
			evaluate_template(vFName+".refresh()" )
		end if	
	end if		    
elseif a_user.key.value = "-"
	if a_user.key.event = "down"
		vFName = current_object()
		evaluate_template("vFValue = " + vFName + ".value")
		if typeof(vFValue)="D" .or. typeof(vFValue)="N" then
		   A_USER.KEY.handled = .T.
			evaluate_template(vFName+".value = " + vFName + ".value - 1" )
			evaluate_template(vFName+".refresh()" )
		end if	
	end if		    
end if
END FUNCTION

You could enhance the function with increment_value() for a character field but there is no function decrement_value(). I do not know why you would want this functionality though.
Also, with numeric fields this functionality probably only makes sense with integers.
Garry

[enstorms]

Re: current field

Garry,
Thanks a BUNCH!!!
Here's my code and function.
This code placed in the form's OnKey event:

dim vFldName as c
dim vAdjust as c

vFldName = current_object()
if a_user.key.value = "+" then
	if a_user.key.event = "Down" then
		vAdjust = "Up"
		date_adjust(vFldName,vAdjust)
	end if
else if a_user.key.value = "-"
	if a_user.key.event = "Down" then
		vAdjust = "Down"
		date_adjust(vFldName,vAdjust)
	end if	
end if

FUNCTION:

FUNCTION date_adjust AS V (FldName AS C, Adjust AS C )
	if Adjust = "Up" then
		evaluate_template("vFValue = " + FldName + ".value")
		evaluate_template(FldName+".value = " + FldName + ".value + 1" )
	end if
	if Adjust = "Down" then
		evaluate_template("vFValue = " + FldName + ".value")
		evaluate_template(FldName+".value = " + FldName + ".value - 1" )
	end if
END FUNCTION

Thanks again. This will save so much time.
Ernie

[enstorms]

Re: current field

This is the revised function. Took out unneeded line.

FUNCTION date_adjust AS V (FldName AS C, Adjust AS C )
	if Adjust = "Up" then
		evaluate_template(FldName+".value = " + FldName + ".value + 1" )
	end if
	if Adjust = "Down" then
		evaluate_template(FldName+".value = " + FldName + ".value - 1" )
	end if
END FUNCTION