Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/PV.aspx.vb

@@ -5212,7 +5212,7 @@ Partial Class PV
             'Alert("No se ha especificado producto a entregar")
             Exit Sub
         End If
-
+        Try
             If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
                 Dim CveMarca As Integer = -1
                 If GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows.Count > 0 Then
@@ -5243,7 +5243,7 @@ Partial Class PV
                             End If
                         End If
 
-                    If GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows(0) IsNot Nothing AndAlso GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows.Count > 0 Then
+                        If GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows.Count > 0 Then
                             Dim DrCargo As DataRow = GlobalDTAcumTamaños.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTamaño = {CveTamaño}").Rows(0)
                             If DrCargo IsNot Nothing Then
                                 CargoVendido = DrCargo("Cargo").ToString.ToDecimal
@@ -5263,6 +5263,10 @@ Partial Class PV
                 End If
                 ObjAcum.Dispose()
             End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al recalcular el costo", ex)
+        End Try
+
         UpAjuste.Update()
     End Sub