Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Deleting a record from a multitable view
Message
 
 
À
05/08/2007 22:51:54
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01246019
Message ID:
01246071
Vues:
38
>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform