Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cerrando un vista remota.
Message
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00736289
Message ID:
00736299
Views:
13
Gracias por tu respuesta Plinio;

Tal vez no me explique correctamente lo que pasa es que (y analizandolo mucho mejor creo que no hay manera de hacerlo) mis vistas remotas son desde tablas DB2 del AS/400 y sobre estas vistas yo ejecuto una serie de consultas, lo ideal serìa es que automaticamente desde la consulta se pudiera cerrar la vista pero no lo he logrado; la unica manera que tengo es a traves de un programa donde cada vez que ejecuto una consulta tengo que cerrar la vista.

Permiteme mostrarte el programa:

cd "c:\SICIG"
set path to (curdir()+"datos"),(curdir()+"ayuda"),(curdir()+"clases"),(curdir()+"consultas"),(curdir()+"formas"),(curdir()+"imagenes"),(curdir()+"menus"),(curdir()+"programas"),(curdir()+"reportes"),(curdir()+"include")
on escape return
set cursor on
set exclusive off
set lock off
set multilocks on
set collate to "spanish"
set reprocess to 3 seconds
set sysformats off
set century on
set date british
set safety off
set autosave on
set escape off
set fields off
set compatible off
set confirm on
set decimal to 2
set exact on
set near on
set bell off
set nulldisplay to "valor nulo"
set memowidth to 1024
set point to ','
set udfparms to value
set talk off

desde=20020101
hasta=20021130

indicador=cmonth(date( )-1)+alltrim(str(year(date( ))))
create cursor &indicador (fecha d(8), indicador c(35),;
tipo c(25),tipotran c(10), transxdia n(6,0), montotrans n(15,2))

*- intentos fallidos -*
do "consultas\intentos fallidos.qpr"
agregar("intentosfal")
*sele intentos_fallidos
*use

*- afiliasiones -*
do consultas\afiliasiones.qpr
agregar("afiliacion")
sele afiliasiones
use
sele ctesxtipo
use
sele ctesjuridicos
use

*- regeneracion de contraseña -*
do consultas\regencontra.qpr
agregar("regeneracontra")
sele regencontra
use

*- historico de conexiones -*
do "consultas\conexiones hist.qpr"
agregar("conhist")
sele conexiones_historico
use

*- convenio bod - *
do consultas\conveniobod.qpr
agregar("convenio_bod")
sele convenio
use

*- nomina - *
do consultas\nomindi.qpr
agregar("nomindi")
do consultas\nomimas.qpr
agregar("nomimas")
sele nomina
use


*- orden de pago -*
do consultas\opindi.qpr
agregar("opindi")
do consultas\opmas.qpr
agregar("opmas")
sele pagos
use


*- pago de servicios -*
do consultas\pagoserv.qpr
agregar("pagoserv")
sele pago_de_servicios
use


*- pago de tarjetas de crédito -*
do consultas\pagotc.qpr
agregar("pagotc")
sele tarjeta_de_credito
use


*- transferencias en linea -*
do consultas\translin.qpr
agregar("translin")


*- transferencias manuales -*
do consultas\transman.qpr
agregar("transman")
sele tipodetransferencia
use
sele transferencias
use


*- transferencia internacional -*
do consultas\transinter.qpr
agregar("transinter")
sele transferencias_internacionales
use


*- cheques de gerencia -*
do consultas\chequesger.qpr
agregar("chequesger")
sele cheques_de_gerencia
use


*- inversiones -*
do consultas\inversiones.qpr
agregar("inversiones")
sele soli_inversiones
use


*- suspension de cheques y chequeras -*
do consultas\suspcheque.qpr
agregar("suspcheque")
sele susp_cheques_chequeras
use

*- conformacion de cheques -*
do consultas\conformacheques.qpr
agregar("confcheque")
sele conformacheque
use

*- solicitud de chequeras -*
do consultas\solichequera.qpr
agregar("solichequera")
sele solichequeras
use

toxls()
close all
wait window "proceso culminado"

function agregar
parameter tabla
go top
sele &indicador
append from dbfstmp\&tabla
sele &tabla
use
endfunc

function toxls()
sele &indicador
copy to archivos\&indicador type xl5
use
endfun
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform