PC Toledo

Enviado: **18 Nov 2014 00:21**

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

Enviado: **18 Nov 2014 07:56**

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

Código: Selecionar todos

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

Abraços,

Enviado: **18 Nov 2014 11:47**

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

Enviado: **18 Nov 2014 12:28**

WALDYR SKUYA escreveu: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.

WALDYR SKUYA escreveu: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,

PC Toledo

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

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

FUNÇÃO aINS() NÃO FUNCIONA COM HMG 3.3.1

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

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