>Hola hombres,
>
> How is everyone? I am new to the group, and pretty new to FoxPro too. Anyways, the wonderful people at ShowBiz Industries were kind enough to hier me as a very entry level developer based on prior experince with database programming(Access y VBA). Well now I have a problem. Whenever I try to run the following code I get the "Index tag is not found (Error 1683)" error. Can somebody please help me out, PLEASE!!!!! Here is the code that is being executed:
>----------------------------------------------------------------------
>
>*// AUTHOR : ROBERT PATTERSON
>*// DATE : MARCH 23, 1999
>*// SYNOPSIS : GENERATE A REPORT OF CUSTOMERS WHOSE
>*// SHIPPING INFORMATION HAS CHANGED.
>*// RUN FROM : frmClientChange.cmdProcess
>*//////////////////////////////////////////////////
>
>*// Declare the nessacary varibles.
>*///////////////////////////////////////
>PUBLIC cMyRefNumber, cRptName
>LOCAL nToPrinter, cMessageText
>
>*// Make sure that the right date is printed
>*// on the report
>*/////////////////////////////////////////////
>SET CENTURY ON
>SET CENTURY TO 19 ROLLOVER 60
>
>*// Initialize variables
>*////////////////////////
>cMyRefNumber = SYS(2)
>cRptName = "addressflaged.frx"
>nToPrinter = 0
>cMessageText = "Send report " + cRptName + " to the printer ?"
>
>
> *// This is the SQL that extracts
> *// the information that the report
> *// is based on.
> *///////////////////////////////////
> SELECT Masterrental.cusname, Masterrental.cussubname,;
> Masterrental.cusaddr1, Masterrental.cusaddr2, Masterrental.cusaddr3,;
> Masterrental.cusattension, Masterrental.cuscity, Masterrental.cusstate,;
> Masterrental.cuscountry, Masterrental.cuszip, Masterrental.cusphone,;
> Masterrental.cusphone2;
> FROM showdata!masterrental;
> WHERE Masterrental.addrflg LIKE "X";
> ORDER BY Masterrental.cusname;
> INTO CURSOR CusWithChange
>
>
> *// Now check to make sure that the records are
> *// available to generate the report using the
> *// system variable "_Tally".
> *///////////////////////////////////////////////
> IF _Tally < 1 THEN
> MESSAGEBOX("No records were available based on" + chr(13) +;
> " the report selection critera.",;
> 0 + 16 + 0, "Alert")
>
> *// Close the cursor, database and release theASCENDING
> *// the public variables
> *///////////////////////////////////////////////
> USE
> CLOSE DATABASE
> RELEASE cMyRefNumber, cRptName
> RETURN
> ENDIF
>
> *// Ensure that the proper datasource
> *// is being used to generate the report.
> *////////////////////////////////////////
> SELECT CusWithChange
> INDEX ON CusWithChange.cusname TO CusList
>
> *// Give the end user the following print options:
> *// Yes will print the report,
> *// No will send the report to preview,
> *// Cancle will continue to print or preview the report
> *//////////////////////////////////////////////////////
> nToPrinter = MESSAGEBOX(cMessageText,3 + 32 + 256, "Print Report")
> DO CASE
> CASE nToPrinter = 6
> REPORT FORM (cRptName) TO PRINT NOCONSOLE &&YES BUTTON
> CASE nToPrinter = 7
> REPORT FORM (cRptName) PREVIEW &&NO BUTTON
> OTHERWISE
> *// Nothing to do at this point &&CANCLE BUTTON
> ENDCASE
>
> *// Close the cursor, database, and release the public variables
> *///////////////////////////////////////////////////////////////
> USE
> CLOSE DATABASE
> RELEASE cMyRefNumber, cRptName
>
> RETURN
>
>----------------------------------------------------------------------
>Please email any suggestions to
webmiester@salguatel.com, thank you all so very much.
>
>Tumalo Suave,
>Robert James Patterson
>webmiester@salguatel.com
>
http://www.salguatel.com/rjp/ I guess you it should be
INDEX ON CusWithChange.cusname TAG CusList
but, firstly, on what line you get the error?
Edward Pikman
Independent Consultant