AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- cambio en PU de usados en almacen

Browse Source
This commit is contained in:
rrene
2023-12-02 14:38:00 -07:00
parent 5692d73398
commit a0d6bdb01b
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/Modelos.vb
View File

@@ -2832,10 +2832,11 @@ Namespace Modelos
Dim ImporteConcepto As Decimal = 0 Dim ImporteConcepto As Decimal = 0
For Each Dr As DataRow In factura.DtMovimientosUsados.Rows For Each Dr As DataRow In factura.DtMovimientosUsados.Rows
'garantía y recepción de usados deben de ser valor cero
If Not factura.EsGarantia Then 'If Not factura.EsGarantia Then
ImporteConcepto = Dr("PU").ToString().ToDecimal() ' ImporteConcepto = Dr("PU").ToString().ToDecimal()
End If 'End If
If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
'Mensaje = "Error al guardar los movimientos" 'Mensaje = "Error al guardar los movimientos"