FiveTech Software tech support forums

Hola,

Estou testando esta funçao com FwPpc:

Code: Select all  Expand view

********************************************************************************
FUNCTION LoadDbf()
********************************************************************************
  LOCAL aVars  := {=>}
  LOCAL nField := FCount()
  LOCAL nX := 1
   FOR nX := 1 TO  nField
       aVars[FieldName(nX)] := FieldGet(nX)
   NEXT

Return aVars


, mas, estas retornando el erro:

Code: Select all  Expand view

Erro de limite
array assign
   Args:
     [   1] = H   
     [   2] = C   DATAENTR
     [   3] = D   13/01/2009

stack calls:
LOADDBF(48)
VERSIS(29)
(b)MAIN(97)
TWINDOW:ACTIVATE(0)
MAIN(97)


.Prg

Code: Select all  Expand view

Local aVars
dbUseArea(.T.,"DBFCDX","SbInfo.Dbf",, .F.)
     aVars := LoadDbf()


Struct del BD SBInfo.Dbf

Code: Select all  Expand view

'DataEntr', 'd',  08,  0


O que podes estar havendo ?

Saluds, Ale

I think that
LOCAL aVars := {=>}
is only for xHarbour not for harbour , you have to chek how works HASH for HArbour

Regards Maurizio

Gracias Maurizio

Saluds, Ale

No consegui, encontrar nenhuma documentação do harbour para uso de Hash, alguem pode me alguma dica ?

Saluds, Ale