decoracion

Private Sub btnGrabar_Click()
Dim rsMue As Recordset

If txtMueble.Text = "" Then
    MsgBox "El detalle del mueble no puede ser vacio"
    Exit Sub
End If

If cboAmbiente.ItemData(cboAmbiente.ListIndex) = -1 Then
    MsgBox "Debe elegir un ambiente"
    Exit Sub
End If

If txtPrecio.Text = "" Then
    MsgBox "Debe ingresar precio"
    Exit Sub
    ElseIf CSng(txtPrecio.Text) < 0 Then
        MsgBox "El precio ingresado es invalido"
        Exit Sub
End If


Set rsMue = goDb.OpenRecordset("Mueble", dbOpenDynaset)
rsMue.AddNew
rsMue("aCodigo") = cboAmbiente.ItemData(cboAmbiente.ListIndex)
rsMue("nombre") = txtMueble.Text
rsMue("precio") = CSng(txtPrecio.Text)
rsMue.Update

rsMue.Close

Set rsMue = Nothing

actualizarAmbientes
actualizarMueblesPorAmbiente

End Sub

Private Sub actualizarAmbientes()

Dim rsMue As Recordset
Dim rsAmb As Recordset
Dim siAux As Single
Dim inCont As Integer

Set rsAmb = goDb.OpenRecordset("Ambiente", dbOpenDynaset)
Set rsMue = goDb.OpenRecordset("Mueble", dbOpenDynaset)

If rsAmb.BOF And rsAmb.EOF Then
    rsAmb.MoveFirst
End If

If rsMue.BOF And rsMue.EOF Then
    rsMue.MoveFirst
End If

lstAmbiente.Clear

Do While Not rsAmb.EOF
    siAux = 0
    inCont = 0
    rsMue.MoveFirst
    Do While Not rsMue.EOF
    If rsMue("aCodigo") = rsAmb("aCodigo") Then
        siAux = siAux + rsMue("Precio")
        inCont = inCont + 1
    End If
    rsMue.MoveNext
    Loop
lstAmbiente.AddItem rsAmb("descripcion") & " - " & inCont & " - " & Format(siAux, "$0.00")
lstAmbiente.ItemData(lstAmbiente.NewIndex) = rsAmb("aCodigo")
rsAmb.MoveNext
Loop

rsAmb.Close
rsMue.Close

Set rsAmb = Nothing
Set rsMue = Nothing

End Sub

Private Sub actualizarMueblesPorAmbiente()
Dim rsMue As Recordset
Set rsMue = goDb.OpenRecordset("Mueble", dbOpenDynaset)

rsMue.MoveFirst
lstMueble.Clear

If lstAmbiente.ListIndex = -1 Then
    lstMueble.Clear
    Exit Sub
End If

Do While Not rsMue.EOF
    If rsMue("aCodigo") = lstAmbiente.ItemData(lstAmbiente.ListIndex) Then
        lstMueble.AddItem rsMue("nombre")
        lstMueble.ItemData(lstMueble.NewIndex) = rsMue("mCodigo")
    End If
    rsMue.MoveNext
Loop

rsMue.Close
Set rsMue = Nothing

End Sub

'-----------------------------------------------------------------------------------------------------'

Private Sub lstAmbiente_Click()
actualizarMueblesPorAmbiente
End Sub

'-----------------------------------------------------------------------------------------------------'

Private Sub btnBorrar_Click()

Dim rsMue As Recordset
Set rsMue = goDb.OpenRecordset("Mueble", dbOpenDynaset)

If rsMue.BOF And rsMue.EOF Then
    rsMue.MoveFirst
End If

Do While Not rsMue.EOF
    If rsMue("mCodigo") = lstMueble.ItemData(lstMueble.ListIndex) Then
        rsMue.Delete
    End If
    rsMue.MoveNext
Loop

actualizarAmbientes
actualizarMueblesPorAmbiente

End Sub