FiveTech Software tech support forums

I am try this: Code: aRow := oCn:QueryResult( "select field1,field2 from states where code='WA'" ) if aRow == NIL // not found, then inserts aRow := { "aa","bb" } oCn:Upsert( "states", 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:aArrayData[ oBrw:aselected[n] ] ...

... 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 you have source code of the classes. ...

... 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 you have source code of the classes. ...

... 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) uBook := Eval( oBrw:bBookMark ...

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

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

... // Inside PopMenu Function - Modify the "Paste" Menu Item MENUITEM "Paste" WHEN !Empty( aCopy ) ACTION ( oBrw:Lock(), FOR EACH aRow IN aCopy aRow[1] := codsep, // Set new codsep aRow[8] := 0, // Reset record number or assign a new unique ID aAdd( oBrw:aArrayData, aRow ) // Add ...

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

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 ,;

...  local oPop   MENU oPop POPUP 2010   MENUITEM "Codsep:"+codsep   MENUITEM "Copy" WHEN acopy=NIL ACTION ( aCopy := oBrw:aRow,;      oBrw:SetFocus() )  MENUITEM "Paste" WHEN acopy!=NIL ACTION ( ;      oBrw:Lock(), ;      aCopy[ 1 ] ...

... //----------------------------------------------------------------------------- static function ReadVessel( hJson ) local aData := {} local aRow, aCalls, hCall local d, n, i, j, aDt local ARRI, DEPA local cPol, cPolName, cDateTim, dEtd, cEtdTime, cStr aCalls := hJson[ "vessel" ...

... 100 :aCols[ 1 ]:nDataStrAlign := AL_LEFT :SetStyle( 2018 ) end with static function ChangeColor( oBrw, n ) return {|| { CLR_BLACK, ColorCell( oBrw:aRow[ n ]:VALUE ) } } static function ColorCell( num ) local nColor := GetSysColor( 15 ) If num= 0 nColor := CLR_HGREEN elseif num >0 .and. num < ...

... 100 :aCols[ 1 ]:nDataStrAlign := AL_LEFT :SetStyle( 2018 ) end with static function ChangeColor( oBrw, n ) return {|| { CLR_BLACK, ColorCell( oBrw:aRow[ n ]:VALUE ) } } static function ColorCell( num ) local nColor := GetSysColor( 15 ) If num= 0 nColor := CLR_HGREEN elseif num >0 .and. num < ...

... {|i| { ChangeColor( oBrw, i ) } } endif NEXT :CreateFromCode() END static function ChangeColor( oBrw, n ) return {|| { CLR_BLACK, ColorCell( oBrw:aRow[ n ]:VALUE ) } } static function ColorCell( num ) local nColor := GetSysColor( 15 ) //for demo local nColor1 := CLR_HGREEN local nColor2 := CLR_HRED ...