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

--- RBASE-L
================================================
TO POST A MESSAGE TO ALL MEMBERS:
Send a plain text email to [email protected]

(Don't use any of these words as your Subject:
INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH,
REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP)
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
================================================
TO UNSUBSCRIBE: Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
================================================
TO SEARCH ARCHIVES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: SEARCH-n
(where n is the number of days). In the message body, place any text to search for.
================================================


Reply via email to