#include "FiveWin.ch"
function Main()
USE clients
XEdit()
USE
return nil
function XEdit()
return FW_Record():New():Edit()
#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()
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()
Antonio Linares wrote:Estamos implementándolo...
#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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Enrico Maria Giordano, Google [Bot], TOTOVIOTTI and 19 guests