No me funciona el Refresh en TXBrowse, me ayudan porfis
Posted: 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 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
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
antes usaba Listbox ya pase todo a TXBrowse pero me di cuenta que ya no me funciona 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
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