FiveTech Software tech support forums

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

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

Muchas gracias maestro, es justo lo que estoy buscando

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

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>

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

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

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: Select all  Expand view

#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

Prueba así:

Code: Select all  Expand view

function XEdit( uSource, cFieldList, lNew )

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

Antonio Linares wrote:Prueba así:

Code: Select all  Expand view

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 ?

Estamos implementándolo...

Antonio Linares wrote:Estamos implementándolo...

Muchas gracias, sera un gran aporte

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

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 ?

Hola

a si es sin usar indices

Saluditos

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

Aida,

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

Code: Select all  Expand view

#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