Clase para leer DBF desde Dialogo

[Compuin]

Hola foro,

Asi como existe la clase txbrowse que se crea con la informacion de los campos de las tablas, existe o se podra crear una clase que llene un dialogo con los get de la misma forma que se hace con xbrowse, es decir, los coloque en forma automatica dentro del dialogo (1 registro a la vez)

Atento a sus comentarios

[Antonio Linares]

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

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   USE clients
   XEdit()
   USE

return nil

function XEdit()

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

[Compuin]

Muchas gracias maestro, es justo lo que estoy buscando

Ohh ok ya vi que es algo que viene para la proxima version

[Compuin]

Me arroja este error
..\..\bcc73\lib\psdk\shell32.lib + >> b32.bc
echo ..\..\bcc73\lib\psdk\gdiplus.lib + >> b32.bc
echo ..\..\bcc73\lib\psdk\rasapi32.lib, >> b32.bc
IF EXIST xplook.res echo xplook.res >> b32.bc
..\..\bcc73\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
Turbo Incremental Link 6.80 Copyright (c) 1997-2017 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_FW_RECORD' referenced from C:\DEMO\OBJ\T24.OBJ
Error: Unable to perform link

** error 2 ** deleting demo.exe

C:\demo>if exist demo.exe demo.exe
C:\demo>

[Antonio Linares]

Pruébalo con tu versión actual de FWH porque debería funcionarte
( de no ser así, necesitas una versión de FWH actualizada)

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   USE clients
   XEdit( , "NAME,ADRESS" )
   USE

return nil

function XEdit( uSource, cFieldList, lNew )

return FW_Record():New( uSource, cFieldList, lNew ):Edit()

[Compuin]

Pruébalo con tu versión actual de FWH porque debería funcionarte
( de no ser así, necesitas una versión de FWH actualizada)

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   USE clients
   XEdit( , "NAME,ADRESS" )
   USE

return nil

function xEdit( uSource, cFieldList, lNew )

return FW_Record():New( uSource, cFieldList, lNew ):Edit()

Uso la version 18.05

[Antonio Linares]

Prueba así:

Code: Select all  Expand view  RUN

function XEdit( uSource, cFieldList, lNew )

return TDataRow():New( uSource, cFieldList, lNew ):Edit()

[Compuin]

Prueba así:

Code: Select all  Expand view  RUN

function XEdit( uSource, cFieldList, lNew )

return TDataRow():New( uSource, cFieldList, lNew ):Edit()

Funciono Ok,

Hay forma de organizar y/o posicionar en el Dialogo los campos usando esta funcion ?

[Antonio Linares]

Estamos implementándolo...

[Compuin]

Estamos implementándolo...

Muchas gracias, sera un gran aporte

[AIDA]

Genial

tengo una preguntita se podrá implementar en el XBrowse() un boton para poder insertar un registro entre dos registros

XBrowse(Alias("CAVA"),"LOS MODELOS DE MI CAVA",lAutoSort,bSetUp, aCols, bSelect, lExcel,lFastEdit)

ya sabes siempre estoy dando lata

Saluditos

[Antonio Linares]

Aida,

Si usas un índice solo tienes que añadir un registro cuya clave esté entre los dos

O te refieres a hacerlo sin usar un índice ?

[AIDA]

Hola

a si es sin usar indices

Saluditos

[AIDA]

Hola

no se si leyeron mi ultimo post

donde comento que si se podrá poner un botón para meter un registro entre dos registro un INSERTAR REGISTRO
para cuando no se usen indices.

Saluditos

[Antonio Linares]

Aida,

Aqui lo tienes. Por favor haz una copia de seguridad de tu DBF antes de probarlo

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   USE clientes
   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 ( InsertRecord(), oBrw:SetFocus() ) ;
      COLOR CLR_BLACK, CLR_WHITE

return nil

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