Visual Basic - Actualizar varios registros en un mismo form con ADO

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Numan

Actualizar varios registros en un mismo form con ADO

Publicado por Numan (2 intervenciones) el 27/04/2016 18:10:10
Saludos a toda la comunidad, y agradeceria mucho que me pudieran ayudar, tengo un programa en vb 6.0 de facturacion, le estoy agregando un modulo de devolucion para eso necesito actualizar varios registros enlazados en un mismo form, aqui esta el problema que no me actualiza si no que genera un nuevo registro, adjunto el codigo para ver si me pueden ayudar, gracias

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
Private Sub Command1_Click()
On Error GoTo errGuardar
If validar = True Then
 adoFactura.Recordset.Update
 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!codigoArt = adoDetalle.Recordset!codigo
   adoKardex.Recordset!fecha = Date
   adoKardex.Recordset!detalle = "Devlucion S/F No." & adoFactura.Recordset!nroFactura
   adoKardex.Recordset!cantidadIn = adoDetalle.Recordset!cantidad
   adoKardex.Recordset!punitarioIn = adoProductos.Recordset!pCompra
   adoKardex.Recordset!totalin = adoDetalle.Recordset!cantidad * adoProductos.Recordset!pCompra
   adoKardex.Recordset!ivain = "0,00"
   adoKardex.Recordset!cantidadSa = "0"
   adoKardex.Recordset!punitarioSa = "0,00"
   adoKardex.Recordset!totalSa = "0,00"
   adoKardex.Recordset!iva = "0,00"
   adoKardex.Recordset.Update
  End If
  If Not adoDetalle.Recordset.EOF And Not adoDetalle.Recordset.BOF Then
    adoDetalle.Recordset.MoveNext
  End If
 Loop
End If
MsgBox "Su registro fue guardado exitosamente", vbInformation, "NewJos"
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