Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cerrando un vista remota.
Message
From
28/12/2002 16:27:35
 
 
To
28/12/2002 11:25:41
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00736289
Message ID:
00736334
Views:
12
Estoy de acuerdo con Plinio, todas las vistas remotas de VFP se comportan como cursores "normales", no entiendo por que dices que no se cierran. Quizás estamos confundiendonos con tu término "cerrar las vistas" o te referiras a "cerrar conexion"?.Un código como el siguiente debería cerrar la vista:
USE IN SELECT("MiVistaRemota")
Por otro lado, veo que usar QPR??, por que no lo haces desde el contenedor de base de datos?
No recuerdo haberlas utilizado QPRs en la hora de producción, algun motivo específico?

>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
_________________________________________________________
Independent Consultant
URL: www.geocities.com/andrewsdumith
Email: adumith@hotmail.com
__________________________________________________________
Perseverance, Effectiveness and Productivity....
Keys to reach the success....
Apoya a Visual FoxPro usandolo legalmente
--
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox
http://www.portalfox.com
esparta@portalfox.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform