• Martes 19 de Noviembre de 2024, 19:27

Mostrar Mensajes

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
VB .NET / Hacer Un Dll
« 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
Visual Basic 6.0 e inferiores / Re: Problema Con Excel
« 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
Visual Basic 6.0 e inferiores / Re: Problema Con Excel
« 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
Visual Basic 6.0 e inferiores / Re: Visual Basic Y Excel
« 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
Visual Basic 6.0 e inferiores / Problema Con Excel
« 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:
Código: Text
  1.  
  2. Option Explicit
  3. Const n As Integer = 8
  4. Private i As Integer
  5. Private infoboleta As xrpt
  6. Private Sub Prtrpt()
  7. 'On Error Resume Next
  8. Set dbf = db.Execute("select enccomprobante.IdEncComprobante," & _
  9.                      "clientes.Nombres," & _
  10.                      "clientes.Paterno," & _
  11.                      "clientes.Materno," & _
  12.                      "enccomprobante.Fecha," & _
  13.                      "enccomprobante.Subtotal," & _
  14.                      "enccomprobante.IGV," & _
  15.                      "enccomprobante.Total," & _
  16.                      "enccomprobante.IdEmpleado " & _
  17.                      "from EncComprobante inner join clientes " & _
  18.                      "on enccomprobante.idcliente=clientes.idcliente ") ' & _
  19.                      '"where enccomprobante.fecha between #" & CDate(Text1(0)) & "# and #" & CDate(Text1(1)) & "#")
  20. With infoboleta
  21.     Call .agregar("A" & (n + i) & ":G" & (n + i), "Listado de comprobantes")
  22.     i = i + 1
  23.     Call .agregar("A" & n + i, "Codigo", True)
  24.     Call .agregar("b" & n + 1, "Cliente", True)
  25.     Call .agregar("c" & n + i, "Fecha", True)
  26.     Call .agregar("d" & n + i, "Empleado", True)
  27.     Call .agregar("e" & n + 1, "Subtotal", True)
  28.     Call .agregar("f" & n + i, "Total", True)
  29.     i = i + 1
  30.     Do Until (dbf.EOF)
  31.     If (CDate(dbf(4)) < CDate(Text1(1)) And CDate(dbf(4)) > CDate(Text1(0))) Then
  32.         Call .agregar("a" & n + i, dbf(0), True) 'codigo
  33.         Call .agregar("b" & n + i, dbf(1) & " " & dbf(2) & " " & dbf(3), True) 'cliente
  34.         Call .agregar("c" & n + i, dbf(4), True) 'fecha
  35.         'Call .agregar("d" & n + i, empleado(dbf(8)), True) 'empleado
  36.         Call .agregar("e" & n + i, dbf(5), True) 'subtotal
  37.         Call .agregar("f" & n + i, dbf(6), True) 'igv
  38.         Call .agregar("g" & n + i, dbf(7), True) 'total
  39.         i = i + 1
  40.     End If
  41.         dbf.MoveNext
  42.     Loop
  43. End With
  44. End Sub
  45. Private Sub prtcf(ByVal x As String) 'imprimir frecuencia cliente
  46. On Error GoTo bug
  47. Set dbf = db.Execute("SELECT (IdCliente) AS clientes, COUNT(IdCliente) AS veces " & _
  48. "From EncComprobante  " & _
  49. "where fecha between #" & CDate(Text1(0)) & "# and #" & CDate(Text1(1)) & "#" & _
  50. " GROUP BY IdCliente  " & _
  51. "ORDER BY min(IdCliente) " & x)
  52. i = i + 1
  53. If (x = "desc") Then
  54.     Call infoboleta.agregar("a" & n + i, "El cliente más frecuente es: " & cliente(dbf("clientes")) & " con " & dbf("veces") & " compras")
  55. Else
  56.     Call infoboleta.agregar("a" & n + i, "El cliente menos frecuente es: " & cliente(dbf("clientes")) & " con " & dbf("veces") & " compras")
  57. End If
  58. bug:
  59. End Sub
  60. Private Sub prtvd() 'impriomir ventas diarias
  61. Set dbf = db.Execute("SELECT Fecha, SUM(Total) AS Expr1 " & _
  62.                 "From EncComprobante " & _
  63.                 "where fecha between #" & CDate(Text1(0)) & "# and #" & CDate(Text1(1)) & "# " & _
  64.                 "GROUP BY Fecha  " & _
  65.                 "ORDER BY Fecha")
  66. i = i + 1
  67. With infoboleta
  68. Call .agregar("a" & n + i & ":g" & n + i, "Ventas Diarias")
  69. i = i + 1
  70. Call .agregar("a" & n + i, "fecha", True)
  71. Call .agregar("b" & n + i, "Total", True)
  72. i = i + 1
  73. Do Until dbf.EOF
  74.     Call .agregar("a" & n + i, dbf(0), True)
  75.     Call .agregar("b" & n + i, dbf(1), True)
  76.     i = i + 1
  77.     dbf.MoveNext
  78. Loop
  79. End With
  80. End Sub
  81. Private Sub prtpv(x As String)
  82. Set dbf = db.Execute("SELECT Idproducto, SUM(Cantidad) AS total " & _
  83.                     "From Kardex " & _
  84.                     "WHERE     (Motivo LIKE 'venta') " & _
  85.                     "GROUP BY Idproducto " & _
  86.                     "ORDER BY SUM(Cantidad)")
  87. If (x = "desc") Then
  88.     x = " más "
  89. Else
  90.     x = " menos "
  91. End If
  92. i = i + 1
  93.     Call infoboleta.agregar("a" & n + i, "El producto" & x & "vendido es: " & dbf(0) & " con una cantidad de: " & dbf(1) & " unidades")
  94. End Sub
  95. Private Sub prtkx()
  96. Set dbf = db.Execute("select * from kardex")
  97. Dim a As Integer
  98. With infoboleta
  99. i = i + 1
  100. .neg = True
  101. .agregar "a" & n + i & ":g" & n + i, "Kardex"
  102. .agregar "a" & n + i, "Producto", True
  103. .agregar "b" & n + i, "Cantidad", True
  104. .agregar "c" & n + i, "Motivo", True
  105. .agregar "d" & n + i, "Tipo de doc.", True
  106. .agregar "e" & n + i, "N° Documento", True
  107. .agregar "f" & n + i, "Fecha", True
  108. i = i + 1
  109. .neg = False
  110. Do Until dbf.EOF
  111.     .agregar "a" & n + i, dbf(1), True
  112.     .agregar "b" & n + i, dbf(2), True
  113.     .agregar "c" & n + i, dbf(3), True
  114.     .agregar "d" & n + i, dbf(4), True
  115.     .agregar "e" & n + i, dbf(5), True
  116.     .agregar "f" & n + i, dbf(6), True
  117.     dbf.MoveNext
  118. Loop
  119. End With
  120. End Sub
  121. Private Sub prtp(x As String)
  122. Set dbf = db.Execute("SELECT Productos.IdProveedor, COUNT(Productos.Idproducto) AS Expr1 " & _
  123.                     "FROM Productos INNER JOIN " & _
  124.                     "Proveedores ON Productos.IdProveedor = Proveedores.IdProveedor " & _
  125.                     "GROUP BY Productos.IdProveedor " & _
  126.                     "ORDER BY COUNT(Productos.Idproducto)" & n)
  127. If (x = "desc") Then
  128.     x = " mejor "
  129. Else:
  130.     x = " peor "
  131. End If
  132. i = i + 1
  133. infoboleta.agregar "a" & n + i, "el" & x & "proveedor es:"
  134. 'aqui falta completar la oraci{on
  135. End Sub
  136. Private Sub Command1_Click()
  137. 'Listado de comprobantes.YA
  138. 'Cliente más frecuente.YA
  139. 'Cliente menos frecuente.YA
  140. 'Ventas diarias.YA
  141. 'Producto mas vendido.YA
  142. 'Producto menos vendido.YA
  143. 'Kardex.YA
  144. 'Mejor proveedor.YA
  145. 'Peor proveedor.YA
  146. i = 0
  147. Set infoboleta = New xrpt
  148. infoboleta.nuevo_doc (App.Path + "\Reportes\general.xlt")
  149. infoboleta.mostrar_doc = True
  150. If (List1.Selected(0) = True) Then Call Prtrpt
  151. If (List1.Selected(1) = True) Then Call prtcf("desc")
  152. If (List1.Selected(2) = True) Then Call prtcf("asc")
  153. If (List1.Selected(3) = True) Then Call prtvd
  154. If (List1.Selected(4) = True) Then Call prtpv("desc")
  155. If (List1.Selected(5) = True) Then Call prtpv("asc")
  156. If (List1.Selected(6) = True) Then Call prtkx
  157. If (List1.Selected(7) = True) Then Call prtp("desc")
  158. If (List1.Selected(8) = True) Then Call prtp("asc")
  159. Unload Me
  160. End Sub
  161. Private Sub Command2_Click()
  162. Unload Me
  163. End Sub
  164. Private Function cliente(id As String) As String
  165. On Error Resume Next
  166. Dim cli As New ADODB.Recordset
  167. Set cli = db.Execute("select nombres,paterno,materno from clientes where idcliente='" & id & "'")
  168. cliente = cli(0) & " " & cli(1) & " " & cli(2)
  169. End Function
  170. Private Function empleado(id As String) As String
  171. On Error Resume Next
  172. Dim emp As New ADODB.Recordset
  173. Set emp = db.Execute("select nombres,paterno,materno from personal where idempleado='" & id & "'")
  174. empleado = emp
  175. End Function
  176. Private Sub Form_Load()
  177. Text1(0) = Date
  178. Text1(1) = Date
  179. i = 0
  180. End Sub
  181.  
  182.  
  183.  

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
Visual Basic 6.0 e inferiores / Re: Imagen Db De Acces
« 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
Visual Basic 6.0 e inferiores / Imagen Db De Acces
« 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
Visual Basic 6.0 e inferiores / Re: Restringir Ingreso De Datos
« en: Jueves 8 de Septiembre de 2005, 23:43 »
necesariamente tienes que hacerlo en un datagrid, por que nolo haces en mshflexgrid
Código: Text
  1.  
  2. set dbf=db.execute("select col_validado from mi_tabla")
  3. do until(dbf.eof)
  4. mshflexgrid1.row=mshflexgrid1.row+1
  5. if(isnumeric(dbf(0)))
  6.       mshflexgrid1.col=1
  7. else
  8.       mshflexgrid1.col=2
  9. end if
  10. mshflexgrid1.text=dbf(0)
  11. dbf.movenext
  12. loop
  13.  

359
Visual Basic 6.0 e inferiores / Re: Forms De Visual Basic Como Msn Messenger 7.0
« 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
Visual Basic 6.0 e inferiores / Re: Trabajando Con Formularios
« 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:
Código: Text
  1. nuncamepierdas.Show vbModal, Me
  2.  
o te doy otra solucion:
usando el api "findwindow" y "setfocus"
Citar
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
Código: Text
  1.  
  2. public sub timer1_timer()
  3. dim x as long
  4. x=findwindow(vbnullstring,"el titulo del formulario de mi aplicacion")
  5. setfocus x
  6. end sub
  7.  
en un modulo
Código: Text
  1.  
  2. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  3. Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
  4.  
  5.  

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
ASP / Ruta De Sitio
« 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
ASP / Re: Ayuda Con Autenticacion
« en: Viernes 2 de Septiembre de 2005, 20:03 »
se me olvida la clave de la db es area51

363
ASP / Ayuda Con Autenticacion
« 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
ASP .NET / No Abro Base De Datos
« 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
Visual Basic 6.0 e inferiores / Re: Ayuda Urgente Con Consulta Sql
« 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
Visual Basic 6.0 e inferiores / Ayuda Urgente Con Consulta Sql
« 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
Software / Re: Bajar Codigo De Sitio Web
« en: Domingo 28 de Agosto de 2005, 20:09 »
copachay gracias

368
C/C++ / Re: Se Trata De Matematicas
« 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 cplusplus
para ecuaciones diferenciales, consulta con tus profes, jeje, una broma sin sabor, matematicas

369
C/C++ / Se Trata De Matematicas
« 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
Visual C++ / Programacion A Dispositivos
« 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
Software / Re: Bajar Codigo De Sitio Web
« 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
Software / Re: Bajar Codigo De Sitio Web
« en: Jueves 25 de Agosto de 2005, 00:54 »
de esta

373
La taberna del BIT / Re: El Test Del Amor De Hao!!!
« 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
ASP / Un Foro
« 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
Software / Bajar Codigo De Sitio Web
« 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? :scream:

Páginas: 1 ... 13 14 [15] 16 17 ... 23