diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index ca76c20ae..57848c6e1 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -46,6 +46,7 @@ Partial Class Bancos_DepositosCaja
'código temporal, para claudia y toñita, monge, anadelia, alba
If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
+ divFolio.Visible = True
End If
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
@@ -187,7 +188,7 @@ Partial Class Bancos_DepositosCaja
Dim FolioIE As Long = -1
Dim CveMoneda As Integer = 1
Dim TipoCambio As Decimal = 1
- Dim Fecha As Date = TxtFecha.Text.ToDate
+ Dim Fecha As Date = TxtFecha.Text.ToDate
Dim IdCuentaBancariaOrigen As Integer = 0
Dim IdCuentaBancariaDestino As Integer = 0
Dim CveCuentaBancariaOrigen As Integer = 0
@@ -252,11 +253,19 @@ Partial Class Bancos_DepositosCaja
If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger
CveTransaccionBanco = 6
+ End If
+
+ 'código temporal, para claudia y toñita, monge, anadelia, alba
+ If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
+ FolioIE = TxtFolio.Text.ToEntero
End If
- 'Entrada a bancos
- FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
- If Not FolioIE > 0 Then
+ If FolioIE <= 0 Then
+ 'Entrada a bancos
+ FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
+ End If
+
+ If FolioIE <= 0 Then
OcurrioError = True
End If
CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index b1e299929..66b6bef51 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -194,11 +194,6 @@ Partial Class Inicio
'Ventas no timbradas por centro de costo
If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto()
- 'Reporte facaturas pendientes por autorizar Oscar 2016-07-06
- If UsuarioActual.TienePermisoProceso(158) Then
- RegistraScript("$( document ).ready(function() { AbrirVentana('/Compras/PopUpFacturasPendientesAutorizar.aspx');});", "repFacturas")
- End If
-
'Ventas sin correo enviado
If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas()
diff --git a/OC/RepSolicitudesAnticipo.aspx.cs b/OC/RepSolicitudesAnticipo.aspx.cs
index 5f25aa1f3..104bc2e02 100644
--- a/OC/RepSolicitudesAnticipo.aspx.cs
+++ b/OC/RepSolicitudesAnticipo.aspx.cs
@@ -101,6 +101,17 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
protected void CargaDatos()
{
+ if (DdlEstatus.SelectedValue.ToEntero() == 3)
+ {
+ GvSolicitudes.Columns[6].Visible = false; GvSolicitudes.Columns[10].Visible = false;
+ GvSolicitudes.Columns[7].Visible = true; GvSolicitudes.Columns[8].Visible = true;
+ }
+ else
+ {
+ GvSolicitudes.Columns[6].Visible = true; GvSolicitudes.Columns[10].Visible = true;
+ GvSolicitudes.Columns[7].Visible = false; GvSolicitudes.Columns[8].Visible = false;
+ }
+
ClsOC ObjOC = new ClsOC();
CveProveedor = DdlProveedores.SelectedValue.ToEntero();
@@ -119,25 +130,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
}
protected void BtnConsultar_Click(object sender, EventArgs e)
- {
- if (DdlEstatus.SelectedValue.ToEntero() == 3)
- {
- GvSolicitudes.Columns[6].Visible = false;
- GvSolicitudes.Columns[10].Visible = false;
-
- GvSolicitudes.Columns[7].Visible = true;
- GvSolicitudes.Columns[8].Visible = true;
-
- }
- else
- {
- GvSolicitudes.Columns[6].Visible = true;
- GvSolicitudes.Columns[10].Visible = true;
-
- GvSolicitudes.Columns[7].Visible = false;
- GvSolicitudes.Columns[8].Visible = false;
-
- }
+ {
CargaDatos();
}
diff --git a/Sistemas/EmpresasModulos.aspx b/Sistemas/EmpresasModulos.aspx
index 0ac3ba30f..0130814b8 100644
--- a/Sistemas/EmpresasModulos.aspx
+++ b/Sistemas/EmpresasModulos.aspx
@@ -41,7 +41,7 @@