Modificar List View según check box
Nuevamente solicito su ayuda Dante lo que pasa es que estoy generando un formulario para ingresar facturas utilizando el List View.
Como se puede apreciar en la imagen tengo las columnas del List View con los productos de una factura y en la parte inferior esta la suma de la columna del sub total, el IGV(impuestos) y el total en la cual, al costado del IGV hay un check box en la cual si le click en el IGV el text box del convierte en "0"
La consulta seria que al darle click en el check box en la columna IGV del List View se muestre el IGV pero si el check box esta deshabilitado que en la columna IGV también este "0" y que el sub total sea el nuevo total debido a que ya no hay impuestos
Este el código que he estado utilizando el problema es que cuando habilito o deshabilito el check tengo que seleccionar fila por fila del List view para que recién se actualice el precio
If Me.CheckBox1.value = True Then Me.TextBox11.Text = Round((Val(Me.TextBox10.Text) / 100) * 18, 2) If Me.CheckBox1.value = False Then Me.TextBox11.Text = 0 If Me.CheckBox1.value = False Then ListView1.SelectedItem.SubItems(6) = TextBox11 End If Me.TextBox12.Text = Val(Me.TextBox10.Text) + Val(Me.TextBox11.Text) Call SumarMonto
gracias por la atención prestada
Slds
Robert
1 Respuesta
Dante
Ya le envié el archivo
slds
Robert
Así queda el botón cargar:
Private Sub CommandButton1_Click() 'Act.Por.Dante Amor Dim i As Integer Dim item As ListItem Dim s As Integer Dim nro As Integer ' If ListView1.ListItems.Count = 0 Then nro = 1 Else nro = nro + 1 End If ' Set item = ListView1.ListItems.Add(Text:=TextBox2) subt = CDbl(TextBox1) * CDbl(TextBox2) igv = subt / 1.18 item.SubItems(1) = ComboBox4.Text item.SubItems(2) = ComboBox2.Text item.SubItems(3) = TextBox7.Text item.SubItems(4) = TextBox1.Text item.SubItems(5) = IIf(CheckBox1, subt / 1.18, subt) item.SubItems(6) = IIf(CheckBox1, subt - igv, 0) item.SubItems(7) = subt ' Call SumarMonto ' End Sub
Así queda cuando presionas el checkbox:
Private Sub CheckBox1_Click() 'Por.Dante Amor For i = 1 To ListView1.ListItems.Count If CheckBox1 Then subt = CDbl(TextBox1) * CDbl(TextBox2) igv = subt / 1.18 ListView1.ListItems(i).SubItems(5) = subt / 1.18 ListView1.ListItems(i).SubItems(6) = subt - igv ListView1.ListItems(i).SubItems(7) = subt Else subt = CDbl(TextBox1) * CDbl(TextBox2) ListView1.ListItems(i).SubItems(5) = subt ListView1.ListItems(i).SubItems(6) = 0 End If Next ' Call SumarMonto ' End Sub
