regalos empresariales

Private sub btnGrabar_Click()
'Se carga el regalo asociado a un cliente'

Dim rsReg as Recordset
Dim strAux as String

'validaciones'

'validacion de cliente'
If cboCliente.listIndex = -1 Then
    msgBox "Debe asociar el regalo a un cliente"
    exit sub
End If

'validacion de regalo'
If txtRegalo.text = "" Then
    msgBox "Debe ingresar un Nombre"
    exit sub
End If

'validacion de fecha'
If not isDate(txtFecha.text) Then
    msgBox  "Debe Ingresar una fecha valida"
    exit sub
End If

'validacion de Precio'
If not isNumeric(txtPrecio.text) Then
    msgBox "Debe ingresar un precio valido"
    exit sub
    else If not Csin(txtPrecio.text) > 0 Then
        msgBox "El precio ingresado debe ser mayor a 0"
    End If
End If

set rsReg = goDB.OpenRecordSet("Regalos", dbOpenDynaset)

'agrego a la base de datos el nuevo regalo'

rsReg.addnew
rsReg("cCliente") = cboCliente.itemData(cboCliente.listIndex)
rsReg("Detalle") = txtRegalo.text
rsReg("Fecha") = Cdate(txtFecha.text)
rsReg("Precio") = Csin(txtPrecio.text)
rsReg.Update

'actualizacion de los listados'

If lstCliente.itemData(lstCliente.listIndex) = cboCliente.itemData(cboCliente.listIndex) Then
        'actualizarLineaCliente'
        'Separo por un lado la parte que no corresponde a los gastos del cliente'
        strAux = left(lstCliente.text, instr(1,lstcliente.text, "$"))
        lstCliente.text = strAux & (Csin(Right(lstCliente.text, instr(1,lstcliente.text, "$"))) + Csin(txtPrecio.text))
        'actualizarListaRegalos'
        lstRegalos.addItem rsReg("Detalle")
End If

rsReg.close
set rsReg = nothing

end sub

private Sub lstCliente_click()

Dim rsCli as Recordset
Dim rsReg as Recordset

lstRegalos.clear

set rsReg = goDB.OpenRecordSet("Regalos", dbOpenDynaset)

if rsReg.EOF and rsReg.BOF
    rsReg.movefirst
end if

do while not rsReg.EOF
    if (rsReg("cCliente") = lstCliente.itemData(lstCliente.listIndex)) Then
        lstRegalos.addItem rsReg("Detalle")
    end if
    rsReg.movenext
loop

rsReg.close
set rsReg = nothing

End Sub

private sub btnBorrar_click()
'Procedimiento que se encarga de borrar un regalo y hacer las actualizaciones correspondientes'
'En el mismo se debe borrar el regalo de la base de datos, del list box de regalos y actualizar la informacion en el list de clientes'

Dim rsReg as Recordset
Dim siAux as Single
Dim strAux as String

set rsReg = goDB.OpenRecordSet("Regalos", dbOpenDynaset)

if rsReg.BOF and rsReg.EOF Then
    rsReg.movefirst
end if

'ahora debo buscar el regalo y borrarlo, pero voy a guardar el precio del mismo para despues actualizar el listado de clientes'

Do While rsReg.EOF
    If rsReg("codigo") = lstRegalos.ItemData(lstRegalos.listIndex) Then
        'antes de eliminar el registro me guardo el precio del regalo para descontarlo en el listado.'
        siAux = rsReg("Precio")
        rsReg.delete
    End If
    rsReg.movenext
Loop

'actualizo el listado de clientes'
strAux = left(lstCliente.text, instr(1,lstCliente.text, "$"))
lstCliente.text = strAux & (Csin(Right(lstCliente.text, instr(1,lstCliente.text, "$"))) - siAux

'actualizo el listado de regalos'

if rsReg.BOF and rsReg.EOF Then
    rsReg.movefirst
end if

do while not rsReg.EOF
    if (rsReg("cCliente") = lstCliente.itemData(lstCliente.listIndex)) Then
        lstRegalos.addItem rsReg("Detalle")
    end if
    rsReg.movenext
loop

rsReg.close
set rsReg = nothing

end sub