ASP - el valor bof o eof es true o el actual registro se elimino

   
Vista:
Imágen de perfil de Numan

el valor bof o eof es true o el actual registro se elimino

Publicado por Numan (1 intervención) el 26/09/2015 22:09:51
Primero que nada saludos, y agradecería mucho en lo que me puedan ayudar, no tengo mucha experiencia en vb 6.0, pero ahi va, tengo un problema con mi codigo cuando intento ejecutarlo funciona y al final me da un error, lo que intento hacer es que en un formulario guarde en dos tablas distitntas estoy utilizando una conexion ADO para la base de datos acces 2010, el detalle esta es que me funciona en el formulario de compras pero en el de facturacion no, aqui dejo el codigo para ver si estoy errado en algo:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub btnGuardar_Click()
On Error GoTo errGuardar
If validar = True Then
 adoFactura.Recordset.Update
 deshabilitar
 dtgDetalle.AllowDelete = False
 adodetalle.Recordset.MoveFirst
 adoProductos.Refresh
 Do While Not adodetalle.Recordset.EOF
  adoProductos.Recordset.Filter = "codigo='" & Trim(adodetalle.Recordset!codigo) & "'"
  If Not adoProductos.Recordset.EOF And Not adoProductos.Recordset.BOF Then
   adoProductos.Recordset!stock = adoProductos.Recordset!stock - adodetalle.Recordset!cantidad
   adoProductos.Recordset.Update
   adoKardex.Refresh
   adoKardex.Recordset.AddNew
   adoKardex.Recordset!codigoArt = adodetalle.Recordset!codigo
   adoKardex.Recordset!Fecha = Date
   adoKardex.Recordset!detalle = "Venta S/F No." & adoFactura.Recordset!nrofactura
   adoKardex.Recordset!cantidadSa = adodetalle.Recordset!cantidad
   adoKardex.Recordset!punitarioSa = adoProductos.Recordset!pCompra
   adoKardex.Recordset!totalSa = adodetalle.Recordset!cantidad * adoProductos.Recordset!pCompra
   adoKardex.Recordset.Update
  End If
  If Not adodetalle.Recordset.EOF And Not adodetalle.Recordset.BOF Then
    adodetalle.Recordset.MoveNext
  End If
 Loop
 If adoFormaPago.Recordset!plazoDias > 0 Then
  adoCtasxCobrar.Refresh
  adoCtasxCobrar.Recordset.AddNew
  adoCtasxCobrar.Recordset!nrofactura = adoFactura.Recordset!nrofactura
  adoCtasxCobrar.Recordset!diasPlazo = adoFormaPago.Recordset!plazoDias
  adoCtasxCobrar.Recordset!fechaVenc = Date + adoCtasxCobrar.Recordset!diasPlazo
  adoCtasxCobrar.Recordset!detalle = "Venta Nro. " & adoFactura.Recordset!nrofactura
  adoCtasxCobrar.Recordset!valor = CDbl(txtTotal.Text)
  abono = 0
  If MsgBox("¿Desea Realizar un Abono a la Deuda?", vbYesNo, "NewJos") = vbYes Then
   op = vbNo
   Do While op = vbNo
    abono = Val(InputBox("Ingrese la Cantidad a Abonar:", "NewJos"))
    If abono = 0 Then
     op = MsgBox("La Cantidad a Abonar tiene que ser Mayor que Cero" & vbCrLf & vbCrLf & "¿Desea Cancelar la Operación de Abono a la Deuda?", vbYesNo, "NewJos")
    Else
     op = vbYes
    End If
   Loop
  End If
  adoCtasxCobrar.Recordset!abono = abono
  adoCtasxCobrar.Recordset!estado = False
  adoCtasxCobrar.Recordset.Update
  End If
End If
Exit Sub
errGuardar:
 MsgBox Err.Description, vbInformation, "NewJos"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder