FiveTech Software tech support forums

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   USE clients
   XBrowse( ,,, { | oBrw | BrwSetup( oBrw ) } )
   USE

return nil

function BrwSetup( oBrw )

   @ 05, 154 BTNBMP Prompt "*" SIZE 15, 16 PIXEL OF oBrw:oWnd FLAT  ;
      TOOLTIP FWString( "Insert" ) ACTION ( FW_DbInsert(), oBrw:SetFocus() ) ;
      COLOR CLR_BLACK, CLR_WHITE

return nil

Code: Select all  Expand view

function InsertRecord()

   local nRecNo := RecNo()
   local aData  := FW_DbfToArray()

   hb_AIns( aData, nRecNo, aRec, .T. )
   aData[ nRecNo ] = Array( Len( aData[ nRecNo ] ) )
   DbGoTop()
   FW_ArrayToDbf( aData,,, .T. )
   DbGoTo( nRecNo )

return nil

Code: Select all  Expand view

Time from start: 0 hours 0 mins 4 secs
   Error occurred at: 03-05-2019, 23:35:08
   Error description: Error BASE/1111  Error de argumento: LEN
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => LEN( 0 )
   Called from: model.prg => INSERTRECORD( 4719 )
   Called from: model.prg => (b)BRWSETUP( 4705 )

Code: Select all  Expand view

function InsertRecord()

   local nRecNo := RecNo()
   local aData  := FW_DbfToArray()
   local aRec   := Array( Len( aData[ nRecNo ] ) )

   hb_AIns( aData, nRecNo, aRec, .T. )
   DbGoTop()
   FW_ArrayToDbf( aData,,, .T. )
   DbGoTo( nRecNo )

return nil

Code: Select all  Expand view

LOCAL lAutoSort:=.F.
LOCAL bSetUp:=.F.
LOCAL aCols:=.F.
LOCAL bSelect:=.T.
LOCAL lExcel:=.T.
LOCAL lFastEdit:= .t.
LOCAL lautofit:=.F.

USE DATA\VModelAir.dat ALIAS VModelAir SHARED NEW
VModelAir->(DBGOTOP())


XBrowse( ,"EDITANDO COLORES VModelAir",lFastEdit , { | oBrw | BrwSetup( oBrw ) } )

VModelAir->(DBGOTOP())

CLOSE VModelAir

RETURN NIL

Code: Select all  Expand view

XBrowse( ,"EDITANDO COLORES VModelAir", , { | oBrw | BrwSetup( oBrw ) },,  bSelect, lExcel,lFastEdit  )

AIDA wrote:Que crees ya funciona insertando pero ya no me deja editar nada

Code: Select all  Expand view

LOCAL lAutoSort:=.F.
LOCAL bSetUp:=.F.
LOCAL aCols:=.F.
LOCAL bSelect:=.T.
LOCAL lExcel:=.T.
LOCAL lFastEdit:= .t.
LOCAL lautofit:=.F.

USE DATA\VModelAir.dat ALIAS VModelAir SHARED NEW
VModelAir->(DBGOTOP())


XBrowse( ,"EDITANDO COLORES VModelAir",lFastEdit , { | oBrw | BrwSetup( oBrw ) } )

VModelAir->(DBGOTOP())

CLOSE VModelAir

RETURN NIL

Que debo hacer

Saluditos

Antonio Linares wrote:La próxima versión de FWH incluirá la función XEdit() que aquí se incluye:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   USE clients
   XEdit()
   USE

return nil

function XEdit()

return FW_Record():New():Edit()