PREGUNTAS CONTESTADAS - FoxPro/Visual FoxPro

 Hay un total de 1456 Preguntas.<<  >> 

    Pregunta:  62377 - ACTUALIZAR TABLAS DE SQL DESDE VFP6
Autor:  Rafael Aldana Flores
Estoy haciendo una aplicacion en VFP6 que consulta algunas tablas de sql, ademas de las dbfs particulares de mi aplicacion
Ya tengo la manera de consultar datos, pero en una tabla de sql es necesario actualizar dos campos uno es character y el otro es numerico
anexo ejemplo del comando de actualizacion, el error ocurre al tratar de ejecutar el comando de sql, porque uno de los datos es numerico, de echo necesito saber la sintaxis correcta, porque se, que debe ser una cadena string
(el tipo de dato en thisform.text2.value es numerico)

wb=thisform.text1.value
wc=thisform.text2.value

if !esta
ww=" insert into proveds(clave,proveedor) values('"+wb+"','"+wc+"')"
** wait wind ww
qn=sqlexec(ncone,ww)
if qn=1
thisform.label1.Caption = 'Inserto un renglon..'
thisform.limpia()
thisform.text1.setfocus
else
thisform.label1.Caption = 'Error en el alta..'+str(qn,5)
endif
else
wcomo="update proveds set proveedor='"+wc+"'"+" where clave='"+wb+"'"
**--- en este punto marca error por no ser una cadena string
***---por la variable wb
qn=sqlexec(ncone,wcomo)
if qn=1
thisform.label1.Caption = 'Actualizo ..'
thisform.limpia()
thisform.text1.setfocus
else
thisform.label1.Caption = 'Error en Actualizacion..'+str(qn,5)
endif
endif
  Respuesta:  Leonardo Zulli
Hola, probaste con hacer

wcomo="update proveds set proveedor='"+ ALLTRIM(STR(wc)) +"'"+" where clave='"+ wb+"'"

STR te permite convertir cualquier valor numerico a String, esto te posibilitaría la concatenación y el ALLTRIM para sacar los espacios, ya que a veces en fox ocurre que quedan espacios al final por lo general.

Espero que te sirva este aporte.

    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:  62485 - COMO CONECTAR VFP9 A MYSQL
Autor:  Felix L Gonzalez G
Hola a todo el foro: de antemano gracias por la ayuda que me puedan proporcionar,
mi problema es que quiero migrar una bd de vfp9 a mysql ya
tengo el motor de mysql y el servidor apache pero de ahi en adelante
no tengo idea, podrian decirme como conectar primeramente vfp9 a mysql,
y de ahi pues si puede ayudarme a manejar la bd de msql desde vfp,
soy totalmente novato en esto, si programo en vfp pero de estas coneccines no tengo idea.
y otra vez de antemano muchas gracias.
  Respuesta:  Emilio Diaz
Para conectar vfp9 con mysql solo tenes que publicar una variable
Por ejemplo
Public bd
luego
bd=SqlConnect("sgc") && sgc se llama mi base dato en este ejemplo

y para cada tabla se les llama así

SQLEXEC(bd, 'SELECT * FROM nombretabla', 'nombrecursor') && Nombrecursor, donde se carga en memoria funciona como una tabla intermedia.

    Pregunta:  62512 - COMO MULTIPLICO UNA VARIABLE EN TEXT1 CON CAMPOS DE UNA TABL
Autor:  Pedro Gomez
Saludos!
Espero me puedan ayudar:
estoy programado un sistema de nomina, en el que debo calcular varios renglones de acuerdo a los Dias Trabajados en la semana por cada empleado, por ejemplo:
Dias Trabajados = 5,
Salario Semanal = Salario Diario * Dias Trabajados

Lo que hice fue crear un formulario, con un cuadro de texto (name=diast) en el que debo "entrar" la cantidad de Dias Trabajados, luego tengo un GRID, donde se muestra datos de 3 tablas ya relacionadas. Cada registro en el grid contiene::

Codigo: A01
Concepto: Salario Semanal
Monto: (aqui deberia ser el campo de la tabla Salario Diario * diast)

Le agradezco la ayuda, y hasta ahora no he podido dar con al solucion!!
  Respuesta:  erick teran
Has intentado que en el evento lostfocus del text que tienes pongas un codigo asi?

select tabla 1
replace all monto with salario Diario * thisform.text.value
select tabla 2
replaceall monto with salario Diario *thisform.,text.value
select tabla3
replaceall monto with salario Diario + thisforrm.text.value
thisform.refresh
thisform.grid1.gotfocus

    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:  62658 - ERROR PROGRAMA DEMASIADO GRANDE
Autor:  Carlos Hernán Muñoz Chavez
Tengo una aplicación .APP, que me dice que el programa es demasiado grande, según fox el error es porque no puede cargar programas mayores de 65.000 bytes, pero el .pjx tiene apenas 3 kbytes.

Quisiera saber cuales son las posibles soluciones
  Respuesta:  hancito2003
Hola

Leete sobre la libreria en tu manual, quizas tengas que configurar el CONFIG.SYS directamente. Los problemas que me han sucedido similares los he resuelto ampliando el tamaño de los FILES y del BUFFERS en el config.sys.

Tambien considera la capacidad de memoria de tu pc, quizas tenga poca.

    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:  62670 - SELECCIONAR TEXTO EN TEXTBOX AL TENER EL FOCO
Autor:  Fernando Cortez
Hola a todos!! Como puedo hacer para seleccionar el texto en un TEXTBOX al hacer clic sobre él.
  Respuesta:  Juan Diego García E.
En el método format debe colocar una "K" sin las comillas.

    Pregunta:  62693 - DESHABILITAR F1 PARA LA AYUDA EN VFP9
Autor:  mina l
Hola, estoy trabajando con VFP9. Tengo un formulario en donde le indico que en caso de que oprima la tecla F1, me aparezca otro formulario, pero en vez de eso me muestra el cuadro de ayuda, cómo puedo hacer para que no muestre la ayuda con esa tecla sino que me muestre mi form.
El código que tengo es:

if nKeyCode = 28
do form mi_formulario
endif

Muchas Gracias de antemano!!
  Respuesta:  Chucho Albornoz
Hola: probá con poner SET HELP OFF , por ejemplo en el LOAD del form desde el que llamas al otro con F1.

|<  <<  131 132 133 134 135 136 137 138 139 140 141  >>  >|