Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problem updating a view
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Problem updating a view
Miscellaneous
Thread ID:
00171363
Message ID:
00171363
Views:
61
I have a form with a page frame with 6 pages. On the last page I have a grid based on a parameterized updatable view. This implements an order entry system. The grid contians the detail lines of the order.

After an order is entered the user can click a button to produce a confirmation report of the order the client has placed. When this button is clicked, or when the form is closed, my ThisForm.SaveAll() method is executed.

The problem occurs when the user returns to the form after running the confirmation report and realizes that the detail lines of the order need to be changed.

The grid allows the user to make the appropriate change, but when the user either re-runs the confirmation report or closes the form, executing the SaveAll() method, the master table behind the view is not updated with the changes... even tho the TableUpdate does not return a problem.

I've tried several things, but....

The current implementation looks like this...
Master Table 1: OrderItems.dbf - Not buffered, Not in Data Environment
Master Table 2: Supplier.dbf - Not buffered, Not in Data Environment
View: vpOrderItemsSupplier - Buffered (5-Optimistic Table), In Data Environment

cmdConfirmReport.Click()
LOCAL cOrder_ID
cOrder_ID = ThisForm.cOrder_ID
IF ThisForm.SaveAll()
etc...

ThisForm.SaveAll()
...numerous lines of associated set up...
SELECT vpOrderItemsSupplier
n=0
BEGIN TRANSACTION
SCAN
	n=n+1
	IF NOT TableUpdate(0,.T., "vpOrderItemsSupplier")
		MESSAGEBOX( "The Order Items table was not updated for" +CHR(13)+ ;
			"record "+str(n) +CHR(13)+ ;
			"Report_Nam "+vpOrderItemsSupplier.Report_Nam +CHR(13)+ ;
			"Report_Num "+vpOrderItemsSupplier.Report_Num, ;
			MB_ICONEXCLAMATION+MB_OK, ;
			"Omnia Background Search - Saving Order Information")
		lSuccess = .F.
		lRetVal  = .F.
	ENDIF
ENDSCAN
END TRANSACTION
At this point an inspection of the OrderItems.dbf shows that the records are unchanged... I'm at a loss and need help!

TIA,
Rick
Next
Reply
Map
View

Click here to load this message in the networking platform