Never mind, I got it done a few hours ago .........

But thanks for thinking about it for me ....

Glad to oblige

No access to code right now, but should happen in next few
days, possibly later tonight.

Thank you.  Your help is greatly appreciated.

Charlie,

When you post your screen shot, give us the specifics of what exactly you want to do. We all like to help and learn.

I see you are in Sacramento, Bob Hansen has a Sesame user group back east (SANE) maybe we can get one going out in California, maybe we can have meetings somewhere between you and LA. Say Bakersfield or ? There must be a bunch of us Sesame users out here that can all benefit from working with each other. Just something to think about.  

Robert

Charlie,

I am not sure I interpreted your explanation correctly but I might be doing something very similar. I have a database that tracks equipment, each piece of equipment is made up of numerous components. When you enter a record for a specific piece of equipment there is a tab that has all components listed. You can choose either Complete. Need or unknown for each component that makes up this piece of equipment. Every time you select need it adds that item to a tab on the form that is a list of needed components. It then automatically does a lookup to my parts vendor database and lists the approved vendor, price and lead time needed for items. It keeps a running total at the bottom so we can identify the total cost to get that piece of equipment running. We then have a button that prints this data out as a service tag with barcode tracking number that stays with the unit or can be used as a purchase order tool. It does almost the same thing for all parts marked unknown; just on a separate tab. below is the subroutines I use to achieve most of this. I am sure there are probably other ways to do what I am doing (probably even better) but this works for me. Just like you I am not a programmer, however Erika and the Lantica team have taught me that anything can be done by the most inexperienced user by just taking your time and breaking the task down into many many steps and just worry about one step at a time. I am not good at posting pictures but if you want I can e-mail screen shots to you. The reason I used the subroutine was because as long as my element name matches my inventory name the only thing I need to do is add the element to my form and it automatically gets added to the entire process. This makes for easy parts additions.

Keep us posted on how your project is going.  

Robert

P.S. I agree with you Sesame is great!
P.S.S. you do not need to worry about all the @replace code you see below. I needed that for my lookups because my parts database is derived from my vendors inventory database that I constantly use to replace my parts databse and they have a funky format.

Subroutine PartsStatus() // updates parts needed and unknown

// Declare Variables

Var vElements as String
Var vCnt as Int
Var vLoop as Int
Var vName as String
Var vNlist as String
Var vlabel as String
Var vlabel1 as String
Var vvendor as String
Var VVenPartNum as String
Var VVenCost as Double
Var Vline as String
Var Vtotal as Double      
Var VtotalUknown as Double

// Set Variables


     vnlist = ""
       eqp_partsNeeded = ""
     eqp_partsUnknown = ""
     vvendor = ""
     VVenPartNum = ""
     VVenCost = ""
     Vtotal = 0
     VtotalUknown = 0



     vElements = @StringArrayElementList() // Reads all my elements


   
     vCnt = @CountStringArray(vElements) // counts the anount of elements so my loop knows how many times to run
     vLoop = 0


         While vLoop < vCnt
       {
           vLoop = vLoop + 1
           vName = @AccessStringArray(vElements, vLoop)

           SetThisElement(vName)
           vlabel = @label(thiselement) // this gets the label name and assigns it to Vlabel
           
             
//writeln(velements)
//writeln(thiselement + " " + Vlabel) // lists contents of all elements
//writeln(Vname + "stop") // lists all element names


           
                 If Thiselement = "need" Then

                 {      
           
//writeln(thiselement + " " + Vlabel) // lists contents of all elements


                 vlabel1 = @replace(vlabel, "\" , "\\")

                  vlabel1 = @replace(vlabel1, ")" , "\)")
                  vlabel1 = @replace(vlabel1, "(" , "\(")
                  vlabel1 = @replace(vlabel1, "/" , "\/")
                 
                  vlabel1 = @replace(vlabel1, "-" , "\-")
                  vlabel1 = @replace(vlabel1, "." , "\.")
                  vlabel1 = @replace(vlabel1, "&" , "\&")
                  vlabel1 = @replace(vlabel1, "+" , "\+")
//Writeln(vlabel1)
                 Vvendor = @XLookup(@fn, Vlabel1, "VenEqpTrak!VenEqp_partName", "VenEqp_partVendor")
                 VVenPartNum = @XLookup(@fn, Vlabel1, "VenEqpTrak!VenEqp_partName", "VenEqp_vendorpartNum")
                 VVenCost = @XLookup(@fn, Vlabel1, "VenEqpTrak!VenEqp_partName", "VenEqp_vendorpartCost")
                 
                 Vtotal = Vtotal + @tomoney(vvencost)


                 


                 Vline = Vlabel + "  -  " + Vvendor + "  -  " + VvenPartNum + "  -  " + FormatMoney(VvenCost)




                 eqp_partsNeeded =  eqp_partsNeeded  + @newline() + vline

                 Eqp_TotNeedCost =  Vtotal

                 Eqp_TotalCost = Eqp_TotNeedCost + Eqp_UknownNeedCost

                 //writeln(vnlist)
                 }

// ********************

                 If Thiselement = "Unknown" Then

                 {

                 vlabel1 = @replace(vlabel, "\" , "\\")

                  vlabel1 = @replace(vlabel1, ")" , "\)")
                  vlabel1 = @replace(vlabel1, "(" , "\(")
                  vlabel1 = @replace(vlabel1, "/" , "\/")
                 
                  vlabel1 = @replace(vlabel1, "-" , "\-")
                  vlabel1 = @replace(vlabel1, "." , "\.")
                  vlabel1 = @replace(vlabel1, "&" , "\&")
                  vlabel1 = @replace(vlabel1, "+" , "\+")
//Writeln(vlabel1)
                 Vvendor = @XLookup(@fn, Vlabel1, "VenEqpTrak!VenEqp_partName", "VenEqp_partVendor")
                 VVenPartNum = @XLookup(@fn, Vlabel1, "VenEqpTrak!VenEqp_partName", "VenEqp_vendorpartNum")
                 VVenCost = @XLookup(@fn, Vlabel1, "VenEqpTrak!VenEqp_partName", "VenEqp_vendorpartCost")
                 
                 VtotalUknown = VtotalUknown + @tomoney(vvencost)


                 


                 Vline = Vlabel + "  -  " + Vvendor + "  -  " + VvenPartNum + "  -  " + FormatMoney(VvenCost)




                 
                 eqp_partsUnknown =  eqp_partsUnknown + @newline() + vline
                 Eqp_UknownNeedCost =  VtotalUknown
                 Eqp_TotalCost = Eqp_TotNeedCost + Eqp_UknownNeedCost
                 }


       }
     UnSetThisElement()
     Throwfocus(nothing)


End Subroutine



Subroutine StatChoices() // choices for equipment itiem status

var Str1 as string
var Str2 as string

// If @isblank(ThisElement)
     
           If ThisElement <> "Complete"



     Then
{
           PopupSelectPosition(4, @XPos(thiselement), @YPos(ThisElement) )
           str1 = "Need;Unknown;Complete"
           Str2 = @popupmenu(Str1, "please Select")
           ThisElement =Str2
}


End subroutine

Robert,

I received your screenshots...WOW!

Amazing.  I'm going to be working on a few things in between "other work".  I'll keep you posted on how things go...a little at a time   Many thanks for sharing!

Charlie

charliebrown wrote on Mar 5^th, 2007 at 6:52pm:


It appears that you are using the name that you assigned to the subform, rather than the name of the form being displayed as a subform.  You will want to use "Repair1" in place of "Repair_Subform".

-Ben

Let's make sure your code is running and get an idea of what it's doing. We'll do this by interspersing some WriteLn calls that will pop up a little window with some information. Here is your code with the WriteLns in it.

SubRoutine CalculateParts() 

Var vCount as Int 
Var vTotal as Double 
Var vRecord as Int 

WriteLn("STARTING CALC")

vRecord = 1 //Record variable 

vCount = @FormResultSetTotal("Repair1") 

WriteLn("GOT " + @Str(vCount) + " RECORDS")
If vCount > 0 Then 
{ 
While vRecord <= vCount 
{ 
//Loop through subrecords adding up totals. 
vTotal = vTotal + @TM(@FormFieldValue("Repair1", "Parts", vRecord)) 
WriteLn("vTotal: " + @Str(vTotal))
vRecord = vRecord + 1 
} 

//Place values in elements on form 
TotalRepairs = vTotal 
} 
WriteLn("DONE CALC")
End SubRoutine


Run this on a record.

If you don't ever see "STARTING CALC" then you are never running the Subroutine. Make sure you are actually calling it someplace.

If GOT # RECORDS always says 0, your form name is wrong.

If vTotal is always 0, you don't have an element called Parts in the subform.

Let us know what happens.

Hammer wrote on Mar 5^th, 2007 at 10:49pm:


Good morning:)

Here is a link to various screenshots of my databases (Inventory and Repair) and screenshots of the Program Editor window (Code tests without errors, btw)...

http://pg.photos.yahoo.com/ph/cspedden/album?.dir=/e5c3scd&.src=ph

I've run in preview mode, saved it, reconciled it, run multiple search/update, run in add data mode...I'm not getting a WriteLn window popping up or any data in my TotalRepairs field.    I'm obviously missing something that's preventing code from running properly, even though it's error free when I test it.

An double shot of espresso is in order me thinks...

I am finally getting to work with the original code posted by Bob Hansen.  When I test the code, I get the following error:

Error while parsing module "  GLOBAL CODE :srCalculateTotalCost":
Symbol expected [}], symbol found [Identifier].
Line 29, position 17: [Identifier:RunningTotal]
  RunningTotal =  vRunningTotal
                       ^

Any suggestions?

Thanks

Thanks.

That's what I thought it was telling me.  However, I am not very good with programming.  I could not see a missing curly brace.  Here is my code :

SubRoutine srCalculateTotalCost()

/*
Purpose is to calculate a Total for parent form and RunningTotal for subform
Structure is Parent Form name is frmParent, subform with natural link is named sfrmChild.
Currency element on frmParent, named TotalCost to show total of Cost for all lines in subform.
Currenty element on sfrmChild named Cost to show Cost for that individual record.
Unbound element on sfrmChild, named RunningTotal, ReadOnly, to show running total for Costs for all records in the subform.
Defined as subroutine so can be called on sfrmCost-OnExitElement and on sfrmCost-OnFormExit, 
Is also defined and called on frmParent-OnFormEntry.
*/
//==============================================

var vCount As Int            //Count number of records in subForm
var vLoop As Int            //While loop counter
var vTotal As Double            //Total Cost for all records in subForm
var vRunningTotal As Double      //Running total of Cost

If @FormIsStandalone() = 0 Then {

     vTotal = 0
     vRunningTotal = 0
     vCount = @FormResultSetTotal("sfrmChild")
     
     vLoop = 1
     While vLoop <= vCount {
           vTotal +=    @ToNumber(@FormFieldValue("sfrmChild","Cost",vLoop))
           vRunningTotal = vTotal
           RunningTotal = vRunningTotal
           vLoop += 1
           }

     If vTotal > 0 Then {
           FormFieldValue("frmParent","TotalCost",0,vTotal)
           }
     }

End SubRoutine
//======================================

Hold on.....

I just pasted my code from the forum into a test database and I am getting the same error.  Let me find out what is wrong.

Again, the code I submitted was an edited version of a working application, I must have missed something.  As Erika points out, it would seem to a missing or extra } or similar item.    Stay tuned......

Edited......
RunningTotal is an element on sfrmChild, it does not exist on frmParent.

So this needs to be modified, by adding an invisible RunningTotal element to frmParent, or making the line in code a conditional line..........    Stay tuned......

Edited again.....
GOT IT !
As noted above the code is referencing a missing element.  At one time I was calling the function from both frmParent and frmChild.  I forgot to remove the call from frmParent in my instructions.

THE FIX:
Do not call this function from frmParent.  Only call from elements on sfrmChild.

I have also modified my original posting to include that element in the set up instructions.

Thanks CapitalG for pointing out the problem.
Sorry about any confusion.   

Bob_Hansen wrote on Mar 8^th, 2007 at 9:30pm:


No need to apologize to me Bob...it's refreshing to have someone confusing me other than myself  

charliebrown wrote on Mar 14^th, 2007 at 5:33pm:


The line you show above will do something if you enter it as a switch in a mergefield in a Microsoft Word document. Sesame, however, considers it to be gobbledygook! (That's the technical term.)

Get rid of that line and just format your element as Money with 2 decimal places.

Hammer wrote on Mar 14^th, 2007 at 5:52pm:



As ordered...garbage in, garbage out  

And of course, when everything is as it should be...wonderous things happen    Thank you Erika, Bob and everyone... 

http://us.a2.yahoofs.com/users/456dd110z2ef31adb/e5c3scd/__sr_/df5bscd.jpgphQJG....

http://pg.photos.yahoo.com/ph/cspedden/detail?.dir=e5c3scd&.dnm=df5bscd.jpg&.src...

Use an element (the element that you are totaling is probably best) in the subform to call the subroutine that is in global code.  Call subroutine from On Element Exit/Change, or OnFormExit.  Do not need to do a Mass Update.

Quote:


Bob Hansen says you are welcome.
Robert (Scott) also deserves thanks too, along with Erika , Ben, CapitalG, (got em all?)

Quite a resemblance between you and Robert Scott, are you twins?