index tag is not found for cursor object cursor1

[Hii Sing Chung]

Hi,

Now whenever I called my report to print, it immediately came out with this
message "index tag is not found for cursor object cursor1". Something wrong
with indexing? Where could it be?

[Mike Gagnon]

If you used the wizard to create your report, and you told the wizard you
wanted your records in a certain order, the wizard adds an index to your
cursor, and once you re-run the report with code, you need to add that index
to your cursor. Otherwise don't use the wizrd.

"Hii Sing Chung" <sing...@hotmail.com> wrote in message
news:3466F27F-1784-4C47...@microsoft.com...

[Hii Sing Chung]

Mike,

Thanks for the hint. I could have deleted the index (something called
wizard) when tried to troubleshoot something. How do I put it back or how do
I make it run independent of this index?

"Mike Gagnon" <mikeg...@mcrgsoftware.com> wrote in message
news:726E9976-9F65-4E77...@microsoft.com...

[Hii Sing Chung]

I've located the problem of the non-existence index tag referenced in the
data environment. Now I have another problem. When I clicked on the print
command, I got "syntax error" and nothing else.

The codes in these PRINT command:

PRIVATE TOTAL, WORD_TOTAL,NUM_TOTAL,TEST_TOTAL,I,RECNO_BOT
LOCAL MONEY
SET TALK OFF
SELECT Performa_INVOICE_ITEM
GOTO TOP
CALCULATE
SUM(ROUND(Performa_INVOICE_ITEM.QUANTITY*performa_INVOICE_ITEM.UNIT_PRICE,2))
ALL FOR performa_INVOICE_ITEM.pINVOICE_N=THISFORM.TXTPINVOICE_N.VALUE TO
NUM_TOTAL
NUM_TOTAL=NUM_TOTAL*(1-THISFORM.TXTDISCOUNT.VALUE*0.01)
TOTAL=STR(NUM_TOTAL,10,2)
STORE "" TO A,B,C,D,E,F,G
*****************************************
IF SUBSTR(RIGHT(TOTAL,2),1,1)<>"1"
DO CASE
CASE RIGHT(TOTAL,1)="0"
G=""
CASE RIGHT(TOTAL,1)="1"
G="ONE"
CASE RIGHT(TOTAL,1)="2"
G="TWO"
CASE RIGHT(TOTAL,1)="3"
G="THREE"
CASE RIGHT(TOTAL,1)="4"
G="FOUR"
CASE RIGHT(TOTAL,1)="5"
G="FIVE"
CASE RIGHT(TOTAL,1)="6"
G="SIX"
CASE RIGHT(TOTAL,1)="7"
G="SEVEN"
CASE RIGHT(TOTAL,1)="8"
G="EIGHT"
CASE RIGHT(TOTAL,1)="9"
G="NINE"
ENDCASE
DO CASE
CASE SUBSTR(RIGHT(TOTAL,2),1,1)="0"
F=""
CASE SUBSTR(RIGHT(TOTAL,2),1,1)="2"
F="TWENTY"
CASE SUBSTR(RIGHT(TOTAL,2),1,1)="3"
F="THRITY"
CASE SUBSTR(RIGHT(TOTAL,2),1,1)="4"
F="FORTY"
CASE SUBSTR(RIGHT(TOTAL,2),1,1)="5"
F="FIFTY"
CASE SUBSTR(RIGHT(TOTAL,2),1,1)="6"
F="SIXTY"
CASE SUBSTR(RIGHT(TOTAL,2),1,1)="7"
F="SEVENTY"
CASE SUBSTR(RIGHT(TOTAL,2),1,1)="8"
F="EIGHTY"
CASE SUBSTR(RIGHT(TOTAL,2),1,1)="9"
F="NINETY"
ENDCASE
ELSE
G=""
DO CASE
CASE RIGHT(TOTAL,1)="0"
F="TEN"
CASE RIGHT(TOTAL,1)="1"
F="ELEVEN"
CASE RIGHT(TOTAL,1)="2"
F="TWELVE"
CASE RIGHT(TOTAL,1)="3"
F="THIRTEEN"
CASE RIGHT(TOTAL,1)="4"
F="FOURTEEN"
CASE RIGHT(TOTAL,1)="5"
F="FIFTEEN"
CASE RIGHT(TOTAL,1)="6"
F="SIXTEEN"
CASE RIGHT(TOTAL,1)="7"
F="SEVENTEEN"
CASE RIGHT(TOTAL,1)="8"
F="EIGHTEEN"
CASE RIGHT(TOTAL,1)="9"
F="NINETEEN"
ENDCASE
ENDIF

***********************************
IF SUBSTR(RIGHT(TOTAL,5),1,1)<>"1"
DO CASE
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="0"
E=""
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="1"
E="ONE"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="2"
E="TWO"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="3"
E="THREE"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="4"
E="FOUR"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="5"
E="FIVE"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="6"
E="SIX"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="7"
E="SEVEN"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="8"
E="EIGHT"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="9"
E="NINE"
ENDCASE
DO CASE
CASE SUBSTR(RIGHT(TOTAL,5),1,1)="0"
D=""
CASE SUBSTR(RIGHT(TOTAL,5),1,1)="2"
D="TWENTY"
CASE SUBSTR(RIGHT(TOTAL,5),1,1)="3"
D="THRITY"
CASE SUBSTR(RIGHT(TOTAL,5),1,1)="4"
D="FORTY"
CASE SUBSTR(RIGHT(TOTAL,5),1,1)="5"
D="FIFTY"
CASE SUBSTR(RIGHT(TOTAL,5),1,1)="6"
D="SIXTY"
CASE SUBSTR(RIGHT(TOTAL,5),1,1)="7"
D="SEVENTY"
CASE SUBSTR(RIGHT(TOTAL,5),1,1)="8"
D="EIGHTY"
CASE SUBSTR(RIGHT(TOTAL,5),1,1)="9"
D="NINETY"
ENDCASE
ELSE
E=""
DO CASE
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="0"
D="TEN"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="1"
D="ELEVEN"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="2"
D="TWELVE"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="3"
D="THIRTEEN"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="4"
D="FOURTEEN"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="5"
D="FIFTEEN"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="6"
D="SIXTEEN"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="7"
D="SEVENTEEN"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="8"
D="EIGHTEEN"
CASE SUBSTR(RIGHT(TOTAL,4),1,1)="9"
D="NINETEEN"
ENDCASE
ENDIF
****************************************
DO CASE
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="0"
C=""
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="1"
C="ONE"
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="2"
C="TWO"
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="3"
C="THREE"
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="4"
C="FOUR"
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="5"
C="FIVE"
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="6"
C="SIX"
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="7"
C="SEVEN"
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="8"
C="EIGHT"
CASE SUBSTR(RIGHT(TOTAL,6),1,1)="9"
C="NINE"
ENDCASE
***********************************
IF SUBSTR(RIGHT(TOTAL,8),1,1)<>"1"
DO CASE
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="0"
B=""
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="1"
B="ONE"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="2"
B="TWO"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="3"
B="THREE"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="4"
B="FOUR"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="5"
B="FIVE"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="6"
B="SIX"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="7"
B="SEVEN"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="8"
B="EIGHT"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="9"
B="NINE"
ENDCASE
DO CASE
CASE SUBSTR(RIGHT(TOTAL,8),1,1)="0"
A=""
CASE SUBSTR(RIGHT(TOTAL,8),1,1)="2"
A="TWENTY"
CASE SUBSTR(RIGHT(TOTAL,8),1,1)="3"
A="THRITY"
CASE SUBSTR(RIGHT(TOTAL,8),1,1)="4"
A="FORTY"
CASE SUBSTR(RIGHT(TOTAL,8),1,1)="5"
A="FIFTY"
CASE SUBSTR(RIGHT(TOTAL,8),1,1)="6"
A="SIXTY"
CASE SUBSTR(RIGHT(TOTAL,8),1,1)="7"
A="SEVENTY"
CASE SUBSTR(RIGHT(TOTAL,8),1,1)="8"
A="EIGHTY"
CASE SUBSTR(RIGHT(TOTAL,8),1,1)="9"
A="NINETY"
ENDCASE
ELSE
B=""
DO CASE
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="0"
A="TEN"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="1"
A="ELEVEN"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="2"
A="TWELVE"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="3"
A="THIRTEEN"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="4"
A="FOURTEEN"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="5"
A="FIFTEEN"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="6"
A="SIXTEEN"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="7"
A="SEVENTEEN"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="8"
A="EIGHTEEN"
CASE SUBSTR(RIGHT(TOTAL,7),1,1)="9"
A="NINETEEN"
ENDCASE
ENDIF
***********************************
money=ALLTRIM(currency.currency)

WORD_TOTAL=MONEY+" "+IIF(empty(A) AND empty(B),"",A+" "+B+" THOUSAND
")+IIF(empty(C),"",C+" HUNDRED ")+IIF(empty(D),"",D)+" "+E+IIF(empty(F) AND
empty(G)," ONLY"," AND CENTS "+F+" "+G+" ONLY")
REPORT form d:\visko\foxpro\invoicing\reports\performa_invoice.FRX for
pinvoice_n=thisform.txtpinvoice_n.value preview

SELECT performa_invoice

Is there a way I can debug Foxpro step-by-step like the way Visual Studio
does?

"Mike Gagnon" <mikeg...@mcrgsoftware.com> wrote in message
news:726E9976-9F65-4E77...@microsoft.com...

[no-spam-for-emjkmaflho...@cix.compulink.co.uk]

In article <63904E02-5D84-4C6B...@microsoft.com>,
sing...@hotmail.com (Hii Sing Chung) wrote:

Where you want to start the step by step - add a line

SET STEP ON

and run the program. This is not acted upon in a compiled APP or EXE
unless run within the IDE.

> Is there a way I can debug Foxpro step-by-step like the way Visual
> Studio does?
>

regards, Alan