• Lunes 29 de Abril de 2024, 21:51

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.


Temas - Sagma

Páginas: 1 2 3 [4] 5 6
76
VB .NET / Desaparecer Picturebox
« en: Sábado 29 de Septiembre de 2007, 15:14 »
hola a todos, he realizado una aplicación que cuando digito el código de la persona, este me despliega los datos de dicha persona y también pongo su foto, esto en un picturebox. todo ok.  :P

Pero ...

cuando quiero ver otro dato de otra persona y su imagen, solo me despliega los datos y no asi la imagen o la foto.

me puse un boton cancelar, pero aun asi no se borra la imagen.

he usado el codigo siguiente.
Código: Text
  1. me.picturebox1.imagen = nothing
  2.  
de lo cual no se pierde la imagen, me lo sigue mostrando aunque este con otros datos.  :(


he tambien puesto el codigo:
Código: Text
  1. me.picturebox1.dispose
  2.  
en este caso me lo hace perder, pero, ya tambien no me muestra nada de nadita de lo que es las fotos o imagenes de las persona.  :blink:

gracias por su colaboración.  :comp:

77
Crystal Reports / Aparecer En La Ultima Hoja
« en: Lunes 10 de Septiembre de 2007, 23:14 »
hola que tal, después de hacer mis formulas para los subtotales, tengo una pregunta.

Como hacer para que en la ultima hoja, salga un texto de la firma. yo todo lo he puesto en Page Footer, por que aca, ya que estoy sumando en cada pagina sub totales y totales de la anterior pagina.

y si lo pongo en el Report Footer, este texto se pone encima de los sub totales, asi que lo pongo un poco mas abajo de los totales.


gracias.  B)

78
Crystal Reports / Sumar Sub Totales
« en: Martes 4 de Septiembre de 2007, 00:02 »
hola que tal, lo que quiero es sumar sub totales, en cada pagina, ya que he creado un grupo y ese grupo me da como unas cinco hojas.

he puesto la siguiente formula, para sumar sub totales por cada hoja.

Código: Text
  1.  
  2. Primera Formula en Cabecera de Pagina, y ocultarla :
  3. WhilePrintingRecords; NumberVar Cantidad :=0;
  4.  
  5. Segunda Formula en el detalle, y ocultarla :
  6. WhilePrintingRecords; NumberVar Cantidad := Cantidad + {TuCampoMonto};
  7.  
  8. Tercera Formula en Pie de Pagina :
  9. WhilePrintingRecords; NumberVar Cantidad
  10.  
  11.  

y bien, eso es lo que queria, pero como le hago para que en cada hoja, tenga una suma de la hoja actual y de la hoja anterior  :unsure:


gracias

79
VB .NET / Ver Dato Completo En Combo
« en: Lunes 20 de Agosto de 2007, 21:36 »
hola a todos, tengo un combo que cargo los datos desde una tabla, además le he puesto un autocomplete, pero no se ve toda la palabra completa. como verán en la imagen.

este es mi código que tengo para autocompletar es:

Código: Text
  1.  
  2.     Private Sub cmb_nacionalidad_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_nacionalidad.KeyUp
  3.         Dim sTypedText As String
  4.         Dim iFoundIndex As Integer
  5.         Dim oFoundItem As Object
  6.         Dim sFoundText As String
  7.         Dim sAppendText As String
  8.  
  9.         'Allow select keys without Autocompleting
  10.         Select Case e.KeyCode
  11.             Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down
  12.                 Return
  13.         End Select
  14.  
  15.         'Get the Typed Text and Find it in the list
  16.         sTypedText = Trim(Me.cmb_nacionalidad.Text)
  17.         iFoundIndex = Trim(Me.cmb_nacionalidad.FindString(sTypedText))
  18.  
  19.         'If we found the Typed Text in the list then Autocomplete
  20.         If iFoundIndex >= 0 Then
  21.  
  22.             'Get the Item from the list (Return Type depends if Datasource was bound
  23.             ' or List Created)
  24.             oFoundItem = Me.cmb_nacionalidad.Items(iFoundIndex)
  25.  
  26.             'Use the ListControl.GetItemText to resolve the Name in case the Combo
  27.             ' was Data bound
  28.             sFoundText = Me.cmb_nacionalidad.GetItemText(oFoundItem)
  29.  
  30.             'Append then found text to the typed text to preserve case
  31.             sAppendText = sFoundText.Substring(sTypedText.Length)
  32.             Me.cmb_nacionalidad.Text = sTypedText & sAppendText
  33.  
  34.             'Select the Appended Text
  35.             Me.cmb_nacionalidad.SelectionStart = sTypedText.Length
  36.             Me.cmb_nacionalidad.SelectionLength = sAppendText.Length
  37.  
  38.         End If
  39.     End Sub
  40.     Private Sub cmb_nacionalidad_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_nacionalidad.Leave
  41.         Dim iFoundIndex As Integer
  42.  
  43.         iFoundIndex = Me.cmb_nacionalidad.FindStringExact(Me.cmb_nacionalidad.Text)
  44.  
  45.         Me.cmb_nacionalidad.SelectedIndex = iFoundIndex
  46.     End Sub
  47.  
  48.  

y con este, cargo mi combobox:

Código: Text
  1.  
  2.         Da = New OleDb.OleDbDataAdapter("SELECT adgrlsubg, adgrldesc FROM adgrl " & _
  3.                                         " WHERE (adgrlgrup = 9) " & _
  4.                                           " AND (adgrlsubg > 0) " & _
  5.                                         " ORDER BY adgrlsubg", con.cnn)
  6.         Da.Fill(Ds4, "adgrl")
  7.  
  8.         Me.cmb_nacionalidad.DataSource = Ds4.Tables("adgrl")
  9.         Me.cmb_nacionalidad.DisplayMember = "adgrldesc"
  10.         Me.cmb_nacionalidad.ValueMember = "adgrlsubg"
  11.  
  12.  

gracias por la colaboración.  :smartass:

80
VB .NET / Asignar Foco
« en: Miércoles 15 de Agosto de 2007, 21:25 »
Hola a todos, tengo un textbox, donde pongo el apellido de una persona, pero quisiera que cuando le doy enter, en el textbox, que le ponga el foco en un primer boton que esta en un toolbar.

esta es la imagen de mi ventana de búsqueda.


gracias.  :unsure:

81
VB .NET / Mantener El Cursor En El Textbox
« en: Viernes 10 de Agosto de 2007, 23:08 »
Hola a todos, tengo una duda, por ejemplo, estoy trabajando con excel y mi aplicación echo en Vbnet 2003, pero al hacer uso del TABCONTROL, para cambiar de la aplicación al excel, y volver de nuevo a la aplicación, el cursor siempre se pone en el primer textbox, y no se mantiene donde se había quedado hantes de hacer uso de TABCONTROL para cambiar al excel.

Habrá alguna forma de que el cursos se mantenga en el textbox que se estaba trabajando?

gracias :smartass:

82
VB .NET / Vbnet - Serie De Videos
« en: Miércoles 1 de Agosto de 2007, 20:59 »
Les paso una pequeña recopilación de links sobre videos "VB How-to Forms over Data Video Series"
Los mismos, los encontraremos en formato ZIP y formato WMV en el que se tratarán temas relacionados con datos y Visual Basic


http://www.microsoft.com/downloads/details...ang=en#filelist


http://www.microsoft.com/downloads/details...ang=en#filelist


http://www.microsoft.com/downloads/details...ang=en#filelist


suerte,  :comp:

83
VB .NET / Llenado De Datagrid
« en: Jueves 5 de Julio de 2007, 17:39 »
hola que tal, tengo problemas al llenar los datos en un DataGrid, mi problema es que en algunos campos, hay un unyo ( . ), y solo me muestra los datos hasta donde esta el punto.
Como le puedo hacer para que me muestre todo el dato ?

con este codigo, lleno el datagrid:

Código: Text
  1.  
  2.         Ds = DatosCliente.Consulta("SELECT ofic.sctcdesc as oficina, scclccli, scclnomb, scclcanu, sccltele, sccltelx, " & _
  3.                                      "     esta.sctcdesc as estado" & _
  4.                                      "  FROM scmaecli, sctabcon ofic, sctabcon esta" & _
  5.                                      " WHERE ofic.sctcgrup = 81 " & _
  6.                                      "   AND scclofic = ofic.sctcgrup*1000+ofic.sctcsubg " & _
  7.                                      "   AND esta.sctcgrup = 97 " & _
  8.                                      "   AND scclesta = esta.sctcgrup*1000+esta.sctcsubg " & _
  9.                                      "   AND scclofic = 81011 ORDER BY scclccli")
  10.         DataGrid1.DataSource = Ds.Tables("scmaecli")
  11.  
  12.  


gracias  :smartass:

84
VB .NET / Llenar Combobox, Lpad
« en: Viernes 22 de Junio de 2007, 21:15 »
Hola que tal, estoy llenando un combobox, todo ok, pero resulta que debo concatenar dos valores, pero rellenar con cero, por decir: el campo1 tiene un valor de 2, y el campo2 un valor de 1, y este debe ser 201, para poder tener en el valuemenber = 201

mi codigo es este:

Código: Text
  1.  
  2.         Da = New OleDb.OleDbDataAdapter("SELECT cggrpcco||lpad(cgsubcco,2,"0") as subcc,cgdescos FROM cgcencos " & _
  3.                                         " WHERE (cggrpcco = 2) " & _
  4.                                           " AND (cgsubcco > 0) " & _
  5.                                           " ORDER BY cgsubcco", Con.cnn)
  6.         Da.Fill(Ds1, "cgcencos")
  7.  
  8.         Me.cmd_subcentro.DataSource = Ds1.Tables("cgcencos")
  9.         Me.cmd_subcentro.DisplayMember = "cgdescos"
  10.         Me.cmd_subcentro.ValueMember = "subcc"
  11.  
  12.  

pero me sale un mensaje de error:

Citar
Error de resolucion de sobrecarga por que ninguna de las funciones "NEW" a las que se tiene acceso acepta este numero de argumentos

gracias por la orientacion:  :comp:

85
VB .NET / Datetimepicker En Dd/mm/yyyy
« en: Viernes 22 de Junio de 2007, 16:31 »
hola a todos, estoy tratando de poner un DateTimePicker en fecha corta, pero en dd/MM/yyyy, pero hasta ahora solo me muestra MM/dd/yyyy.

he realizado lo siguiente, y no me funciona:

Código: Text
  1.  
  2.         'Rep.FechaIni = Me.DateTimePicker1.Value
  3.         'Rep.FechaIni = Me.DateTimePicker1.Value.Date.Day.ToString & "/" & Me.DateTimePicker1.Value.Date.Month.ToString & "/" & Me.DateTimePicker1.Value.Date.Year.ToString
  4.         'Rep.FechaIni = Format(CDate(Me.DateTimePicker1.Value), "dd/MM/yyyy")
  5.         Rep.FechaIni = Format((Me.DateTimePicker1.Value), "dd/MM/yyyy")
  6.         Rep.FechaFin = Me.DateTimePicker2.Value.Day & "/" & Me.DateTimePicker2.Value.Month & "/" & Me.DateTimePicker2.Value.Year
  7.         'Rep.FechaFin = Me.DateTimePicker2.Value.ToString("dd/MM/yyyy")
  8.  
  9.  

como vera, lo he tratado, pero ninguno de ellos me compone la fecha como quiero.

gracias por la colaboracion

86
GNU/Linux / Enviar Y Traer Archivos
« en: Lunes 18 de Junio de 2007, 14:47 »
Hola a todos, quisiera su ayuda para ver la forma de poder enviar y poder traer archivos, desde otro equipo remoto.

usar Ftp,  ;) , yo estoy usando scp, esto es weno, pero siempre tengo que poner la clave del usuario donde estoy enviando el archivo, ahora como tengo que generar archivos muy grandes y enviarlos estos archivos, weno, eso se lo debe hacer muy tarde  de la noche, y como no hay nadie para digitar la clave, con el scp. no pasa nada...

Hay alguna otra manera de pasar en forma segura, pero sin que pida la clave ??


gracias  :comp:

87
VB .NET / Y El Sub Main En El 2005 ?
« en: Sábado 12 de Mayo de 2007, 15:43 »
hola a todos, mis codigos que tenia realizados con el 2003, los mantenia con un modulo y el SUB MAIN, pero al pasarlo al 2005, no encuentro el SUB MAIN.

Alguien me puede explicar como hacer que en el 2005 se inicie con el SUB MAIN ?? :unsure:

gracias  :whistling:

88
VB .NET / Errores Con Valores Nulos
« en: Miércoles 9 de Mayo de 2007, 21:48 »
hola a todos, quisiera que me ayuden a controlar valores nulos en unos textbox, ya que cuando hago uso del botton, donde tengo los controles de que si los textbox estan nulos,  este los controla, pero si estan en los textbox y le dan el enter o el tabulador me aparece un mensaje de error que es:

Citar
No se controlo InvalidCastException
La conversiòn de la cadena "" en el tipo 'Double' no es valida

este es la parte que estoy haciendo en el txt_importe.

Código: Text
  1.  
  2.     Private Sub txt_importe_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_importe.LostFocus
  3.  
  4.         Me.txt_impuesto.Text = Me.txt_importe.Text * 13 / 100
  5.         Me.txt_neto.Text = Me.txt_importe.Text - Me.txt_impuesto.Text
  6.  
  7.     End Sub
  8.  
  9.  

todo lo hago en el 2005, winform.

gracias  :unsure:

89
GNU/Linux / Error Al Tratar De Hacer Ftp
« en: Jueves 26 de Abril de 2007, 00:14 »
hola a todos, todo funcionada bien, y de un momento a otro dejo de funciona el FTP, este error es que me sale:

Citar
220 servidor1 FTP server (Version 5.60) ready.
334 Using authentication type GSSAPI; ADAT must follow
GSSAPI accepted as authentication type
GSSAPI error major: Miscellaneous failure
GSSAPI error minor: No credentials cache found
GSSAPI error: initializing context
GSSAPI authentication failed
334 Using authentication type KERBEROS_V4; ADAT must follow
KERBEROS_V4 accepted as authentication type
Kerberos V4 krb_mk_req failed: You have no tickets cached
Name (150.100.1.200:servidor2): usuario1
530 Must perform authentication before identifying USER.
Login failed.
Remote system type is UNIX.
Using binary mode to transfer files.
ftp>

tengo un equipo con Red Hat Enterprise Linux AS Release 4 Kernel 2.6.9-22 on an i686.

¿que debo hacer para poder accedet mediante el FTP ?  :unsure:

gracias

90
GNU/Linux / Comando Compress En Suse
« en: Martes 24 de Abril de 2007, 22:49 »
hola a todos, quisiera saber si en suse hay alguna manera para que los archivos comprimidos con el comando COMPRESS, esto en RedHat, puede descomprimirlo.

con el RedHat se pude usar los comandos compress (comprime) y el uncompress (descomprime) cualquier archivo, pero con el Suse V10.2, me dice que no existe, habra alguna manera de descomprimir estos archivos ?

gracias

91
GNU/Linux / Imprimir Con Epson Lq-2090
« en: Sábado 10 de Marzo de 2007, 16:26 »
Hola alguien me puede decir como le puedo hacer para poder imprimir a una impresora EPSON LQ-2090, desde Red Hat AS 3. en la red solo he encontrado un software para Red Hat AS 4, y no funca.

gracias por los comentario  :)

92
GNU/Linux / Imprimir Desde Linux A Linux
« en: Jueves 1 de Marzo de 2007, 16:30 »
hola a todos, quisiera que me orientasen de como se puede hacer para poder imprimir en la printer EPSON fx-1180, pero de dos equipos con Linux.
un equipo tiene: Red Hat Enterprise Linux AS release 4
otro equipo con: Red Hat Enterprise Linux AS release 3

el equipo con: Red Hat Enterprise Linux AS release 3, se esta imprimiendo, pero no se ha podido conectar o hacer imprimir desd el otro equipo.

gracias por su sugerencia.  :D

93
Visual Basic para principiantes / Error Al Ejecutar Aplicacion
« en: Jueves 7 de Diciembre de 2006, 17:20 »
hola a todos, he conseguido algunos ejemplo, aplicaciones echas, donde solo tengo los exe, y cuando quiero ejeutarlos me da un mensaje de error.
lo muestro en el adjunto.
Claro que en el mensaje me pide el ocx, pero la pergunta es, que tengo que instalar todo el VB6 para poder ejecutarlo?  :unsure:
o hay otra manera para no instalar todo.  :whistling:

gracias  :smartass:

94
VB .NET / Error Al Insertar Fecha (sql 2005)
« en: Miércoles 22 de Noviembre de 2006, 19:49 »
hola a todos, como estan, estoy teniendo problemas al tratar de inserta una fecha con la hora en una DB de SQL 2005, he puesto SET DATEFORMA dmy y naranjas este es el codigo que tengo:

Código: Text
  1.  
  2. Dim FPro As DateTime
  3. FPro = DateTime.Now
  4. FPro = Format(FPro, "dd/MM/yyyy")
  5. 'FPro = Format(FPro, "dd/MM/yyyy hh:mm:ss")
  6.  
  7. Me.txt_codigo.Text = Pn.Nuevo(Desc, CPeri, DGlos, VCom, FPro)
  8.  
  9.  

y el error que me tira es este:

Citar
Error en la insercion del PlanThe conversion of a char data type to a datetime data type resulted in an out-of-range datetime value

ya que quiero insertar la fecha y la hora, alguien me puede orientar que estoy haciendo mal ????

gracias

95
VB .NET / Comboxbox Con Tres Columnas
« en: Lunes 13 de Noviembre de 2006, 17:24 »
Hola a todos, quisiera que me ayudasen, ya estoy  :alien: , de no poder captar, pero weno, este es mi problema.

tengo un combobox que lo lleno desde una DB:

Código: Text
  1.  
  2.     Function cargar_combo()
  3.  
  4.         Dim Trx As New AccesoDatos.Transacciones(False)
  5.         Dim DtP As New DataTable
  6.         Dim Ad As New AccesoDatos.Operaciones(Trx.Comand)
  7.  
  8.         DtP = Ad.EjecturarConsulta("SELECT * FROM PERIODOS ORDER BY ID_PERIODOS desc")
  9.         Me.cmb_periodo.DataSource = DtP
  10.         Me.cmb_periodo.DisplayMember = "DESCRIPCIONperi"
  11.         Me.cmb_periodo.ValueMember = "ID_PERIODOS"
  12.  
  13.         Trx.CerrarConexion()
  14.  
  15.     End Function
  16.  
  17.  

con ese codigo lo lleno, pero solo un dato o una columna.

Buscando en la web, he encontrado que poniando la consulta select:

Código: Text
  1.  
  2.  
  3. DtP = Ad.EjecturarConsulta("SELECT ID_PERIODOS+'-'+SEMESTREperi+'-'+ANIOper as Lista FROM PERIODOS ORDER BY ID_PERIODOS desc")
  4.         Me.cmb_periodo.DisplayMember = "Lista"
  5.         Me.cmb_periodo.ValueMember = "Lista"
  6.  
  7.  

pero no me funca, agradeceria su orientacion  :comp:


gracias   :D

96
VB .NET / Error En El Evento Leave
« en: Sábado 11 de Noviembre de 2006, 19:41 »
hola a todos, tengo el siguiente codigo que funciona cuando pilla el dato, pero cuando no pilla ningun datos me arroja el siguiente error: (el archivo jpg)  <_<

este es el codigo que tengo:

Código: Text
  1.  
  2. Private Sub txt_codigo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_codigo.Leave
  3.         Try
  4.             If IsNumeric(Me.txt_codigo.Text) Then
  5.                 Dim Trx As New AccesoDatos.Transacciones(False)
  6.                 Dim Pn As New ReglasN_CarrMate.RN_CarrMate(Me.txt_codigo.Text, Trx.Comand)
  7.  
  8.                 Me.txt_codcarre.Text = Pn.CCarrera
  9.                 Me.txt_codmate.Text = Pn.CMateria
  10.                 Me.cmb_plan.SelectedValue = Pn.CPlan
  11.                 Me.txt_nsa.Text = Pn.NivelNsa
  12.                 Me.cmb_estado.SelectedValue = Pn.Estado
  13.  
  14.                 Dim CCa As New ReglasN_Carrera.RN_Carrera(Me.txt_codcarre.Text, Trx.Comand)
  15.                 Dim CMa As New ReglasN_Materia.RN_materia(Me.txt_codmate.Text, Trx.Comand)
  16.                 Me.txt_ccar.Text = CCa.CodCarre
  17.                 Me.txt_desc_carre.Text = CCa.Descripcion
  18.                 Me.txt_sigla.Text = CMa.Siglas
  19.                 Me.txt_desc_mate.Text = CMa.Descripcion
  20.  
  21.                 Me.btn_adicionar.Enabled = False
  22.                 Me.btn_eliminar.Enabled = True
  23.                 Me.btn_modificar.Enabled = True
  24.  
  25.             End If
  26.         Catch ex As Exception
  27.             MsgBox("Error en la carga", ex.Message, MsgBoxStyle.Critical)
  28.         End Try
  29.     End Sub
  30.  
  31.  

gracias  :comp:

97
VB .NET / Derivada De Una Funcion
« en: Martes 24 de Octubre de 2006, 19:06 »
Hola amigos, quisieran saber ue se debe hacer o como hacer para que una funcion:

 f(x) = 2x^2+3x+4

sacar si derivada, algun ejemplo o alguna pagina  :whistling:

gracias  :comp:

98
VB .NET / Abligar A Que Ponga "-" En Un Textbox
« en: Domingo 22 de Octubre de 2006, 04:08 »
hola amigos, tendro dos consultas:

1. como puedo hacer para obligar, en un textbox, que el cuarto caracter, sea si o si, "-" un guion, por ejemplo "AAA-111 a".

2. como le hago o en que evento pongo para que cuando digite la tecla enter o el tab, para ir al otro textbox, este controle que si el campo es nulo, me salga un mensaje.

por que yo lo pongo en el boton, de guardar, y es esperar mucho, sino que cuando pase ese textbox, salte el mensaje.

gracias  :comp:

99
VB .NET / Conexion A Sql 2005
« en: Jueves 24 de Agosto de 2006, 17:34 »
Hola a todos, me podrian orientar como puedo hacer para conectarse a SQLServer 2005, ya que la conexion al Sql 2000, no me funca, o no me conecta.  <_<

gracias   B)

100
VB .NET / Cambiar De Color A Un Texbox
« en: Viernes 11 de Agosto de 2006, 18:08 »
Hola a todos, quisiera saber si hay alguna forma de que el cambio de color del textbox, que cuando el cursor este en este cambie de color.

he encontrado :

Código: Text
  1.  
  2.  
  3.     Private Sub txt_descripcion_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.GotFocus
  4.         Me.txt_descripcion.BackColor = Color.Yellow
  5.     End Sub
  6.  
  7.     Private Sub txt_descripcion_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.LostFocus
  8.         Me.txt_descripcion.BackColor = Color.White
  9.     End Sub
  10.  
  11.  
  12.  

pero como le hago para 12 textbox, tendre que hacer uno por uno, o hay alguna manera de hacer todo en uno solo  :blink:

gracias

Páginas: 1 2 3 [4] 5 6