Aporte - Mantenimiento de Tablas y Comandos Externos

[Jean Pierre Adonis De La Cruz Garcia]

Hace poco vi una necesidad de  un usuario que necesitaba usar comandos externos para dar mantenimiento a tablas dentro de su mismo sistema.

Me suponia que el sistema ya esta compilado y es un EXE por tal motivo me imagino que en ese terminal no tendrian VFP y se requiere de manteniento de tablas entre otras cosas, asi que prepare este pequeño modulos en un formulario. (Codigo Completo Abierto)

No es nada de otro mundo, solo que es una alternativa adicional a los sistemas la cual desean realizar algunas actividades externas sin que tengan instalado el VFP. y solo tienen su propios sistema ya trabajando.

Le inclui el proceso de reparacion de tablas en caso que suceda esos problemas que nunca faltan por caida de fluido electrico.

Espero sus comentarios y no maleteos por favor.

[Alberto Mancuso]

Muy bueno y práctico ya lo incorporo a mi sistema

C

[Douglas Sánchez]

Hola, 

Jean Pierre

Interesante form, gracias, Pero en la Ventana de comando puedo ejecutar SQLEXEC? y luego ver los cursores?

Slds

Douglas

[Saúl Piña]

eso, eso, eso,

Gracias.

[Jean Pierre Adonis De La Cruz Garcia]

puedes poner todos los comandos al mismo tiempo y recien dar el boton ejecutar y solucionado mi estimado.

ejemplo

*******

use ? in 0 exclusive

brow

use

*******

eso copia en el cuadro de comando y de ahi presiona ejecutar y veras que ara todo el proceso, linea por linea.

[Saúl Piña]

Oks, Jean, hice la prueba de abrir una tabla y si lo hizo todo bien, pero ahora desde el edit, trato de cerrar la tabla con use in o close tables y no funciona, de hecho, ya no me funciona ningun script escrito. Estaré omitiendo algo mi estimado?

gracias de nuevo.

[Jean Pierre Adonis De La Cruz Garcia]

muy cierto, debes agregar esta linea al boton Reparar.

thisform.tablas.btn_cer.Enabled= .T.

debes agregarlo debajo de 

MESSAGEBOX("Tabla Reparada",0+64,"CMD VFP",2000)

cierra tu modulos completo, y vuelve a ejecutarlo, antes cierra todas las tablas

close data all

lo prueba y me avisas.

[Saúl Piña]

Jean disculpa, estoy utilizando solo el edit ( o linea de comandos) y no los botones.
Aplica tu respuesta en mi caso?

gracias

[Jean Pierre Adonis De La Cruz Garcia]

puedes agregar ahi mismo lo sgte,

SET

y pulsas el boton ejecutar para que puedas ver las tablas libres abiertas y cerrarlas directamente, otra opcion

selec mitabla

use

tercera alternativa

use in mitabla

eso lo puedes hacer desde la ventana comnados, recuerda solo un grupo de comandos a la vez, una vez realizado un grupo, debes de limpiar y realizar otro grupo de comandos., recuerda que dicho modulo se puede perfeccionar a los requerimientos del usuario.

[Saúl Piña]

exactamente Jean, voy a revisar todo y seguramente hare algunos ajustes, para posteriormente subir a este foro.

mil gracias

y que Dios nos Bendiga!

[Elides Paredes]

Estimado amigo Jean

Mis saludos

Gracias por compartir tus trasnochos..jejeje. digo tus conocimientos. Con gente como tu es que se nutre éste grupo.

Un abrazo.

Elides Paredes Trump

Barquisimeto Venezuela 

[Jean Pierre Adonis De La Cruz Garcia]

Acabo de realizar algunas correcciones, ya que no abría en algunos, traten de probar la nueva versión 1.60 si siguen encontrando errores me avisan nomas.

Para el caso de la Ventana de Comandos, para que visualice la tabla deben de hacer de la sgte manera.

*******

sele 0

use ?

BROWSE NORMAL IN 'CMDVFP'

*******

de esa manera podra visualizar la tabla en su sistema

Tambien agregue una barrita amarilla indicando lo que se esta haciendo en cada proceso de mantenimiento de tablas

[Germán Fabricio Valdez]

estuve analizando el codigo de reparacion de tablas

y note que al intentar arreglar la DBF borra los campos MEMO Y BLOB

ademas la saca a la tabla de la BASE DE DATOS (DBC) entonces se pierden los campos con nombres largos y el campo autoincremental ID

[Jean Pierre Adonis De La Cruz Garcia]

Que tal German, cual seria la mejor solucion para ese caso entonces,ya que lo he usdo muchas veces para reparar infinidad de tablas dañadas y nunca he tenido problema, pero como mencione, para tablas libres, si es una tabla que esta anexada a una base de datos, no lo he probado realmente.

y como mencione es un modulo que puede ser mejorado y perfeccionado de ser el caso, asi que pueden aportarle sin problemas.

[integral]

Estimado Amigo JEAN PIERRE :

Solo para hacer una pequeña observación y es que al maximizar el formulario ocurre lo remarcado en color verde..(Ver Imagen)

Saludos,

INTEGRAL

[Jean Pierre Adonis De La Cruz Garcia]

ups.muy cierto, jejej, solo agrguenle el anchor a esos objectosw que se salen de la distorsion nomas. tratare de ajustarlo y subire el cambio.

[Jean Pierre Adonis De La Cruz Garcia]

Ya le hice la coreccion hace dis, solo me olvide de subirla.

Tambien la puedes encontrar aqui.

https://comunidadvfp.blogspot.com/, ya estaran subiendo el ultimo cambio, que es la 1.70

[integral]

Que tal amigo JEAN PIERRE :

Te Agradezco la corrección realizada...

Consulta, veo que solo asignaste un valor a la propiedad ANCHOR...

Como llegas a deducir dicho valor...

Agradezco tus comentarios.

Saludos,

INTEGRAL

El jueves, 26 de enero de 2017, 13:50:33 (UTC-5), Jean Pierre Adonis De La Cruz Garcia escribió:

[Jean Pierre Adonis De La Cruz Garcia]

En la propiedad del objetio le das click en Anchor, luego aparecera una ventana para que hasgala prueba y lo dejes tal como lo deseas, y un boton "Sample" o ejemplo, que ira mostrando como quedaria tu objeto.

[Luis Maria Guayan]

Este artículo de AMBY te puede ayudar con la propiedad Anchor:

-- VFP9 - Novedades - Propiedad Anchor --
https://comunidadvfp.blogspot.com/2005/04/vfp9-novedades-propiedad-anchor.html

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 10/02/17 a las 13:10, integral escribió: