|
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 - jodijo5
Páginas: 1 ... 13 14 [15] 16 17 ... 23
351
« en: Miércoles 21 de Septiembre de 2005, 17:10 »
hola amigos, pues veran tengo este problema, estube probando con vb 6.0 para utilizar sendkeys, y presionar las teclas "ctrl+alt+impr pant" pero no me daba resultado pues estoy haciendo un sistema en ese lenguaje como ya casi está acabado pues no puedo migrar a .net, la nota es que este metodo si dio resultado en el .net, y ahora quiero formar un dll en vb.net y asi solucionar mi problema, pero no existe una opcion para formar dlls, como lo hago oooo tienen alguna otra idea de como puedo solucionar mi problema. gracias amigos por su ayuda de antemano.
352
« en: Viernes 16 de Septiembre de 2005, 00:08 »
amigos, lo acabo de solucionar, ahora si funciona, para los que lo desean, aqui esta la clase:
353
« en: Viernes 16 de Septiembre de 2005, 00:07 »
amigos, lo acabo de solucionar, ahora si funciona, para los que lo desean, aqui esta la clase:
354
« en: Jueves 15 de Septiembre de 2005, 17:43 »
hola mi amigo, bienvenido al foro, soy daniel, mi amigo, si abres el excel y haces una macro con el menu macro.grabar macros, en el menu herramientas, automaticamente se genera un codigo que lo puedes abrir con el editor de visual basic, haciendo click en el menú heramientas.macro.macros ahi seleccionas un macro grabado y pulsas en el boton aceptar; luego aparecerá el editor de visual basic, particularmente yo aprendi excel para aplicaciones asi.
espero te sirva este consejo
355
« en: Jueves 15 de Septiembre de 2005, 17:28 »
hola amigos, hice una clase para poder tabajar con excel desde mi aplicacion, pero me da problemas, esta clase lo uso para generar reportes en excel, ya que no me gusta trabajar con datareports ni crystal reports, la nota es que tengo una funcion "agregar", que sirve para llenar una celda determinada; aparte de la clase tengo una serie de fnciones que ahora se las paso: Option Explicit Const n As Integer = 8 Private i As Integer Private infoboleta As xrpt Private Sub Prtrpt() 'On Error Resume Next Set dbf = db.Execute("select enccomprobante.IdEncComprobante," & _ "clientes.Nombres," & _ "clientes.Paterno," & _ "clientes.Materno," & _ "enccomprobante.Fecha," & _ "enccomprobante.Subtotal," & _ "enccomprobante.IGV," & _ "enccomprobante.Total," & _ "enccomprobante.IdEmpleado " & _ "from EncComprobante inner join clientes " & _ "on enccomprobante.idcliente=clientes.idcliente ") ' & _ '"where enccomprobante.fecha between #" & CDate(Text1(0)) & "# and #" & CDate(Text1(1)) & "#") With infoboleta Call .agregar("A" & (n + i) & ":G" & (n + i), "Listado de comprobantes") i = i + 1 Call .agregar("A" & n + i, "Codigo", True) Call .agregar("b" & n + 1, "Cliente", True) Call .agregar("c" & n + i, "Fecha", True) Call .agregar("d" & n + i, "Empleado", True) Call .agregar("e" & n + 1, "Subtotal", True) Call .agregar("f" & n + i, "Total", True) i = i + 1 Do Until (dbf.EOF) If (CDate(dbf(4)) < CDate(Text1(1)) And CDate(dbf(4)) > CDate(Text1(0))) Then Call .agregar("a" & n + i, dbf(0), True) 'codigo Call .agregar("b" & n + i, dbf(1) & " " & dbf(2) & " " & dbf(3), True) 'cliente Call .agregar("c" & n + i, dbf(4), True) 'fecha 'Call .agregar("d" & n + i, empleado(dbf(8)), True) 'empleado Call .agregar("e" & n + i, dbf(5), True) 'subtotal Call .agregar("f" & n + i, dbf(6), True) 'igv Call .agregar("g" & n + i, dbf(7), True) 'total i = i + 1 End If dbf.MoveNext Loop End With End Sub Private Sub prtcf(ByVal x As String) 'imprimir frecuencia cliente On Error GoTo bug Set dbf = db.Execute("SELECT (IdCliente) AS clientes, COUNT(IdCliente) AS veces " & _ "From EncComprobante " & _ "where fecha between #" & CDate(Text1(0)) & "# and #" & CDate(Text1(1)) & "#" & _ " GROUP BY IdCliente " & _ "ORDER BY min(IdCliente) " & x) i = i + 1 If (x = "desc") Then Call infoboleta.agregar("a" & n + i, "El cliente más frecuente es: " & cliente(dbf("clientes")) & " con " & dbf("veces") & " compras") Else Call infoboleta.agregar("a" & n + i, "El cliente menos frecuente es: " & cliente(dbf("clientes")) & " con " & dbf("veces") & " compras") End If bug: End Sub Private Sub prtvd() 'impriomir ventas diarias Set dbf = db.Execute("SELECT Fecha, SUM(Total) AS Expr1 " & _ "From EncComprobante " & _ "where fecha between #" & CDate(Text1(0)) & "# and #" & CDate(Text1(1)) & "# " & _ "GROUP BY Fecha " & _ "ORDER BY Fecha") i = i + 1 With infoboleta Call .agregar("a" & n + i & ":g" & n + i, "Ventas Diarias") i = i + 1 Call .agregar("a" & n + i, "fecha", True) Call .agregar("b" & n + i, "Total", True) i = i + 1 Do Until dbf.EOF Call .agregar("a" & n + i, dbf(0), True) Call .agregar("b" & n + i, dbf(1), True) i = i + 1 dbf.MoveNext Loop End With End Sub Private Sub prtpv(x As String) Set dbf = db.Execute("SELECT Idproducto, SUM(Cantidad) AS total " & _ "From Kardex " & _ "WHERE (Motivo LIKE 'venta') " & _ "GROUP BY Idproducto " & _ "ORDER BY SUM(Cantidad)") If (x = "desc") Then x = " más " Else x = " menos " End If i = i + 1 Call infoboleta.agregar("a" & n + i, "El producto" & x & "vendido es: " & dbf(0) & " con una cantidad de: " & dbf(1) & " unidades") End Sub Private Sub prtkx() Set dbf = db.Execute("select * from kardex") Dim a As Integer With infoboleta i = i + 1 .neg = True .agregar "a" & n + i & ":g" & n + i, "Kardex" .agregar "a" & n + i, "Producto", True .agregar "b" & n + i, "Cantidad", True .agregar "c" & n + i, "Motivo", True .agregar "d" & n + i, "Tipo de doc.", True .agregar "e" & n + i, "N° Documento", True .agregar "f" & n + i, "Fecha", True i = i + 1 .neg = False Do Until dbf.EOF .agregar "a" & n + i, dbf(1), True .agregar "b" & n + i, dbf(2), True .agregar "c" & n + i, dbf(3), True .agregar "d" & n + i, dbf(4), True .agregar "e" & n + i, dbf(5), True .agregar "f" & n + i, dbf(6), True dbf.MoveNext Loop End With End Sub Private Sub prtp(x As String) Set dbf = db.Execute("SELECT Productos.IdProveedor, COUNT(Productos.Idproducto) AS Expr1 " & _ "FROM Productos INNER JOIN " & _ "Proveedores ON Productos.IdProveedor = Proveedores.IdProveedor " & _ "GROUP BY Productos.IdProveedor " & _ "ORDER BY COUNT(Productos.Idproducto)" & n) If (x = "desc") Then x = " mejor " Else: x = " peor " End If i = i + 1 infoboleta.agregar "a" & n + i, "el" & x & "proveedor es:" 'aqui falta completar la oraci{on End Sub Private Sub Command1_Click() 'Listado de comprobantes.YA 'Cliente más frecuente.YA 'Cliente menos frecuente.YA 'Ventas diarias.YA 'Producto mas vendido.YA 'Producto menos vendido.YA 'Kardex.YA 'Mejor proveedor.YA 'Peor proveedor.YA i = 0 Set infoboleta = New xrpt infoboleta.nuevo_doc (App.Path + "\Reportes\general.xlt") infoboleta.mostrar_doc = True If (List1.Selected(0) = True) Then Call Prtrpt If (List1.Selected(1) = True) Then Call prtcf("desc") If (List1.Selected(2) = True) Then Call prtcf("asc") If (List1.Selected(3) = True) Then Call prtvd If (List1.Selected(4) = True) Then Call prtpv("desc") If (List1.Selected(5) = True) Then Call prtpv("asc") If (List1.Selected(6) = True) Then Call prtkx If (List1.Selected(7) = True) Then Call prtp("desc") If (List1.Selected(8) = True) Then Call prtp("asc") Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Function cliente(id As String) As String On Error Resume Next Dim cli As New ADODB.Recordset Set cli = db.Execute("select nombres,paterno,materno from clientes where idcliente='" & id & "'") cliente = cli(0) & " " & cli(1) & " " & cli(2) End Function Private Function empleado(id As String) As String On Error Resume Next Dim emp As New ADODB.Recordset Set emp = db.Execute("select nombres,paterno,materno from personal where idempleado='" & id & "'") empleado = emp End Function Private Sub Form_Load() Text1(0) = Date Text1(1) = Date i = 0 End Sub
que es para rellenar todos los requeimientos del reporte; cuando llamo solo a una funcion de estas no me da error, pero si llamo a mas de una dentro de la clase me da un error que dice "error con la variable global Range", pero mi sintaxis esta bien, ayudenme con esto lo mas antes posible por favor, es urgente gracias de antemano
356
« en: Lunes 12 de Septiembre de 2005, 02:24 »
mis amigos, primero, ya busque en el foro y nada, segundo, ese ejemplo que me mandaste no tiene nada que ver con lo dicho, se trata de meter una imagen y tambien leerla desde una base de datos de acces
357
« en: Sábado 10 de Septiembre de 2005, 18:41 »
tengo un campo en una tabla de acces donde quiero guardar imagenes; como le hago, o para leerlas tambien; gracias de antemano
358
« en: Jueves 8 de Septiembre de 2005, 23:43 »
necesariamente tienes que hacerlo en un datagrid, por que nolo haces en mshflexgrid set dbf=db.execute("select col_validado from mi_tabla") do until(dbf.eof) mshflexgrid1.row=mshflexgrid1.row+1 if(isnumeric(dbf(0))) mshflexgrid1.col=1 else mshflexgrid1.col=2 end if mshflexgrid1.text=dbf(0) dbf.movenext loop
359
« en: Lunes 5 de Septiembre de 2005, 16:43 »
copachays, a mi no me gusta vbskinner porque no hace buenas animaciones, solo son skins, yo prefiero el activeskin que ya tiene skins prediseñados pero que son locasos, puedes crear otros skins pero no se cmo se hace, de todas formas te lo recomiendo lo usas asi: skin1.loadskin([la ruta del archivo de skin]) applyskin(me.hwnd) el unico inconveniente es que no reconoce los labels, pero se reemplazan con un control que tambien trae esto. activeskin 4.3
360
« en: Lunes 5 de Septiembre de 2005, 16:17 »
por lo que fui investigando, eso tiene algunas limitaciones, solo puedes detectar que se ah perdido el foco pero con respecto a los formularios de tu aplicacionm para que nunca pierdas el foco de tu aplicacion tienes que ejecutar el formulario llamandolo desde otro asi: nuncamepierdas.Show vbModal, Me
o te doy otra solucion: usando el api "findwindow" y "setfocus" Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
; construyes una aplicacion aparte o si quieres ahi mismo que cada intervalo de tiempo determinado le ponga el foco a tu aplicacion: en el codigo del formulario public sub timer1_timer() dim x as long x=findwindow(vbnullstring,"el titulo del formulario de mi aplicacion") setfocus x end sub
en un modulo Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
no lo eh probado aun espero que funcione, si tu formulario es formulario hijo necesitas el nombre de la clase tambien se busca por medio de apis pero eso nose.
361
« en: Viernes 2 de Septiembre de 2005, 20:08 »
hola de nuevo, como puedo saber la ruta donde esta la carpeta de mi sitio web, en este caso "E:\carpetas\sitios\foros_salesianos"
362
« en: Viernes 2 de Septiembre de 2005, 20:03 »
se me olvida la clave de la db es area51
363
« en: Viernes 2 de Septiembre de 2005, 19:56 »
hola amigos, tengo este problema, este codigo es prefabricado por "dream weaver" me dio muchas y no corria, por suerte ya lo solucioné se trata de autenticar un usuario par que entre en un foro, pero ahora tengo otro problema la pagina llega a correr, pero ingreso mi usuairo y password y no me acepta, cuando la conecion es satisfactoria de index debe idex.asp a listado.asp y si no es satisfactoria regresa a index.asp, ingreso mi usuario y contraseña correctamente pero igual lo toma como si estuviera mal, como puedo solucionar eso? gracias de antemano por su ayuda
aqui les mando mi sitio:
364
« en: Jueves 1 de Septiembre de 2005, 23:49 »
hola amigos soy principiante en asp.net; queria implmentar unos foros por un lio en el que me metí, ahora queria enlazar mi base de datos en acces mediante ado la cual la puse en la carpeta donde estan mis archivos de el sitio web, hago bien la coneccion usando db.connectionstring="etc etc etc"(esta parte me da bien) y luego pongo db.open() pero ahi me sale el error me dice que no se puede establecer la coneccion o no tiene permiso para acceder a ella, amigos como soluciono esto? de ante,mano gracias
365
« en: Jueves 1 de Septiembre de 2005, 01:56 »
quien dice que van hacerlo todo ustedes solo decia nomas, como quien dice para darme alguna idea, gracias por su ayuda amigos
366
« en: Lunes 29 de Agosto de 2005, 18:50 »
hola amigos, tengo un problema, estoy haciendo un sistema para una empresa y tengo problemas al crear un reporte en excel, miren aqui les adjunto la db de acces, en la tabla enccomprobante tebgo varias fechas repetidas pues salen varios comprobantes por dia mi problema esque tengo que saber que dia se vendio mas y que dia se vendió menos y cuanto se vendio esos dias.
como le hago amigos estoy truncado en esto.
gracias de antemano por su ayuda
367
« en: Domingo 28 de Agosto de 2005, 20:09 »
copachay gracias
368
« en: Domingo 28 de Agosto de 2005, 20:04 »
aqui te dejo algunas direcciones: si quieres aprender sobre c++, un buen tutorial que mas parece libro es cpluspluspara ecuaciones diferenciales, consulta con tus profes, jeje, una broma sin sabor, matematicas
369
« en: Sábado 27 de Agosto de 2005, 04:59 »
tengo un reto para que se auemen las pestañas ya lo hice estaba bien dificil pero no imposible.
tengo un rectangulo de 40 por 20 unidades y voy ingresando un rectangulo de x por y unidades y lo que debe hacer el programa es ubicar el cuadrado en un lugar dentro de este rectangulo de 40 por 20 con la finalidad de que se desperdicie el minimo de espacio
una ayudita: repasen ecuaciones diferenciales y borland c++
370
« en: Sábado 27 de Agosto de 2005, 04:51 »
hla amigos por ahi me contaron que se podia programar dispositivos con el assembler pero tambien con el c++; quiero aprender esto, que sitio me recomiendan.
371
« en: Jueves 25 de Agosto de 2005, 20:53 »
bueno de todas formas gracias, lo que yo queria era un codigo para implementar un foro sea en asp, asp.net, php, javascript etc, o en cualquier otro. que mejor forma de ver el codigo de un foro ya hecho
372
« en: Jueves 25 de Agosto de 2005, 00:54 »
de esta
373
« en: Lunes 22 de Agosto de 2005, 15:56 »
es cierto como me lo digo soy un "Animaaaaaaaaaaaaaaaaaaaaaaaaal!!!!!!!!!!!", pero me gusta; practicamente ese test me leyó la mente.
374
« en: Lunes 22 de Agosto de 2005, 15:18 »
hola amigos, la verdad es que no tengo ni idea de como hacer un foro, no se si me podrian dar algunos alcances, algunos ejemplos faciles(no les pido mucho), como para aprender y sacarme del apuro.
gracias de antemano por su ayuda
375
« en: Lunes 22 de Agosto de 2005, 15:15 »
hola amigos, me interesa bajar el codigo fuente de un archivo de java script y el archivo global.asax pero de una pagina en especial con asp. como le hago?
Páginas: 1 ... 13 14 [15] 16 17 ... 23
|
|
|