From a96922bd77a15606d81b59ec703e6669fbf3e50b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 5 Sep 2023 00:51:29 -0700 Subject: [PATCH 1/3] Importaciones, correos clientes --- Compras/RepImportaciones.aspx | 9 +++--- Compras/RepImportaciones.aspx.vb | 9 +++--- General/SaldosIniciales.aspx.vb | 6 +++- Sistemas/DefinicionEmpresa.aspx | 13 ++++---- Ventas/Clientes.aspx.vb | 53 +++++++++++++++++++++++++++----- Ventas/Ventas.aspx.vb | 20 ++++++++++-- 6 files changed, 85 insertions(+), 25 deletions(-) diff --git a/Compras/RepImportaciones.aspx b/Compras/RepImportaciones.aspx index 0194f8ab4..cb27b4dfe 100644 --- a/Compras/RepImportaciones.aspx +++ b/Compras/RepImportaciones.aspx @@ -86,7 +86,8 @@
Aduanal:
- + + <%----%>
Fecha Inicio:
@@ -142,10 +143,10 @@ - - + + - + <%----%> diff --git a/Compras/RepImportaciones.aspx.vb b/Compras/RepImportaciones.aspx.vb index d5e62cbf2..d95c5e716 100644 --- a/Compras/RepImportaciones.aspx.vb +++ b/Compras/RepImportaciones.aspx.vb @@ -29,9 +29,10 @@ Partial Class Compras_RepImportaciones TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString TxtFechaF.Text = Date.Now.ToShortDateString - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() - DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" 'DdlAF.DataSource = GlobalDTActivoFijos 'DdlAF.DataBind() @@ -52,7 +53,7 @@ Partial Class Compras_RepImportaciones If TxtFechaI.Text <> "" Then FechaI = TxtFechaI.Text Else FechaI = "-1" If TxtFechaF.Text <> "" Then FechaF = TxtFechaF.Text Else FechaF = "-1" - If ObjImportaciones.GetImportaciones(-1, DdlProveedor.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero) Then + If ObjImportaciones.GetImportaciones(-1, DdlProveedores.SelectedValue.ToString.ToEntero, -1, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero) Then DtImportaciones = ObjImportaciones.DtResultados Else Alert("Ocurrió un error al cargar las importaciones", TipoMensaje.MsgError) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 54d7ce23b..abfd39b50 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -2290,7 +2290,11 @@ Partial Class General_SaldosIniciales Dim Valor As Decimal = nuevaEntrada("Valor").ToString().ToDecimal Dim Serie As String = If(dt.Columns.Contains("Serie"), nuevaEntrada("Serie").ToString().Trim, "") - If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1, Serie:=Serie) Then + + Dim PU As Decimal = If(Valor = 0, 0, (Valor / Cantidad)) + + + If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, PU, -1, -1, Serie:=Serie) Then mensajeError = "No se logró generar el detalle del movimiento" Throw New Exception() End If diff --git a/Sistemas/DefinicionEmpresa.aspx b/Sistemas/DefinicionEmpresa.aspx index e03c39ea7..fc31b1cc7 100644 --- a/Sistemas/DefinicionEmpresa.aspx +++ b/Sistemas/DefinicionEmpresa.aspx @@ -1011,14 +1011,15 @@
    -
  • {"FolioFactura"}
    • -
  • {"ImporteFactura"}
    • -
  • {"FechaFactura"}
    • +
  • {"SerieFolio"}
    • +
  • {"Total"}
    • +
  • {"Fecha"}
  • {"FechaVencimiento"}
    • -
  • {"RazonSocialEmisor"}
    • -
  • {"RazonSocialReceptor"}
    • +
  • {"NombreEmpresa"}
    • +
  • {"NombreCliente"}
    • +
  • {"NombreCliente"}
  • {"Vigencia"}
    • -
  • {"AtencionA"}
    • +
  • {"Sucursal"}

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index d5c218dda..93ea5ff87 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -2123,27 +2123,41 @@ Partial Class Clientes If HdnTipoDocto.Value.ToString() = "Cot" Then If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then + Cuerpo = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa) Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim) Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante) Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString()) + If Dr IsNot Nothing Then Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString()) Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero()) Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) - Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString()) End If + End If If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion + Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa) + Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim) Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante) - Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto.Value.ToString()) Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString()) + + If Dr IsNot Nothing Then + Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString()) + Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero()) + Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) + Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) + Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString()) + + End If End If Else @@ -2160,14 +2174,24 @@ Partial Class Clientes Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString()) End If End If If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta + Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa) + Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim) Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante) - Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto.Value.ToString()) Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString()) + If Dr IsNot Nothing Then + Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString()) + Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero()) + Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) + Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) + Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString()) + End If End If End If @@ -5537,20 +5561,27 @@ Partial Class Clientes Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString()) Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero()) Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) - Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) - End If End If If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion + Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa) + Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim) Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante) - Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString()) Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString()) + If Dr IsNot Nothing Then + Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString()) + Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero()) + Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) + Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) + Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + + End If End If Else @@ -5572,9 +5603,17 @@ Partial Class Clientes If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta + Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa) + Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim) Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante) - Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto2.Value.ToString()) Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio2.Value.ToString()) + If Dr IsNot Nothing Then + Asunto = Asunto.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString()) + Asunto = Asunto.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero()) + Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) + Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) + Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + End If End If End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 8923c8ddd..9426e06c0 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -20836,13 +20836,21 @@ Partial Class Ventas Cuerpo = Cuerpo.Replace("{""SerieFolio""}", SerieFolio) Cuerpo = Cuerpo.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text) Cuerpo = Cuerpo.Replace("{""AtencionA""}", TxtAtencionA.Text) + Cuerpo = Cuerpo.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text) End If If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion + Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa) + Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim) Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante) - Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text) + Asunto = Asunto.Replace("{""Fecha""}", TxtFecha.Text) + Asunto = Asunto.Replace("{""Total""}", TxtTotal.Text) + Asunto = Asunto.Replace("{""FechaVencimiento""}", TxtFechaPago.Text) Asunto = Asunto.Replace("{""SerieFolio""}", SerieFolio) + Asunto = Asunto.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text) + Asunto = Asunto.Replace("{""AtencionA""}", TxtAtencionA.Text) + Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text) End If Else @@ -20855,15 +20863,21 @@ Partial Class Ventas Cuerpo = Cuerpo.Replace("{""Total""}", TxtTotal.Text) Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", TxtFechaPago.Text) Cuerpo = Cuerpo.Replace("{""SerieFolio""}", SerieFolio) - 'Cuerpo = Cuerpo.Replace("{""Vigencia""}", TxtFechaVencimientoCotizacion.Text) Cuerpo = Cuerpo.Replace("{""AtencionA""}", TxtAtencionA.Text) + Cuerpo = Cuerpo.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text) End If If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta + Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa) + Asunto = Asunto.Replace("{""NombreCliente""}", LtlCliente.Text.Trim) Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante) - Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text) + Asunto = Asunto.Replace("{""Fecha""}", TxtFecha.Text) + Asunto = Asunto.Replace("{""Total""}", TxtTotal.Text) + Asunto = Asunto.Replace("{""FechaVencimiento""}", TxtFechaPago.Text) Asunto = Asunto.Replace("{""SerieFolio""}", SerieFolio) + Asunto = Asunto.Replace("{""AtencionA""}", TxtAtencionA.Text) + Asunto = Asunto.Replace("{""Sucursal""}", DdlSubProyectoDatos.SelectedItem.Text) End If End If From ec94a1e734476fc1121d063a073d3d5168496ea4 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 5 Sep 2023 00:51:56 -0700 Subject: [PATCH 2/3] Envio correo clientes --- Ventas/Clientes.aspx.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 93ea5ff87..65ce33c2a 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -5563,6 +5563,7 @@ Partial Class Clientes Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString()) End If End If @@ -5580,6 +5581,7 @@ Partial Class Clientes Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString()) End If End If @@ -5597,6 +5599,7 @@ Partial Class Clientes Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) Cuerpo = Cuerpo.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) Cuerpo = Cuerpo.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + Cuerpo = Cuerpo.Replace("{""Sucursal""}", Dr("SubProyecto").ToString()) End If End If @@ -5613,6 +5616,7 @@ Partial Class Clientes Asunto = Asunto.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString()) Asunto = Asunto.Replace("{""Vigencia""}", Dr("Vigencia").ToString()) Asunto = Asunto.Replace("{""AtencionA""}", Dr("AtencionA").ToString()) + Asunto = Asunto.Replace("{""Sucursal""}", Dr("SubProyecto").ToString()) End If End If From caed01998178469d25775f5e9914c311b0b955c7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 5 Sep 2023 17:36:42 -0700 Subject: [PATCH 3/3] --Metodo para obtener productos en API JAM --- App_Code/ClsInventarios.vb | 19 +++++++++ Ashx/E119.ashx | 80 +++++++++++++++++++++++++++----------- 2 files changed, 77 insertions(+), 22 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 3fb9d858b..502282246 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5984,6 +5984,25 @@ Public Class ClsInventarios Return Retorno End Function + + Public Function GetJAM_APIs(Optional Opcion As Integer = 1) As Boolean + Dim Retorno As Boolean = False + Dataset = New DataSet() + DataAdapter("PA_JAM_APIs") + With SqlAdapter.SelectCommand.Parameters + .Add("@Opcion", SqlDbType.Int).Value = Opcion + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function #End Region diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index e7e3a11f0..07a7adc94 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -47,17 +47,6 @@ Public Class E119 : Implements IHttpHandler End If End Get End Property - Public ReadOnly Property TokenAutorizacion As String - Get - Return "$2y$10$LGqtRWUloKQmAt.jcUldc.PmS5LJ6l.WU2w1G4PBOTLMVKZRNQFPS" - End Get - End Property - - Public ReadOnly Property URLBase As String - Get - Return "https://services.fidelityapps.mx/" - End Get - End Property #Region "V A L I D A - D A T O S" @@ -99,19 +88,31 @@ Public Class E119 : Implements IHttpHandler Dim retorno As String = "" Try Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) - 'OBTENER EXISTENCIAS - 'If Metodo = "BASF_POG40" Then - ' context.Response.ContentType = "application/json" - ' Dim Auth = ValidarSolicitud(context) - ' If Auth.IsSucces Then - ' retorno = ConsultaDatos(context) - ' Else - ' context.Response.StatusCode = Auth.StatusCode - ' retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) - ' End If + If Metodo = "BASF_POG40" Then + context.Response.ContentType = "application/json" + Dim Auth = ValidarSolicitud(context) - 'End If + If Auth.IsSucces Then + retorno = ConsultaDatos(context) + Else + context.Response.StatusCode = Auth.StatusCode + retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) + End If + + End If + + If Metodo = "ConsultarProductos" Then + context.Response.ContentType = "application/json" + Dim Auth = ValidarSolicitud(context) + + If Auth.IsSucces Then + retorno = ConsultaProductos(context) + Else + context.Response.StatusCode = Auth.StatusCode + retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) + End If + End If context.Response.Write(retorno) @@ -220,6 +221,41 @@ Public Class E119 : Implements IHttpHandler End If End Function + Private Function ConsultaProductos(ByVal context As HttpContext) As String + Dim Respuesta As New ResponseMsg + Dim RespuestaError As New ResponseMsgError + Dim TieneError As Boolean = False + + Dim Productos As JArray = Nothing + + Using ObjInventario As New ClsInventarios + If ObjInventario.GetJAM_APIs(1) AndAlso ObjInventario.DtResultados IsNot Nothing Then + Productos = JArray.Parse(ObjInventario.DtResultados.DataTableToJSONIPP()) + Else + RespuestaError.message = "no se pudo obtener los datos" + TieneError = True + End If + End Using + + Dim Msg As String = "Información día " & Now.ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "") + Msg.GuardaLogAD("LogE119") + + If TieneError Then + context.Response.StatusCode = 200 + Return JsonConvert.SerializeObject(RespuestaError) + Else + context.Response.StatusCode = 200 + Try + Respuesta.data = New JObject(New JProperty("Productos", Productos)) + Respuesta.message = "Los datos se obtuvieron correctamente" + Return JsonConvert.SerializeObject(Respuesta) + Catch ex As Exception + RespuestaError.message = "Ocurrió un error al generar la petición" + Return JsonConvert.SerializeObject(RespuestaError) + End Try + End If + End Function + Private Class ResponseMsg Sub New() status = "success"