-- FIX recepcion usados

-- Reemplzar SIGFacturacion.ashx por E194.ashx

Ashx/E194.ashx

@@ -1,22 +1,27 @@
-<%@ WebHandler Language="VB" Class="SIGFacturacion" %>
+<%@ WebHandler Language="VB" Class="E194" %>
+
+Option Strict On
+Option Explicit On
 
-Imports System
-Imports System.Web
-Imports System.Net.Http
-Imports System.Web.Http
 Imports System.Data
+Imports System.IO
+Imports System.Net.Http
 Imports Newtonsoft.Json
 Imports Newtonsoft.Json.Linq
 Imports Extensiones
-Imports System.IO
-Imports Modelos
 
-Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
+Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSessionState
+
+    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
+        Get
+            Return False
+        End Get
+    End Property
 
     Private Property CveEmpresaFacturar As Integer = 194
 
     Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
-        context.Response.ContentType = "text/plain"
+        context.Response.ContentType = "text/html"
         Dim Retorno As Boolean = False
 
         Try
@@ -38,6 +43,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             ex.GuardaLog(ex.Message)
         End Try
 
+        context.Response.StatusCode = 200
         If Retorno Then
             context.Response.Write("True")
         Else
@@ -46,12 +52,6 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
 
     End Sub
 
-    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
-        Get
-            Return False
-        End Get
-    End Property
-
     Private Function IniciaFacturacionMasiva(pCveEmpresa As String, pFechaI As String, pFechaF As String) As Boolean
         Dim Retorno As Boolean = True
         Dim JsonRetorno As New JObject()
@@ -275,7 +275,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             ObjFactura.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.TextoLimpio
             ObjFactura.Serie = Serie
             ObjFactura.Folio = Folio.ToEntero()
-            ObjFactura.TipoMensajeRespuesta = TipoMensajeRespuesta.TextoLimpio
+            ObjFactura.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.TextoLimpio
             ObjFactura.Version = "4.0"
             ObjFactura.FolioFiscal = ""
             ObjFactura.CveUsuario = UsuarioActual.CveUsuario
@@ -312,8 +312,9 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             ObjFactura.CveSubProyecto = CveSubProyecto
             ObjFactura.CveSubProyectoCobranza = CveSubProyecto
             ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
-            ObjFactura.SubProyecto = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
-            ObjFactura.SubProyectoMatriz = New SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1 ).FiltroPrimero("TipoSucursal=1"))
+            ObjFactura.SubProyecto = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", CveSubProyecto)))
+            ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1).FiltroPrimero("TipoSucursal=1"))
+            ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(ClsPaginas.GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=-1).FiltroPrimero("TipoSucursal=1"))
 
             'CLIENTE
             ObjFactura.CveCliente = CveCliente
@@ -423,7 +424,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
         Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
         Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
         Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
-        Timbre.Comprobante.Subtotal = Obj.SubTotal
+        Timbre.Comprobante.SubTotal = Obj.SubTotal
         Timbre.Comprobante.Descuentos = Obj.Descuento
         Timbre.Comprobante.Moneda = Obj.MonedaSAT
         Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
@@ -906,7 +907,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
         '  strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
         strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, ClsPaginas.NowADS().ToShortDateString, ClsPaginas.NowADS().ToShortTimeString)
         Try
-            ArchivoW = New StreamWriter(String.Format("{0}\Log\LogFacturacion.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+            ArchivoW = New StreamWriter(String.Format("{0}\Log\LogE194.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
         Catch ex As UnauthorizedAccessException
             'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
             Exit Sub
@@ -923,7 +924,4 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
         ArchivoW.Dispose()
     End Sub
 
-
-
-
 End Class

Inventarios/RecepcionUsados.aspx.vb

@@ -3208,7 +3208,13 @@ Partial Class Inventarios_RecepcionUsados
 
                 CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
 
-                Dim dtt As DataTable = GlobalDTAcumGarantiasTipoUsoMeses(UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero)
+                Dim DtAcumMeses As DataTable = GlobalDTAcumGarantiasTipoUsoMeses(UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero)
+                Dim Dtt As DataTable = Nothing
+                If DtAcumMeses IsNot Nothing Then
+                    ''obtener siempre y cuando la fecha de inicio sea mayor
+                    Dim strDate As Date = ($"20{TxtEtiqueta.Text.Substring(2, 2)}/{TxtEtiqueta.Text.Substring(0, 2)}/01").ToDate
+                    Dtt = DtAcumMeses.FiltraParametros($" #{strDate.ToString("yyyy/MM/dd")}# >= FechaInicioVigencia ", "FechaInicioVigencia DESC")
+                End If
 
                 If dtt IsNot Nothing Then
                     If dtt.Rows.Count > 0 Then