Actualizar, Modificar registro con adoc
Publicado por Numan (3 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 Thenadofactura.Recordset.Update
dtgDetalle.AllowDelete = False
adoDetalle.Recordset.MoveFirst
adoProductos.RefreshDo 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.RefreshadoKardex.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
0