Merge branch 'master' of http://jarvizu@192.168.10.111:8383/SIG.git

App_Code/ClsVentas.vb

@@ -3630,6 +3630,23 @@ Public Class ClsVentas
         Return retorno
     End Function
 
+    Public Function TraspasaVentasAplicadasAnt(CveVentaNueva As Integer, CveVentaAnterior As Integer, CveEmpresa As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_TraspasaVentasAplicadasAnt", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVentaNueva", SqlDbType.Int).Value = CveVentaNueva
+            .Add("@CveVentaAnterior", SqlDbType.Int).Value = CveVentaAnterior
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al traspasar las ventas aplicadas al nuevo anticipo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
 #Region " AUTORIZACION DESCUENTOS "
 
     Public Function AutorizacionDescuentosGet(CveAutorizacionDescuento As Integer, CveEmpresa As Integer) As Boolean

Bancos/ProveedoresAbonar.aspx

@@ -199,7 +199,7 @@
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>
-                        <div class="row" runat="server" id="rowComisiones" visible="false">
+                        <div class="row"  >
                             <label class="col-md-2" runat="server" id="lblpagocomisiones">Comisiones:</label>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlOtrosPagos" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true">

Bancos/ProveedoresAbonar.aspx.vb

@@ -310,9 +310,6 @@ Partial Class Bancos_ProveedoresAbonar
                 ViewState("CveCuentaRetISR") = 0
             End If
 
-            'If UsuarioActual.CveEmpresa.Contiene(1, 4, 5, 7, 11, 12, 72, 80, 126, 119, 122,145) Then
-            '    rowComisiones.Visible = True
-            'End If
 
             IdCuenta = 0
             CveCuentaB = 0

Compras/Compras.aspx.vb

@@ -14522,7 +14522,7 @@ Partial Class Compras_Compras
             End If
         End If
 
-        If (HdnIEPSModificadoOC.Value.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then
+        If Math.Abs(HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal) > 0.05 Then
             Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -152,10 +152,14 @@ Partial Class Inventarios_KardexAlmacen
                 dt = Nothing
                 Return dt
                 Exit Function
-            End If
-        End If
-
-        ObjMovimientos.Dispose()
+            End If
+        Else
+            ObjMovimientos.Dispose()
+            Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
+            Exit Function
+        End If
+
+
         GvDatos.DataBind()
 
         For index = 3 To GvDatos.Rows(0).Cells.Count - 1

LogMail.txt

@@ -0,0 +1 @@
+

Ventas/Ventas.aspx.vb

@@ -10281,6 +10281,13 @@ Partial Class Ventas
                 End If
             End If
 
+            'EN CASO DE SER REFACTURACION DE ANTICIPO SE ACTUALIZAN LAS VENTAS APLICADAS HACIA EL NUEVO
+            If NuevaFactura = 1 AndAlso CveDevolucion > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ant") Then
+                If Not ObjVentas.TraspasaVentasAplicadasAnt(ObjFactura.CveVenta, CveDevolucion, UsuarioActual.CveEmpresa) Then
+                    ErrorPrepoliza = True
+                End If
+            End If
+
             Return ErrorPrepoliza
         Catch ex As Exception
             GuardaLog(ex.ToString())

packages/AjaxControlToolkit.15.1.4.0/Content/Web.config.transform

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <system.web>
+    <pages>
+      <controls>
+        <add tagPrefix="ajaxToolkit" assembly="AjaxControlToolkit" namespace="AjaxControlToolkit" />
+      </controls>
+    </pages>
+  </system.web>
+</configuration>