Clipper/FiveWin - Aiuto!

Buenos días a todo.

Perdoname para el español no correcto, soy italiano.

He trabajado por muchos años en clíper, de una semana he descubierto
Fivewin, estoy haciendo alguna prueba.

Tengo este problema, no logro añadir la función de inserción record
en este listado. “APPEND BLANK”

¿Puede ayudarme alguien?

Gracias.

Function Stampain()

local oDlg, oLbx
local oBrw, oRec

*---------------------
IF .NOT. FILE ("TempLbl.DBF")

mDbf:={}
aadd(mDbf,{ "Call" ,"C", 6, 0 })
aadd(mDbf,{ "Nome" ,"C", 20, 0 })

DbCreate(mDbf,"TempLbl.dbf")

APPEND BLANK
ENDIF

Select 1

USE TempLbl VIA "DBFCDX"

zap
APPEND BLANK

SET 3DLOOK ON

DEFINE DIALOG oDlg FROM 5,10 TO 24, 56 ;
TITLE "Browse Ik1mtt Marco"

@ 1, 0.50 LISTBOX oLbx FIELDS SIZE 175, 95 OF oDlg

oLbx:lCellStyle = .t.
oLbx:lAutoEdit = .t.
oLbx:lAutoSkip = .t.

*-------------

*Aqui tengo el problema:

@ 7, 2 BUTTON "&Adjuntar" OF oDlg SIZE 40, 12 ;
ACTION oLbx:??????()

*-------------

@ 7, 2 BUTTON "&Edit" OF oDlg SIZE 40, 12 ;
ACTION oLbx:Edit()

@ 7, 10 BUTTON "&OK" OF oDlg SIZE 40, 12 ;
ACTION oDlg:End() DEFAULT

@ 7, 18 BUTTON "&Cancel" OF oDlg SIZE 40, 12 ;
ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

Return nil

[email protected]

Caro amico:

Mira a il directorio \SOURCE\FUNCTION, in il prg BROWSE.PRG.

Queste e altro: http://www.ciber-tec.com/fwdemo.zip

Saluti.

Prueba esto:

IF .NOT. FILE ("TempLbl.DBF")

mDbf := {}
aadd( mDbf, { "Call" , "C", 6 0 } )
aadd( mDbf, { "Nome", "C", 20, 0 } )

DbCreate( mDbf, "TempLbl.dbf" )

SELECT 1
USE TempLbl VIA "DBFCDX"

ELSE
SELECT 1
USE TempLbl VIA "DBFCDX"

ZAP
ENDIF

APPEND BLANK

Saludos, José Mª