FiveTech Software tech support forums

... pequeño ajuste fue la de Willy. Porque en realidad yo quería poder añadir varios arrays a un array que reúna todos los elementos de los mismos, y aClone() me permite añadir un array, pero si agrego otro, el array no se agrega a continuación, sino que reemplaza lo agregado. Nuevamente gracias a ...

... pequeño ajuste fue la de Willy. Porque en realidad yo quería poder añadir varios arrays a un array que reúna todos los elementos de los mismos, y aClone() me permite añadir un array, pero si agrego otro, el array no se agrega a continuación, sino que reemplaza lo agregado. Nuevamente gracias a ...

JoseAlvarez wrote:aArray2 := aClone(aArray1)

Yes

aArray2 := aClone(aArray1)

MENUITEM "Copy" WHEN acopy=NIL .and. oBrw:IsSelectedRow(); // only when is seletected ACTION ( IIF(Len(oBrw:aselected) >1,aClone:=Giverows(oBrw),; aCopy := aclone(oBrw:aRow)),; oBrw:SetFocus() ) Function Giverows(oBrw) local n,atmp:={},nAt For n= 1 to Len( oBrw:aselected) nAt ...

... MENUITEM "Copy" WHEN acopy=NIL .and. oBrw:IsSelectedRow();  // only when is seletected              ACTION ( aCopy := aclone(oBrw:aRow),;              oBrw:SetFocus()   ) For many rows selected Not run ok oBrw:aSelected give number or numbers not ...

Perhaps... MENUITEM "Copy" WHEN acopy=NIL .and. oBrw:IsSelectedRow(); // only when is seletected ACTION IIF(Len(oBrw:aseleted) >1,Aclone:= Giverows (oBrw),aCopy := aclone(oBrw:aRow)),; oBrw:SetFocus() ) Function Giverows (oBrw) local n,uBook,nAt local aTmp:= {} For n = 1 to len(oBrw:aselected) ...

try using aclone, aCopy := aclone( oBrw:aRow ) Marcelo, No es el problema de copiar una fila, esto lo hace, el problema es que quiero copiar varias filas al mismo tiempo y si modifico una fila y guardo, las demás también modifican, ...

try using aclone, aCopy := aclone( oBrw:aRow )

AScan( ASort( AClone( a ) ), { | n, nPos | n := cToD(a:cargo["fecha"]), If( nVal < n, nResult := AScan( a, n) ) - 1,), cToD(n) > nVal } )

estás seguro de que ese código te funciona bien ?

Gracias a ambos. tomo como ejemplo este: AScan( ASort( AClone( a ) ), { | n, nPos | If( nVal < n, nResult := AScan( a, n ) - 1,), n > nVal } ) en mi caso "n" voy a usarlo asi: cToD(a:cargo["fecha"]) Mi consulta: para que el ...

Hola Jose,

Si lo que deseas es hacer una copia exacta del arreglo, yo uso aClone()

aArray1:=aClone(aArray2)

Espero que se lo que necesitas.

Carles wrote:AClone()

Carles: Fantastico. Gracias mil

Algo tan simple que de repente se hace uno "bolas" y no mira uno.

AClone()

Override Method MouseWheel In Class TXBrowse With XBr_MWhl
Override Method Copy In Class TGet With Cpy_

here - METHOD error
................................................................

atail(a_sp[len(a_sp),2]):=aclone(Str_Arr(dim[st,2,zz], chr(166)))

here - () error