Private Sub tsbPrecios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbPrecios.Click
dvgMedidas.SelectionMode=DataGridViewSelectionMode.CellSelect
StatusControles()
End Sub
Private Sub StatusControles()
dvgMedidas.ReadOnly = False
tsbNuevo.Visible = Not tsbNuevo.Visible
tsbModifica.Visible = Not tsbModifica.Visible
tsbElimina.Visible = Not tsbElimina.Visible
tsbSalida.Visible = Not tsbSalida.Visible
tsbPrecios.Visible = Not tsbPrecios.Visible
tsbAplicar.Visible = Not tsbAplicar.Visible
ToolStripSeparator1.Visible = Not ToolStripSeparator1.Visible
ToolStripSeparator2.Visible = Not ToolStripSeparator2.Visible
tsbCancelar.Visible = Not tsbCancelar.Visible
txtFiltro.Enabled = Not txtFiltro.Enabled
dvgMedidas.Columns("Nombre Material").ReadOnly = True
dvgMedidas.Columns("Descripcion").ReadOnly = True
dvgMedidas.Columns("Ancho").ReadOnly = True
dvgMedidas.Columns("Largo").ReadOnly = True
dvgMedidas.Columns("Peso").ReadOnly = True
End Sub
Private Sub tsbCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbCancelar.Click
dvgMedidas.SelectionMode=DataGridViewSelectionMode.FullRowSelect
StatusControles()
dvgMedidas.Columns("Costo").ReadOnly = True
End Sub
Private Sub tsbAplicar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbAplicar.Click
If Not bolEditando Then
GuardaCostos()
dvgMedidas.SelectionMode=DataGridViewSelectionMode.FullRowSelect
StatusControles()
dvgMedidas.Columns("Costo").ReadOnly = TrueEnd Sub
End If
End Sub