Yes - I discovered that - I now use - where count = last and it works.
Thank you
Chuck



-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Alastair
Burr
Sent: Tuesday, 06 October, 2009 14:07
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: EEP - Append Command

You don't say what the error is but but my guess is that you can't have an 
AND clause when using COUNT = LAST - last is last regardless of anything 
else.

Regards,
Alastair.

----- Original Message ----- 
From: "cdconrad" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Tuesday, October 06, 2009 7:23 AM
Subject: [RBASE-L] - EEP - Append Command


>I am using an eep to check if the company number is different than the
> control number. If so I want the eep to append command to add rows to the
> table.  However I get a error on the form.
>
> Here is the code
>
>
>
>   --PROGRAM TITLE - addrow.eep
>
>   --last updated 06/10/2009
>
>   DROP CURSOR cur1
>
>   DECLARE cur1 CURSOR FOR SELECT cocode FROM gl_genled +
>
>      WHERE refno = .vrefno
>
>   OPEN cur1
>
>   FETCH cur1 INTO vcompcode ind_v1
>
>   WHILE SQLCODE = 0 THEN
>
>      IF vcompcode <> .ventity THEN
>
>            APPEND gl_genled TO gl_genled WHERE CURRENT OF cur1
>
>            UPDATE gl_genled SET acctno = 111000900 +
>
>               WHERE COUNT = LAST AND amtdr > 0
>
>            APPEND gl_genled TO gl_genled WHERE CURRENT OF cur1
>
>            UPDATE gl_genled SET acctno = 111000900 WHERE COUNT = LAST
>
>      ENDIF
>
>      FETCH cur1 INTO vcompcode ind_v1
>
>   ENDWHILE
>
>   CLOSE cur1
>
>   DROP CURSOR cur1
>
>   RETURN
>
>
>
> Any suggestions
>
> Chuck Conrad
>
>
>
>
>
>
>
>


----------------------------------------------------------------------------
----



No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.409 / Virus Database: 270.14.3/2415 - Release Date: 10/05/09 
06:19:00

Reply via email to