Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
INSERT INTO cursor FROM memvar not working
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00678042
Message ID:
00678045
Views:
12
You can simplify your code by using APPEND FROM command or you can use UNION.
rpcursor = SYS(2015)
CREATE CURSOR (rpcursor)(mainkey I, vendor c(100), amt n(10,2), rp l)

SELECT op_main_key AS mainkey, op_vendor AS vendor, op_amt AS amt, op_py AS rp ;
  FROM o_ord_main WHERE op_py = .t. INTO CURSOR rp_cursor1
SELECT p_mainkey AS mainkey, p_vendor AS vendor, p_amt AS amt, p_py AS rp  ;
  FROM sub_payment WHERE p_py = .t. INTO CURSOR rp_cursor2
SELECT r_mainkey AS mainkey, r_vendor AS vendor, r_payamt AS amt, r_py AS rp  ;
  FROM req_payment WHERE r_py = .t. INTO CURSOR rp_cursor3

SELECT (rpcursor)	
APPEND FROM ( DBF("rp_cursor1"))
APPEND FROM ( DBF("rp_cursor2"))
APPEND FROM ( DBF("rp_cursor3"))

* UNION
SELECT op_main_key AS mainkey, op_vendor AS vendor, op_amt AS amt, op_py AS rp  ;
  FROM o_ord_main WHERE op_py = .t. ;
UNION ALL ;
SELECT p_mainkey AS mainkey, p_vendor AS vendor, p_amt AS amt, p_py AS rp  ;
  FROM sub_payment WHERE p_py = .t. ;
UNION ALL ;
SELECT r_mainkey AS mainkey, r_vendor AS vendor, r_payamt AS amt, r_py AS rp  ;
  FROM req_payment WHERE r_py = .t. ;
INTO CURSOR rp_cursor
>I am using select command to extract information from 3 tables into cursors and then use scatter command to consolidate the information into cursor rpcursor as follows:
>
>
rpcursor = SYS(2015)
>CREATE CURSOR (rpcursor)(mainkey I, vendor c(100), amt n(10,2), rp l)
>brows
>
>
>rp_cursor1 = SYS(2015)
>SELECT op_main_key, op_vendor, op_amt, op_py FROM o_ord_main WHERE op_py = .t. INTO CURSOR (rp_cursor1)
>brows
>SCATTER memvar
>INSERT INTO (rpcursor) FROM memvar
>SELECT (rpcursor)	
>brows
>
>rp_cursor2 = SYS(2015)
>SELECT p_mainkey, p_vendor, p_amt, p_py FROM sub_payment WHERE p_py = .t. INTO CURSOR (rp_cursor2)
>brows
>SCATTER memvar
>INSERT INTO (rpcursor) FROM memvar
>SELECT (rpcursor)	
>brows
>
>rp_cursor3 = SYS(2015)
>SELECT r_mainkey, r_vendor, r_payamt, r_py FROM req_payment WHERE r_py = .t. INTO CURSOR (rp_cursor3)
>browse
>SCATTER memvar
>INSERT INTO (rpcursor) FROM memvar
>SELECT (rpcursor)	
>brows
>
>
>My problem is when I issue
INSERT INTO (rpcursor) FROM memvar
command, it only puts zero's into the rpcursor. When I browse rp_cursor1 - rp_cursor3 I do see the information in there. What am I doing wrong here?
>
>Thanks
>Nick Patel
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform