Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cerrando un vista remota.
Message
 
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:
00736332
Views:
16
has tratato de usar SQL pass? contruyelas dinamicamente y obtienes un cursor unicamente con los resultados, y cuando este cursor se cierra automaticamente foxpro lo borra.

espero te sirva

Francisco Morosini
>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