FiveTech Software tech support forums

Gracias Willi, Jose y Sr. Rao
Es muy bueno tener la ayuda de este foro.

Quizá no me expliqué bien, pero la solución que funcionó magníficamente con algún 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 ...

Gracias Willi, Jose y Sr. Rao
Es muy bueno tener la ayuda de este foro.

Quizá no me expliqué bien, pero la solución que funcionó magníficamente con algún 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 ...

JoseAlvarez wrote:aArray2 := aClone(aArray1)

Yes

aArray2 := aClone(aArray1)

Estimado, prueba esto....

Queridos compañeros del Foro,

Quisiera hacer una función parecida a Acopy pero para matrices.
La idea es que con ella se pueda hacer un "append" de una matriz a otra (de igual estructura).
He estado tratando de buscar el como, pero por el momento no he podido, quizá no dan las neuronas :D (los años ...

... to insert a record between two rows
the first field must be "codsep" field
how can I do ?


TO paste an record of oBrw:aArrayData I use an array aCopy where I save the row Copied (oBrw:aselected) and I use these commands


oBrw:Lock()
For n=1 to Len(acopy)
aCopy[n][1] := codsep
aCopy[n][32 ...

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 := oBrw ...

... release of fwh


Silvio,
Here you have the solution. But, look also into xbrowse.prg in C:\FWH\Source\Classes\xbrowse.prg.

MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;
oBrw:SetFocus(), xbrowse(oBrw:aSelected) )



All you need is there. This is the biggest benefit of FiveWin that ...

... release of fwh


Silvio,
Here you have the solution. But, look also into xbrowse.prg in C:\FWH\Source\Classes\xbrowse.prg.

MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;
oBrw:SetFocus(), xbrowse(oBrw:aSelected) )



All you need is there. This is the biggest benefit of FiveWin that ...

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 ...

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, es como si las filas copiadas tuvieran lo mismo. número de ...

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

... to handle multiple rows. Here is an approach to achieve this:

1. **Modify Copy Functionality**: Instead of copying a single row to `aCopy`, copy all selected rows. You can use a loop to go through the selected rows and add them to `aCopy`.

2. **Modify Paste Functionality**: When ...

Silvio, insert xBrowse(aCopy) in your functions to see what you copy and msgInfo's.
Best regards,
Otto

I not understood
when I copy insert on acopy the row I selected ( all field) change acopy[1] with new codsep

MENUITEM "Paste" WHEN acopy!=NIL ACTION ( ;
oBrw:Lock(), ;
aCopy[ 1 ] := codsep ...