From caceb2d047ae3e128a654437d00b2b3064b58edc Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 16 Oct 2024 17:09:30 -0700 Subject: [PATCH] -- FIX recepcion usados -- Reemplzar SIGFacturacion.ashx por E194.ashx --- Ashx/{SIGFacturacion.ashx => E194.ashx} | 44 ++++++++++++------------- Inventarios/RecepcionUsados.aspx.vb | 8 ++++- 2 files changed, 28 insertions(+), 24 deletions(-) rename Ashx/{SIGFacturacion.ashx => E194.ashx} (97%) diff --git a/Ashx/SIGFacturacion.ashx b/Ashx/E194.ashx similarity index 97% rename from Ashx/SIGFacturacion.ashx rename to Ashx/E194.ashx index 8a3112598..70ba00a3e 100644 --- a/Ashx/SIGFacturacion.ashx +++ b/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 \ No newline at end of file diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index eb35a01ad..c15d7f9b8 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/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