FiveTech Software tech support forums

... a dos arrarys, uno para los primeros 12 campos y otro array para los siguientes 12 campos.? Ahora lo hago a pie, pero no me agrada el código :-( AADD(anPzs,oRsSal:Fields("PZSENE"):Value) AADD(anPzs,oRsSal:Fields("PZSFEB"):Value) AADD(anPzs,oRsSal:Fields("PZSMZO"):Value) ...

Simply add this line at the top:

static aEvents := {}

and then use this:

oVoice:__hSink = __axRegisterHandler( oVoice:__hObj, { | ... | AAdd( aEvents, { ... } ) } )

Finally, after the dialog, do:

XBrowser( aEvents )

... {" Ok ", " 2", " 3", "4","5","6", "7", "8", "9"} AaDd(aTable,{1,,23,,44,,61,,80} ) AaDd(aTable,{,16,,36,,59,68,,89} ) AaDd(aTable,{,,28,,49,58,,71,84} ) oRTF := SetRT( cOutFile ) NEW PARAGRAPH oRTF ...

... {" Ok ", " 2", " 3", "4","5","6", "7", "8", "9"} AaDd(aTable,{1,,23,,44,,61,,80} ) AaDd(aTable,{,16,,36,,59,68,,89} ) AaDd(aTable,{,,28,,49,58,,71,84} ) oRTF := SetRT( cOutFile ) NEW PARAGRAPH oRTF ...

... I need to have another font I made oFontCopy := TFont():New("TAHOMA",0,-108,.F.,,180,,,,,,,,,,oRep:oDevice) //to print a text nscapment aadd(oRep:aFont, oFontCopy) then oRep:bStartPage := { || oRep:Say(10, cTextCopy, 3,2,1450) } why not run ? the error Error description: Error BASE/1132 ...

... oBrw:SetFocus() ) Function Giverows(oBrw) local n,atmp:={},nAt For n= 1 to Len( oBrw:aselected) nAt := oBrw:aArrayData[ oBrw:aselected[n] ] aadd( aTmp, aclone(nat)) next return aTmp But then the paste is wrong

... not the row oBrw:aRow is as ::aArrayData[ ::nArrayAt ] you can make For n= 1 to Len( oBrw:aselected) nAt := oBrw:aArrayData[ oBrw:aselected[n] ] aadd( acopy, aclone(nat)) next just an idea

... ACTION ( aCopy := {}, // Initialize aCopy as an empty array FOR EACH nRow IN oBrw:aSelectedRows // Iterate over selected rows AAdd( aCopy, oBrw:aArrayData[nRow] ) // Add each selected row to aCopy NEXT, oBrw:SetFocus() ) ``` ### Modified Paste Functionality ```harbour // Inside ...

... acopy[1] with new codsep MENUITEM "Paste" WHEN acopy!=NIL ACTION ( ; oBrw:Lock(), ; aCopy[ 1 ] := codsep ,; aCopy[ 8 ] := 0 ,; //recno aadd( oBrw:aArrayData, aCopy ),; oBrw:Unlock( .t. ), ; acopy:=NIL ,; oBrw:RefreshCurrent(), oBrw:SetFocus() ) ENDMENU but when I modify it the nRecord:= ...

Silvio, You must search the selected and aadd( oBrw:aArrayData,aCopy ) each selected row. Then inserting: FOR I:= 1 to len(aCopy ) Regards, Otto Please try this test #include "fivewin.ch"static aCopystatic cItemFlds :="CodSep,Top,Left,Width,Height,desc,row,recno()" REQUEST ...

Silvio,

You must search the selected and
aadd( oBrw:aArrayData,aCopy )
each selected row.

Then inserting: FOR I:= 1 to len(aCopy )


Regards,
Otto

You have to extend here: MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,; oBrw:SetFocus() ) and here: aadd( oBrw:aArrayData,aCopy ),; // oBrw:aArrayData[ oBrw:nArrayAt ] := aCopy ,; >MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,; >oBrw:SetFocus() ...

You have to extend here:
MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;
oBrw:SetFocus() )


and here:
aadd( oBrw:aArrayData,aCopy ),; // oBrw:aArrayData[ oBrw:nArrayAt ] := aCopy ,;

... oBrw:Edit. Por lo demás todo funciona Supongo que para variar soy yo el torpe :oops: pero no puedo darme cuenta que está mal. //Script de la tabla aAdd( aSql, 'SELECT l.id, l.lugar, l.numerodellaves FROM llaves AS l ORDER BY l.id' ) //campos y cabezales para el xbrowse aAdd( aCampos, { 'id', 'lugar', ...

... MenuPrin() local i := 0 local TablaMnu := {} local cAccion // aca armo el menu de este usuario if Nivel==1 .OR. Nivel==2 OPCMENU->(DbEval({|| aadd(TablaMnu,{Orden,Tipo,Opcion,Mensaje,Accion,Imagen}) }; ,{|| !deleted() }; ,{|| !eof() })) elseif PERFILFW->(DbSetOrder(1),dbseek(cript(Usuari))) ...