From 17a5fc9c800c44fabde18eff924a5f09a378902b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Jun 2023 17:37:12 -0700 Subject: [PATCH] =?UTF-8?q?--=20se=20quit=C3=B3=20banner.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Sistemas/Empresa.aspx | 57 +++++++--------------------------------- Sistemas/Empresa.aspx.vb | 15 ++--------- 2 files changed, 12 insertions(+), 60 deletions(-) diff --git a/Sistemas/Empresa.aspx b/Sistemas/Empresa.aspx index 5e2c2ed6d..db5bef7fe 100644 --- a/Sistemas/Empresa.aspx +++ b/Sistemas/Empresa.aspx @@ -309,7 +309,7 @@
- CDS + CSD
@@ -513,7 +513,7 @@
- +
@@ -571,7 +571,7 @@ SSL: - +
@@ -618,7 +618,7 @@ SSL: - + @@ -700,7 +700,7 @@
- +
@@ -1424,10 +1424,10 @@ Tipo Centro de Costos: - - - - + + + + @@ -1579,44 +1579,7 @@
- -
-
-
- - Archivos -
-
-
-
-
-
- -
-
-
- - - - - - - - - - - -
Banner: - - - -
Cargar Banner
- - - - Descargar Banner
-
-
+
diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index c980a831c..f09547665 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/Sistemas/Empresa.aspx.vb @@ -182,9 +182,6 @@ Partial Class Sistemas_Empresa 'Configuración de Modalidad Update TxtTimbres.Enabled = False - TrDescargaBanner.Visible = True - LnkBanner.InnerText = "Reemplazar Banner" - LbArchivoKeyDescarga.Visible = True LbArchivoCerDescarga.Visible = True LbArchivoPfxDescarga.Visible = True @@ -261,7 +258,6 @@ Partial Class Sistemas_Empresa TxtArchivoKey.Text = .ArchivoKey TxtArchivoCer.Text = .ArchivoCer TxtArchivoPfx.Text = .ArchivoPfx - TxtBanner.Text = .Banner ChkEstatus.Checked = .Estatus TxtFecha.Text = .FechaIng.ToString TxtCveUsuario.Text = .Usuario @@ -462,16 +458,9 @@ Partial Class Sistemas_Empresa 'CargaFuncionalidad(243, DdlFyESIG) 'CargaFuncionalidad(244, DdlActivoFijoSIG) - LbBannerDescarga.OnClientClick = "javascript:AbrirVentana('/Banners/" & .Banner & "', 500, 500, 'N', 'Banner Empresa');" Session("FileUpload") = .Banner - - Session("FileUpload") = .ArchivoKey - - LbBannerDescarga.OnClientClick = "javascript:AbrirVentana('/Cer/" & .ArchivoCer & "', 500, 500, 'N', 'ArchivoCer Empresa');" Session("FileUpload") = .ArchivoCer - - Session("FileUpload") = .ArchivoPfx End With InicializaClasificacionIVA(ObjEmpresas) @@ -530,7 +519,7 @@ Partial Class Sistemas_Empresa If ObjEmpresas.AddEmpresa(TxtCveEmpresa.Text.Trim.ToEntero, TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedValue, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, - TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, TxtBanner.Text.Trim, UsuarioActual.CveUsuario, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, + TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", UsuarioActual.CveUsuario, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked, ChkUsaVentas.Checked, ChkUsaCxC.Checked, ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim, TxtServerContPAQi.Text.Trim, @@ -577,7 +566,7 @@ Partial Class Sistemas_Empresa Else If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim, - TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, TxtBanner.Text.Trim, ChkEstatus.Checked, + TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", ChkEstatus.Checked, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked, ChkUsaVentas.Checked, ChkUsaCxC.Checked, ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim,