Temas

Saludos amigos, soy yo nuevamente molestando, tengo un problema con un listbox.

Verán, estoy haciendo una aplicación dónde esta cargue 3 rutas de un archivo sobre un objeto, posteriormente cuando ese objeto esté "relleno" lo inserto en un listbox, el problema se inicia cuando quiero obtener el valor de ese listbox el cuál según el vs el valor es nothing pero curiosamente a la hora de depurarlo los valores me dice que se ha rellenado correctamente.

Este es el código del objeto

Código (vbnet) [Seleccionar] Expandir




Public Class Archivos

    'Atributos de la clase
    Private str_ruta_archivo_entradas As String = String.Empty
    Private str_ruta_archivo_valorizado As String = String.Empty
    Private str_ruta_archivo_salidas As String = String.Empty
    Private str_entradas_salidas_excluir As ArrayList

    'Métodos de acceso

    Public Property Str_Ruta_Archivo_E() As String
        Get
            Return Me.str_ruta_archivo_entradas

        End Get
        Set(ByVal Value As String)
            Me.str_ruta_archivo_entradas = Value
        End Set
    End Property

    Public Property Str_Ruta_Archivo_Val As String
        Get
            Return Me.str_ruta_archivo_valorizado
        End Get
        Set(ByVal Value As String)
            Me.str_ruta_archivo_valorizado = Value
        End Set
    End Property

    Public Property Str_Salidas As String
        Get
            Return Me.str_ruta_archivo_salidas
        End Get
        Set(ByVal Value As String)
            Me.str_ruta_archivo_salidas = Value
        End Set
    End Property


    Public Property Str_ES_Excluir As ArrayList
        Get
            Return Me.str_entradas_salidas_excluir
        End Get
        Set(ByVal Value As ArrayList)
            Me.str_entradas_salidas_excluir = Value
        End Set
    End Property

    'Constructor
    Public Sub New(ByVal str_ruta_e As String, ByVal str_ruta_archivo_val As String, ByVal str_rutas_array As ArrayList, ByVal str_archivo_salidas As String)

        str_ruta_archivo_entradas = str_ruta_e
        str_ruta_archivo_salidas = str_archivo_salidas
        str_ruta_archivo_valorizado = str_ruta_archivo_val
        str_entradas_salidas_excluir = str_rutas_array
    End Sub


    Public Sub New()

        str_ruta_archivo_entradas = String.Empty
        str_ruta_archivo_valorizado = String.Empty
        str_ruta_archivo_salidas = String.Empty
        str_entradas_salidas_excluir = Nothing
    End Sub

End Class




Aquí es dónde lo inserto mediante unos diálogos y un botón.

Código (vbnet) [Seleccionar] Expandir



  Try


            Dim operaciones As Archivos
            Dim str_ruta_archivo_E As String = String.Empty
            Dim str_ruta_archivo_S As String = String.Empty
            Dim str_ruta_archivo_Inv As String = String.Empty
            Dim obj_array As New ArrayList
            Dim int_cont As Integer = 0


            'Cargando archivo de entradas/salidas


            dlg_Abrir.Title = "Seleccione el archivo de excel (archivo de entradas) a procesar"
            dlg_Abrir.DefaultExt = ".xlsx"

            lbl_estado.Text = "Cargando datos del archivo de entradas..."


            If dlg_Abrir.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

                str_ruta_archivo_E = dlg_Abrir.FileName()
            End If


            'Cargando archivo de salidas


            dlg_Abrir.Title = "Seleccione el archivo de excel (archivo de salidas) a procesar"
            dlg_Abrir.DefaultExt = ".xlsx"

            lbl_estado.Text = "Cargando datos del archivo de salidas..."


            If dlg_Abrir.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

                str_ruta_archivo_S = dlg_Abrir.FileName()

            End If


            'Cargando archivo valorizado


            dlg_Abrir.Title = "Seleccione el archivo de excel (archivo valorizado correspondiente a esas entradas/salidas) a procesar"
            dlg_Abrir.DefaultExt = ".xlsx"

            lbl_estado.Text = "Cargando datos del archivo valorizado correspondiente a esas entradas/salidas..."


            If dlg_Abrir.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

                str_ruta_archivo_Inv = dlg_Abrir.FileName()

            End If



            For Each valor In lt_salidas_entradas_excluir.Items

                obj_array.Add(valor)
            Next


            operaciones = New Archivos(str_ruta_archivo_E, str_ruta_archivo_Inv, obj_array, str_ruta_archivo_S)
            lt_Archivos.Items.Add(operaciones)


        Catch ex As Exception
            MsgBox("Hubo un error cargando el archivo del contenedor.")
        End Try




Mediante un menústrip de un contextmenú o menú contextual genero un pequeño dialogo y lo que hago es que quiero mostrar la información de ese objeto (que por cierto sería genial si alguno de uds sabe como ponerle texto más "bonito" a ese objeto en ese listbox sin alterar su valor como un combobox con sus propiedades de display member).

Código (vbnet) [Seleccionar] Expandir




Private Sub MostrarInformaciónToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MostrarInformaciónToolStripMenuItem.Click


        Dim obj As Archivos


        obj = lt_Archivos.SelectedValue
       MsgBox(obj.Str_Ruta_Archivo_E)

     

    End Sub




Curiosamente cuando lo depuro cómo les menciono arriba me dice que el objeto está correctamente insertado y tiene un valor pero a la hora de "jalarlo" no me sale nada, me preocupa porque necesito manipular ese objeto para el resto del proyecto, si uds saben algo se los agradecería demasiado.

Saludos amigos!!, espero se encuentren bien.

Estoy intentando instalar Visual Studio 2015 Enterprise en dos ordenadores, ambos de 64 bits pero a la hora de instalarlo me sale este error.


"Paquete de idioma de Microsoft Visual Studio 2015 Team Explorer- ESN ", el cuál intenté descargarlo pero me dice que ya está instalado previamente.


Y no he podido instalarlo, curiosamente ese mismo ejecutable sirve para otras computadoras, descartando así que esté corrupto.


¿ Alguna sugerencia?.

Hola amigos del foro!!, tengo una expresión regular que me sirve en las páginas y todo y con muchos otros textos pero con un texto en especìfico no me sirve!!

Esta es la expresión regular:

Código (javascript) [Seleccionar] Expandir



/^(?!.*WHERE.*|.*FROM.*|.*SELECT.*|.*UPDATE.*|.*DROP.*|.*INSERT.*|.*DELETE.*|.*ALTER.*|.*TABLE.*|.*TRUNCATE.*|.*DATABASE.*)[A-Za-zÑñÁÉÍÓÚáéíóú,'-.1234567890\s]+$/



La tengo implementada así

Código (javascript) [Seleccionar] Expandir



function validar_textolibre(texto){

//Creamos un objeto


object=document.getElementById(texto);
valueForm=object.value;

object2 = valueForm.replace("\n"," ");



object3 = object2.toUpperCase();
   


var objRegExp  =  /^(?!.*WHERE.*|.*FROM.*|.*SELECT.*|.*UPDATE.*|.*DROP.*|.*INSERT.*|.*DELETE.*|.*ALTER.*|.*TABLE.*|.*TRUNCATE.*|.*DATABASE.*)[A-Za-zÑñÁÉÍÓÚáéíóú,'-.1234567890\s]+$/; //Valida que contenga espacios y letras únicamente.


          if(objRegExp.test(object3)){

  return true;
  }

else{
         
return false;
  }
 
}




Lo extraño es que la uso con este texto:

Atención al cliente, realización de asientos contables, codificación de gastos, registro de cuentas por cobrar y pagar, manejo de la central, presentación de las declaraciones tributarias.


Y me dice que es correcta, de hecho para muchos otros textos si me sirve, no comprendo que estará pasando.


Uds saben que estoy haciendo mal? les explico un poco que el texto lo convierto en mayusculas y le quito los saltos de linea para mejor la evaluaciòn.


Lo que quiero hacer en el texto es que la persona escriba de todo, excepto las expresiones de una statement de un sql, pero que pueda escribir mayusculas, letras, numeros, minusculas sin signos ni nada, me funciona con todo pero con este texto de arriba no, la verdad no se que estaré haciendo mal.

Hola amigos, estoy realizando una expresión regular contra inyección de sql, pero sólo logro que la haga en la primera línea, deseo que si aparece en cualquier lugar del string esta rebote, pero no lo logro.

Hasta el momento tengo esto

/^(?!.*WHERE.*)[A-Za-zÁÉÍÓÚáéíóúñ,.1234567890\s]+$/

Hola amigos, soy yo nuevamente, necesito obtener el valor del text option y no del value de unos combos que hice, esto lo necesito hacer por medio de PHP.

Código (html4strict) [Seleccionar] Expandir



<select id="provincias" name= "provincias" onChange="cargarCantones(this, 'cantones');"></select>
                                         
<select id="cantones" name= "cantones" onChange="cargarDistritos(this, 'distritos');"><option value="-2">Elija una provincia</option></select>                                    
                           
<select id="distritos" name="distritos" ><option value="-2">Elija una provincia</option></select>
                               


El problema consiste en que yo relleno esos value por medio de un script de jquery pero el value no me sirve, sino el texto que genera entonces necesito pasar ese texto al PHP.

Les agradezco si saben algo, muchas gracias.

Hola,

les explico el siguiente dilema, tengo un select múltiple, necesito saber cuáles opciones han sido seleccionadas para luego meterlas en un array y así simplemente insertarlas a una bd, el problema surge porque no he encontrado forma de saber cuál opción de un select ha sido seleccionada o no para posteriormente simplemente meterla a un array, esto por medio de PHP ya que por medio de javascript lo hago bien pero eso del lado del cliente, yo necesito por lado del servidor realizar esa selección.

Código (html4strict) [Seleccionar] Expandir



<select multiple="multiple" name="Puesto" id="Puesto">
<option>Cajera(o)</option>
<option>T&eacute;cnico Electromec&aacute;nico</option>
<option>T&eacute;cnico Electr&oacute;nico</option>
<option>T&eacute;cnico Hidra&uacute;lico - Neum&aacute;tico</option>
<option>Mec&aacute;nico Automotriz</option>
<option>Miscelaneo</option>
<option>Vendedor(a)</option>
                                       
                                   </select>




¿Saben alguna forma?, se los agradecería mucho, he visto métodos como el implode pero ninguno me verifica simplemente si una opción es seleccionada o no.


He utilizado códigos como estos, pero me quedo varado cuando debo verificar si se seleccionó o no la opción.

Código (php) [Seleccionar] Expandir



$opciones = $_POST['Puesto'];
      foreach ($opciones as $valor_option)
  {
 



     }



Hola amigos de el hacker.net, tengo un dilema y es algo demasiado sencillo pero se me ha complicado demasiado, necesito que cuando el usuario mueva un option de un select en el evento onchage se pase una variable vía POST a un script PHP para que este haga una consulta y otro combo se rellene, yo esto lo tengo hecho pero en otra página, pero no con AJAX porque en esa otra página yo simplemente cargo la página y ya, pero en esta página yo no puedo cargarla porque se borra toda la información entonces ocupo pasarle el valor que tiene selecionado ese select vía para poder ejecutarlo en el script de PHP. Soy nuevo en AJAX, he intentando hacerlo pero no he podido, un detalle importante que todo esto lo hago en una página, esto para que lo tengan en cuenta, ahora les consulto, ¿ se puede hacer?.

Creanme he intentado por todo lado ejemplos pero no es lo que ocupo, yo simplemente necesito refrescar la pagina sin cargarla y obtener el valor de ese combo para rellenar el otro.


Les agradezco que me lean y si tienen información o saben algo también.

Hola amigos del foro, vengo yo a uds de nuevo luego de numerosos intentos y desesperación, ya que sinceramente ya no se que podré estar haciendo mal.

Estoy haciendo una automatización en VB.NET 2010 en Excel, la cuál consiste en un limpiado de un archivo. Me pidieron unas modificaciones en el programa entonces tuve que cambiarlo bastante pero al final de cuentas el funcionamiento en sí del programa lo hace bien, excepto en un pequeño gran detalle el cuál es que no elimina las filas que yo quiero que elimine, estas para ser eliminadas simplemente tienen que ser un campo vacío, simplemente es eso pero no entiendo porque el programa no lo hace.

Les dejo acá el fragmento del método

Código (vbnet) [Seleccionar] Expandir




      'Variables a utilizar

       Dim str_cod As String = String.Empty
       Dim str_xxx As String = String.Empty
       Dim str_sku As String = String.Empty


       Dim xlWorkSheet As Excel.Worksheet = Nothing ' Hojas


       Dim i As Integer = 0 'Contador del ciclo

       Dim xcell As New Object

       xlWorkSheet = xlworkbook.Sheets("Hoja2") 'Hoja que estoy utilizando
       Dim xlrange_col2 As Range = Nothing

        'Progress Bar que utilizo

       pg_proceso_inventario.Minimum = 1
       pg_proceso_inventario.Maximum = filas


       'Este es el rango que recorro de la hoja de excel
       xlrange_col2 = xlWorkSheet.Range("B2:" + "B" + filas) 'Rango filas
     
        i = 2 ' Debe empezar en 2 porque este posee un encabezado

       'Esto es un checkbox consiste en que si quiero quitar o dejar todos. ignorar esto
       If chkDejarTodos.Checked = False Then

           'Ciclo que empiezo a recorrer el rango

           For Each xcell In xlrange_col2

               pg_proceso_inventario.Value = pg_proceso_inventario.Value + 1
               lbl_indice_numero.Text = i.ToString

               'limpiamos las variables

               str_cod = Nothing 'Código1
               str_xxx = Nothing 'Código XXX
               str_sku = Nothing 'Código SKU

               str_cod = Convert.ToString(xlWorkSheet.Cells(i, 1).Value) 'Código1
               str_xxx = Convert.ToString(xlWorkSheet.Cells(i, 2).Value) 'Código XXX
               str_sku = Convert.ToString(xlWorkSheet.Cells(i, 3).Value) 'Código SKU


               'Si el checkbox de familia no está activado procedemos a eliminar todo aquel
                'que no empiece por 77 y está vacío

               If chk_Familia.Checked = False Then

                   If str_cod.StartsWith("77") Then
                       i = i + 1

                   'Acá es el maldito problema, no lo elimina de ninguna forma

                   ElseIf (no_vacio(str_xxx) = False) Then
                       ' xlWorkSheet.Rows(i).delete()
                       With xlWorkSheet
                           .Rows.Item(i).delete()
                       End With

                       'xlWorkSheet.Cells(i, 2).Value = "DEBO ELIMINARME"
                       i = i + 1
                   Else
                       i = i + 1
                   End If

               Else
                   'Si el checkbox está activado
                   If str_cod.StartsWith(str_familia) Then
                       i = i + 1
                   Else
                       xlWorkSheet.Rows(i).Delete()
                       i = i + 1
                   End If
               End If

           Next
       End If

       pg_proceso_inventario.Value = pg_proceso_inventario.Minimum
       xlworkbook.Save()

       lbl_Cant_Produc.Text = devolver_filas(xlapp, xlWorkSheet)

       release_object(xlrange_col2)
       release_object(xlWorkSheet)





Bien les voy a explicar en prosa un poco más el código, consiste en recorrer ese rango desde B2 hasta la cantidad de filas que posee el archivo, cuando el encuentra un código que empieza por 77 el lo ignora si este ya no empieza por 77 entonces verifica que el código 2 (o sea la fila B del rango que estamos recorriendo) sea vacío y si no lo es lo elimina se supone porque en realidad no lo hace....


Bien este es el método que averigua si hay algo

Código (vbnet) [Seleccionar] Expandir



Public Function no_vacio(ByVal str As String) As Boolean
       If str.Length > 0 Then
           Return True
       End If
       Return False
   End Function



Inicialmente utilizaba el String.nulloblank o String.nullwhitespace pero el resultado es el mismo y la verdad ya no se que estoy haciendo mal.

Muchas gracias por leerme.

Hola amigos,

Estoy sumamente preocupado, en mi empresa vamos a hacer un licenciamiento de windows y office, actualmente estoy con windows 7 profesional 32 bits, hace unos años realicé varios pequeños sistemas que usamos en la empresa, cuya base de datos es Access 2007, el sistema se habia creado con .net 2010, el problema que me aqueja es la migracion misma, me preocupa que no pueda realizar la migración del sistema ya que estos son con diferentes librerías y esquemas.

Mi consulta es la siguiente:

¿Se puede hacer la migración? Tendré que volverlo a hacer todo?

Son sistemas hechos en 32 bits,  todos con vb 2010 y office 2010.
Se que el framework solo se instala y corre bien pero me preocupa la base de datos.

Gracias

[MOD: No hacer doble post.]

Saludos a los que leen este comentario, postié aca puesto que no se a cuál subforo va esto, antes había un subforo que decía informática y pensé que era el más apropiado, ahora no se a dónde puedo poner esto.

Bueno, necesito un software de escritorio remoto gratuito para la compañía, ya que team viewer es muy caro, ammy pues descartado por los rumores que escuché de su inseguridad, entre otros.

Me encontré uno que se llama zsoporte pero no se si es genuino y seguro ya que con tanto virus y ransomware ya ni se a donde recurrir.

Intenté desarrollarlo pero sólo encontré para rdp. Entonces no se si me pudieran sugerir alguno.

Muchas gracias  por leer.

Aclaro una cosa, el programa no lo estoy pidiendo crackeado.  Hay gratuitos como el Aeroadmin pero ese no me ha servido mucho.

Por ello les pido sugerencias.

Gracias

MOD: No hacer doble post.

Hola amigos, les escribo nuevamente para una consulta tonta, pero sinceramente no logro entender cuál es el inconveniente.

Verán, estoy haciendo unas validaciones con PHP, las cuáles se hacen por medio de expresiones regulares, esta en lo particular lo que hace es simplemente permitir espacios y únicamente letras.

Código (php) [Seleccionar] Expandir




$nombre = limpiar($_POST["Nombre"]); //Acá obtengo el campo, el método limpiar sanitiza la variable.

$patron3 = "/^[A-Za-z\s]+$/"; //Valida sólo letras y espacios, este es el patrón.


//Valida el nombre, esto está dentro de una function que retorna true o false cuando haya la asociación.

if (preg_match($patron3, $nombre) == true) {return true;} else {
return false;}




Y cuando ejecuta el código me marca lo siguiente:

Warning: preg_match(): Empty regular expression in /miruta/ on line 300.

Sinceramente lo considero una babosada pero la verdad no logro entender, antes de que me digan si el campo está asociado con el POST, evidentemente lo está pues ese campo se inserta correctamente en mi base de datos por lo tanto el campo si está obteniéndose del html correctamente.

¿Tienen idea de que carajos puede ser?.

Muchas gracias.

Hola soy yo de nuevo para molestarlos.

Estoy haciendo un editor de texto, resulta que quiero que cuando digito en el richtextbox o el usuario digite en él , en la parte de abajo  sea cualquier tecla se muestre el número de columna y fila ACTUALIZADO en sus respectivos labels del control (control Status Strip) , esto lo subrayo ya que cuando presiona la tecla debo presionarla dos veces para que muestre el dato actualizado, en fin pude lograr hacerlo pero no de la mejor manera, ya que cuando lo realizo se muestra pero algo atrasado, digamos que marco la flechita arriba, abajo, enter pero aveces sigue mostrando la línea anterior y no comprendo por que sinceramente.


Les adjunto mi códido este es el método, donde RH es el richtextbox y TS son los labels del Status Strip.

Código (csharp) [Seleccionar] Expandir



private void actualizar_lineas(){

           //Actualiza el número actual de la línea
           int int_line = 0;
           int int_column = 0;

           RH_Editor.DeselectAll();
           int_line = 0;
           TS_Linea.Text = "";
         
           int_line = RH_Editor.GetLineFromCharIndex(RH_Editor.SelectionStart);
           TS_Linea.Text = int_line.ToString();
           Update();

           RH_Editor.DeselectAll();
           int_column = 0;
           TS_Columna.Text = "";

           int_column = RH_Editor.SelectionStart - RH_Editor.GetFirstCharIndexFromLine(int_line);
           TS_Columna.Text = int_column.ToString();
           Update();
         
       
       
       }




Y este es el evento keydown

Código (csharp) [Seleccionar] Expandir



 if (e.KeyData == Keys.Left || e.KeyData == Keys.Up || e.KeyData == Keys.Down || e.KeyData == Keys.Right  ){


               TS_Linea.Text = "";
               TS_Columna.Text = "";
               Update();
               actualizar_lineas();

           }

           else{

               TS_Linea.Text = "";
               TS_Columna.Text = "";
               Update();
               actualizar_lineas();

           }




Bien, lo hice así para ver si fuerzo que haga la actualización pero sigue igual, entonces no se que podrá ser.

Les agradecería mucho.

Hola amigos, les tengo una consulta, resulta que ocupaba conectarme con MVC3 a Oracle 10g Express Edition con el motor de ASP.NET C#.

Bien, descargo el ODAC correspondiente al 12 C, según leí es compatible con el último release del Express Edition del 10 g y pues pude hacer el modelado(data model entity) correspondiente con el MVC3 pero con un framework mayor al 3.5 agregando un origen de datos desde el ODBC del Windows 7 Professional.

Para realizar un modelado según la persona yo podía hacerlo simplemente con agregarle las referencias del OracleClient a mi proyecto y según él aparecía el data model entity, pero  pimero que nada no aparece en el visual studio 2012 y segundo cuando yo me dispongo a utlizar el framework 3.5 para poder conectarme con las librerias del Oracle Client no dispongo del MVC 3, o sea no aparece.


Bien, mi consulta entonces radica como podía hacer ese modelo con el framework 3.5 y el oracleclient con el mvc3 ? Ya que me parece que eso no es así, pero quiero confirmar con más gente como ustedes que son expertos en el tema.

Ya que la única manera que pude hacer que apareciera fue instalando el ODAC 12 c y así el visual studio me desplegara el Oracle Data Provider.

Otra consulta, que tan cierto es lo del Overhead, el ODP hace mi aplicación más deficiente?

Gracias amigos, sólo es una consulta, no es que quiero desmeritar a nadie.

[Mod: no hacer dobke post]

Hola amigos,

Estoy teniendo problemas al conectar visual studio 2012 C# con Oracle 10g Express Edition, me dicen que el problema que tengo es usar Windows 8 con 64 bits ya que el Oracle es de 32 bits, cuando lo conecto dice que la conexión no ha sido abierta, habrá una forma de corregirlo?, o definitivamente no se puede?.


Si nadie sabe cómo, alguno tiene el link para descargar el oracle 10 g express edition para el windows 8 64 bits, por favor lo necesito mucho y es que me meto a la página de Oracle y ya no hay nada del 10 g, les estaría muy agradecido o sino que me ayuden para poder correrlo con 32 bits en mi windows de 64 bits.


Mod: no hacer dobke post

Hola, necesito su ayuda gente, resulta que compre un season pass de fallout 4 en amazon, segun yo active el digital code, pero no se como realmente compruebo que el psn store me lo activó y que realmente lo haya adquirido. En que parte puedo verficar esto de mi cuenta, resulta que el dia 22 ya viene el dlc del automatron pero no veo ninguna descarga y ya me tienen preocupado será que me robaron? Les agradezco y perdonen mi ignorancia. Cuando presiono la imagen del season pass dice purchased pero no se realmente.

Gracias!!

Hola amigos,

Soy yo nuevamente molestándonos, tengo una consulta, resulta que un compañero de clase desgraciadamente se le ocurrió que el proyecto que había desarrollado en capas se implemente con WCF, mi consulta es la siguiente: ¿ Necesito crear de nuevo todo el proyecto para adaptarlo a WCF o simplemente agrego el proyecto de ASP.NET y lo puedo llamar desde el WCF y publicarlo?.

Esto de los WCF no se va bien, porque apenas lo estoy conocimiendo y los MVC, les agradecería si me comentaran si esto lo puedo hacer, y si hay formas de implementarlo.

Gracias!!!.

Saludos camaradas,

tengo una consulta de una situación que me ocurrió días atrás, verán tengo un sistema que está conectado a una base de datos access 2007, el cuál ya tiene más de 2 años de estar funcionando y me sucedió lo siguiente: Resulta que cuando el usuario decide seguir un paso del sistema el sistema da la alerta de que el paso sucedió correctamente, efectivamente envía el correo con éxito al destinatario, pero en la base de datos no se actualizó, esto NUNCA me había pasado en los años que llevo con el sistema, el cual tiene varios try catch cuando no se realiza algún paso y si a la hora de realizarse ese paso no se efectuó porque no saltó el try catch?.  Recibí una queja del usuario molesto porque evidentemente tenía que repetir el paso, el sistema funciona correctamente, inclusive me metí en las bitácoras y está con los pasos que tiene que estar.

Aveces se pierde la conexión en estas máquinas pero si se diera eso caería una excepción pues.

Los permisos igual, básicamente se caería el programa o saltaría otra excepción.


¿Saben que otra situación se podría estar dándo?

Hola,

Hice un sistema pequeño de facturación con VB.NET 2010, con Crystal Reports for Visual Studio es una versión 13, puedo compilarlo e imprimir la factura sin ningún problema, pero lo que me temía y efectivamente me está dando problemas es hacer esto en otro ordenador, sinceramente no comprendo que REALMENTE necesito para que me pueda correr mi sistema de facturación que utiliza un reporte de crystal.

La conexión con access y todo me sale perfecto, pero el problema radica cuando quiero imprimir la factura donde me pide que no encuentra el archivo ( el cuál el reporte está a la par del exe! no debería haber problema). Entonces supuse que básicamente era instalar el crystal report que además surgió otro problema NECESITA TENER INSTALADO VISUAL STUDIO, lógicamente no debo instalar visual studio en la máquina del cliente porque se vuelve pesado y sobretodo como hago para solventar este problema de portabilidad, porque no encuentro una versión cliente para esto.

Sinceramente quedo con dudas y por ello recurro a uds, ¿ Cómo hago?.

Hola,


Estoy tratando de instalar VB 6 en windows 8, pero no he podido.

Utilicé ya enlaces como este para poder realizarlo

https://social.msdn.microsoft.com/Forums/es-ES/eee828df-fb42-4bd6-9690-e47fb2a09d51/instalar-visual-basic-60-en-windows-8?forum=vb56es

Donde ellos proponen esto:


1º.- COPIAR EN UNA CARPETA EL VISUAL BASIC. Y LUEGO LO SIGUIENTE.

- Copiar el archivo setup/vs98ent.stf en la raiz del instalador y renombrarlo por acmsetup.stf

- Copiar todo el contenido de la carpeta setup en la raiz del instalador (donde se encuentra acmboot.exe).

- Ejecutar el archivo setup luego acmsetup.exe en la raiz del instalador (donde se encuentra acmboot.exe).

- Eso es todo el instalador del Visual Studio 6 se iniciara.

Nota: El archivo vs98ent.stf tambien puede estar con nombre vs98pro.stf


Bien, el error me dice que no puedo correr aplicaciones de 64 bits.

Ya utilicé el modo de compatibilidad y con permisos de administrador, ya actualicé la consola java

¿Saben algo que me ayude?

Hola,

Estoy utilizando un archivo de excel, todo bien simplemente que cuando quiero terminar y/o cerrar el archivo de excel pues no se cierra.

Acá lo asigno

Código (vbnet) [Seleccionar] Expandir



objeto_excel = New LibroExcel() 'Crea un nuevo libro
                    objeto_excel.xApplication = New Excel.Application() 'Crea una nueva aplicación

                    objeto_excel.xApplication.DisplayAlerts = False
                    objeto_excel.XWorkBook = objeto_excel.xApplication.Workbooks.Open(Arch) 'Realiza una nueva aplicación con un nuevo libro a abrir.
                    objeto_excel.XWorksheet = objeto_excel.XWorkBook.Worksheets.Item(1) 'Asigna la hoja de excel
                    objeto_excel.ficheros = fichero



Acá lo cierro ( Código forzoso pues no cierra!!!)

Código (vbnet) [Seleccionar] Expandir




Try

            If IsFileOpen(fichero) = False Then
                End
                GC.Collect()
            Else

                obj_excel.XWorksheet = Nothing
                GC.Collect()

                obj_excel.XWorkBook.Close()
                obj_excel.XWorkBook = Nothing

                GC.Collect()

                obj_excel.xApplication.Quit()
                obj_excel.xApplication = Nothing

                GC.Collect()

                obj_excel.ficheros = Nothing

                GC.Collect()

                releaseObject(obj_excel)

                End
            End If

        Catch ex As Exception
            MsgBox("Hubo un problema cerrando el programa y/o el archivo.")
            End
        End Try




Acá la clase libro

Código (vbnet) [Seleccionar] Expandir



  Private xlApp As Excel.Application
    Private xlWorksheet As Excel.Worksheet
    Private xlworkbook As Excel.Workbook
    Private fichero As String

    'Propiedades accesoras

    Public Property xApplication() As Excel.Application
        Get
            Return Me.xlApp
        End Get
        Set(ByVal Value As Excel.Application)
            Me.xlApp = Value
        End Set
    End Property


    Public Property XWorkBook() As Excel.Workbook
        Get
            Return Me.xlworkbook
        End Get
        Set(ByVal Value As Excel.Workbook)
            Me.xlworkbook = Value
        End Set
    End Property

    Public Property XWorksheet() As Excel.Worksheet
        Get
            Return Me.xlWorksheet
        End Get
        Set(ByVal Value As Excel.Worksheet)
            Me.xlWorksheet = Value
        End Set
    End Property

    Public Property ficheros() As String
        Get
            Return Me.fichero
        End Get
        Set(ByVal Value As String)
            Me.fichero = Value
        End Set
    End Property




Buenas,

Estoy realizando un crystal report, el crystal report se llena con un dataset, donde es un objeto xsd donde le defino previamente sus datatables, la cuestión es que realizo una consulta y el dataset debería en buena teoría llenarse con la misma, pero resulta que no lo hace sino que queda vacío, como hago para llenar ese dataset desde el código para luego simplemente pasarselo lleno al crystal report y generar la consulta?.


Este es el código que tengo, el cuál recibe como parámetro un entero, este mismo retorna un dataset, el cuál según yo debería llenar al item xsd que definí con el diseñador de visual studio, porque el crystal jala ese datasource de ese dataset y de ahí simplemente debería desplegar los campos

No lo hago desde el wizard poque queda completamente suspeditado a una ruta del archivo de access y bueno para hacer un datasource dinámico es un poco engorroso desde el wizard, entonces simplemente decidí hacerlo desde un dataset y que en tiempo de ejecución lo llene

Código (vbnet) [Seleccionar] Expandir



Public Function llenar_dataset(ByVal fact As Integer) As DataSet


       Dim cmd2 As OleDb.OleDbCommand = Nothing
       Dim ds As New DS_Tablas



       conn.Open()

       cmd = New OleDb.OleDbCommand("SELECT *  FROM tbl_HEADER  WHERE ID_CONSECUTIVO = @Id", conn)
       cmd.Parameters.AddWithValue("Id", fact)
       cmd.ExecuteNonQuery()

       Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)

     
       cmd2 = New OleDb.OleDbCommand("SELECT *  FROM tbl_DETAIL  WHERE COD_FACTURA = @Id_det", conn)
       cmd2.Parameters.AddWithValue("Id_det", fact)
       cmd2.ExecuteNonQuery()


       Dim da2 As OleDbDataAdapter = New OleDbDataAdapter(cmd2)



       da.Fill(ds, "tbl_HEADER")
       da2.Fill(ds, "tbl_DETAIL")

       conn.Close()


       Return ds

   End Function



Acá el código que genera el crystal, el cuál la ruta y lo demás lo hace bien, simplemente sale vacío

Código (vbnet) [Seleccionar] Expandir



CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument()

               ds = obj_data.llenar_dataset(Convert.ToInt32(lblConsecutivo.Text))

               CrReport.FileName = "CrystalReport1.rpt"

               'Ruta del reporte
               str_path_factura = System.Windows.Forms.Application.StartupPath & "\" & "CrystalReport1.rpt"

               CrReport.Load(str_path_factura)

               'Esto es código provisional, simplemente es para saber si el dataset está lleno o no
               If ds.Tables("tbl_HEADER").Rows.Count() = 0 Or ds.Tables("tbl_DETAIL").Rows.Count() Then

                   MsgBox("Tablas vacías")
               Else
                   MsgBox("Tu dataset está lleno chico")


                   MsgBox(ds.Tables("tbl_HEADER").Rows.Count().ToString)
                   MsgBox(ds.Tables("tbl_DETAIL").Rows.Count().ToString)
               End If

               CrReport.SetDataSource(ds.Tables(0))
               CrReport.SetDataSource(ds.Tables(1))

               'CrReport.PrintToPrinter(False, False, False, False)





Pues acá está el código pero le dataset sale vacío y por tanto el reporte igual.

GRACIAS POR LEER

Buenas, estoy tratando de realizar un POS y pues ya puedo meter los datos en la base de datos y ya tengo mi archivo rdlc con la personalización que necesito, pues como ustedes saben las impresoras POS tienen ciertas medidas, pues tengo el reporte con el formato definido y sus respectivos parámetros.

Necesito agarrar ese reporte e imprimirlo directamente en la impresora sin vista previa, ya he visto varios enlaces como por ejemplo este

https://msdn.microsoft.com/en-us/library/ms252091.aspx

Y pues me parece un poco engorroso ese código y sobretodo no me sirve, sólo errores. También veo en ese código que ellos definen los datos del tamaño y el formato, pues yo ya tengo el reporte hecho el diseñador del VS lo cuál creo que no necesito definirselo ahí.


Necesito pasarle los parámetros al reporte para hacer correctamente la consulta, donde ya tengo mis datasets definidos, entonces sinceramente no se como hacer para llenar ese reporte y poder imprimirlo. Ya que antes simplemente ponía un control de report viewer y el me lanzaba el dialogo para imprimirlo, pero como es para facturas necesito que no se vea.

Código (vbnet) [Seleccionar] Expandir



Private Sub imprimir_reporte()

        Dim FACT As New ReportParameter("FACT", lbl_Consecutivo.Text)
        Dim deviceInfo As String = "<DeviceInfo><OutputFormat>EMF</OutputFormat><PageWidth>8.5in</PageWidth><PageHeight>11in</PageHeight><MarginTop>0.25in</MarginTop><MarginLeft>0.25in</MarginLeft><MarginRight>0.25in</MarginRight><MarginBottom>0.25in</MarginBottom></DeviceInfo>"
     
        Dim report As New LocalReport()

        Try

            Me.Tbl_DETAILTableAdapter1.Fill(Me.FacturacionDataSet1.tbl_DETAIL)
            Me.Tbl_HEADERTableAdapter1.Fill(Me.FacturacionDataSet11.tbl_HEADER)

            'report.ReportPath = "..\..\Report2.rdlc"

            report.DataSources.Add(New ReportDataSource("HEADER", Me.Tbl_HEADERTableAdapter1.Fill(Me.FacturacionDataSet11.tbl_HEADER)))
            report.DataSources.Add(New ReportDataSource("DETAIL", Me.Tbl_HEADERTableAdapter1.Fill(Me.FacturacionDataSet11.tbl_HEADER)))

            report.SetParameters((New ReportParameter() {FACT}))

            report.ReportEmbeddedResource = "Report2.rdlc"


         
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub





Ese es el código que tengo, realmente yo tenía el código para imprimir y que a ese reporte le lleguen los datos del dataset les agradezco pero como les digo se hace realmente engorroso y da errores.

Con respecto a los datos del dataset pues he visto que uno le define el datasource, y le mando por medio de parámetros el adapter, dataset pero en ninguna parte de mi rdlc necesito hacer eso y pues me tiene confundido.

Si uds serían tan amables de darme una guía se los agradezco mucho


GRACIAS POR LEER.

Buenas,

Estoy haciendo una especie de team viewer, aunque sea pequeñito, esto con el fin de conectarme fácilmente, donde estoy usando vs 2010 con vb.net.

Estoy usando la librería  MSTSCLib y la referencia es AxInterop.MSTSCLib y también agregué esta Interop.MSTSCLib, en resumen agregué la referencia Microsoft Terminal Services Active Client 1.0 Type Library.


Pues resulta que he visto el código y pues no he podido echarlo a andar pues no me conecta, el "panel" no hace nada.

Código (vbnet) [Seleccionar] Expandir



Try

           Dim secured As IMsTscNonScriptable

           Pnl_Remoto.Server = txtServidor.Text
           Pnl_Remoto.UserName = txt_Usuario.Text
         

           secured = CType(Pnl_Remoto.GetOcx(), IMsTscNonScriptable)
           secured.ClearTextPassword = txtContraseña.Text

           Pnl_Remoto.Connect()

       Catch ex As Exception

           MsgBox("No se pudo conectar" + vbCrLf + "Error:" + vbCrLf + ex.Message.ToString(), MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try



Saben algo que tenga que agregarle, instalarle que estoy haciendo mal?

Saludos, gracias por leer.

Hola, me da pena consultar esto pero sinceramente no se porque no me funciona.

Hice un proyecto de c# en visual studio .net 2010 y necesito pasarlo a un compañero para que el lo continúe, el proyecto pues es algo muy básico y está hecho en capas, en buena teoría simplemente es pasarle todo el folder del proyecto y que el lo abra y lo continúe pero no se porque cuando el lo abre le aparece vacío y verdaderamente necesito que el lo continúe puesto que yo ya hice mi parte y no deseo seguirlo puesto que lo haría todo ¬¬.


Yo simplemente copio y pego el proyecto de la carpeta projects de visual studio y se lo paso, se supone que el con el visual studio lo abre y listo , no ?

El proyecto no lleva referencias, más que las mismas de las capas, es decir capa presentación, lógica y base de datos. Con respecto a los imports pues son de sql server y sqlserver data, nada que no traiga el visual studio.

Que más debo hacer???


GRACIAS POR LEER.

Hola,

Tengo una duda, estoy usando SQL SERVER 2008 y necesito desde la aplicación la cuál es un C# con visual studio 2010 realizar un login.

Desde un principio no suena complicado, pero sinceramente no comprendo como realmente realizo un login desde el SQL SERVER y le pongo un MUST CHANGE para luego DESDE LA APLICACION averiguar que ese login tiene que cambiarse para poder entrar.


Tengo este store procedure, el cual me genera bien el script desde el sql server
Ahora bien, mi consulta, ¿ Como carajos hago para que cuando yo valide el login desde mi aplicación, mi aplicación sepa que ese login del SQL SERVER debe ser cambiado, y cómo lo hago o cómo lo cambio, con un update o con Transact SQL?

Código (sql) [Seleccionar] Expandir




CREATE PROCEDURE [dbo].[SP_CREAR_LOGIN_Password_MG]
           @pUsuario_Login NVarchar(255),
           @pPassword NVarchar(255),
           @pUser NVarchar(255),
           @pRol Nvarchar(255)
           
       
           
   AS
   BEGIN
   Declare @sql as NVarchar(200)
   Declare @sql2 as NVarchar(200)
   
       SET @sql='CREATE LOGIN '  + @pUsuario_Login + ' '+ 'WITH PASSWORD= '''+ @pPassword + '''' + '' + 'MUST_CHANGE, CHECK_EXPIRATION = ON'
       exec (@sql)
       
       SET @sql2 = 'CREATE USER ' + @pUser + ' ' +  'FOR LOGIN ' + @pUsuario_Login
       Print @sql2
       exec(@sql2)
       
      EXEC sp_addrolemember @pRol, @pUser
       
   END
GO







Con respecto al login pues para saber si existe le realizo un select con un PWD y que me devuelva algo el sp, pero de ahí no se que más cuando valido lo siguiente.

No se si me logré explicar.

GRACIAS POR LEERME

Hola,

Quiero aprender profundo de como funciona un SO y como se organizan las computadoras desde los ciclos de reloj, los biestables, ect.

Donde puedo conseguir tutoriales o manuales completos?.

Hola,

Disculpen no se si esto va en esta sección o si va en la de hardware, mi duda es esta:

Tengo un computador con windows 7, de repente el monitor se apagó y no podía hacer nada puesto que no transmitía señal como que parecía , lo curioso que el ordenador permanecía encendido y cuando presionaba teclas y el mouse estos emitían luces.

¿Cuál fue la causa? , ¿ Fue el SO o el hardware?.

Me gustaría que me instruyan gracias y de SO si tienen algún manual de como funcionan mejor, quiero aprender más a fondo

Tengo una consulta

¿Cómo hago en ensamblador para comparar coincidencias de una palabra?

Se que con el registro CMP puedo comparar, pero digamos si tengo esto : "LA CASA ES ROJA"

y tengo estas palabras

CASASOLA
ROJAVERDE

Estas no son iguales pero tienen coincidencias, ¿cómo lo hago?

Uso Emu8086, saludos!!.

GRACIAS POR TOMARSE LA MOLESTIA DE LEER

Hola, soy bastante nuevo con esto del ensamblador y se me ha hecho un lio horrendo

Código (asm) [Seleccionar] Expandir



;************************************************************

;Realiza un ordenamiento de un array con 20 numeros

************************************************************


.MODEL SMALL                     ; Modelo de memoria para el programa

.DATA                            ; Declaracion de variables



Mensaje1 db 'Array sin ordenar',0Ah,24h ;declaracion de mensajes,0AH,24h es un salto de linea
Mensaje2 db 'Array ordenado',0Ah,24h
Mensaje3 db 'Array con multiplos del 3',0Ah,24h

.CODE

                               
INICIO:                              
                        ; Cuerpo del programa
         
         
   mov dx,OFFSET Mensaje1      ; Direccion de la cadena de texto
   mov ah,9                    ; Funcion para imprimir cadenas
   int 21h                     ; Llamada al sistema operativo
                   

   INICIALIZACION:
   
       
           mov si,offset tabla_o
           mov cx,19
           mov cambio,0
           mov temp, 0
           
           
       ciclo:
       
       mov ah,[si]              ;elemento 1
       mov al,[si+1]            ;elemento 2
       
       cmp al,ah                ;Realiza la comparacion del elemento 1 con el 2
       jg mayor                 ;Salta si es mayor
           
     
      fciclo:
       
       inc si  
       loop ciclo              ;ciclar hasta 20 elementos
       cmp cambio,1
       
       je INICIALIZACION
   
         
         
       salir:
       
               
       mov ah,4ch              ; servicio del DOS para regresar
       int 21h                 ; el control al procesador de comandos msdos                        ; Funcion para imprimir cadenas        
                               ; el control al procesador de comandos msdos
   
   
                                 
       cambio db 0            ; variable de estado 1=mayor 0=menor
       
       tabla_o db 2,9,16,1,4,5,6,32,17,10,60,63,90,12,33,45,99,100,80
     
       temp db 0; Variable temporal
         
   mayor:  
   
           mov cambio,1
                     
           ;T temp = list[i + 1];
   ;                        list[i + 1] = list[i];
   ;                        list[i] = temp;
   ;                        madeChanges = true;
                           
                           
          mov temp, al
          mov [si + 1] ,ah
          mov al, temp
          mov [si],al                    
           
                       
          jmp fciclo  
   

   
END INICIO
CODE ENDS
                           

END




Emulador 8086, x86

Tengo ese codigo, me gustaria imprimir lo que ordeno a la salida del array o lo que mal ordeno (porque ni siquiera se si lo ordene bien, pero bueno la idea es hacerlo yo si tienen alguna guia o algo que me ayude pues seria genial pero es adicional!).

Y es que si utilizo el 21h con el 4ch pues me vuelve a tirar el mensaje de arriba!!.

Me ha costado bastante entenderlo, les agradeceria una guia nada mas, GRACIAS POR LEER.

Buenas,

Estoy intentando exportar una tabla desde access a una hoja en excel y

tengo este código:

Código (vbnet) [Seleccionar] Expandir



Private Sub BtnExportar_Click(sender As System.Object, e As System.EventArgs) Handles BtnExportar.Click

       Dim fichero As String = String.Empty
       Dim ext As String = String.Empty

       If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
           '

           fichero = SaveFileDialog1.FileName

           Dim AccessConn As New System.Data.OleDb.OleDbConnection(frmLogin.constring)

           If AccessConn.State = ConnectionState.Open Then

               AccessConn.Close()

           Else
               'New sheet in Workbook
               Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT *  INTO [Excel 12.0 Xml;DATABASE=" & fichero & ";HDR=Yes;].[CUENTAS] from [CUENTAS]", AccessConn)
               AccessConn.Open()


               AccessCommand.ExecuteNonQuery()
               AccessConn.Close()
               MsgBox("Archivo exportado con éxito.")
           
           End If

           Catch
            MsgBox("No se pudo exportar el archivo.")
           End Try

       End If
   End Sub



Resulta que no puedo exportarlo a excel por la siguiente excepción:

"No puede registrar los cambios porque uno de los valores que ha especificado infringe la configuración definida para esta tabla o lista (por ejemplo, un valor es inferior al mínimo o superior al máximo). Corrija el error e inténtelo de nuevo."

Y lo puedo hacer con otras tablas SIN NINGÚN PROBLEMA, lo curioso es que si uso fechas EN ESTA TABLA me lanza esa excepción pero si le quito el campo de las fechas SI ME FUNCIONA, en otras tablas usando fechas me funciona!!.

Gracias por leer.

Hola, mi pregunta es la siguiente necesito meter un listbox DENTRO de un messagebox, no quiero meter el contenido, quiero meter todo el listbox en el messagebox con su contenido

¿Se podría hacerlo?.

Gracias

Siempre me he preguntando que tan viejo será una persona para estar viciando. No se, aveces me pregunto si será uno muy viejo para esto, aunque veo que cada vez más el mercado tiende a hacer una temática más adulta y que no estaré fuera de él.

¿Que opinan? ¿ Que edades tienen uds?

En mi caso tengo 26 y disfruto demasiado aún!!.

SALUDOS.

Hola soy yo de nuevo batallando con los gridviews de ASP.NET C# de casualidad el grid no hace nada cuando le inserto datos a la página, curiosamente si inserta en la base de datos y pues bueno necesito a fuerza que se visualicen esos datos.

Acá les adjunto mi código

STORE PROCEDURE

Código (sql) [Seleccionar] Expandir



CREATE PROCEDURE
[dbo].[SP_LISTAR_DETALLE_FACTURA]
 @pid_Factura int

AS
BEGIN

SELECT * FROM tb_detalle where id_Factura = @pid_Factura;

END

GO



CAPA_AD

Código (asp) [Seleccionar] Expandir





public List<Detalle> Listar_Detalle(Detalle objetodetalle)
       {


           string connectionString = Conexion.cadenaConexion;

           SqlConnection conn = new SqlConnection(connectionString);

           List<Detalle> detallesencontrados = null;

           SqlCommand cmd = new SqlCommand("SP_LISTAR_DETALLE_FACTURA", conn);
           cmd.CommandType = CommandType.StoredProcedure;
           cmd.Parameters.AddWithValue("@pid_Factura", Convert.ToInt32(objetodetalle.Id_factura));


           conn.Open();
           // execute = cmd.ExecuteNonQuery();

           SqlDataReader reader = cmd.ExecuteReader();

           detallesencontrados = new List<Detalle>();
           Detalle articulosaux = null;

           while (reader.Read())
           {

               articulosaux = new Detalle();

               articulosaux.Id_factura = Convert.ToInt32(reader[0]);
               articulosaux.Codigo_articulo= Convert.ToInt32(reader[1]);
               articulosaux.Descripcion= Convert.ToString(reader[2]);
               articulosaux.Cantidad = Convert.ToInt32(reader[3]);
               articulosaux.Monto = Convert.ToDouble(reader[4]);
               articulosaux.Subtotal = Convert.ToDouble(reader[5]);


               detallesencontrados.Add(articulosaux);
           }


           reader.Close();
           conn.Close();

           return detallesencontrados;



       }






CAPA_LOGICA

Código (asp) [Seleccionar] Expandir




 public List<Detalle> Listar_Detalle(Detalle pdetalle)
       {
           List<Detalle> articuloslista = null;
           Detalle_AD detallesAD = new Detalle_AD();
         

           articuloslista = detallesAD.Listar_Detalle(pdetalle);
           return articuloslista;

       }







METODO EN EL FORMULARIO

Código (asp) [Seleccionar] Expandir




private void llenar_grid(Detalle objeto)
          {

              List<Detalle> articulos_detalle = null;
              DetalleLN logicaln = new DetalleLN();

             articulos_detalle = logicaln.Listar_Detalle(objeto);
             dgvDetalle.DataSource = articulos_detalle;
             dgvDetalle.DataBind();
         
          }




Y por último el método que llama desde el botón

Código (asp) [Seleccionar] Expandir




 double precio, cantidad, subtotal;
               List<Detalle> detallelista = null;

               if (txtcod.Text == "" || txtdescripcion.Text == "" || txtCantidad.Text == "" || txtcosto.Text == "" || txtNumeroFactura.Text == "")
               {


                   Response.Write("Tienen que estar todos los espacios rellenados.");

               }

               else
               {

                   Detalle Oobjeto = new Detalle();

                   Oobjeto.Codigo_articulo = Convert.ToInt32(txtcod.Text);
                   Oobjeto.Id_factura = Convert.ToInt32(txtNumeroFactura.Text);
                   Oobjeto.Descripcion = Convert.ToString(txtdescripcion.Text);
                   Oobjeto.Monto = Convert.ToDouble(txtcosto.Text);
                   Oobjeto.Cantidad = Convert.ToInt32(txtCantidad.Text);

                   cantidad = Convert.ToInt32(txtCantidad.Text);
                   precio = Convert.ToDouble(txtcosto.Text);

                   subtotal = precio * cantidad;

                   Oobjeto.Subtotal = subtotal;


                   DetalleLN objeto = new DetalleLN();
                   objeto.Agregar_Detalle(Oobjeto);
                   llenar_grid(Oobjeto);
                   sumarcolumna();

                   
                   txtNumeroFactura.Enabled = false;

 }






Pues ya he intentado de cualquier variedad de formas, no es posible que no pueda mostrar, que me falta!!?. Les agradezco mucho que se tomen la molestia de leerme, si saben por favor les agradecería una manita.

Saludos

Buenas

Estoy tratando de hacer algo muy simple, es solo agregar al datagridview un registro conforme voy dandole los datos y posteriormente multiplicar y sumar las facturas, tal como se hace cuando uno realiza un facturador.

Código (asp) [Seleccionar] Expandir




            //DataTable dt = new DataTable();
            //dt.Columns.Add("Codigo_Articulo");
            //dt.Columns.Add("Descripcion");
            //dt.Columns.Add("Cantidad");
            //dt.Columns.Add("Precio");

            DataTable dt = dgvCostos.DataSource as DataTable;

            if (dt != null)
            {

                DataRow dr = dt.NewRow();
                dr["Codigo_Articulo"] = txtCodArt.Text;
                dr["Descripcion"] = txtDescripcion.Text;
                dr["Cantidad"] = txtCantidad.Text;
                dr["Precio"] = txtPrecio.Text;
                dt.Rows.Add(dr);
                dt.AcceptChanges();

                dgvCostos.DataSource = dt;
                dgvCostos.DataBind();
            }


Estoy con ese codigo, pero simplemente no hace nada, como pueden ver lo he alternado, pero simplemente el datagridview sigue viendose vacio.

En el datagridview tengo realizado las columnas respectivas(ya estan creadas), pero bueno sigo sin entender el porque no se agregan con un codigo tan simple.

Y de paso, saben como puedo hacer que conforme se agregue se multipliquen la columna precio * cantidad?, y al final sumarlos todos como en una factura?. Estuve pensando que usando alguno de los parametros e que capturan los eventos se puede realizar, pero talvez haya una forma mas simple.

Estoy trabajando con visual studio 2010, ASP.NET C#.

De antemano gracias al menos por leerme.

Pues me gustaría saber cuáles de aquí lo juegan, que línea juegan, anecdotas , pues lo que gusten

Agreguen , soy LAN

Yaldabaot

Buenas,

Me fui de pollo con un  un programa que supuestamente bloquea los puertos USB especificos y resulta ser que es una **** barra de esas que se instala en el navegador como un virus, que de hecho creo que fue un virus porque hasta me reseteaba el ordenador.

Me aparece esa maldita barra y no la puedo eliminar, me he metido al registro de windows, la he buscado, he desinstalado todo lo que instala y pues nada, no se muere.

Esa direccion de abajo es que la tira esa maldita barra NO ABRAN EL LINK, alguien sabe como eliminar este tipo de virus, que me hace parecer que es un spyware, me preocupa porque siento que me puede estar espiando.

Si el tema esta mal ubicado pido por favor a los moderadores que lo ubiquen donde corresponda, pues sinceramente no se donde, crei que era en la sección seguridad pero no le veo relacion ni criptografia ni el otro subforo.

http://istart.webssearches.com/?type=sc&ts=1408734392&from=wpc&uid=HitachiXHDS721050CLA360_JP1572FL3RNR2K3RNR2KX

Como hago para borrar cualquier rastro de esta cabrona barra_.  A alguien le ha pasado?.

De antemano , gracias

Pues eso caballeros, les agradecería si saben si existen algún software que pueda utilizar para bloquear los puertos y pendrives que yo quiera y no bloquear todos, les agradezco!.

Buenas, soy yo de nuevo molestando con estos extraños errores que me suceden, pues como dice el título, tengo un problema con el visual studio, específicamente en el proyecto que estoy desarrollando con vb.net, el problema radica en que cuando quiero compilar el proyecto con el f5, no lo puedo "debugear", el proyecto simplemente hace que va a compilarlo y a los segundo no hace nada y se vuelve a restaurar el compilador como si nada le hubiera pedido.

Esto me tiene preocupado puesto que ese proyecto me ha llevado mucho tiempo y lo necesito, entonces no se cuál es el problema.

Si alguien sabe les agradecería que me ayudaran, cuando pongo el proyecto en modo release si compila pero cuando lo pongo en debud (normalmente siempre está en debug) no hace absolutamente nada!!, curiosamente no he tocado nada de mi código para que haga eso, ya me ha pasado varias veces esto!!!.

Por cierto ya le ha dado clean, rebuild solution, build solution y nada hace!!!. Sigue igual!. Necesito hacerlo correr en modo debug como siempre lo hace .

Gracias por leerme!!!.

Aqui vengo de nuevo con uds  

Espero que se encuentren bien,

tengo un objeto tipo cita e inserto lo que hay de ese grid de esta manera.

Código (csharp) [Seleccionar] Expandir



gridobjeto = new Citas();

                   gridobjeto.Cedula_paciente = (string)dgvCitas.Rows[e.RowIndex].Cells["Cedula_Paciente"].Value;
                   gridobjeto.Paciente = (string)dgvCitas.Rows[e.RowIndex].Cells["Paciente"].Value;
                   gridobjeto.Cedula_doctor = (int)dgvCitas.Rows[e.RowIndex].Cells["Cedula_doctor"].Value;
                   gridobjeto.Doctor = (string)dgvCitas.Rows[e.RowIndex].Cells["Doctor"].Value;
                   gridobjeto.Especialidad = (string)dgvCitas.Rows[e.RowIndex].Cells["Especialidad"].Value;
                   gridobjeto.Servicio = (string)dgvCitas.Rows[e.RowIndex].Cells["Servicio"].Value;
                   gridobjeto.Hora_cita = (DateTime)dgvCitas.Rows[e.RowIndex].Cells["Hora_cita"].Value;
                   gridobjeto.Fecha_Cita = (DateTime)dgvCitas.Rows[e.RowIndex].Cells["Fecha_cita"].Value;
               

                   frmCitas formulario = new frmCitas();
                   formulario.objetocita = gridobjeto;
                   formulario.cargarcitas(gridobjeto);
                   formulario.Show();





Tengo un codigo que recibe ese objeto y lo pasa a los controles

Código (csharp) [Seleccionar] Expandir




Public void cargarcitas(Citas cita){
List<Citas> citasEncontradas = null;

         
               CitasLN citasLN = new CitasLN();
               citasEncontradas = citasLN.ConsultarTodos_Fecha(objetocita);


               foreach (Citas lista in citasEncontradas)
               {

                   
                   txtCed_Doctor.Text =  lista.Cedula_doctor.ToString();
                   cboEspecialidad.Text  = lista.Especialidad.ToString();
                   txtDoctor.Text = lista.Doctor;
                   txtHoraCita.Text = lista.Hora_cita.ToString();

                   txtNombrePaciente.Text = lista.Paciente;
                   txtPaciente.Text = lista.Cedula_paciente ;
                   cboServicios.Text = lista.Servicio.ToString();
                   dtpFecha.Value = Convert.ToDateTime(lista.Fecha_Cita);
     

               
               }



           

}




//Acá está el método para actualizar los datos

Citas cita = new Citas();

                   cita.Cedula_doctor = Convert.ToInt32(txtCed_Doctor.Text);
                   cita.Doctor = txtDoctor.Text;
                   cita.Cedula_paciente = txtPaciente.Text;
                   cita.Paciente = txtNombrePaciente.Text;
                   cita.Especialidad = cboEspecialidad.SelectedText;
                   cita.Servicio = cboServicios.SelectedText;
                   cita.Fecha_Cita = Convert.ToDateTime(dtpNuevo.Value.Date);
                   cita.Hora_cita = Convert.ToDateTime(txtNuevaHora.Text);
                   cita.Estado_cita = "Pendiente";

                   //Instancimiento de la capa de Lógico de Negocios a la capa de Acceso de Datos.
                   CitasLN citaLN = new CitasLN();
                   citaLN.Reprogramar_Cita(cita);
                   limpiar();
                   MessageBox.Show("Se reprogramó la cita con éxito.");







Este es mi query para realizar el update

Código (csharp) [Seleccionar] Expandir



 string sql = "UPDATE tbo_Citas SET Cedula_Paciente ='" + cita.Cedula_paciente + "', Nombre_Paciente ='" + cita.Paciente + "', Cedula_Doctor =" + cita.Cedula_doctor + ", Nombre_Doctor='" + cita.Doctor + "', Especialidad_Doctor ='" + cita.Especialidad + "', Servicio = '" + cita.Servicio + "', Hora_Cita ='" + cita.Hora_cita + "', Fecha ='" + cita.Fecha_Cita + "'   where Fecha ='" + cita.Fecha_Cita + "' and Hora_cita = '" + cita.Hora_cita + "'";


Este es el query en el motor base de datos(versión resumida)

Código (sql) [Seleccionar] Expandir


UPDATE [ControlCitas].[dbo].[tbo_Citas]
  SET [Cedula_Paciente] = 'a'
     ,[Nombre_Paciente] = 'b'
     
   
WHERE Fecha = '15/08/2014' and Hora_Cita = '05:30'
GO






Cuando realizo todo ese procedimiento el query no se ejecuta, ya lo intenté hacerlo por separado en el sql tampoco hace el query, mi pregunta es, que carajos estoy haciendo mal!!, si en los otros métodos cuando busco por fecha y hora si me retorna resultados.

A la hora de cargar el grid en los campos se me cargan los demás bien, pero el dato hora se me carga con otro valor

Es un masked textbox con format de hora

   txtHoraCita.Text = lista.Hora_cita.ToString();

Ya lo he formateado cualquier cantidad de veces y nada, no entiendo, ni siquiera en el sql hace el query!




trabajo con c#, vs 2010 y sqlserver 2008 Express.



Les agradecería que me digan que problema tengo, gracias de antemano.

Buenas,

Tengo una una duda, ¿ Existe una aplicación para android o smartphone que yo pueda llamar de un smarphone con internet a un teléfono fijo sin conexión a internet?.

Me gustaría saber si existe y sino, ¿ Cómo podría hacerlo?.

Hola,

Hice una aplicación de control de una serie de datos, la aplicación hasta el momento iba bien, pero cuando me empezaron a acosar unos usuarios con extrañas exepciones que en mi vida nunca ha visto.

La aplicación ya tenía una cierta cantidad de tiempo, y en los otros ordenadores pues funciona a la maravilla, hasta yo mismo verifiqué que al insertarse los valores sean los correctos.

Lo único y estoy casi seguro que el problema radica en este dato:

Cuando el usuario escribe en su caja de texto y pone por ejemplo un valor numérico 70000, cuando pierde el foco el text box formatea la variable que recibe  quedando de esta manera : 70,000 , a modo de código pues el valor es este : Double monto =  txtmonto.toString("###,###,###")

Cuando se inserta en la base de datos simplemente se inserta con el separador de miles, hasta el momento que tiene la aplicación tiene más de un año casi y hasta ahora cero problemas. El campo den la base de datos tiene un valor de double, en este caso el motor de base de datos es Acess 2007.


Cuando revisé en el sistema operativo Windows 7, tenía que los separadores de miles eran con "," y los decimales con "."

Cuando el usuario acosador inserta le aparece esta imagen:




Cabe decir, que al formato del monto que es double lo pase luego a string para resolver el problema y hacerle un .replace(",",nothing) para que el número llegue intacto a la tabla, funciona en otros ordenadores y en ese bendito ordenador no -.-.

Y es un usuario muy hostigador y molesto, ojala puedan ayudarme con la ayuda.

Disculpen las molestias por la imagen, no se subirla bien a un foro

Les agradezco la ayuda brindada, y desde ya muchas gracias.

Hola, estoy haciendo un programa que cambia contraseñas, pero por alguna extraña razón el UPDATE no me funciona D:, VB.NET 2010

Código (vbnet) [Seleccionar] Expandir



        conn.Open()

       cmd = New OleDb.OleDbCommand("UPDATE USUARIOS SET PASSWORD = @PASS WHERE USUARIO = @USER", conn)

       cmd.Parameters.AddWithValue("@USER", usuario)
       cmd.Parameters.AddWithValue("@PASS", password)




       cmd.ExecuteNonQuery()


       conn.Close()


 
ERROR = "Error de sintaxis en la instrucción UPDATE.".

Lo he cambiado sin parámetros y con parámetros, no se que será. Gracias por su ayuda y por leerme

Saludos

Me acabo de conseguir una laptop ASUS con 500 GB de disco y con este procesador : Celeron Dual Core N2815, 4GB de ram, y Windows 8 64 bits el vendedor me aseguró mucho que esta realmente si servía para programar y jugar video juegos no muy pesados.

¿Qué opinan ustedes, salí estafado o si me rinde?.

Es que leído sobre el procesador y no me han dado mucha esperanza .

Hola, sinceramente no se dónde postear esto y pido que si estoy mal de foro que me pase algún administrador.

Hace unos días aproxidamente como 3 días, he tenido problemas con mi computadora al parecer ella se crashea cuando estoy utilizandola sin ninguna razón, lo curioso es que aveces se reinicia pero nunca da señas de algún BSOD.

Cuando la laptop se crashea se queda del mismo color de la pantalla que tengo cuando la estoy utilizando, un dato curioso es que cuando uso modo seguro no le ocurre eso, he intentado restaurarla a un estado anterior y nada, y también he usado comando para arreglar archivos del sistema operativo windows 7 professional tales como "CHKDSK /F".

Este problema comenzò cuando le instalè visual studio 2010, pero estoy casi seguro que ese no es el problema, cabe destacar que también tengo poco espacio en el disco duro, aproximadamente como 4GB.

Latop Toshiba Satellite
3 GB Ram
122 HD

Les agradezco la ayuda y si entran por leer este Post.

Buenas,

He estado buscando en internet y lo que encuentro no me sustenta mucho, ¿alguno de ustedes sabe como obtener la ruta de un archivo en ejecución, pero que NO esté dentro del mismo folder que viene el debug del visual studio y que no sea la misma aplicación del programa que uno está creando?.

En pocas palabras, necesito obtener la ruta de un archivo que se está ejecutando, pero que no sea la misma aplicación que uno está programando, es en C#.

He estado utilizando
este código

Código (csharp) [Seleccionar] Expandir



string logsDirectory = Path.Combine(Environment.CurrentDirectory, trozo2);



Pero lo que obtengo es la ruta donde está proyecto y es lo que NO necesito.