From bad871b870afec2598906f4ee1b94650eb406a0a Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Tue, 27 Aug 2019 19:16:44 -0700 Subject: [PATCH] global dt estatus ie --- Global.asax | 2 +- Ventas/Clientes.aspx.vb | 2 +- Ventas/ProductosServicios.aspx | 2 +- Ventas/ProductosServicios.aspx.vb | 8 ++++++++ 4 files changed, 11 insertions(+), 3 deletions(-) diff --git a/Global.asax b/Global.asax index f69cea9f7..dcb70128c 100644 --- a/Global.asax +++ b/Global.asax @@ -183,7 +183,7 @@ 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing - If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTEstatusIE") = Nothing + If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing ObjBancos.Dispose() diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 34f83d72e..169348b1c 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1253,7 +1253,7 @@ Partial Class Clientes 'CargaFormaPago33() 'CargaComboCFDI() - 'LnkPorcentajePrecios.Visible = True + LnkPorcentajePrecios.Visible = True If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index c8c23ac17..29c2aca5d 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -130,7 +130,7 @@
-
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index efd4939a0..31ec53798 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -212,6 +212,14 @@ Partial Class ProductosyServicios InicializaEcommerce() + If UsuarioActual.CveEmpresa.Contiene(141) Then + 'DivDatos.Attributes("class") = "col-md-12" + + DivDdlTipo.Visible = True + DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();") + + End If + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then 'DivDatos.Attributes("class") = "col-md-12" TxtPS.Enabled = False