FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Clase para leer DBF desde Dialogo
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Clase para leer DBF desde Dialogo
Posted: Fri Apr 26, 2019 03:48 PM

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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri Apr 26, 2019 04:02 PM
La próxima versión de FWH incluirá la función XEdit() que aquí se incluye:

Code (fw): Select all Collapse
#include "FiveWin.ch"

function Main()

   USE clients
   XEdit()
   USE

return nil

function XEdit()

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


regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri Apr 26, 2019 04:06 PM

Muchas gracias maestro, es justo lo que estoy buscando

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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri Apr 26, 2019 04:12 PM
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>

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri Apr 26, 2019 04:19 PM
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 (fw): Select all Collapse
#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()


regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri Apr 26, 2019 04:21 PM
Antonio Linares wrote: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 (fw): Select all Collapse
#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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri Apr 26, 2019 04:31 PM
Prueba así:

Code (fw): Select all Collapse
function XEdit( uSource, cFieldList, lNew )

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

Antonio Linares
www.fivetechsoft.com
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri Apr 26, 2019 05:46 PM
Antonio Linares wrote:Prueba así:

Code (fw): Select all Collapse
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 ?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sat Apr 27, 2019 07:50 AM

Estamos implementándolo...

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sat Apr 27, 2019 12:49 PM
Antonio Linares wrote:Estamos implementándolo...


Muchas gracias, sera un gran aporte

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sun Apr 28, 2019 01:44 AM

Genial :shock:

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

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

ya sabes siempre estoy dando lata :mrgreen:

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Clase para leer DBF desde Dialogo
Posted: Sun Apr 28, 2019 07:32 AM

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 ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase para leer DBF desde Dialogo
Posted: Mon Apr 29, 2019 02:08 AM

Hola

a si es sin usar indices :mrgreen:

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri May 03, 2019 01:22 AM

Hola

no se si leyeron mi ultimo post :roll:

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 :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Clase para leer DBF desde Dialogo
Posted: Fri May 03, 2019 06:55 AM
Aida,

Aqui lo tienes. Por favor haz una copia de seguridad de tu DBF antes de probarlo :-)
Code (fw): Select all Collapse
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com