Função aINS() não funciona com HMG 3.3.1

[WALDYR SKUYA]

Amigos,

Estou tentando compilar um sistema com o HMG 3.3.1 utilizando a função AIns( <aArray>, <nElement>, [<xValue>], [<lGrow>] ) para inserir um elemento em uma Array, acrescentando 1 ao tamanho dessa Array. Esse sistema funcionava normalmente com a versão HMG 3.0.46. Alguém sabe o que pode ser ?

Minha rotina:

Código: Selecionar todos

   FOR A=1 TO CTA
    IF PER=1
     IF CPORD<>&aCAMPO
      FMMostra.GDAgenda.ADDITEM({"","TOTAL "+CPORD,"","","",TRANSFORM(SUBTOT,"@E 999,999.99"),""})
      CPORD:=&aCAMPO
      SUBTOT:=0
      AINS(XAGE,A,{"","","","","","","","",CTOD("  /  /  "),"",CTOD("  /  /  "),"",""},.T.)     <<<<<<<======================= 
      CTA:=CTA+1
      A:=A+1
     ENDIF
     FMMostra.GDAgenda.ADDITEM({XAGE[A,1],XAGE[A,2],XAGE[A,3],XAGE[A,4],XAGE[A,5],XAGE[A,6],XAGE[A,7]})
     SUBTOT:=SUBTOT+VAL(StrTran(StrTran( XAGE[A,6],"."),",","."))
    ELSE
     FMMostra.GDAgenda.ADDITEM({XAGE[A,1],XAGE[A,2],XAGE[A,3],XAGE[A,4],XAGE[A,5],XAGE[A,6],XAGE[A,7],XAGE[A,8]})
    ENDIF
   NEXT

Grato,

Waldyr Skuya
São Paulo

[Toledo]

Amigo, utilize a função hb_Ains().

Código: Selecionar todos

hb_AINS(XAGE,A,{"","","","","","","","",CTOD("  /  /  "),"",CTOD("  /  /  "),"",""},.T.)

Abraços,

[WALDYR SKUYA]

Toledo, bom dia!

Agradeço sua atenção.

Seria melhor então eu utilizar esse grupo de funções (hb_Ains(), hb_aDel(), hb_aadd(), etc...) para tratar array ?

Caso positivo, você me indicaria, por gentileza, alguma guia de referência a respeito, pois pelo que entendi essas novas versões do HMG funcionam melhor com essas novas funções. Ou estou errado ?

Abraços,

Waldyr Skuya

[Toledo]

Seria melhor então eu utilizar esse grupo de funções (hb_Ains(), hb_aDel(), hb_aadd(), etc...) para tratar array ?

Sim, pois estas novas funções do Harbour com certeza vão funcionar melhor que as correspondentes do Clipper.

você me indicaria, por gentileza, alguma guia de referência a respeito

Veja o guia do nosso amigo JoséQuintas: http://www.harbourdoc.com.br

Abraços,