PREGUNTAS CONTESTADAS - FoxPro/Visual FoxPro

 Hay un total de 1456 Preguntas.<<  >> 

    Pregunta:  66516 - AVISAR CUANDO FALTEN 10 DíAS PARA SU VENCIMIENTO
Autor:  Justino Camara
Hola amigos muy buenos dias me gustaria contar con ayuda de ustedes los expertos estoy trabajando una lista de contratos con fecha de ingreso pero me gustaria que me avisara por ejemplo 10 dias antes de su vencimiento entonces utilizo una sentencia del buen amigo YULSOF que es la siguiente:

hoy = DATE()+10&&,"@L 99")
SELECT T1.* FROM (SELECT ESPEJO.* FROM ESPEJO WHERE FECHAENTRE >= hoy) AS T1 WHERE T1.nrocontra LIKE nom ORDER BY T1.fechaentre INTO CURSOR CrsESPEJO READWRITE

pero me da fechas posteriores cuando me deberia dar unicamente los que vencen dias antes espero me puedan ayudar
  Respuesta:  Justino Camara
hola amigo gracias por contestar estoy usando tablas libres
  Respuesta:  xve
Hola Justino, no comentas que base de datos estas utilizando, pero yo lo realizaría de otra manera...

Cogería la fecha actual, y le restaría 10 días, y todos los contratos que estén por encima de esa fecha, les falta menos de diez días para su vencimientos, y todos los que coincida la fecha, es que están en los 10 días justos.

algo así:
pasado = DATE()-10&&,"@L 99")
SELECT ... WHERE FECHAENTRE>=pasado
o
SELECT ... WHERE FECHAENTRE=pasado

Espero que te sirva

    Pregunta:  66534 - SUMA LINEAL EN DBF
Autor:  LOUIS PADILLA
Hola amigos(as), este es el problema: En una dbf de visualfox que se crea automatica, debo sumar linea por linea todos los campos numericos que existan y grabarlos en la ultima columna creada (a la derecha). El problema es que NO SE los nombres de los campos numericos, porque estos son creados al azar por otro usuario, pueden ser 3, 7, 12, 20 es decir (n)campos numericos y Repito Desconozco los nombres de los mismos. Ej. con 6 campos numericos y 3 lineas:

detalle gorras camisas at1 pos4 filtro gtx8 TOTAL
linea 1 guerra 90 15 9 11 71 62 ???
linea 2 turista 104 98 16 33 14 84 ???
linea 3 niños 70 77 25 69 8 5 ???

Muchas Gracias de antemano.
  Respuesta:  Eduardo Ureña
Intenta validando el tipo de campo con vartype().

Te haces un ciclo... algo así como (asumiedo que ya tienes abierta y seleccionada la tabla)

FOR I=1 TO FCOUNT()
NomCampo=FIELD(I)
IF VARTYPE(NomCampo)="N"
? "ESTE CAMPO ES NUMERICO"
ENDIF
NEXT I

Ojalá te ayude.

    Pregunta:  66561 - PROBLEMA CON EL PREVIO. BLOQUEA LA APLICACIÓN
Autor:  Hugo
Al mostrar el Frx (Previo) en otro formulario me bloquea mi menu de opciones, y no puedo realizar otro proceso mientras lo cierre, existe alguna manera de que me permita trabajar normalmente ya que es otra ventana, eh intentado con la propiedad modal, lo eh visualizado en otra sesión y nada...gracias de antemano por su ayuda
  Respuesta:  Eduardo Urena
No existe esa modalidad que yo sepa. Una vez que se presenta el informe en pantalla deshabilita el resto de las opciones del lenguaje.

    Pregunta:  66574 - EMULADORES PARA 32 Y 64 BITS DEL FOXPROX D.O.S.
Autor:  guillermo libcovker
Hola a todos, quisiera saber si conocen algun emulador del FoxPro para D.O.S. que corra en 32 o 64 bits. Funciona perfecto hasta el XP de 16 bits.
Saludos
Guillermo
  Respuesta:  Hector Capetillo
Puedes usar el DosBox, existe para todas las versiones de windows, lo instalas y dentro del ambiente que te crea puedes utilizar dos FoxPro, mfoxplus, d-base' etc todos los que antes funcionaban bajo dos.
saludos.

    Pregunta:  66609 - AYUDA CON RUTA DE FOTOGRAFIAS
Autor:  Justino N. Camara
Buenas tardes amigos soy aprendiz de Vfox y estoy haciendo un pequeño sistemita el cual en el formulario de empleados al llenarlo llego a un campo donde abre una fotografia y esta trabaja bien pero necesito que la fotografia se guarde en una ruta especifica y en el campo ruta me de la ruta destino osea donde se guardo solo puse esto

img = GETFILE("JPG, BMP, GIF","Ingrese")
thisform.pageframe1.page2.Image1.Picture = img
thisform.pageframe1.page2.textruta.value = JUSTFNAME(thisform.pageframe1.page2.image1.Picture)

lcDir2 = "Z:fotografias"
Copy File (img) To (lcDir2)

pero no se como hacer para que en el campo llamod text2 me de la ruta donde se guardo en espera de su valios ayuda desde ya les agradezco mucho su ayuda
  Respuesta:  Justino N. Camara
muchas gracias a todos por sus respuestas ya me funciono
  Respuesta:  Jose Maria Vilar
Acá te muestro lo que tenfo en un comando de seleccion de foto en un programa y te muestro la funcion que utilizo "GetPictX"

local lcfilename
SET PROCEDURE TO profunc

lcfilename=GetPictX(CURDIR()+"imagenes","","Seleccionar Imagen")
if !empty(lcfilename)
thisform.fondo.picture = lcfilename
LAFOTO = lcfilename
thisform.refresh
endif

PROFUNC.PRG && ACA PONGO TODAS LAS FUNCIONES O
PROCEDIMIENTOS QUE DESARROLLO PARA
USAR EN LOS PROGRAMAS

Esta funcion la baje una ves no recuerdo de donde

********************************************************************************
* FUNCTION GetPictX(tcRuta, tcExtension, tcLeyenda, tcBoton)
********************************************************************************
* Función GetPict eXtendida. Al igual que la función GetPict muestra un cuadro
* de diálogo Abrir imagen y retorna el nombre del archivo de imagen
* seleccionado. Si no se selecciona ningun archivo retorna una cadena vacia.
* La diferencia con GetPict() es que se puede especificar con el primer
* parámetro la carpeta donde se abre el cuadro de dialogo.
*
* RETORNA:
* Caracter
* PARAMETROS:
* tcRuta: Ruta inicial
* tcExtension: Extension de los archivos de imagen que se muestra
* tcLeyenda: Título del cuadro de texto "Nombre de archivo"
* tcBoton: Título del botón "Aceptar"
* USO:
* ? GetPictX("C:Imagenes","JPG","Foto:", "Abrir foto")
* ? GetPictX(CURDIR()+"imagenes","","Seleccionar Imagen")
********************************************************************************

FUNCTION GetPictX(tcRuta, tcExtension, tcLeyenda, tcBoton)
LOCAL lcDirAnt, lcGetPict
tcRuta = IIF(NOT EMPTY(tcRuta) AND DIRECTORY(tcRuta,1),tcRuta,"")
tcExtension = IIF(EMPTY(tcExtension), "", tcExtension)
tcLeyenda = IIF(EMPTY(tcLeyenda), "", tcLeyenda)
tcBoton = IIF(EMPTY(tcBoton), "", tcBoton)
lcDirAnt = FULLPATH("")
SET DEFAULT TO (tcRuta)
lcGetPict = GETPICT(tcExtension, tcLeyenda, tcBoton)
SET DEFAULT TO (lcDirAnt)
RETURN lcGetPict
ENDFUNC


Cualquier duda preguntame

    Pregunta:  66666 - EJECUTAR PROGRAMAS MSDOS QUE USAN PARÁMETROS DESDE VFP
Autor:  Luigui Gomez
Hola,
Necesito correr un programa basado en MSDOS, no para windows el cual requiere dos parámetros: 1. acción a realizar, 2. ruta y nombre del archivo a leer, desde VFP 7.0. No logro hacer que se ejecute leyendo los parámetros, estoy utilizando la función RUN, hay alguna otra opción?
ej. c;msagen.exe /leer "c:factemp.txt"
  Respuesta:  Jose Maria Vilar
Mira yo tengo un sistema de liquidacion de sueldos en VFP9 y realize un programa en COBOL que me genera los legajos en TXT para poder levantarlos al nuevo sistema.

Te detallo la forma en que ejecuto un programa en DOS desde VFP

!C:SUELDOS uncobol c:sueldoslegadbf k

Espero que entiendas la forma

|<  <<  136 137 138 139 140 141 142 143 144 145 146  >>  >|