Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
INSERT INTO cursor FROM memvar not working
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00678042
Message ID:
00678045
Vues:
13
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--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform