|
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
76
« 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. 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. me.picturebox1.imagen = nothing
de lo cual no se pierde la imagen, me lo sigue mostrando aunque este con otros datos. he tambien puesto el codigo: 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. gracias por su colaboración.
77
« 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.
78
« 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. Primera Formula en Cabecera de Pagina, y ocultarla : WhilePrintingRecords; NumberVar Cantidad :=0; Segunda Formula en el detalle, y ocultarla : WhilePrintingRecords; NumberVar Cantidad := Cantidad + {TuCampoMonto}; Tercera Formula en Pie de Pagina : WhilePrintingRecords; NumberVar Cantidad
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 gracias
79
« 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: Private Sub cmb_nacionalidad_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_nacionalidad.KeyUp Dim sTypedText As String Dim iFoundIndex As Integer Dim oFoundItem As Object Dim sFoundText As String Dim sAppendText As String 'Allow select keys without Autocompleting Select Case e.KeyCode Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down Return End Select 'Get the Typed Text and Find it in the list sTypedText = Trim(Me.cmb_nacionalidad.Text) iFoundIndex = Trim(Me.cmb_nacionalidad.FindString(sTypedText)) 'If we found the Typed Text in the list then Autocomplete If iFoundIndex >= 0 Then 'Get the Item from the list (Return Type depends if Datasource was bound ' or List Created) oFoundItem = Me.cmb_nacionalidad.Items(iFoundIndex) 'Use the ListControl.GetItemText to resolve the Name in case the Combo ' was Data bound sFoundText = Me.cmb_nacionalidad.GetItemText(oFoundItem) 'Append then found text to the typed text to preserve case sAppendText = sFoundText.Substring(sTypedText.Length) Me.cmb_nacionalidad.Text = sTypedText & sAppendText 'Select the Appended Text Me.cmb_nacionalidad.SelectionStart = sTypedText.Length Me.cmb_nacionalidad.SelectionLength = sAppendText.Length End If End Sub Private Sub cmb_nacionalidad_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_nacionalidad.Leave Dim iFoundIndex As Integer iFoundIndex = Me.cmb_nacionalidad.FindStringExact(Me.cmb_nacionalidad.Text) Me.cmb_nacionalidad.SelectedIndex = iFoundIndex End Sub
y con este, cargo mi combobox: Da = New OleDb.OleDbDataAdapter("SELECT adgrlsubg, adgrldesc FROM adgrl " & _ " WHERE (adgrlgrup = 9) " & _ " AND (adgrlsubg > 0) " & _ " ORDER BY adgrlsubg", con.cnn) Da.Fill(Ds4, "adgrl") Me.cmb_nacionalidad.DataSource = Ds4.Tables("adgrl") Me.cmb_nacionalidad.DisplayMember = "adgrldesc" Me.cmb_nacionalidad.ValueMember = "adgrlsubg"
gracias por la colaboración.
80
« 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.
81
« 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
83
« 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: Ds = DatosCliente.Consulta("SELECT ofic.sctcdesc as oficina, scclccli, scclnomb, scclcanu, sccltele, sccltelx, " & _ " esta.sctcdesc as estado" & _ " FROM scmaecli, sctabcon ofic, sctabcon esta" & _ " WHERE ofic.sctcgrup = 81 " & _ " AND scclofic = ofic.sctcgrup*1000+ofic.sctcsubg " & _ " AND esta.sctcgrup = 97 " & _ " AND scclesta = esta.sctcgrup*1000+esta.sctcsubg " & _ " AND scclofic = 81011 ORDER BY scclccli") DataGrid1.DataSource = Ds.Tables("scmaecli")
gracias
84
« 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: Da = New OleDb.OleDbDataAdapter("SELECT cggrpcco||lpad(cgsubcco,2,"0") as subcc,cgdescos FROM cgcencos " & _ " WHERE (cggrpcco = 2) " & _ " AND (cgsubcco > 0) " & _ " ORDER BY cgsubcco", Con.cnn) Da.Fill(Ds1, "cgcencos") Me.cmd_subcentro.DataSource = Ds1.Tables("cgcencos") Me.cmd_subcentro.DisplayMember = "cgdescos" Me.cmd_subcentro.ValueMember = "subcc"
pero me sale un mensaje de error: 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:
85
« 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: 'Rep.FechaIni = Me.DateTimePicker1.Value 'Rep.FechaIni = Me.DateTimePicker1.Value.Date.Day.ToString & "/" & Me.DateTimePicker1.Value.Date.Month.ToString & "/" & Me.DateTimePicker1.Value.Date.Year.ToString 'Rep.FechaIni = Format(CDate(Me.DateTimePicker1.Value), "dd/MM/yyyy") Rep.FechaIni = Format((Me.DateTimePicker1.Value), "dd/MM/yyyy") Rep.FechaFin = Me.DateTimePicker2.Value.Day & "/" & Me.DateTimePicker2.Value.Month & "/" & Me.DateTimePicker2.Value.Year 'Rep.FechaFin = Me.DateTimePicker2.Value.ToString("dd/MM/yyyy")
como vera, lo he tratado, pero ninguno de ellos me compone la fecha como quiero. gracias por la colaboracion
86
« 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
87
« 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 ?? gracias
88
« 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: 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. Private Sub txt_importe_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_importe.LostFocus Me.txt_impuesto.Text = Me.txt_importe.Text * 13 / 100 Me.txt_neto.Text = Me.txt_importe.Text - Me.txt_impuesto.Text End Sub
todo lo hago en el 2005, winform. gracias
89
« 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: 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 ? gracias
90
« 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
« 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
« 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.
93
« 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? o hay otra manera para no instalar todo. gracias
94
« 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: Dim FPro As DateTime FPro = DateTime.Now FPro = Format(FPro, "dd/MM/yyyy") 'FPro = Format(FPro, "dd/MM/yyyy hh:mm:ss") Me.txt_codigo.Text = Pn.Nuevo(Desc, CPeri, DGlos, VCom, FPro)
y el error que me tira es este: 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
« en: Lunes 13 de Noviembre de 2006, 17:24 »
Hola a todos, quisiera que me ayudasen, ya estoy  , de no poder captar, pero weno, este es mi problema. tengo un combobox que lo lleno desde una DB: Function cargar_combo() Dim Trx As New AccesoDatos.Transacciones(False) Dim DtP As New DataTable Dim Ad As New AccesoDatos.Operaciones(Trx.Comand) DtP = Ad.EjecturarConsulta("SELECT * FROM PERIODOS ORDER BY ID_PERIODOS desc") Me.cmb_periodo.DataSource = DtP Me.cmb_periodo.DisplayMember = "DESCRIPCIONperi" Me.cmb_periodo.ValueMember = "ID_PERIODOS" Trx.CerrarConexion() End Function
con ese codigo lo lleno, pero solo un dato o una columna. Buscando en la web, he encontrado que poniando la consulta select: DtP = Ad.EjecturarConsulta("SELECT ID_PERIODOS+'-'+SEMESTREperi+'-'+ANIOper as Lista FROM PERIODOS ORDER BY ID_PERIODOS desc") Me.cmb_periodo.DisplayMember = "Lista" Me.cmb_periodo.ValueMember = "Lista"
pero no me funca, agradeceria su orientacion gracias
96
« 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: Private Sub txt_codigo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_codigo.Leave Try If IsNumeric(Me.txt_codigo.Text) Then Dim Trx As New AccesoDatos.Transacciones(False) Dim Pn As New ReglasN_CarrMate.RN_CarrMate(Me.txt_codigo.Text, Trx.Comand) Me.txt_codcarre.Text = Pn.CCarrera Me.txt_codmate.Text = Pn.CMateria Me.cmb_plan.SelectedValue = Pn.CPlan Me.txt_nsa.Text = Pn.NivelNsa Me.cmb_estado.SelectedValue = Pn.Estado Dim CCa As New ReglasN_Carrera.RN_Carrera(Me.txt_codcarre.Text, Trx.Comand) Dim CMa As New ReglasN_Materia.RN_materia(Me.txt_codmate.Text, Trx.Comand) Me.txt_ccar.Text = CCa.CodCarre Me.txt_desc_carre.Text = CCa.Descripcion Me.txt_sigla.Text = CMa.Siglas Me.txt_desc_mate.Text = CMa.Descripcion Me.btn_adicionar.Enabled = False Me.btn_eliminar.Enabled = True Me.btn_modificar.Enabled = True End If Catch ex As Exception MsgBox("Error en la carga", ex.Message, MsgBoxStyle.Critical) End Try End Sub
gracias
97
« 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 gracias
98
« 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
99
« 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
100
« 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 : Private Sub txt_descripcion_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.GotFocus Me.txt_descripcion.BackColor = Color.Yellow End Sub Private Sub txt_descripcion_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.LostFocus Me.txt_descripcion.BackColor = Color.White End Sub
pero como le hago para 12 textbox, tendre que hacer uno por uno, o hay alguna manera de hacer todo en uno solo gracias
|
|
|