I have had a small issue for the last little while whereby one of my report command buttons was adding a blank record in the search/update mode.

I narrowed it down and was able to duplicate it with one specific button.

On Form Entry I do have the following code whereby if the user scrolls thru all the records, they cannot add when in update mode:

//Prevents User from adding records in Search/Update mode but allows saving

If @Update Then
{
     If @ResultSetCurrentPosition() = @ResultSetTotal() Then
           {
                 NotifyForm(2)
           }
           Else
           {
                 NotifyForm(-2)
           }
}


This exact code is also in my command button that is giving me the problem.  It is also in other command buttons that do not create any issues.

The code starts off with above, pops up a menu, determines a month, loads the relevant retrieve spec and runs the report as follows (is there anything readily apparent without having to interpret the code below that you can see ?):

NOTE: it only happens on form entry and clicking the command button prior to searching for any records.  If you bring up a record first, it will not add the blank record. 

I just realized as I was writing this, this button has the @SAVE call before loading the retrieve spec.  None of the other command buttons has this call.  There was a reason why we put it in and I think it had something to do with records being modified accidentally.  I will test it without it and see what happens.


//Command Button programming

var vMonth as String      
var vRun as Int
var vSpec as Int
var vRetrieve as String
var vTree as Int

//Prevents User from adding records in Search/Update mode but allows saving

If @Update Then
{
     If @ResultSetCurrentPosition() = @ResultSetTotal() Then
           {
                 NotifyForm(2)
           }
           Else
           {
                 NotifyForm(-2)
           }
}


//offer user choice of reports to print

//popup is placed directly over Print Button

PopupSelectPosition(4, @XPos(PAYROLL ADVANCES MTH), @YPos(PAYROLL ADVANCES MTH))

vMonth = @Popupmenu("01-JAN;02-FEB;03-MAR;04-APR;05-MAY;06-JUN;07-JUL;08-AUG;09-SEP;10-OC
T;11-NOV;12-DEC", "Select A Month")

If @LEN(vMonth) = 0
{
     vMonth = "JAN"
}
Else
{
     vMonth = @Right(vMonth, 3)
}
GlobalValue("Report Month", vMonth)

//LOADS RETRIEVE SPEC

vRetrieve = "01-JAN;02-FEB;03-MAR;04-APR;05-MAY;06-JUN;07-JUL;08-AUG;09-SEP;10-OCT;11-NOV;12
-DEC"


If @LEN(vRetrieve) = 0
{
     vRetrieve = "JAN"
}
Else
{
     vRetrieve = @Right(vRetrieve, 3)
}

@SAVE

vSpec = @LoadRetrieveSpec("PAYROLL ADVANCES - " + vMonth)
vRetrieve = @LoadSortSpec("PAYROLL ADVANCES")
vTree = @SelectTreeItem("Search Menu!Search Commands!Retrieve New Results (F10)")


vRun = @SelectTreeItem("Search Update Menu!Results Commands!Reports!Employee!Payroll Advances - Mth (Preview)")

Hello Fredrick,

A -2 clears only the 2 flag but a 0 clears all flags. Page 193 of the 1.1 Manual in the first paragraph after the code explains this.

-Ray

Hello Louis,

Is this in the application that you sent me last week?

If it is could you give me steps so I can reproduce it here.

-Ray

It is presented when you first join the forum and you click a button stating that you agree to its terms to join.

We aren't really very strict about it. If someone wants to have a link to the company they own or are directly working for, no one minds. But a third party ad is too much of an invitation for the folks that post nothing but ads to say: "but you let him do it".

I sent you a private message asking if the ad is for a company you own or work for. If it is, you can continue to use it as your sig. Also, if you want you can recommend the company in the off topic board, if you think they are particularly good.

We regularly have to depost and revoke the memberships of spammers and others that do nothing but post ads to the forum. They are a constant problem. I don't class your ad in the same category, but I don't want them to have any grounds to claim that we let some people break the rules while others cannot.