Visual Basic - Actualizar, Modificar registro con adoc

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

Actualizar, Modificar registro con adoc

Publicado por Numan numan.febres@gmail.com (2 intervenciones) el 16/02/2016 21:59:50
Saludos a la cominidad y de antemano agradezco la ayuda que me puedan brindar, estoy algo tapado con lo que estoy haciendo, rapidamente quiero hacer una modificacion de un registro anteriormente guardado, el primer registro es sobre una venta y en otro modulo pero con los mismos patrones quiero modificar el mismo registro como una devolucion, el detalle es que se guarda como un registro nuevo, les dejo el codigo para ver si me pueden colaborar.

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
Private Sub btnModificar_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!iva = adoDetalle.Recordset!total * 12 / 100
   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, "ORGINAL"
 
End Sub
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