No me funciona el Refresh en TXBrowse, me ayudan porfis

No me funciona el Refresh en TXBrowse, me ayudan porfis

Postby AIDA » Fri Feb 02, 2007 4:27 am

Hola

antes usaba Listbox ya pase todo a TXBrowse pero me di cuenta que ya no me funciona :shock: el refresh como lo tenia en el listbox me pasa lo siguiente

habro un recurso donde pongo datos y despues de cerrar llama una funcion donde me guarda en la base de datos lo capturado y de ahi refrescar pero con TXBrowse no me funciona :( me tira un error y se cierra todo y si lo quito si me guarda todo bien pero no me refresca el TXBrowse

que estara mal mejor dicho que estare haciendo mal pongo abajo la funcion de guardar mis datos como lo tengo y tenia con el listbox espero me orienten :)


Gracias de antemano

Aida :wink:




STATIC FUNCTION GUARDAR(oBrw)




APPEND BLANK
AUTOS->NIVEL := 1
AUTOS->PAGCOM :=.F.
AUTOS->CATORSENA2 :=.F.

AUTOS->FICHA := cFicha
AUTOS->NOMBRE := cNombre
AUTOS->APELLIDO_P := cPaterno
AUTOS->APELLIDO_M := cMaterno
AUTOS->DIRECCION := cDireccion
AUTOS->COD_POSTAL := cCp
AUTOS->COLONIA := cCOLONIA
AUTOS->POBLACION := cCiudad
AUTOS->ESTADO := cEstado
AUTOS->TEL1 := cTelefona
AUTOS->TEL2 := cTelefonb
AUTOS->EMPRESA := cCentro

AUTOS->Vigencia1 := cVigencia1
AUTOS->Vigencia2 := cVigencia2
AUTOS->RENUEMES := xmes
AUTOS->RENUANO := xanno

AUTOS->Comp := cCompa

IF nOption = 1
AUTOS->Cobertura :="M"
ENDIF

IF nOption = 2
AUTOS->Cobertura :="T"
ENDIF

IF nOption = 3
AUTOS->Cobertura :="S"
ENDIF

IF nOption = 4
AUTOS->Cobertura :="A"
ENDIF



AUTOS->Clamarctip:= cClamt
AUTOS->Marca := cMarc
AUTOS->Tipo := cCtipo
AUTOS->Modelo := Cmodelo


cAire :=AUTOS->conaire
cEqf :=AUTOS->equipfabri
cAutero :=AUTOS->AUSTERO
cAutomatico :=AUTOS->automatico
cSina :=AUTOS->sinaire
cTipico :=AUTOS->tipico
cStd :=AUTOS->STD


AUTOS->Ocupantes := cOcupa
AUTOS->Num_serie := cNum_serie
AUTOS->Num_motor := cNum_motor
AUTOS->Placas := cPlacas


IF cOption = 1
AUTOS->COVE :="A"
ENDIF

IF cOption = 2
AUTOS->COVE :="L"
ENDIF

IF cOption = 3
AUTOS->COVE :="RC"
ENDIF

AUTOS->COMENTARIO := mComments
AUTOS->OCUPACION := cOcupacion
AUTOS->DEPARTA := cDeparta
AUTOS->DEPACLAVE := cDepaclave
AUTOS->UNIDAD := cUnidad
AUTOS->UNICLAVE := cUniclave
AUTOS->UBICADEP := cUbicadep
commit

oBrw:Refresh()

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

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
AIDA
 
Posts: 877
Joined: Fri Jan 12, 2007 8:35 pm

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 63 guests