Desplegar mensaje al borrar un Item Listview

[ecabralrojas]

Buenas tardes amigos del foros del web:

Soy nuevo en el forum y tambien estoy aprendiendo a programar en visual basic 6 este es mi problema. tengo un arreglo de 23 label los cuales se llenan con articulos desde una base de datos al dar click en cada uno estos los agregos al Listview y cuando estan agregados esto se graban en tabla de la base datos. Yo puedo cargar nuevamente el listview con los datos ya grabados pero lo que ando buscando es que los datos ya grabados en el listview que estan cargados los usuarios no lo puedan borrar pero si pueden agregar nuevos.

ejemplo:
Datos Cargados nuevamente.
Cant. Descripcion Precio
1 Jugo de naranja $30.00
2 Sandwisch $25.00

Si el usuario quiere borrar el sandwisch que me despliegue un mensaje: "No puede eliminarlo ya esta ordenado", el usuario si puede agregar un sandwish nuevo en este caso serian "3" en caso de que quiera eliminarlo si puede ya que no esta ordenado. esto lo quiero aplicar para lo demas articulos. Este es mi codigo para borrar.

Código:

Private Sub cmdDelete_Click()
    Dim curUnitPrice As Currency
    Dim lngIndex As Long
    Dim lngQty As Long
    Dim k As Boolean
    
    With lvw
        If Not (.SelectedItem Is Nothing) Then
            lngIndex = Mid(.SelectedItem.Key, 2)
            lngQty = Val(.SelectedItem.Text)
        If S_Status = True Then
                    If CheckModify(lngQty, .SelectedItem.SubItems(1)) = False Then
                        MsgBox "No puede eliminarlo ya esta ordenado"
                        Exit Sub
                    'Else
                    '   it will continue deleting
                    End If
        End If
            If lngQty > 1 Then
                lngQty = lngQty - 1
                curUnitPrice = Val(lblItem(lngIndex).Tag)
                .SelectedItem.Text = lngQty
                .SelectedItem.SubItems(3) = Format(lngQty * curUnitPrice, "Currency")
            Else
                lblItem(lngIndex).ForeColor = vbBlack
                .ListItems.Remove .SelectedItem.Index
            End If
        End If
    End With
    ShowTotal

Esta es la funcion en la cual estoy confundio y no encuentro una logica para poder enviarle el valor.

Si tienen algo mejor se los agradecerias

Código:

Public Function CheckModify(ByRef qTy As Long, ByRef Iitem As String) As Boolean

    If qTy > Temp Then
        CheckModify = True
    ElseIf qTy = Temp Then
        CheckModify = False
    End If
End Function

La verdad que apreciaria una ayuda con esto se los agradeceria

Cabral.

[David]

Al cargar los datos al ListView puedes poner en el Tag del Item que ese elemento ya no se puede borrar.

Para los Items agregados después coloca que sí.

Luego, al momento de eliminar con un If comparas cuál es el Tag y validas la eliminación.

[ecabralrojas]

Entiendo lo que me dices pero pudieras escribirme un ejemplo porfavor te lo agradaceria bastante.

Cabral

[David]

Bueno, para empezar, en el código donde estás cargando en el ListView los datos, deberías poner algo como esto (suponiendo que el nuevo elemento lo asignaste a una variable llamada Item):

Código PHP:

  Item.Tag = "NO-DELETABLE"  
   

Luego en el código que utilizas para eliminar coloca esto:

Código PHP:

  If .SelectedItem.Tag = "NO-DELETABLE" Then
     MsgBox "No se puede eliminar", vbCritical
Else
     ' Código para eliminar '
End If  
   

[ecabralrojas]

David me esta funcionando pero me encontre con lo siguiente cuando cargo el Listview y agrego un producto del mismo elemento este debe permitirme borrar el nuevo ya que el nuevo no ha sido comprado y cuando agrego del mismo producto solamente incrementa la Cantidad y la descripcion sigue igual

ejemplo:
Primera compra "Guardar"
Cant. Descripcion Precio
1 Sandwisch $25.00

Cargo el Listview "Suponer que quieren otro Sandwish"
Cant. Descripcion Precio
2 Sandwisch $25.00
Puedo borrarlo en caso de que el cliente no lo quiera antes de enviarlo pero el primero no lo debo eliminar porque ya esta pedido. esto debo de aplicarlo asi cada vez que grabe un articulo esto lo hago por seguridad.

Agradeceria un ejemplo por favor

Gracias

[David]

Pues bien, puedes poner por cantidad entonces:

Código PHP:

  If Val(Item.Text) > 1 Then ' Si hay más que uno
'Permitir eliminar
Else
No permitir
End If