Arrastras Dato De Un Formulario a Otro.!
Buenas tengo la sig. Problemática tengo dos formularios 1 se llama producto y el otro proveedor, necesito arrastra el cod del proveedor a una caja de texto en producto, lo tengo de la sig manera pero no me hace nada.!!
en el formulario producto declare la variable Re
el botón que uso para llamar al otro formulario es decir proveedor lo tengo escrito así:
do form proveedor to Re
en el formulario 2 que es proveedor, en el formulario con el evento unload
RETURN THISFORM.Texto2.value (Texto2.value es donde quiero que salga el dato)
busco el proveedor y selecciono, al hacerlo oprimo el botón que tiene lo sig.
Re= resultado.id_provee
THISFORM.RELEASE()
el error que me sale al hacer todo es al tratar de hacerlo me dice texto2 es un miembro desconocido.!!
gracias espero me puedan ayudar.!!
1 Respuesta
Nada Amigo Aun Me Persiste El Error.. ! =(
por casualidad no tienes un ejemplo yo solo deseo ir a el formulario2 hacer una búsqueda selecciono el y que me lo arrastre al formulario1 pues..!! me imagino que es igual al ejemplo de hacer una factura buscas el cliente y arrastra.! :ES alo así.!! si tienen un ejemplo.! gracias d antemano y por tu amable respuesta.!
Ok vamos hacer lo siguiente:
Antes llamar el formulario proveedor Vamos a declarar una variable como publica, Asi:
Public xVar
xVar=''
**Llamamos el form**
Do form proveedor
*=================*
If !empty(xVar)&&comprobamos que la variable xVar no este vacia
*Aqui colocas el codigo a ejecutar
Endif
En el evento QueryUnload del formulario proveedor colocas este codigo:
xVar=THISFORM.Texto2.value
disculpa no me quedo muy claro lo siguiente después que declaro xVar en el mismo formulario escribo xVar='..? como así.
entiendo lo otro es para llamar al formulario desde el botón que tengo.!:S
Si, Le asignas un valor vacío a xVar así:
xVar=""
Osea esta vacia
ok amigo listo, en el form 2 coloco en que evento también en el load, esto
If !empty(xVar)&&comprobamos que la variable xVar no este vacía
*Aquí colocas el código a ejecutar (que código como así)
endif
disculpa tanta preguntadera pero no se mucho y por parte de el profesor no revivimos mucha ayuda =(
No te preocupes que esta comunidad fue creado para ayudar.
Ok con lo que me preguntas
If !empty(xVar)&&comprobamos que la variable xVar no este vacía
*Aquí colocas el código a ejecutar (que código como así)
Endif
Lo colocas después de llamar al formulario PROVEEDOR
No se desde donde lo llamas, pero si lo llamas desde un botón lo tienes que colocar justamente allí después de llamar el formulario
yo tengo un buscador, con dos opciones buscar por código o por nombre, donde lo muestro es un List, solo se para encima de el y yo doy clic al botn y retorna con el valor o como.?
el siguiente código es el que tengo para que busque:
if ThisForm.Optiongroup1.Option1.value=1
select id_provee,cod_prove,rif,nombre,nota from C:\sisven\BD\Proveedor;
where alltrim(this.value) $ cod_prove;
order by cod_prove;
into cursor resultado
ThisForm.List1.rowsource="resultado.id_provee,Cod_prove,Rif,Nombre,Nota"
thisform.refresh
else
if ThisForm.Optiongroup1.Option2.value=1
select id_provee,Cod_prove,Rif,Nombre,Nota from C:\sisven\BD\Proveedor;
where alltrim(this.value) $ nombre;
order by nombre;
into cursor resultado
ThisForm.List1.rowsource="resultado.id_provee,Cod_prove,Rif,Nombre,Nota"
thisform.refresh
endif
endif
Cuando EJecutabas do form proveedor to Re
¿Cuál era el valor que esperabas recibir?
esperaba recibir el cod_prove, el cual es el código del proveedor.! :S
Ok es lo mismo con la variable, pero aclarame algo, ¿El código del proveedor es tipo carácter o numerico?
es numérico amigo.!
disculpa pero donde dices
*aquí colocas el código a ejecutar
cual debo colocar entiendo que es en el botón pero ahí no se no entiendo esa parte.!
Ok amigo allí ya tenemos que cambiar la variable a tipo numérico
Recuerdas la variable xVar=''.... ahora la tienes que colocar así: xVar=0
Y donde se comprobaba que la variable no estuviese vacía ahora tienes que comprobar que la variable sea mayor a 0 modifica el código que quede así:
Public xVar
xVar=0
**Llamamos el form**
Do form proveedor
*=================*
If xVar>0&&comprobamos que la variable xVar sea mayor a cero(0)
*Aquí colocas el código a ejecutar
Endif
En el evento QueryUnload del formulario proveedor colocas este código:
xVar=THISFORM.Texto2.value
Nota: el texto2 tiene que set tipo carácter
*===============================*
Ahora bien Allí donde te puse **Aquí colocas el código a ejecutar
Allí va el código que ivas a ejecutar al recibir el código del cliente
Disculpa la nota que te escribí me equivoque el texto2 tiene que ser de tipo numérico
Disculpa
Ok Amigo si eso me di cuenta de ese, disculpa pero no se cual código me indicas que iva a ejecutar.! de resto todo lo tengo como me has dicho.!!
¿Cuándo recibieras código del proveedor que pensabas hacer con él?
Imagino es lo siguiente:
selecciono el registro en la lista
al presionar el botón, m arrastra el registro previamente seleccionado.!! disculpa si tienes correo para enviarte y lo veas mejor o enviarte imágenes para que veas mejor porque por falta de dominio no se explicar mucho.! :S
Ok, este es mi dirección de correo: [email protected]
Listo t lo acabo de enviar.!
No me ah caído tu correo!
Te lo estoy mandando de mi otro correo de yahoo.! a ver si t llega.!
que paso amigo no te llego nada xfin.?
No me llego nada!
