Build Project Error

When I try to build project, I get this error:

Program d:\windowwizard\prgs\winwizprocs.prg has the following errors:
Unknown AARRAY - Undefined

Form d:\windowwizard\forms\frmcustomerentry.scx has the following errors:
Unknown ALEADTYPE - Undefined

Here is the source code in the project I am trying to build:

Public aLeadtype
Dimension aLeadtype[5,2]
fillarray(@aLeadtype,"'A','Architect','B','Builder','P','Private
Owner','R','Renovator','D','Dealer'")

Function Fillarray(aArray, cValues)
Local nLen,i,cValtype
for i = 1 to alen(aArray)
cVal=token(cValues,',',i)
do case
case type(cVal)='L'
aArray[i] = evaluate(cVal)
case type(cVal)='C'
aArray[i] = strtran(cVal,"'",'')
otherwise
aArray[i] = val(cVal)
endcase
next
return aArray

Any ideas are greatly appreciated. BTW, Token is another function that I
wrote and that function works flawlessly and returns expected values.

Thanks.

Marat
Fri Feb 11 08:32:24 CST 2005

Subhash
I think you need to declare aArray as an External array each time when you
use any array as a parameter in your methods/functions

Function Fillarray(aArray, cValues)

EXTERNAL ARRAY aArray

Local nLen,i,cValtype
for i = 1 to alen(aArray)
cVal=token(cValues,',',i)
do case


Marat Chariev
Semurg Enterprise
Add more report output options to your application without effort -
www.frx2any.com



"Subhash" <Subhash@discussions.microsoft.com> wrote in message
news:8C863259-EEFB-4C38-8089-8518D6C4846F@microsoft.com...
> When I try to build project, I get this error:
>
> Program d:\windowwizard\prgs\winwizprocs.prg has the following errors:
> Unknown AARRAY - Undefined
>
> Form d:\windowwizard\forms\frmcustomerentry.scx has the following errors:
> Unknown ALEADTYPE - Undefined
>
> Here is the source code in the project I am trying to build:
>
> Public aLeadtype
> Dimension aLeadtype[5,2]
> fillarray(@aLeadtype,"'A','Architect','B','Builder','P','Private
> Owner','R','Renovator','D','Dealer'")
>
> Function Fillarray(aArray, cValues)
> Local nLen,i,cValtype
> for i = 1 to alen(aArray)
> cVal=token(cValues,',',i)
> do case
> case type(cVal)='L'
> aArray[i] = evaluate(cVal)
> case type(cVal)='C'
> aArray[i] = strtran(cVal,"'",'')
> otherwise
> aArray[i] = val(cVal)
> endcase
> next
> return aArray
>
> Any ideas are greatly appreciated. BTW, Token is another function that I
> wrote and that function works flawlessly and returns expected values.
>
> Thanks.
>
>

Subhash
Fri Feb 11 12:31:04 CST 2005

Thanks Marat, that got rid of the errors.

Really appreciate.

"Marat Chariev" wrote:

> Subhash
> I think you need to declare aArray as an External array each time when you
> use any array as a parameter in your methods/functions
>
> Function Fillarray(aArray, cValues)
>
> EXTERNAL ARRAY aArray
>
> Local nLen,i,cValtype
> for i = 1 to alen(aArray)
> cVal=token(cValues,',',i)
> do case
>
>
> Marat Chariev
> Semurg Enterprise
> Add more report output options to your application without effort -
> www.frx2any.com
>
>
>
> "Subhash" <Subhash@discussions.microsoft.com> wrote in message
> news:8C863259-EEFB-4C38-8089-8518D6C4846F@microsoft.com...
> > When I try to build project, I get this error:
> >
> > Program d:\windowwizard\prgs\winwizprocs.prg has the following errors:
> > Unknown AARRAY - Undefined
> >
> > Form d:\windowwizard\forms\frmcustomerentry.scx has the following errors:
> > Unknown ALEADTYPE - Undefined
> >
> > Here is the source code in the project I am trying to build:
> >
> > Public aLeadtype
> > Dimension aLeadtype[5,2]
> > fillarray(@aLeadtype,"'A','Architect','B','Builder','P','Private
> > Owner','R','Renovator','D','Dealer'")
> >
> > Function Fillarray(aArray, cValues)
> > Local nLen,i,cValtype
> > for i = 1 to alen(aArray)
> > cVal=token(cValues,',',i)
> > do case
> > case type(cVal)='L'
> > aArray[i] = evaluate(cVal)
> > case type(cVal)='C'
> > aArray[i] = strtran(cVal,"'",'')
> > otherwise
> > aArray[i] = val(cVal)
> > endcase
> > next
> > return aArray
> >
> > Any ideas are greatly appreciated. BTW, Token is another function that I
> > wrote and that function works flawlessly and returns expected values.
> >
> > Thanks.
> >
> >
>
>
>