Clase para leer DBF desde Dialogo

[Antonio Linares]

Para la próxima versión de FWH se simplifica asi

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

[AIDA]

Oki

avisare si les salen patas y cuernos al DBF


Gracias
Saluditos

[AIDA]

aRec no estaba delarada la deje a si

Local aRec

pero sale el error de Len

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 )

vere si le entiendo al error


Saluditos

[AIDA]

soy muy burra no le encuentro el error de len
no se si aData llega sin valor alguno




Saluditos

[Antonio Linares]

Aida,

Te pido disculpas, borré algunas líneas por error:

Este es el código correcto:

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

[AIDA]

Muchas gracias ya funciono



Muchas gracias eres mi superman



seguiré probando



Saluditos

[AIDA]

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

[AIDA]

ya lo resolví de esta manera

Code: Select all  Expand view

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

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

[Compuin]

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

Buenas tardes maestro,

Esta funcion xedit es modificable ? es decir, como xbrowse se puede parametrizar o cambiar la posicion y el tipo de objeto (say y get ) que quiero presentar en el dialogo?

[joseluisysturiz]

Saludos, esta CLASE funciona tambien para QUERYS o ARRAY.? gracias, saludos...