|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Egala
1
« en: Jueves 8 de Mayo de 2003, 10:14 »
A ver si esto te puede ayudar: prueba a poner CrystalReport1.action = 1
2
« en: Jueves 8 de Mayo de 2003, 09:58 »
Lo mejor que puedes hacer es una function: variable=Nombre_de_Fun para ello basta cambiar el SUB por FUNCTION y decirle que devuelva el tipo de la variable. Ejemplo sustituye Sub Hola(variable as string) ... end sub por Function Hola() as string ... end function
3
« en: Jueves 24 de Abril de 2003, 20:50 »
Gracias angelescj. Voy a echarles un vistazo a ver que encuentro. Ya te contare.
4
« en: Jueves 24 de Abril de 2003, 12:38 »
Hola angelescj: otra vez aqui, gracias por tu explicacion, pero me sigue dando error. De hecho he llegado a conseguir que muestre el informe con PrintReport, pero almacenando los datos, es decir, en el crystal le digo que guarde datos con informe. Pero luego cuando cambian los datos no me los actualiza, me vuelve a sacar los mismos. Estuve mirando las opciones del informe, cambiando propiedades y llegue a un punto en el que ya no me funciona nada, ni me lo muestra ni nada. La verdad ya no se que hacer, pues tengo muchas aplicaciones desarrolladas que "tiran" del Crystal. A ver si me puedes ayudar. Sabras de algun manual? Sabes como se actualizan los datos en tiempo de ejecucion? Socorro. Edu
5
« en: Jueves 24 de Abril de 2003, 00:41 »
Hola angelescj: yo lo que hago es desde VB6 inserto los datos en una tabla que llamo temporal y luego ejecuto el informe. El informe lo hago de manera standar, es decir, lo vinculo directamente a esa tabla temporal, la cual tiene los datos almacenados que se mostraran. Por otro lado, si pongo en la ejecucion Report1.PrintReport me lo hace como si fuera en segundo plano pero me lo cierra directamente y ni sale por pantalla ni sales por impresora, pero no me da ningun error, simplemente "pasa" de mi. Si lo hago con el Action=1 me da el error 20535, error que no encuentro documentado. A ver si me puedes ayudar y gracias por interesarte.
6
« en: Miércoles 23 de Abril de 2003, 10:18 »
Hola de nuevo: A ver si puedo aclarar mas mi problema: Estoy usando el control del Crystal Reports 8 con visual 6 y resulta que a la hora de llegar a la ejecucion del informe, es decir, Rptlistado.action=1 me da error 20535 y no se por donde ando. Agradeceria me echarais una mano por favor, me urge bastante. No se si el problema esta en visual basic o en el propio Crystal Reports. Lo que si es cierto es que intenta cargar el informe, pues da un pantallazo tipico de carga de informe (cuando se manda por ventana), y luego da el error en tiempo de ejecucion. Gracias de nuevo.
7
« en: Martes 22 de Abril de 2003, 14:43 »
Completamente de acuerdo con tod@s vosotros. Para los que participamos poco, por falta de tiempo y a la vez cuando lo hacemos lo hacemos con gana, bien sea ayudando o pidiendo ayuda, es muy importante lo que planteais. Me considero uno de los que a veces no he cerrado, como bien decis, la cuestion planteada. Y por ello lo siento, intentare ser mas riguroso.
Egala
8
« en: Martes 22 de Abril de 2003, 14:30 »
hola a tod@s: acabo de migrar a Crystal Reports 8, y necesitaba saber cual es el comando de ejecucion de un informe desde VB6. Yo utilizaba la version 4.6 del crystal y hacia: Rptlistado.action=1 para ejecutar el informe. Como puedo hacer ahora?, pues esta instruccion no me la permite para la version 8. Gracias de antemano.
Egala
9
« en: Martes 22 de Abril de 2003, 13:57 »
Yo creo que Access a la hora de almacenar/consultar usa el formato mm/dd/aaaa, pero en las tablas deberia verse correctamente, es decir dd/mm/aaaa. No se que mas decirte
10
« en: Martes 22 de Abril de 2003, 12:21 »
Prueba a poner un format a la fecha que usas en el insert o en update de la siguiente manera
Update ..... fecha=#' format(fechatuya,"mm/dd/aaaa") & "#" ....
11
« en: Viernes 11 de Abril de 2003, 20:37 »
J.M.Movilla, te agradezco el esfuerzo y cuando uno esta obcecado no discurre bien. Me sirve eso que me dices de que no se pueden pasar matrices indefinidas, me has ahorrado mucho esfuerzo. Gracias. Recodificare algunos procedimientos y a ver que pasa.
12
« en: Viernes 11 de Abril de 2003, 14:41 »
A ver si esto te sirve: Deberas tener la Base de datos en la misma carpeta que los informes (en el servidor), luego abre con el crystal esos informes y en la opcion "Establecer Ubicacion de la base de datos" (creo que se llama asi) selecciona cada una de las tablas que usas y para cada una de ellas pincha en el boton llamado "Igual que el Informe". Guarda los cambios y prueba.
13
« en: Viernes 11 de Abril de 2003, 14:29 »
Ciertamente, puedes probar a convertir el numero a tipo string: dim numCaracteres as string dim Numero as double (por ejemplo)
numCaracteres=len(cstr(Numero))
14
« en: Viernes 11 de Abril de 2003, 11:51 »
Amigo J.M.Movilla, te agradezco la respuesta (algo se aprende), pero creo que no me explique bien en lo que yo quiero hacer. Vease un ejemplo:
Sub CargaLista(Valor as integer,Lista as ListBox) Lista.additem Valor End sub
La llamada desde el formulario seria: call CargaLista(Valor, LstNuestraLista)
Bien, pues es lo mismo pero en vez de pasar una unica Lista, quiero pasar un conjunto de listas (matriz de controles), osea algo como:
Sub CargaLista(Valor as integer,Lista as ListBox,Posicion as integer) Lista(posicion).additem Valor End sub
La llamada desde el formulario seria: call CargaLista(Valor, LstNuestraLista,i) donde i es el indice de la lista en la cual quiero insertar el valor pasado. Pero me da error
Bueno, espero que con esta explicacion puedas ayudarme
Gracias de antemano
15
« en: Viernes 11 de Abril de 2003, 01:48 »
Os detallo un poco mas mi problema: En unos procedimientos o funciones tengo un textbox el cual recorro de la siguiente manera: for i=0 to 5 textbox(i).text=i next i
pero es un procedimiento que tengo en un Form y lo que quiero es ponerlo en un modulo aparte de tal forma que le pase por parametro el textbox, es decir: sub Prueba(Caja as textbox) for i=0 to 5 caja(i).text=i next i end sub
pero no me funciona, da error en la declaracion. Y lo que no quiero es pasar el Form como parametro, pues pasandole el form se que funciona, yo estoy interesado en saber pasar el control en concreto, siendo este una matriz de controles, como puedes ver.
Gracias
16
« en: Jueves 10 de Abril de 2003, 11:18 »
Hola a todos: A ver si alguien me puede ayudar, necsito pasar por parametro una matriz de controles a un procedimiento o funcion. Alguien sabe como?
Gracias
Egala
17
« en: Martes 25 de Febrero de 2003, 14:12 »
En el metodo opendatabase hay una opcion para pasarle la contraseña, porque entiendo que sabes cual es verdad? Set BD = OpenDatabase("nombre.mdb", False, False, ";pwd=" & Pass), donde Pass es la contraseña de la base de datos
Suerte
Egala
18
« en: Jueves 13 de Febrero de 2003, 17:05 »
Eso creo que es porque la ruta del acceso directo no es la misma que tienes tu en tu aplicacion. Te recomiendo que añadas una conexion de red permanente al equipo donde esta la aplicacion y sobre ella hagas el acceso directo. Entonces logras ejecutar asi el programa desde otra maquina pero sobre la que tiene el programa.
Suerte
Egala
19
« en: Jueves 13 de Febrero de 2003, 13:58 »
Hola, lo que se me ocurre es lo siguiente: hazte una funcion que te rellene blancos a la izquierda de ese numero y luego muestrala, pasale por parametro el numero, el maximo numero de posiciones (los 10 digitos que comentas) y que te devuelva la cadena con 10 posiciones.
function Rellena(Numero) as variant dim Cadena as variant Cadena=Numero For i=1 to 10-(len(Numero)) Cadena=" " & Cadena next i
Rellena=Cadena end function
Suerte
Egala
20
« en: Jueves 13 de Febrero de 2003, 09:12 »
Lo unico que se me ocurre es que si estan hechos ambos con el crystal reports, en el propio crystal configures las impresoras de modo fijo, es decir, indicandole a cada uno la impresora deseada. Tambien puedes, a la hora de imprimir, que te saque un cuadro de dialogo y te pregunte por la impresora que quieres imprimir.
Suerte
Egala
21
« en: Jueves 13 de Febrero de 2003, 09:06 »
Entiendo que quieres ejecutar una aplicacion vb desde un Pc local con una bd en un server, pues si es eso no tienes mas que colocar el ejecutable en el server y crearte un acceso a ese ejecutable desde el local. De todas maneras en tu codigo habras de poner algo similar a esto: (deberas poner el ejecutable y la bd en el mismo directorio) set bd=opendatabase(app.path & "nombrebd.mdb",parametros)
Esto tambien te sirve para ejecutar tu proyecto desde tu pc a la hora de programar, (con una bd local).
Suerte
Egala
22
« en: Miércoles 12 de Febrero de 2003, 14:17 »
No soy Jose Arriaga pero si te sirve mi contestacion estupendo. Depende como lo hagas: Una forma: 1º.- De Bd as txt 'Abrir la Bd Set BD=opendatabase(nombre.mdb,parametros)
'seleccionar los registros que queramos mediante Sql set Ss=Bd.openrecordset(Sql,parametros)
txt.text=Ss(campo)
2º.- De Txt a Bd 'editar el registro guardado y actualizar set Ds=bd.openrecordset(sql,parametros)
Ds.edit Ds(campo)=txt.text Ds.update
'si el registro no existe cambia el Ds.edit por Ds.addnew
Esta es una forma, pero hay muchas, puedes probar a usar los Datas y vincular los campos directamente con la tabla que quieras de access. Ya sabes que el uso indiscriminado de Datas hace que el proyecto sea mas lento
Suerte
Egala
23
« en: Miércoles 12 de Febrero de 2003, 13:54 »
Imagino que sea al introducir la cadena en un textbox. Prueba esto en el evento change del textbox: (textbox es TxtCadena) TxtCadena.SelStart = Len(TxtCadena.Text) + 1
Suerte
Egala
24
« en: Miércoles 12 de Febrero de 2003, 10:09 »
Has probado a poner esto:? Procedimiento: sub Proc1(tus parametros, CajaTexto as control)
Llamada: call Proc1(parametros tuyos, txtAudD)
Suerte
Egala
25
« en: Miércoles 12 de Febrero de 2003, 10:03 »
A ver si te sirve esto, ponlo en el evento change de tu textbox:
If Len(TxtHora.Text) = 2 Or Len(TxtHora.Text) = 5 Then 'ponemos los 2 puntos TxtHora.Text = TxtHora.Text & ":" TxtHora.SelStart = Len(TxtHora.Text) End If
El control numerico de rangos de horas te lo dejo a ti, usa el format para ello
Suerte
Egala
|
|
|