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

Contestar

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.

Contestar

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.

Contestar

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.

Contestar

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

Contestar

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

Contestar

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