none
Gravar el stock de una columna datagridview RRS feed

  • Pregunta

  • Buenas Noches tengo un Gran problema yo genero una guia de ingreso al area del almacen  pasandolo a un datagridview  selecciono los articulos y su cantidad lo que necesito es que se  incremente en mi tabla productos que es el campo stock_actual como podria implementarlo

    ya que yo en visual basic lo hacia de esta forma como podria implementarlo en vbnet o alguna idea 

    Sub gravarstock()
    '============================
    Set rsTbl_Direccion = New Recordset
    Dim fila As Integer
    With rsTbl_Direccion
    .CursorLocation = adUseClient
    For fila = 1 To vernota.Rows - 1

    cn.Execute "Update Articulos set Stock_Actual,stock_bregantes = " & Me.grid2.TextMatrix(fila, 8) & " ," & Me.grid2.TextMatrix(fila, 9) & " where Cod_Art = '" & Me.grid2.TextMatrix(fila, 0) & "' "
    '.ActiveConenection = cn
    .LockType = adLockOptimistic
    Next fila
    End With

    end sub



    dmc

    • Cambiado Enrique M. Montejo sábado, 15 de agosto de 2015 20:57 Pregunta relacionada con el acceso a datos.
    jueves, 13 de agosto de 2015 6:23

Todas las respuestas

  • que se vaya actualizando segun mis ingresos mi stock actual que  esta contenida en una tabla productos como podran ver en la captura llamo a un formulario hijo para ingresar los datos al formulario padre que esta contenida por otro datagridview todo esos procedimientos me sale el problema es el ingreo de las cantidades de cada articulo supuestamente al ingresar tiene que actualizarse su stock en tiempo real anteriormente en visual basic lo hice aumentando columnas en el datagridview ingresando el stock actual y sumando la cantidad y capturaba la columna stock actual pero me daba problemas cuando ingresaba un segundo producto con el mismo nombre en el detalle solo sumaba una vez no se si podran orientarme para poderlo hacer de una manera correcta 

    estos son los codigos del formulario hijo del boton aceptar

    Private Sub cmdaceptar_Click(sender As System.Object, e As System.EventArgs) Handles cmdaceptar.Click
            Dim id, descripcion, unidad, precio As String
            Dim cantidad
            Dim multiplica
            cantidad = Format(txtcantidad.Text)
            id = datalistado(0, datalistado.CurrentRow.Index).Value
            descripcion = datalistado(1, datalistado.CurrentRow.Index).Value
            unidad = datalistado(2, datalistado.CurrentRow.Index).Value
            precio = datalistado(3, datalistado.CurrentRow.Index).Value
            multiplica = precio * cantidad
            frmguiaingreso.DataGuiaingreso.Rows.Add(id, descripcion, unidad, precio, cantidad, multiplica)
            Me.Close()
            frmguiaingreso.TOTALISA()

    end sub

    y esto es el del formulario padre que llama a la funcion totalisa

    Dim n As Integer         'mi variable para el total
            Dim TOTAL As Integer
            'mi variable para que salga en el cuadro de texto
            For n = 0 To Me.DataGuiaingreso.RowCount - 1
                TOTAL = TOTAL + Val(FormatNumber(DataGuiaingreso.Rows(n).Cells(5).Value))
            Next
            Me.txttotal.Text = Format(TOTAL, "#,##0.00") 'digo que el cuadro de texto5 sea numerico y que salga el resultado
        End Sub


    dmc

    jueves, 13 de agosto de 2015 6:32