I have read that changing Warning level to None should stop the warning prompt before the mass update is done.  This would make in possible to have a Subroutine Mass Update.

The instructions used an example with a Delete subroutine.

#include "sbasic_include.sbas"
WarningLevel(WARNING_LEVEL_NONE)
DeleteRecord()
WarningLevel(WARNING_LEVEL_SOME

I have tried to do this on a invoice that Mass Updates the subform lines after the main form is completed.  It still prompts the mass update warning but not the delete warning.

It seems each work around I come up with hits a glitch.

The main form is in free form view while the subform is in Table View.

I can use a save mass update manually, but it will not work automatically unless I use a macro which is not recommended.

What am I missing?

Hi Ray,

I tried using a the RunMassUpdateSpec() in both the main form and the sub form.

Main Form

IF @LEFT(TCD,2) = "CT" AND @ADD AND MESSAGE = "" THEN {vWarn = @LoadMassUpdateSpec("CT6")
                                         FormCommit("")
                                         @SAVE
                                         RunMassUpdateSpec()}

The first field in each subform record is highlight but the update does not happen.

  When I do it manually, it does after the warning how many (subform) records will be done.

I had the same formulas in the first field of my subform  as what was in the Mass Update.  I had removed them thinking that the Mass Update was working, except I had to click on each individual record.  So it was actually, the formulas that were working and not the Mass Update.

When I am going through the invoice, it looks like Mass Update is trying to do something, but the fields are still blank.


I have included a copy of the Mass Update for the Sub Form.

For what it looks like you are wanting to do, you don't want to be using a mass update. You're gonna want to write a loop from the parent form that manipulates the data for each subform record. Something like

Var vLoop as Int
Var vCnt as Int
Var vSub as String
Var vPrice as Money

vSub = "Gems"
vLoop = 1
VCnt = @FormResultSetTotal(vSub)
While VLoop <= vCnt
{
	FormResultSetCurrentPosition(vSub, vLoop)
	//Grab Current Price from subform
	vPrice = @FormFieldValue(vSub, "Price", 0)
	//Incease by 10%
	vPrice = vPrice * 1.1
	//Write Current price back to subform
	FormFieldValue(vSub, "Price", 0, vPrice)
	FormCommit(vSub)
	vLoop = vLoop + 1
}
FormCommit("") 

-Ray

Hi Ray,

This solved my problem and with a little tweeking with the money rounding was able to get the same results as my Q&A program.

My next problems concerns copying from one database to another.  In Q&A, if the customer was making a new charged purchase, a Layaway, a new account would be created in the Lay.dtf during the invoice print process.  I have tried using the XResultset commands, but it has not worked in Sesame.  I have made an external database for the accounts and an internal form within the same database;  neither seemed to work.

I also use this setup to add items to our inventory when I am doing stock transfers.

The way I got it to work is to have Blank records that will be changed to new accounts by using the XPost command.  These records actually contain the word "Blank" in one of their fields.


The commands I use is below:

]IF vTERMS = "Layaway" AND @ADD AND GUIDE = "" THEN {xpost(@FN,vBlank,"CUSTOMERANDACCOUNTS!PHONE10",vInvoice,"PHONE10","")            
                       xpost(@FN,vINVOICE,"CUSTOMERANDACCOUNTS!PHONE10",FNAME,"FNAME0","")
                       xpost(@FN,vINVOICE,"CUSTOMERANDACCOUNTS!PHONE10",LNAME,"LNAME0","")      
                       xpost(@FN,vINVOICE,"CUSTOMERANDACCOUNTS!PHONE10",STREET,"STREET0","")      
                       xpost(@FN,vINVOICE,"CUSTOMERANDACCOUNTS!PHONE10",CITY,"CITY1","")
                       xpost(@FN,vINVOICE,"CUSTOMERANDACCOUNTS!PHONE10",POSTAL CODE,"POSTAL CODE0","")
                       xpost(@FN,vINVOICE,"CUSTOMERANDACCOUNTS!PHONE10",DATE10,"DATE0","")
                                xpost(@FN,vINVOICE,"CUSTOMERANDACCOUNTS!PHONE10",TERMS0,"CATEGORY","")
                       xpost(@FN,vINVOICE,"CUSTOMERANDACCOUNTS!PHONE10",ANEWBAL,"BALANCE","")
                       xpost(@FN,vINVOICE,"CUSTOMERANDACCOUNTS!PHONE10",PHONE1,"PHONE10","")
                       GUIDE = @XLU(@FN,INVOICE,"CUSTOMERANDACCOUNTS!PHONE10","BALANCE")
                                                                 FormCommit("")}

I included an copy of what the customerandaccounts form looks like.

Hi Ray,

Is this the right command to use?
It isn't in the Programming Guide, but it was on the site.

@XResultSetNew(filename, db)
Type: External Database Application Management
Parameters: filename as string, db as string
Returns: int
This command is the best way to obtain a new, empty result set for the purpose of adding new
records.
@XResultSetNew takes two arguments:
filename - the filename of the application to open. If the records you want are in the current
application, you can use @FN for the filename.
db - the name of the database in that application.
#include "sbasic_include.sbas"
var vRSHandle as int
vRSHandle = @XResultSetNew("Customers.db", "Customers")
if(vRSHandle > -1)
{
XResultSetCreateNewRecord(vRSHandle)
XResultSetValue(vRSHandle, "First", "William")
XResultSetValue(vRSHandle, "Last", "Halpern")
XResultSetClose(vRSHandle)

Cavel Rahey

Hi Ray,

I have entering invoices in my Sesame database while they are being done in Q & A.  The Sesame database will not open, even when I unlock it.

Cavel

Here's what shows up in my log when I try to start it up.

server_error            failure while loading application
server_error            Failed to read a record
server_error            Cannot memory seek
server_note             Logging start of standalone...
server_note             Shutting down server.

There wasn't much in the database so I just copied it over.