Hola Buenos Dias
Antes que nada muchas gracias, tengo un programa en vb6 tengo un formulario donde muestro los adeudes por diferentes conceptos de una persona la cual me da un total de su adeudo.
Como le ago para que cuando me pague el monto al registrarlo lo pueda dividir en las cantidades de cada concepto y encaso de que no liquide el total asigne cantiades por orden de importancia de los conceptos.
Espero averme explicado, gracias de antemano y espero sus comentarios
Hola les pogo el codigo que estoy usando pero no me da el resultado que necesito
Private Sub cmdCobro_Click()
Dim TotCobro As Integer
Dim Dif As Integer
Dim strSQL As String
TotCobro = txtEfectivo.Text
Set rsAdeudo = New ADODB.Recordset
Set rsPago = New ADODB.Recordset
rsAdeudo.Open "select * from Adeudooper where Importe > Pago and Credencial = " & Cred & " Order by Numero", db, adOpenStatic, adLockOptimistic
rsAdeudo.MoveFirst
Do While Not rsAdeudo.EOF
If TotCobro > rsAdeudo.Fields("Importe") Then
strSQL = "Update Adeudooper set Pago = Importe where Credencial = " & Cred & ""
db.Execute strSQL
TotCobro = TotCobro - rsAdeudo.Fields("Importe")
Else
strSQL = "Update Adeudooper set Pago = " & TotCobro & " where Credencial = " & Cred & ""
db.Execute strSQL
End If
rsAdeudo.MoveNext
Loop
End Sub
lo que busco es que a TotCobro se le vaya descontando la cantidad del campo importe y que cuando el campo importe sea mayor que TotCobro esta cantidad se a la que se guarde.
Gracias
