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

App_Code/Modelos.vb

@@ -6329,7 +6329,7 @@ Namespace Modelos
                                     'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN ORGINAL (GENERAL,SIN COSTO)
                                     If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing AndAlso DtDevoluciones.Rows.Count > 0 Then
                                         For Each CveRemision As Integer In ListaRemisionesCancelar
-                                            Dim ObjRemision As New Factura(UsuarioActual, CveRemision, UsuarioActual.CveEmpresa)
+                                            Dim ObjRemision As New Factura(UsuarioActual, CveRemision, UsuarioActual.CveEmpresa, VerificaAlmacen:=True)
 
                                             If ObjRemision IsNot Nothing AndAlso ObjRemision.SaldoAlmacen <> 0 Then
 
@@ -6978,7 +6978,7 @@ Namespace Modelos
                         Dim SeCancela As Boolean = (ListaRemisionesCancelar IsNot Nothing) AndAlso (ListaRemisionesCancelar.Any(Function(CveRemisionCancelar) CveRemisionCancelar = DrMovtos("CveRem").ToString.ToEntero()))
 
                         If Not SeCancela Then
-                            Dim ObjRem As New Modelos.Factura(UsuarioActual, DrMovtos("CveRem").ToString.ToEntero(), UsuarioActual.CveEmpresa)
+                            Dim ObjRem As New Modelos.Factura(UsuarioActual, DrMovtos("CveRem").ToString.ToEntero(), UsuarioActual.CveEmpresa, CargaDatosCliente:=False, CargaDTDetalle:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=True)
                             'SI LA REMISION ESTA SALDADA DEBE REVIVIR LOS MOVIMIENTOS COMPLETAMENTE O PARCIALMENTE
                             If ObjRem.SaldoAlmacen >= 0 Then
                                 CveAlmacenTraspasoDestinoDevRem = DrMovtos("CveAlmacenTraspasoDestino").ToString.ToEntero

Ashx/CargaEventos.ashx

@@ -112,12 +112,25 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         FI = context.Request("start").ToDate
                         FF = context.Request("end").ToDate
 
-                        If Not GetContratos(context:=context) Then
-                            'Convierte el objeto de Eventos en JSON
-                            'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
-                            Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events)
+                        If Not GetContratos(context:=context) Then
+                            'Convierte el objeto de Eventos en JSON
+                            'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
+
+
+                            'Dim settings As New Newtonsoft.Json.JsonSerializerSettings With {
+                            '       .NullValueHandling = Newtonsoft.Json.NullValueHandling.Ignore,
+                            '       .Formatting = Newtonsoft.Json.Formatting.None
+                            '   }
+                            'Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events, settings)
+                            'context.Response.Write(sJSON)
+
+                            Dim serializer As New Newtonsoft.Json.JsonSerializer()
+                            Using writer As New IO.StringWriter()
+                                serializer.Serialize(writer, events)
+                                context.Response.Write(writer.ToString())
+                            End Using
+
 
-                            context.Response.Write(sJSON)
                         End If
                     End If
                     Exit Select

Ventas/Ventas.aspx.vb

@@ -14101,6 +14101,11 @@ Partial Class Ventas
             CveMotivoDevolucion = DdlMotivoDevolucion.SelectedValue.ToEntero()
         End If
 
+        'FIX. ESTA VARIABLE NO DEBE TENER DATOS CUANDO ES FACTURA DE INGRESO, AFECTA LOS MOVIMIENTOS DE ALMACEN
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso factura.TipoDocto = "Ing" And CveAlmacenTraspasoDestino > 0 Then
+            CveAlmacenTraspasoDestino = -1
+        End If
+
 
         If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
                            factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,