Hello Flip,

You can do this by using @XResultSetSearch(), @XResultSetLocked() and XResultSetValue() instead of using XPost().

-Ray

Flip,

Part of my sales order print/save routine is to post from the Orders record that I've just created/am saving to the sales order number (SONum), the sales order date (SODate), and the name of the person placing the order (Orderer) into three fields in that client's record in my Client database.  If that particular client record is locked by another user, the programming will writeln a message on the screen alerting the person inputting saving the Order.   Here is the relevant part of that code:

                  vRSdni = @XResultSetSearch(@FN, "Client", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "!ClientID=" + vClientID)
                  If vRSdni > -1
                         {
                           If @XResultSetTotal = 1      // if vRSdni consists of only one record
                                       {
                                          If @XResultSetLocked(vRSdni) = 0          // if this ClientID form is
                                                                                                 //  NOT locked, then post
                                                                                                 //  the data to the fields
                                           {
                                             XResultSetValue(vRSdni, "LastSONum", vSONum)
                                             XResultSetValue(vRSdni, "LastSODate", vSODate)
                                             XResultSetValue(vRSdni, "LastOrderer", vOrderer)
                                           }      // ends if vRSdni is not locked
                                             Else If @XResultSetLocked(vRSdni) = 1      // if this ClientID form
                                                                                                        // is currently locked
                                                                                                       //  by another user
                                                     {
                                                         Writeln(vSONum + "; " + vSODate + ";  weren't written
                                                                     to this client record because the client record
                                                                     is locked")
                                                     }

                                     }  // ends if @XResultSetTotal = 1

                          } // ends if vRSdni > -1
                      XResultSetClose(vRSdni)

Not grasping the @XResultSetSearch idea.
The book shows alot of variables, loops, and optional arguments.
I'm looking for a specific form in a database to see if is unlocked.

vPartNo = "PartNumber"
vRSSinv = @XResultSetSearch(@FN, "Inventory", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "!InventoryFormPartNo=vPartNo")...?
Whats the field name? is that whats "in" the element?

If vRSSinv > -1
     {
           If @XResultSetTotal = 1      
                     {
                       If @XResultSetLocked(vRSSinv) = 0         
                                     {
                                             Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"Shopqty","SUB")
                                   Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"shopsales","ADD")
                                   Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"SalesShop","ADD")
                                        }
                       Else If @XResultSetLocked(vRSSinv) = 1      
                                     {
                                             Writeln("All The Inventory Items Have NOT Been Updated"; "An Invintory Item Record is Locked"; "Please Check Which Item was not posted and try again")
                                             }
                            }   
     } 

It will need to do this on each line item (which has a different part number) for a total of 14 times
I'm sooo confused, I'm not even sure if I am explaining it correctly anymore...

Ray,
Thank you for your patients. I don't think i'm getting it because i'm not applying it correctly to my code.
Especially to the xpost at the end.... (banging my head on the keyboard)

This is my actual xpost code in a subroutine in Global Code. I'm thinking I dont close the XResultSetClose(vRSSinv) untill the very end?

If (CallStatus = "COMPLETE") and (Not (JobType = "Estimate")) And (Not @IsBlank(qty1)) and (Not @IsBlank(brp_1)) and ((@IsBlank(Post1)) and (not @IsBlank(Location1)))
	{
		If Location1 = "Shop"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"Shopqty","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"shopsales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"SalesShop","ADD")
			}
		Else If Location1 = "2-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_2","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk2sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales2","ADD")
			}
		Else If Location1 = "3-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_3","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk3sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales3","ADD")
			}
		Else If Location1 = "4-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_4","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk4sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales4","ADD")
			}
		Else If Location1 = "5-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_5","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk5sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales5","ADD")
			}
		Else If Location1 = "6-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_6","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk6sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales6","ADD")
			}
		Else If Location1 = "7-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_7","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk7sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales7","ADD")
			}
		Else If Location1 = "8-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_8","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk8sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales8","ADD")
			}
		Else If Location1 = "9-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_9","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk9sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales9","ADD")
			}
		Else If Location1 = "10-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_10","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk10sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales10","ADD")
			}
		Else If Location1 = "11-T"
			{
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"truck_11","SUB")
				Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"trk11sales","ADD")
				Xpost(@fn,brp_1,"Inventory!brp_no",ListPrice1,"Sales11","ADD")
			}

		Xpost(@fn,brp_1,"Inventory!brp_no",Qty1,"QTYToDate","ADD")
		Xpost(@fn,brp_1,"Inventory!brp_no",CallDate,"LastSold","")
		Xpost(@fn,brp_1,"Inventory!brp_no",CallNumber,"WO","")
		Xpost(@fn,brp_1,"Inventory!brp_no",CompanyName,"SoldTo","")
		ReadOnly(Post1, 0)
		Post1 = "X"
		ReadOnly(Post1, 1)
		Xpost(@fn,brp_1,"Inventory!brp_no",Post1,"ChangedForm","")
	}
 

Please, feel free to criticize any of this, it would be appreciated. I have tons more just like it.

Is the XResultSetClose() in the right position?

When XResultSetClose() executes, is that when it writes or updates the other database?

Tested it in Program mode and had no error strings and when tested in preview mode it didn't function.....

var vPartNo as String
Var vRSSinv as Int

If (CallStatus = "COMPLETE") and (Not (JobType = "Estimate")) And (Not @IsBlank(qty1)) and (Not @IsBlank(brp_1)) and ((@IsBlank(Post1)) and (not @IsBlank(Location1)))
	{
		vPartNo = brp_1
		vRSSinv = @XResultSetSearch(@FN, "Inventory", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "!brp_no=" + vPartNo)

		If vRSSinv > -1
			{
				If @XResultSetTotal(vRSSinv) = 1
					{
						If @XResultSetLocked(vRSSinv) = 0
							{
								If Location1 = "Shop"
									{
										XResultSetValue(vRSSinv, "Shopqty", @TN(@XResultSetValue(vRSSinv, "Shopqty")) - Qty1)
										XResultSetValue(vRSSinv, "shopsales", @TN(@XResultSetValue(vRSSinv, "shopsales")) + Qty1)
										XResultSetValue(vRSSinv, "SalesShop", @TN(@XResultSetValue(vRSSinv, "SalesShop")) + ListPrice1)
									}
								Else If Location1 = "2-T"
									{
										XResultSetValue(vRSSinv, "truck_2", @TN(@XResultSetValue(vRSSinv, "truck_2")) - Qty1)
										XResultSetValue(vRSSinv, "trk2sales", @TN(@XResultSetValue(vRSSinv, "trk2sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales2", @TN(@XResultSetValue(vRSSinv, "sales2")) + ListPrice1)
									}
								Else If Location1 = "3-T"
									{
										XResultSetValue(vRSSinv, "truck_3", @TN(@XResultSetValue(vRSSinv, "truck_3")) - Qty1)
										XResultSetValue(vRSSinv, "trk3sales", @TN(@XResultSetValue(vRSSinv, "trk3sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales3", @TN(@XResultSetValue(vRSSinv, "sales3")) + ListPrice1)
									}
								Else If Location1 = "4-T"
									{
										XResultSetValue(vRSSinv, "truck_4", @TN(@XResultSetValue(vRSSinv, "truck_4")) - Qty1)
										XResultSetValue(vRSSinv, "trk4sales", @TN(@XResultSetValue(vRSSinv, "trk4sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales4", @TN(@XResultSetValue(vRSSinv, "sales4")) + ListPrice1)
									}
								Else If Location1 = "5-T"
									{
										XResultSetValue(vRSSinv, "truck_5", @TN(@XResultSetValue(vRSSinv, "truck_5")) - Qty1)
										XResultSetValue(vRSSinv, "trk5sales", @TN(@XResultSetValue(vRSSinv, "trk5sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales5", @TN(@XResultSetValue(vRSSinv, "sales5")) + ListPrice1)
									}
								Else If Location1 = "6-T"
									{
										XResultSetValue(vRSSinv, "truck_6", @TN(@XResultSetValue(vRSSinv, "truck_6")) - Qty1)
										XResultSetValue(vRSSinv, "trk6sales", @TN(@XResultSetValue(vRSSinv, "trk6sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales6", @TN(@XResultSetValue(vRSSinv, "sales6")) + ListPrice1)
									}
								Else If Location1 = "7-T"
									{
										XResultSetValue(vRSSinv, "truck_7", @TN(@XResultSetValue(vRSSinv, "truck_7")) - Qty1)
										XResultSetValue(vRSSinv, "trk7sales", @TN(@XResultSetValue(vRSSinv, "trk7sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales7", @TN(@XResultSetValue(vRSSinv, "sales7")) + ListPrice1)
									}
								Else If Location1 = "8-T"
									{
										XResultSetValue(vRSSinv, "truck_8", @TN(@XResultSetValue(vRSSinv, "truck_8")) - Qty1)
										XResultSetValue(vRSSinv, "trk8sales", @TN(@XResultSetValue(vRSSinv, "trk8sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales8", @TN(@XResultSetValue(vRSSinv, "sales8")) + ListPrice1)
									}
								Else If Location1 = "9-T"
									{
										XResultSetValue(vRSSinv, "truck_9", @TN(@XResultSetValue(vRSSinv, "truck_9")) - Qty1)
										XResultSetValue(vRSSinv, "trk9sales", @TN(@XResultSetValue(vRSSinv, "trk9sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales9", @TN(@XResultSetValue(vRSSinv, "sales9")) + ListPrice1)
									}
								Else If Location1 = "10-T"
									{
										XResultSetValue(vRSSinv, "truck_10", @TN(@XResultSetValue(vRSSinv, "truck_10")) - Qty1)
										XResultSetValue(vRSSinv, "trk10sales", @TN(@XResultSetValue(vRSSinv, "trk10sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales10", @TN(@XResultSetValue(vRSSinv, "sales10")) + ListPrice1)
									}
								Else If Location1 = "11-T"
									{
										XResultSetValue(vRSSinv, "truck_11", @TN(@XResultSetValue(vRSSinv, "truck_11")) - Qty1)
										XResultSetValue(vRSSinv, "trk11sales", @TN(@XResultSetValue(vRSSinv, "trk11sales")) + Qty1)
										XResultSetValue(vRSSinv, "sales11", @TN(@XResultSetValue(vRSSinv, "sales11")) + ListPrice1)
									}
								XResultSetValue(vRSSinv, "QTYToDate", @TN(@XResultSetValue(vRSSinv, "QTYToDate")) + Qty1)
								XResultSetValue(vRSSinv, "LastSold", CallDate)
								XResultSetValue(vRSSinv, "WO", CallNumber)
								XResultSetValue(vRSSinv, "SoldTo", CompanyName)
								ReadOnly(Post1, 0)
								Post1 = "X"
								ReadOnly(Post1, 1)
								XResultSetValue(vRSSinv, "ChangedForm", Post1)
							}
						XResultSetClose(vRSSinv)
					}
			}
	} 

Thanks Ray,
my return on vRSSinv = 0, Hence the reason not the desired outcome.
The "!brp_no=" references the Element in the inventory database, reading the book over and over it talks about search spec for the "field name" (whats in the field?), in my case wouldn't it be what ever the string is in the brp_1 Element used in the variable vPartNo?
The Element Name brp_no is a key field in Inventory.db

vRSSinv = @XResultSetSearch(@FN, "Inventory", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "!vPartNo=")
 

But It still returns 0

writeln(@XResultSetTotal(vRSSinv)) returns 0 also

Okay, the "field name" it talks about in the book is the "Bound To" name in the Property Viewer. I understand now.
@XResultSetTotal() is 1 now that it has the proper field name, and is in and all the XResultSetValue 's are functioning properly.
My @XResultSetLocked() on the other hand is returning 0 even though its open when executed.

And Ray, I can not thank you enough for walking me through this. Thank you!

....!?  from the same client.

Aaaaaaw. Now ya know what the next question is going to be.....
Is there an argument if the form is open by the same client?



Very happy at the moment! Thinking I have a grasp on the obvious

All Hail Master Ray!!!!

Thank you for all your help, now I'm going to go all "Viking" and reek havoc on a database!