Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Deleting a record from a multitable view
Message
 
 
To
05/08/2007 22:51:54
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01246019
Message ID:
01246071
Views:
37
>Interestingly, this is happening only within the form. On the stand alone view there are no problems. Besides, it is not allowing edits also, giving the same message.
>
>My code:
>
>SELECT Stockbook.ddate, Stockbook.nlotid, Items.cname,;
>  Itemhead.citemhead, Stockbook.cdetails, Stockbook.ncompcode,;
>  Stockbook_a.ncost, Stockbook.nqtyin, Stockbook.nqtyout,;
>  IIF(Stockbook.nqtyin>Stockbook.nqtyout,Stockbook.nqtyin*Stockbook_a.ncost,Stockbook.nqtyout*Stockbook_a.ncost) AS value,;
>  Stockbook.copr, Stockbook.clocation, Stockbook.ntransid;
> FROM ;
>     accounts!stockbook ;
>    INNER JOIN accounts!items ;
>   ON  Stockbook.nitemcode = Items.nitemcode ;
>    LEFT OUTER JOIN accounts!stockbook Stockbook_a ;
>   ON  Stockbook.nlotid = Stockbook_a.nlotid;
>   AND  Stockbook_a.lnew == ( .T. ) ;
>    INNER JOIN accounts!itemhead ;
>   ON  Items.nsubitcode = Itemhead.nitemcode;
> ORDER BY Stockbook.ddate, Stockbook.nitemcode
>
>DBSetProp(ThisView,"View","SendUpdates",.T.)
>DBSetProp(ThisView,"View","BatchUpdateCount",1)
>DBSetProp(ThisView,"View","CompareMemo",.T.)
>DBSetProp(ThisView,"View","FetchAsNeeded",.F.)
>DBSetProp(ThisView,"View","FetchMemo",.T.)
>DBSetProp(ThisView,"View","FetchSize",100)
>DBSetProp(ThisView,"View","MaxRecords",-1)
>DBSetProp(ThisView,"View","Prepared",.F.)
>DBSetProp(ThisView,"View","UpdateType",1)
>DBSetProp(ThisView,"View","UseMemoSize",255)
>DBSetProp(ThisView,"View","Tables","accounts!stockbook")
>DBSetProp(ThisView,"View","WhereType",2)
>
>DBSetProp(ThisView+".ddate","Field","DataType","D")
>DBSetProp(ThisView+".ddate","Field","UpdateName","accounts!stockbook.ddate")
>DBSetProp(ThisView+".ddate","Field","KeyField",.F.)
>DBSetProp(ThisView+".ddate","Field","Updatable",.T.)
>
>DBSetProp(ThisView+".nlotid","Field","DataType","N(10)")
>DBSetProp(ThisView+".nlotid","Field","UpdateName","accounts!stockbook.nlotid")
>DBSetProp(ThisView+".nlotid","Field","KeyField",.F.)
>DBSetProp(ThisView+".nlotid","Field","Updatable",.T.)
>
>DBSetProp(ThisView+".cname","Field","DataType","C(40)")
>DBSetProp(ThisView+".cname","Field","UpdateName","accounts!items.cname")
>DBSetProp(ThisView+".cname","Field","KeyField",.F.)
>DBSetProp(ThisView+".cname","Field","Updatable",.F.)
>
>DBSetProp(ThisView+".citemhead","Field","DataType","C(20)")
>DBSetProp(ThisView+".citemhead","Field","UpdateName","accounts!itemhead.citemhead")
>DBSetProp(ThisView+".citemhead","Field","KeyField",.F.)
>DBSetProp(ThisView+".citemhead","Field","Updatable",.F.)
>
>DBSetProp(ThisView+".cdetails","Field","DataType","C(25)")
>DBSetProp(ThisView+".cdetails","Field","UpdateName","accounts!stockbook.cdetails")
>DBSetProp(ThisView+".cdetails","Field","KeyField",.F.)
>DBSetProp(ThisView+".cdetails","Field","Updatable",.T.)
>
>DBSetProp(ThisView+".ncompcode","Field","DataType","N(5)")
>DBSetProp(ThisView+".ncompcode","Field","UpdateName","accounts!stockbook.ncompcode")
>DBSetProp(ThisView+".ncompcode","Field","KeyField",.F.)
>DBSetProp(ThisView+".ncompcode","Field","Updatable",.T.)
>
>DBSetProp(ThisView+".ncost","Field","DataType","N(10,2)")
>DBSetProp(ThisView+".ncost","Field","UpdateName","accounts!stockbook.ncost")
>DBSetProp(ThisView+".ncost","Field","KeyField",.F.)
>DBSetProp(ThisView+".ncost","Field","Updatable",.F.)
>
>DBSetProp(ThisView+".nqtyin","Field","DataType","N(10,2)")
>DBSetProp(ThisView+".nqtyin","Field","UpdateName","accounts!stockbook.nqtyin")
>DBSetProp(ThisView+".nqtyin","Field","KeyField",.F.)
>DBSetProp(ThisView+".nqtyin","Field","Updatable",.T.)
>
>DBSetProp(ThisView+".nqtyout","Field","DataType","N(10,2)")
>DBSetProp(ThisView+".nqtyout","Field","UpdateName","accounts!stockbook.nqtyout")
>DBSetProp(ThisView+".nqtyout","Field","KeyField",.F.)
>DBSetProp(ThisView+".nqtyout","Field","Updatable",.T.)
>
>DBSetProp(ThisView+".value","Field","DataType","N(20,4)")
>DBSetProp(ThisView+".value","Field","KeyField",.F.)
>DBSetProp(ThisView+".value","Field","Updatable",.F.)
>
>DBSetProp(ThisView+".copr","Field","DataType","C(3)")
>DBSetProp(ThisView+".copr","Field","UpdateName","accounts!stockbook.copr")
>DBSetProp(ThisView+".copr","Field","KeyField",.F.)
>DBSetProp(ThisView+".copr","Field","Updatable",.T.)
>
>DBSetProp(ThisView+".clocation","Field","DataType","C(4)")
>DBSetProp(ThisView+".clocation","Field","UpdateName","accounts!stockbook.clocation")
>DBSetProp(ThisView+".clocation","Field","KeyField",.F.)
>DBSetProp(ThisView+".clocation","Field","Updatable",.T.)
>
>DBSetProp(ThisView+".ntransid","Field","DataType","I")
>DBSetProp(ThisView+".ntransid","Field","UpdateName","accounts!stockbook.ntransid")
>DBSetProp(ThisView+".ntransid","Field","KeyField",.T.)
>DBSetProp(ThisView+".ntransid","Field","Updatable",.T.)
>
>
>Steve

In your last field nTransID what would happen if you make it non-updatable?

I'm not sure why do you have an error in the form and not from the view itself.

Does the form use private DS?
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform