Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Pick List
Message
From
29/03/2004 12:25:02
 
 
To
29/03/2004 12:23:21
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00890438
Message ID:
00890504
Views:
27
Here is the code that I'm currently running. It is updating everything all at once. That why I want to give the users the options ton update particular ones only to cut down on the processing time...:

CREATE CURSOR NsnsWanted (cNsn c(2))

INSERT INTO NsnsWanted(cNsn) VALUES ("10")
INSERT INTO NsnsWanted(cNsn) VALUES ("23")
INSERT INTO NsnsWanted(cNsn) VALUES ("24")
INSERT INTO NsnsWanted(cNsn) VALUES ("26")
INSERT INTO NsnsWanted(cNsn) VALUES ("28")
INSERT INTO NsnsWanted(cNsn) VALUES ("29")
INSERT INTO NsnsWanted(cNsn) VALUES ("30")
INSERT INTO NsnsWanted(cNsn) VALUES ("31")
INSERT INTO NsnsWanted(cNsn) VALUES ("39")
INSERT INTO NsnsWanted(cNsn) VALUES ("40")
INSERT INTO NsnsWanted(cNsn) VALUES ("41")
INSERT INTO NsnsWanted(cNsn) VALUES ("42")
INSERT INTO NsnsWanted(cNsn) VALUES ("49")
INSERT INTO NsnsWanted(cNsn) VALUES ("51")
INSERT INTO NsnsWanted(cNsn) VALUES ("52")
INSERT INTO NsnsWanted(cNsn) VALUES ("53")
INSERT INTO NsnsWanted(cNsn) VALUES ("58")
INSERT INTO NsnsWanted(cNsn) VALUES ("59")
INSERT INTO NsnsWanted(cNsn) VALUES ("60")
INSERT INTO NsnsWanted(cNsn) VALUES ("61")
INSERT INTO NsnsWanted(cNsn) VALUES ("62")
INSERT INTO NsnsWanted(cNsn) VALUES ("63")
INSERT INTO NsnsWanted(cNsn) VALUES ("67")
INSERT INTO NsnsWanted(cNsn) VALUES ("68")
INSERT INTO NsnsWanted(cNsn) VALUES ("69")
INSERT INTO NsnsWanted(cNsn) VALUES ("70")
INSERT INTO NsnsWanted(cNsn) VALUES ("71")
INSERT INTO NsnsWanted(cNsn) VALUES ("72")
INSERT INTO NsnsWanted(cNsn) VALUES ("73")
INSERT INTO NsnsWanted(cNsn) VALUES ("74")
INSERT INTO NsnsWanted(cNsn) VALUES ("75")
INSERT INTO NsnsWanted(cNsn) VALUES ("76")
INSERT INTO NsnsWanted(cNsn) VALUES ("79")
INSERT INTO NsnsWanted(cNsn) VALUES ("80")
INSERT INTO NsnsWanted(cNsn) VALUES ("81")
INSERT INTO NsnsWanted(cNsn) VALUES ("83")
INSERT INTO NsnsWanted(cNsn) VALUES ("84")
INSERT INTO NsnsWanted(cNsn) VALUES ("85")
INSERT INTO NsnsWanted(cNsn) VALUES ("89")
INSERT INTO NsnsWanted(cNsn) VALUES ("91")
INSERT INTO NsnsWanted(cNsn) VALUES ("95")
INSERT INTO NsnsWanted(cNsn) VALUES ("96")
INSERT INTO NsnsWanted(cNsn) VALUES ("99")

SELECT NSN, ITEM_NAME, ITEM_NOMEN, UNIT_ISSUE, PRICE, DATETIME() AS pro_time, VAL(price) as tot_price, VAL(measqty) AS MEAS_QTY, VAL(price) / VAL(measqty) as Price_per ;
FROM fed_temp ;
JOIN NsnsWanted ;
ON LEFT(nsn,2)=NsnsWanted.cNsn ;
WHERE !EMPTY(item_name) ;
INTO TABLE (oVar.SysDataPath) + 'fedlog.dbf'
Thanks in Advance.

J. Turner
Previous
Reply
Map
View

Click here to load this message in the networking platform