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

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

Code: Select all  Expand view

Function ACOPYARRAY(aArr, nIni, nFin)
local nLen, nCont, aRet := {}
nLEN = LEN(aArr)
FOR nCont := nIni TO nFin
   AADD(aRet, aArr[nCont])
NEXT nCont

Return(aRet)
 

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

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

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

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

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

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 )

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