From e337e502e8c96bbf56562ddcfe9a47c2fcd97d8e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 12 Oct 2023 19:44:47 -0700 Subject: [PATCH] =?UTF-8?q?--=20manejo=20de=20nueva=20columna=20de=20cveco?= =?UTF-8?q?lectiva,=20para=20asignaci=C3=B3n=20e=20cuentas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 10 ++--- App_Code/ClsGenerales.vb | 27 ++++++------- App_Code/ClsOC.vb | 7 +++- CGame/CatHuerta.aspx | 2 +- CGame/CatHuerta.aspx.cs | 41 +++++++++++++------- Contabilidad2/CatCuentasAsignaciones.aspx | 4 ++ Contabilidad2/CatCuentasAsignaciones.aspx.vb | 21 ++++++++-- 7 files changed, 70 insertions(+), 42 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 1edecc564..72954ea76 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -968,9 +968,6 @@ Public Class ClsContabilidad .Add("@TCPago", SqlDbType.Decimal).Value = TipoCambioPago .Add("@Referencia", SqlDbType.VarChar).Value = Referencia .Add("@Concepto", SqlDbType.VarChar).Value = Concepto - '.Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento - '.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable - '.Add("@IdSegmentoNegocio", SqlDbType.Int).Value = IdSegmentoNegocio .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveVenta", SqlDbType.Int).Value = CveVenta @@ -993,6 +990,7 @@ Public Class ClsContabilidad .Add("@CveCreditoDetalle", SqlDbType.Int).Value = CveCreditoDetalle .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto .Add("@CveNominaMovtoPermanente", SqlDbType.Money).Value = CveNominaMovtoPermanente + .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva .Add("@CvePrePolizaDetalle", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -5664,7 +5662,7 @@ Public Class ClsContabilidad Public Function AddCuentasAsignaciones(CveConceptoContable As Integer, CveEmpresa As Integer, CveCuenta As Integer, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1, - Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional CveCredito As Integer = -1, + Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional CveCredito As Integer = -1, Optional CveColectiva As Integer = -1, Optional RegeneraCuenta As Boolean = False, Optional OpActualizarClasificacion As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -5687,6 +5685,7 @@ Public Class ClsContabilidad .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("@CveCredito", SqlDbType.Int).Value = CveCredito + .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva .Add("@RegeneraCuenta", SqlDbType.Bit).Value = RegeneraCuenta .Add("@OpActualizarClasificacion", SqlDbType.Bit).Value = OpActualizarClasificacion End With @@ -5706,7 +5705,7 @@ Public Class ClsContabilidad Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, - Optional CveCredito As Integer = -1, Optional RegeneraCuenta As Boolean = False) As Boolean + Optional CveCredito As Integer = -1, Optional CveColectiva As Integer = -1, Optional RegeneraCuenta As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasAsignacionesUpdate") @@ -5727,6 +5726,7 @@ Public Class ClsContabilidad .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto .Add("@CveCredito", SqlDbType.Int).Value = CveCredito + .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva .Add("@RegeneraCuenta", SqlDbType.Bit).Value = RegeneraCuenta End With diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 4367579f6..a28971f9e 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -31,9 +31,7 @@ Public Class ClsGenerales Public Property Direccion As String Public Property Telefono As String Public Property Correo As String - Public Property Tipo As Integer - Public Property IdCtaContable As Integer - Public Property CtaContable As String + Public Property Tipo As Integer Public Property Estatus As Boolean Public Property FechaIng As DateTime Public Property CveUsuario As Integer @@ -1245,18 +1243,17 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - + #Region "C O L E C T I V A S" - Public Function GetColectivas(Optional CveColectiva As Integer = -1, Optional Colectiva As String = "-1", Optional Codigo As String = "-1", Optional Tipo As String = "-1", Optional CveEmpresa As Integer = -1) As Boolean + Public Function GetColectivas(CveEmpresa As Integer, Optional CveColectiva As Integer = -1, Optional Tipo As String = "-1", Optional CveConceptoContable As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_ColectivasGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva - .Add("@Colectiva", SqlDbType.VarChar).Value = Colectiva - .Add("@Codigo", SqlDbType.VarChar).Value = Codigo + .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva + .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable .Add("@Tipo", SqlDbType.VarChar).Value = Tipo .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With @@ -1270,9 +1267,7 @@ Public Class ClsGenerales Me.Direccion = Data.Rows(0)("Direccion").ToString Me.Telefono = Data.Rows(0)("Telefono").ToString Me.Correo = Data.Rows(0)("Correo").ToString - Me.Tipo = Data.Rows(0)("Tipo").ToString.ToEntero - Me.IdCtaContable = Data.Rows(0)("IdCtaContable").ToString.ToEntero - Me.CtaContable = Data.Rows(0)("CtaContable").ToString + Me.Tipo = Data.Rows(0)("Tipo").ToString.ToEntero Me.Estatus = CBool(Data.Rows(0)("Estatus").ToString) Me.FechaIng = Data.Rows(0)("FechaIng").ToString.ToDateTime Me.Usuario = Data.Rows(0)("Usuario").ToString @@ -1392,7 +1387,7 @@ Public Class ClsGenerales DataAdapter("PA_Gral_ColectivasGetByProveedor") With SqlAdapter.SelectCommand.Parameters - .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -1403,10 +1398,10 @@ Public Class ClsGenerales End Try Return Retorno - End Function - + End Function + #End Region - + #Region "C O L E C T I V A S - D E T A L L E S" Public Function GetColectivasDetalles(CveColectiva As Integer, Tipo As String, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index fe4cc82c8..a492db067 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -706,7 +706,8 @@ Public Class ClsOC Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", Optional PorcentajeIVA As Decimal = 0.16D, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1, Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, - Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1, Optional NumRemision As String = "-1") As Boolean + Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1, Optional NumRemision As String = "-1", + Optional CveColectiva As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraAdd") @@ -750,6 +751,7 @@ Public Class ClsOC .Add("@Promocion", SqlDbType.VarChar).Value = Promocion .Add("@CveProveedorContacto", SqlDbType.Int).Value = CveProveedorContacto .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision + .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output @@ -1156,7 +1158,7 @@ Public Class ClsOC pObservacion As String, pCveUsuario As Integer, Optional pCveOrdenCompraPadre As Integer = -1, Optional CvePresupuestoEgreso As Integer = -1, Optional Descuento As Decimal = 0, Optional IEPSPS As Decimal = 0, Optional IEPSPSIVA As Decimal = 0, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional Total As Decimal = 0, Optional CveContratoDetalle As Integer = -1, Optional IVAPorcentaje As Decimal = 0, Optional RetIVAPorcentaje As Decimal = 0, Optional RetISRPorcentaje As Decimal = 0, Optional IEPSPSPorcentaje As Decimal = 0, - Optional IEPSPSIVAPorcentaje As Decimal = 0, Optional CveVentaDetalleCotizacion As Integer = -1, Optional CveTipoGastoObra As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean + Optional IEPSPSIVAPorcentaje As Decimal = 0, Optional CveVentaDetalleCotizacion As Integer = -1, Optional CveTipoGastoObra As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1, Optional CveColectiva As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraDetalleAdd") @@ -1189,6 +1191,7 @@ Public Class ClsOC .Add("@CveVentaDetalleCotizacion", SqlDbType.Int).Value = CveVentaDetalleCotizacion .Add("@CveTipoGastoObra", SqlDbType.Int).Value = CveTipoGastoObra .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle + .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva End With diff --git a/CGame/CatHuerta.aspx b/CGame/CatHuerta.aspx index 1c2590f53..8c6399fcb 100644 --- a/CGame/CatHuerta.aspx +++ b/CGame/CatHuerta.aspx @@ -163,7 +163,7 @@
- +
diff --git a/CGame/CatHuerta.aspx.cs b/CGame/CatHuerta.aspx.cs index 4041dd853..b5fc61ddb 100644 --- a/CGame/CatHuerta.aspx.cs +++ b/CGame/CatHuerta.aspx.cs @@ -9,21 +9,32 @@ ddlOrigen.DataSource = ogame.DtResultados; ddlOrigen.DataBind(); } - ClsCompProveedores ObjProv = new ClsCompProveedores(); if (ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)) - { - DdlProveedor.DataSource = ObjProv.DtResultados; - DdlProveedor.Items.Insert(0, new ListItem("Seleccione", "-1")); - DdlProveedor.DataBind(); - if (DdlProveedor.Items.Count > 2) - { - DdlProveedor.SelectedIndex = 2; - } - } ObjProv.Dispose(); } protected void LimpiaHuerta() { TxtHuerhuerta.Text= ""; TxtImporte.Text = ""; TxtCostoXTonelada.Text = ""; DdlProveedor.SelectedIndex = 0; - if (DdlProveedor.Items.Count > 2) - { - DdlProveedor.SelectedIndex = 2; - } DdlTipoCobro.SelectedIndex = 0; UPModalHuer.Update(); } protected void LnkEditarHuer_Click(object sender, EventArgs e) { LimpiaHuerta(); GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); CveHuerta = gvRow.DataKey("CveHuerta").ToEntero(); TxtHuerhuerta.Text = gvRow.DataKey("Huerta"); TxtImporte.Text = gvRow.DataKey("Importe"); TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada"); TxtNombreRegistro.Text = gvRow.DataKey("NombreRegistro"); - TxtNumeroRegistro.Text = gvRow.DataKey("NumeroRegistro"); DdlProveedor.SelectedValueExist(gvRow.DataKey("CveProveedor").ToEntero()); DdlTipoCobro.SelectedValueExist(gvRow.DataKey("TipoCobro").ToEntero()); ChkHuerestatus.Checked= Convert.ToBoolean(gvRow.DataKey("Estatus")); RegistraScript("$('#DModalHuerta').modal();"); BtnHuerADD.Visible=false; BtnHuerEdit.Visible=true; DivEstatus.Visible = true; UPModalHuer.Update(); } protected void LnkAgregarHuer_Click(object sender, EventArgs e) { RegistraScript("$('#DModalHuerta').modal();"); LimpiaHuerta(); BtnHuerADD.Visible=true; BtnHuerEdit.Visible=false; DivEstatus.Visible = false; UPModalHuer.Update(); } protected void BtnHuerADD_Click(object sender, EventArgs e) { if (DdlProveedor.SelectedValue=="-1") + // ClsCompProveedores ObjProv = new ClsCompProveedores(); //if (ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)) + //{ + // DdlProveedor.DataSource = ObjProv.DtResultados; + // //DdlProveedor.Items.Insert(0, new ListItem("Seleccione", "-1")); + // DdlProveedor.DataBind(); + // if (DdlProveedor.Items.Count > 2) + // { + // DdlProveedor.SelectedIndex = 2; + // } + //} //ObjProv.Dispose(); } protected void LimpiaHuerta() { TxtHuerhuerta.Text= ""; TxtImporte.Text = ""; TxtCostoXTonelada.Text = ""; //DdlProveedor.SelectedIndex = 0; + //if (DdlProveedor.Items.Count > 2) + //{ + // DdlProveedor.SelectedIndex = 2; + //} DdlTipoCobro.SelectedIndex = 0; UPModalHuer.Update(); } protected void LnkEditarHuer_Click(object sender, EventArgs e) { LimpiaHuerta(); GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); CveHuerta = gvRow.DataKey("CveHuerta").ToEntero(); TxtHuerhuerta.Text = gvRow.DataKey("Huerta"); TxtImporte.Text = gvRow.DataKey("Importe"); TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada"); TxtNombreRegistro.Text = gvRow.DataKey("NombreRegistro"); + TxtNumeroRegistro.Text = gvRow.DataKey("NumeroRegistro"); + + //DdlProveedor.SelectedValue = objOC.CveProveedor.ToString + // if (gvRow.DataKey("CveProveedor").ToEntero() > 0) + // { + // DdlProveedor.SelectedValueExist(gvRow.DataKey("CveProveedor").ToEntero()); + //} + // CveProveedorOriginal = objOC.CveProveedor + // DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString + //Else + // DdlProveedores.SelectedText = "-" + //End If DdlTipoCobro.SelectedValueExist(gvRow.DataKey("TipoCobro").ToEntero()); ChkHuerestatus.Checked= Convert.ToBoolean(gvRow.DataKey("Estatus")); RegistraScript("$('#DModalHuerta').modal();"); BtnHuerADD.Visible=false; BtnHuerEdit.Visible=true; DivEstatus.Visible = true; UPModalHuer.Update(); } protected void LnkAgregarHuer_Click(object sender, EventArgs e) { RegistraScript("$('#DModalHuerta').modal();"); LimpiaHuerta(); BtnHuerADD.Visible=true; BtnHuerEdit.Visible=false; DivEstatus.Visible = false; UPModalHuer.Update(); } protected void BtnHuerADD_Click(object sender, EventArgs e) { if (DdlProveedor.SelectedValue=="-1") { Alert("Tiene que seleccionar un proveedor."); return; diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index ad11d6e70..c1efeb1b4 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -181,6 +181,10 @@
+
+ + +
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index c089046df..4581f2714 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -202,7 +202,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If Dr IsNot Nothing Then - divCliente.Visible = Boolean.Parse(Dr("AplicaCliente").ToString) divProveedor.Visible = Boolean.Parse(Dr("AplicaProveedor").ToString) divPersonal.Visible = Boolean.Parse(Dr("AplicaPersonal").ToString) @@ -213,6 +212,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString) divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString) divCredito.Visible = Boolean.Parse(Dr("AplicaCredito").ToString) + divColectivas.Visible = Boolean.Parse(Dr("AplicaColectiva").ToString) DdlActivoFijo.Enabled = False @@ -254,6 +254,21 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlCreditos.Enabled = False End If End If + + If Dr("AplicaColectiva").ToString = "True" Then + Dim ObjG As New ClsGenerales + If ObjG.GetColectivas(UsuarioActual.CveEmpresa, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then + DdlColectivas.DataSource = ObjG.DtResultados + End If + ObjG.Dispose() + DdlColectivas.DataBind() + + If OpAgregar Then + DdlColectivas.Enabled = True + Else + DdlColectivas.Enabled = False + End If + End If End If End Sub @@ -343,7 +358,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), - CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, + CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, CveColectiva:=DdlColectivas.SelectedValue.ToEntero, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, CveCredito:=DdlCreditos.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then ErrorString = "Error al agregar" End If @@ -351,7 +366,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), - CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, + CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, CveColectiva:=DdlColectivas.SelectedValue.ToEntero, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, CveCredito:=DdlCreditos.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then ErrorString = "Error al actualizar" End If