BUSCAR EN PREGUNTAS Y RESPUESTAS

 Se han encontrado 2654 coincidencias.<<  >> 

FoxPro/Visual FoxPro
    Pregunta:  62229 - DESACTIVAR DESPLIEGUE AUTOMATICO DE MENUS
Autor:  Nelson
Hola amigos, queria saber si alguien tiene idea de como desactivar el despliegue automatico de un menu en visual fox 7 o superior. Yo por mi parte vi con un programa llamado TuneUp podes configurar tu windows para que lo haga. Será posible controlar esto desde visual fox ?.
Espero ser claro en la pregunta.
Saludos.
  Respuesta:  hancito2003
Si es el menu del sistema, ejecutas desde la aplicacion:
SET SYSMENU OFF

Si es un menu popup desarrollado, ejecutas donde lo quieres ocultar:
HIDE MENU ALL
HIDE POPUP ALL

Suerte.-

    Pregunta:  62452 - BLOQUEAR CELDA
Autor:  Alfredo Meza
Como puedo proteger una celda excel desde visual foxpro:
pense que podia hacerlo asi:
loExcel.APPLICATION.Sheets("NOTAS").cells(fila,9).enabled = .F.
pero no me resulta. Gracias de antemano.
  Respuesta:  Abel RDc
En realdiad debes hacer algo así como ésto...

Thisform.Grid1.Column1.Enabled = .f.

    Pregunta:  62592 - CLASIFICAR MONTOS AL FINAL DE UN REPORTE
Autor:  HENRY PARAZUELA
Antes todo un saludo a todos los seguidores de esta excelente pagina web, en fin el motivo de mi visita es que necesito ayuda en una pequeña duda que tengo en un sistema que estoy realizando. A continuacion le cuento:

tengo 2 campos importante en una tabla libre que son BANCO y MONTO necesito clasificar los montos por cada banco al final de cada reporte por separada.....

Les agradesco de antemanos al que me pueda ayudar

OJO visual foxpro 6.0
  Respuesta:  erick teran
Mira haber si entendi amigo

tu necesitas que al final del reporte se pongan los montos sumados por banco?
porque no utilizas el wizard de los reportes para crear un reporte agrupado?

ahi le especificas que te agrupe por monto y en segundo termino por banco
asi te dara un reporte con los totales por monto y sumandolos por los bancos que sean iguales.

Espero te haya servido mi comentario
gracias

    Pregunta:  62626 - CLASIFICACION DE LO MONTOS AL FINAL DE UN INFORME
Autor:  henry PARAZUELA
Hola...
Necesito ayuda con un sistema que estoy desarrollando en visual foxpro 6.0 para la empresa que trabajo, la cual esta destina en la venta de certificados medicos para conducir y se necesita llevar en control de cuanto dinero entra por cada BANCO de cada talonario vendido, dichos talonarios contiene 50 unidades y se necesita imprimir un reporte al terminar de venderlo que me especifique los montos.

las variables que estoy utilizando son las siguientes:
nº_talonario, Fecha, nº_certificado, nº_deposito, monto y banco

Le agradezco a las persona que me puedan ayudar....
  Respuesta:  Jose Maria Vilar
si tenes dos una tabla "talonarios", yo haria lo siguiente

create cursor my_talonario(nrotalo n(4),monto n(10,2),banco n(4) ) " cada campo con el tipo que corresponda ,( esto es solo muestra)

sele "tu archivo "
scan
sele my_talonario
locate for nrotalo == tu_archivo.nº_talonario and;
banco == tu_archivo.banco
if !found()
appe blank
replace nrotalo with tu_archivo.nº_talonario
replace monto with tu_archivo.monto
replace banco with tu_archivo.banco
else
replace monto with monto + tu_archivo.monto
endif

endscan

Al finalizar tendras armado el cursor que utilizaras para imprimir

Cualquier cosa me escribis

    Pregunta:  62660 - DUDA CON FORMULARIOS Y METODO RELEASE
Autor:  Diego Bianchi
Hola. Estoy realizando un programita en Visual Foxpro 9. Paso a explicar. Tengo un formulario (form1) al que le coloqué un boton que me lleva a otro formulario (form2). El form1 no lo cierro. O sea en el boton esta el siguiente código:

DO FORM form2.

Luego desde el form2, tengo un boton que debería cerrar el form2, cerrar el form1 y a su vez llamar otro formulario (form3). O sea en éste último boton esta el siguiente código:

thisform.release (cierra el form2)
do form form3 (abre el tercer formulario)
form1.release (ACà ESTA EL PROBLEMA, ESTA ÚLTIMA SENTENCIA NO SE EJECUTA. ME DICE QUE EL OBJETO 'form1' NO EXISTE)

Como puedo hacer para que me cierre el form1 desde el form2???

Todos los formularios son Modeless.

Desde ya muchas gracias.
  Respuesta:  Chucho Albornoz
Me parece que para lo que quieres hacer, lo adecuado es usar un conjunto de formularios. De esta manera la apertura o cierre de los forms es más fácil:

ThisFormSet.Form1.Release <-- para cerrar
o
ThisFormSet.Form1.Hide <-- para ocultarlo
o
ThisFormSet.Form1.Show <-- para mostrarlo

Saludos

    Pregunta:  62703 - COMO INDICAR LA RUTA DONDE DEBE BUSCAR LOS ARCHIVOS DEL PROY
Autor:  Bety Mar
Hola. Siempre he trabajado en Foxpro y ahora estoy intentando pasarme a Visual Fox pero me cuesta acostumbrarme a la POO. Quisiera saber como indico en el prog. principal la ruta donde debe buscar los archivos del proyecto (formularios, bases de datos, etc). He intentado colocar HOME()+"nombre de carpeta tipo", pero aparentemente no funciona porque me dice que los archivos no existen y están dentro de cada carpeta.
También me interesa algun material para estudiar el lenguaje.

Desde ya gracias
  Respuesta:  manuel betancur
el el main program pones los parametros que pones en desktop
Procedure efrinvent
Parameters DS,DT
en propiedades en el dsktop pones en propiedades

C:e-floralrecorse-floral.exe s:e-floraldata S:e-floraldataqb C: emp-efloral
puedes usar un programa para abrir los files del programa

para abrir un file
Use &dS.CUSTOMER IN 0 Alias CUSTOMER Shared
espero te sirva
manuel betancur

    Pregunta:  62774 - MENU MPR EN _SCREEN VFP 8
Autor:  Mariano Rodriguez
Hola amigos, estoy cambiando mi programa de fox 2.6 a Visual fox, soy novato en visual y no me deja poner un menu en el _screen en mi programa principal le pongo:

_screen.visible = .t.
_screen.Width = nwscr - 10
_screen.Height = nhscr - 100
SET CLOCK STATUS
= CAPSLOCK(.T.)
_screen.icon = "HUWAREHUMWARE.ICO"
_screen.windowstate=0
_screen.caption= info_sys
_screen.BackColor = RGB(180,200,200)
_SCREEN.Picture = "huwarefondo.bmp"
SET MESSAGE TO info_sys
WAIT WINDOW "buscando datos" TIMEOUT 1
_Screen.AddObject('ilogo','image')
_Screen.ilogo.picture = 'HUWAREIMAGLOGO_SYS.JPG'
_Screen.ilogo.STRETCH = 0
_Screen.ilogo.LEFT = 1
_Screen.ilogo.TOP = 1
_Screen.ilogo.height = 300
_Screen.ilogo.width = 300
_screen.ilogo.backstyle = 0
_screen.ilogo.visible = .t.
_SCREEN.ShowTips = .T.

SET SYSMENU TO
DO MENU_MAIN.MPR
Read Events

y me dice que el form debe ser de nivel superior.

le agregue:

_SCREEN.ShowWindow = 2

pero me manda una pantalla que es solo lectura la propiedad. showwindow

en un principio habia ocultado la pantalla de fox pero me complica otros procesos,

ya le busque y busque y no le busco.

de antemano muchas gracias.
:-)
  Respuesta:  Junior :)
todo esta bien... pero la forma como llamas al menu esta mal es decir tendrias que poner...

menu1.mpr = es el nombre del menu

do menu1.mpr
do while .t.
read events
enddo

y eso es todo el problema y los formularios no deben estar en nivel superior

    Pregunta:  62913 - NUMERO CORRELATIVOS EN TABLAS
Autor:  Patrick Ramirez
Buenas tardes a todos, me estoy iniciando en visual fox, he creado unas tablas que tienen el campo llamado "codproveedor", como puedo hacer para generar un numero correlativo cada vez que quiera ingresar un nuevo registro en la tabla.
  Respuesta:  Marga del Pino
Si tienes un boton Nuevo, y un campo ReadOnly cod donde reflejas el nuevo valor calculado del articulo, pon en el evento valid del boton Nuevo
algo como esto. Hay botones alta,baja,cambios y nuevo en el formulario que responden a la funcion que realizan , la tabla que se va a llenar se ordena por nombre para visualizarla en un campo grid o rejilla del formulario, pero en la funcion creacodnum hay que ordenar temporalmente por el campo cod, para poder encontrar numeros vacios y darlos

WITH THISFORM
STORE " " TO .nomb.VALUE
.cod.VALUE=creacodnum() && se ordena por tag cod
.cod.REFRESH
set order to tag nomb
STORE .F. TO .baja.ENABLED,.cambios.ENABLED
.alta.ENABLED=.T.
ENDWITH

Debajo tienes la funcion que debes poner en el fichero de procedimientos de la aplicacion, para poder utilizarla en otro formulario

FUNCTION creacodnum
PARAMETERS caralf
* Debe utilizarse para ficheros con pocos artículos, con campo COD numérico,
* o alfabético pero que solo contenga números y en ese caso incluir el
* parametro caralf indicando cuantos caracteres tiene la cadena (1 a 3)
SET ORDER TO TAG cod
GOTO TOP
m.num=RECCOUNT()
esta=.T.
m.cad=" "
*Si no hay artículos en m.esta debe ser .T
FOR i=1 TO m.num
esta=.F.
SCAN WHILE NOT esta
IF PARAMETERS()=1 && cod es de tipo CHARACTER
IF i=VAL(cod)
esta=.T.
EXIT
ENDIF
ELSE && cod es de tipo NUMERIC
IF i=cod
esta=.T.
EXIT
ENDIF
ENDIF
ENDSCAN
IF NOT esta
EXIT
ENDIF
ENDFOR
m.num=IIF(NOT esta,i,m.num+1)
IF PARAMETERS()=0
RETURN m.num
ELSE
DO CASE
CASE caralf=1 OR (caralf=2 AND m.num>9) OR (caralf=3 AND m.num>99)
m.cad=STR(m.num,caralf)
CASE (caralf=2 AND m.num<10) OR (caralf=3 AND m.num>9 AND m.num<100)
m.cad="0"+STR(m.num,caralf-1)
CASE (caralf=3 AND m.num<10)
m.cad="00"+STR(m.num,1)
ENDCASE
RETURN m.cad
ENDIF

    Pregunta:  62915 - IMPRESION POR GRUPOS
Autor:  Fernando Cortez
En VisualFox 9.0 Necesito que al generar un reporte por grupos, el grupo que abarque el final de la página y el inicio de la siguiente, no se imprima así, sino que empiece en la siguiente página por ejemplo:

El reporte originalmente se despliega

Página 1
D001 JUAN DOMINGUEZ
F-87 $ 500.00
Total $ 500.00
C001 FERNANDO CORTEZ
F-345 $1,200.00
F-267 $ 800.00

Página 2
C001 FERNANDO CORTEZ
F-45 $1,000.00
Total $3,000.00

Y como deseo que salga:
Página 1
D001 JUAN DOMINGUEZ
F-87 $ 500.00
Total $ 500.00

Página 2
C001 FERNANDO CORTEZ
F-45 $1,000.00
F-345 $1,200.00
F-267 $ 800.00
Total $3,000.00

ESPERO QUE ASI ESTE CLARO... GRACIAS!!!
  Respuesta:  Oscar Cerdeira
Hola Fernando
Lo que tenes que hacer es indexar tu archivo por el grupo que queres por cada pagina
Y despues en el reporte accedes al menu reporte-agrupar datos y agregas el campo por el que indexas
Y pones un tilde en comenzar grupo en una nueva pagina

eso es todo
Oscar desde Argentina

    Pregunta:  62926 - COMO OCULTAR LA PANTALLA COMMAND AL EJECUTAR UN MENU
Autor:  dubody bolaños
Al ejecutar un menu en visual foxpro 6.0 me aparece la pantalla command la cual quiero que salga
  Respuesta:  Guadalupe Leija
Te dejo mi codigo inicial de un sistema:

salir=.f.

do while salir=.f.
do servmenu.mpr
if wexist('pantalla')
show wind pantalla
else
do form pantalla.scx
endif
read events
sal=messagebox("¿REALMENTE DESEA SALIR DEL SISTEMA?",4+32+256,"SALIR")
if sal=6
salir=.t.
rele wind pantalla
exit
else
salir=.f.
loop
endif
enddo

|<  <<  84 85 86 87 88 89 90 91 92 93 94  >>  >|