none
error con Friend Shared, en argumento. RRS feed

  • Pregunta

  • Buenas, tengo un problema al momento de querer guardar los articulos me manda este error, les muestro en el codigo.

     Private Sub BtnGuardarArti_Click(sender As Object, e As EventArgs) Handles BtnGuardarArti.Click
            Dim articulo As String = ArticuloComboBox.Text
            If (articulo = "") Then
                ErrorProvider1.SetError(ArticuloComboBox, "Falta el Nombre de Articulo")
                ' Salimos del llamado por falta de
                Return
            End If
    
            Dim descripcion As String = DescripcionComboBox.Text
            If (descripcion = "") Then
                ErrorProvider1.SetError(DescripcionComboBox, "Introduce la Descripción")
                Return
            End If
    
            Dim nofactura As String = No_FacturaTextBox.Text
            If (nofactura = "") Then
                ErrorProvider1.SetError(No_FacturaTextBox, "Introduce la No de Factura, si es que lo tiene!!")
                Return
            End If
    
            Dim NoInventario As String = No_InventarioTextBox.Text
            If (NoInventario = "") Then
                ErrorProvider1.SetError(No_InventarioTextBox, "Introduce la Inventario")
                Return
            End If
    
            Dim ubicacion As String = UbicacionTextBox.Text
            If (ubicacion = "") Then
                ErrorProvider1.SetError(UbicacionTextBox, "Introduce la Ubicación")
                Return
            End If
    
            Dim color As String = ColorTextBox.Text
            If (color = "") Then
                ErrorProvider1.SetError(ColorTextBox, "Introduce el Color")
                Return
            End If
    
            Dim marca As String = MarcaTextBox.Text
            If (marca = "") Then
                ErrorProvider1.SetError(MarcaTextBox, "Introduce la Marca")
                Return
            End If
    
            Dim modelo As String = ModeloTextBox.Text
            If (modelo = "") Then
                ErrorProvider1.SetError(ModeloTextBox, "Introduce el Modelo")
                Return
            End If
    
            Dim noserie As String = No_SerieTextBox.Text
            If (noserie = "") Then
                ErrorProvider1.SetError(No_SerieTextBox, "Introduce el No de Serie")
                Return
            End If
    
            Dim condiciones As String = Condiciones_FisicasComboBox.Text
            If (condiciones = "") Then
                ErrorProvider1.SetError(Condiciones_FisicasComboBox, "Introduce las Condiciones Fisicas")
                Return
            End If
    
            Dim observaciones As String = ObservacionesTextBox.Text
            If (observaciones = "") Then
                ErrorProvider1.SetError(ObservacionesTextBox, "Introduce las Observaciones")
                Return
            End If
    
            Dim tipocompra As String = Tipo_de_CompraComboBox.Text
            If (tipocompra = "") Then
                ErrorProvider1.SetError(Tipo_de_CompraComboBox, "Introduce el Tipo de Compra")
                Return
            End If
    
            Dim proveedor As String = ProveedorComboBox.Text
            If (proveedor = "") Then
                ErrorProvider1.SetError(ProveedorComboBox, "Introduce el Proveedor")
                Return
            End If
    
    
    
            Try
                limpiar()
    
                If (Verificar(NoInventario)) Then
                    MessageBox.Show("El registro ya existe!")
                Else
                    InsertarArticuloNuevo(articulo, descripcion, nofactura, NoInventario, ubicacion, color, marca, modelo, noserie, condiciones, observaciones, tipocompra, proveedor)
                    MessageBox.Show("Se ha guardado correctamente.")
                    Muestradatos()
                    ErrorProvider1.Clear()
                End If
    
            Catch ex As Exception
                ' Se ha generado un error y se muestra
                MessageBox.Show(ex.Message)
    
            End Try
        End Sub
    
    
    'y uso este para capturarlos en la base de datos
    
     Friend Shared Sub InsertarArticuloNuevo(ByVal articulo As String, ByVal descripcion As String, ByVal nofactura As Integer, ByVal NoInventario As Integer, ByVal ubicacion As String, ByVal color As String, ByVal marca As String, ByVal modelo As String, ByVal noserie As Integer, ByVal confisica As String, ByVal observacion As String, ByVal fecha As Date, ByVal tipocompra As String, ByVal proveedor As String)
            'insertamos un registro
            Using Conexion As New SqlConnection("Data Source=CESARORTEGA-PC;Initial Catalog=Inventario;Integrated Security=True")
                Dim comand As SqlCommand = Conexion.CreateCommand()
                comand.CommandText = "INSERT INTO Articulos_Nuevos (Articulo, Descripcion, No_Factura, No_Inventario, Ubicacion, Color, Marca, Modelo, No_Serie, Condiciones_Fisicas, Observaciones, Fecha, Tipo_de_Compra, Proveedor) VALUES (@articulo, @descripcion, @nofactur, @NoInventario, @ubicacion, @color, @marca, @modelo, @noserie, @confisica, @observacion, @fecha, @tipocompra, @proveedor)"
                comand.Parameters.AddWithValue("@Articulo", articulo)
                comand.Parameters.AddWithValue("@Descripcion", descripcion)
                comand.Parameters.AddWithValue("@No_Factura", SqlDbType.VarChar).Value = nofactura
                comand.Parameters.AddWithValue("@No_Inventario", SqlDbType.VarChar).Value = NoInventario
                comand.Parameters.AddWithValue("@ubicacion", ubicacion)
                comand.Parameters.AddWithValue("@color", color)
                comand.Parameters.AddWithValue("@Marca", marca)
                comand.Parameters.AddWithValue("@Modelo", modelo)
                comand.Parameters.AddWithValue("@No_Serie", SqlDbType.VarChar).Value = noserie
                comand.Parameters.AddWithValue("@Condiciones_Fisicas", confisica)
                comand.Parameters.AddWithValue("@Observaciones", observacion)
                comand.Parameters.AddWithValue("@Fecha", SqlDbType.VarChar).Value = fecha
                comand.Parameters.AddWithValue("@Tipo_de_Compra", tipocompra)
                comand.Parameters.AddWithValue("@proveedor", proveedor)
                Conexion.Open()
                comand.ExecuteNonQuery()
            End Using
    
        End Sub
    

    y en la linea de llamar la funcion me marca el siguiente error,

    podrian ayudarme, sigo buscando el error pero creo que ya me atore. Disculpen si es algo muy sencillo pero aun estoy enseñandome, les agradezco mucho.

    lunes, 15 de febrero de 2016 18:18

Respuestas

Todas las respuestas