Copy Last Years Sales

[forskare]

Re: Copy Last Years Sales

Hi Tim,

I placed the code in the onClick event of a button. I commented out the Function and End function lines. Upon reading your post and thought, hmmm, I better check that and sure enough, when I placed it back in, and copied to the button, I didn't do what I thought I did. So, I commented it out and ran it. Now, it is stepping through but when it got to this line:

curYr = year(estabdate())

It says: Function; 'estabdate' was not recognized. (I had changed it from date to estabdate because that is my date field.)

In a separate window, it says:
Script:OnPush line: 12
curYr=Year(estabdate())
Function: 'estabdate' was not recognized

I changed date to estabdate because that is my date field and there was no reference in the script to a date field in my table. So, I changed it back to date. Now it steps past this line but cycles from

if year(tbl_a.estabdate) = curYr-1

to

tbl.a.fetch_next ()

OK, there has to be a reference to my date field but this reference must not be it.

[forskare]

Re: Copy Last Years Sales

http://screencast.com/t/mAjrCTrk

take a look. can be done in a function, in a desktop form, in web grid.

I was working on my last post when you replied. Thank you for the study lesson. However, it is the same as your first one which I have working great. Takes just over 3 minutes to copy over 5,000 records. The one with the problem is the last one, the one where the date is added in. While there must be a reference to my date field (estabdate), the issue is the connection between that and the year variable.

[forskare]

Function - How many reasons....

The code is on a button. The button does not run a named function. It only runs the code. Yet, when I use Debug(1), it shows this error message: 'Function not Recognized'. I thought when the dim statement is used, it becomes a variable. Why is this a function and What are the reasons why the function is not recognized?

This is the code:

dim curYr as n
curYr = year(estabdate())

This is the error message:

Function 'estabdate' was not recognized.

Thanks much.

[aal_fareed]

Re: Function - How many reasons....

The code is on a button. The button does not run a named function. It only runs the code. Yet, when I use Debug(1), it shows this error message: 'Function not Recognized'. I thought when the dim statement is used, it becomes a variable. Why is this a function and What are the reasons why the function is not recognized?

This is the code:

dim curYr as n
curYr = year(estabdate())

This is the error message:

Function 'estabdate' was not recognized.

Thanks much.

dim curYr as n
try with this one curYr = year(estabdate)

[Tom Cone Jr]

Re: Function - How many reasons....

Kenn,

Is "estabdate()" a user defined function that you can see in the list on your control panel's code page?

If so, does it return a "date" value?

Sometimes the control panel needs to be "refreshed" after a custom script or function is saved to the code page. You might try doing that, or simply shut alpha down and restart it.

Still having trouble? show us the code that's running in the called function.

[forskare]

Re: Function - How many reasons....

Hi Tom,

No, it is not. I would assume that when AA is closed completely and the app is opened again, the CP would be refreshed.

[forskare]

Re: Function - How many reasons....

dim curYr as n
try with this one curYr = year(estabdate)

I tried that and no longer the Function issue. However, now it says the variable 'estabdate' is not found.

[GGandhi]

Re: Function - How many reasons....

this looks like follow up on the other post where you were working on a script.
do you have a field estabdate in your table?
looks like your are assigning curYr to the year portion of some field.
the terminology first time was not correct, it was looking for a function. now that is cleared up, it is looking for a variable, not a field with that name, estabdate. see if you have any spelling errors etc., if you like you can post the list of fields and people can see and post right code back to you.

[GGandhi]

Re: Function - How many reasons....

more than likely the correct format will be, if this is a continuation of the other post.

curYr = year(tbl_A.estabdate) or curYr = year(tbl_B.estabdate)


edit: after looking at your other post the correct terminology will be
curYr = year(tbl_A.estabdate)

[forskare]

Re: Function - How many reasons....

Yes, this is a followup. Now it's saying 'tbl_a' not found. Time for some humor

[GGandhi]

Re: Function - How many reasons....

please post your table structure and the code. that will help definitely.

[forskare]

Re: Function - How many reasons....

Attached is the zip file. I entered three records. The code is on the button which is on the form.

Thank you.

[MoGrace]

Re: Function - How many reasons....

It would seem your script is trying to find a table value before you open the table...

dim curYr as n
curYr = year(tbl_a.estabdate)
dim tbl_a as p
dim tbl_b as p

tbl_a = table.open("tlc_3apps")

[aal_fareed]

Re: Function - How many reasons....

Attached is the zip file. I entered three records. The code is on the button which is on the form.

Thank you.

please try this i am sure it will work for you
just make sure that estabdate contains date value

dim curYr as C
curYr = year(convert_type(estabdate,"D"))

[MoGrace]

Re: Function - How many reasons....

I played a bit with your button script that was trying to copy records to the same table and resulted in an endless loop.

dim curYr as n = year(date())	
dim tbl_a as p
dim tbl_b as p
dim cnt as n = 0
dim flag as L = .f.

tbl_a = table.open("tlc_3apps")
'duplicated your table with no records and a new name
tbl_b = table.open("[COLOR="#FF0000"]tlc_3copy[/COLOR]")

tbl_a.fetch_first()
flag = .t.
while .not. tbl_a.fetch_eof()
	if year(tbl_a.estabdate) = curYr-1
		on error goto ERRTRAP
		tbl_b.enter_begin(.t.)
			tbl_b.Customerid = tbl_a.Customerid
			tbl_b.Svcsiteid  = tbl_a.Svcsiteid
			tbl_b.Service  = tbl_a.Service
			tbl_b.Svc_Descrip = tbl_a.Svc_Descrip
			tbl_b.Svc_Zip  = tbl_a.Svc_Zip
			tbl_b.Sale  = tbl_a.Sale
			tbl_b.Exempt = tbl_a.Exempt
			tbl_b.Comborate  = tbl_a.Comborate
			tbl_b.Discount  = tbl_a.Discount
			tbl_b.Disc_Note = tbl_a.Disc_Note
		tbl_b.enter_end(flag)
		cnt = cnt+1
	end if
	tbl_a.fetch_next()	
end while

tbl_b.close()
tbl_a.close()
msgbox("Copy Result","Records Copied for "+ltrim(str(curYr-1))+": "+ltrim(str(cnt)),0)
END
ERRTRAP: 
flag = .f.
on error goto 0
RESUME NEXT