hola amigos , estoy compilado un programa hecho en clipper , a Visual
object v1, sucede que me da un error, en un modulo , el cual trabaja
con dbedit(1,2,14,79,,)Aqui posteo la rutina, no me corre y me dice
que "sintaxi error subsytem base function &"

Como puedo postear , una imagen,

DBEDIT(6,1,13,78,CAMPO,"FAC_BROWSE",FORMATO,TITULO)
SET KEY 18 TO
SET KEY 3 TO
GRABPANT(.F.)
SELECT FACTURA
ZAP
CLOSE DATABASE
FAC_NUM = FAC_NUM + 1
SAVE TO FACTURA ALL LIKE FAC_NUM*
ENDIF
RETURN

******************************************************************

FUNCTION FAC_BROWSE

PARAMETER MODO, NUM_CAMPO

PRIVAT OUT, TECLA, COLUMNA, FILA

OUT = 1
TECLA = LASTKEY()
COLUMNA = COL()
FILA = ROW()



DO CASE

CASE TECLA = 27
GRABPANT(.T.)
AntColor = SETCOLOR()
CAJACOLOR(13,20,18,60,'W+/R')
@ 14, 32 SAY "SALIR SIN GRABAR ???"
IF Si_No(16,25,"R")
OUT = 0
ENDIF
SET COLOR TO &AntColor
GRABPANT(.F.)

CASE NUM_CAMPO = 1 .AND. TECLA >= 44 .AND. TECLA <= 122
KEYBOARD CHR(TECLA)
* BUSC_REP = valdept()
num_repues = space(15)
@ FILA, COLUMNA GET num_repues PICTURE "@!" VALID valdept()
READ
IF LASTKEY() <> 27
SELECT INVENT
SET ORDER TO 5
SEEK TRIM(num_repues)
IF FOUND()
* REP_BUSC = .T.
num_repues = .T.
SELECT EXISTEN