From 8e7d5eb3d1850c688f2fc234260ed3edef1f03f4 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Jun 2022 16:30:52 -0700 Subject: [PATCH] -- manejo de garantia --- App_Code/Modelos.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 5e3693e62..14d3d2488 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3891,7 +3891,7 @@ Namespace Modelos Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble() Dim Serie As String = RowGarantia("Comprobante").ToString - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=RowGarantia("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then OcurrioError = True Exit For End If