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 @@
-
+
@@ -53,7 +53,7 @@
-
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 13b93190e..f331cc6cc 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2242,10 +2242,10 @@ Partial Class Ventas
Private Property SaldoLineaAdicional As Decimal
Get
- Return (IfNull(ViewState("ImporteLineaAdicional"), "0", ViewState("ImporteLineaAdicional"))).ToString().ToDecimal()
+ Return (IfNull(ViewState("SaldoLineaAdicional"), "0", ViewState("SaldoLineaAdicional"))).ToString().ToDecimal()
End Get
Set(value As Decimal)
- ViewState("ImporteLineaAdicional") = value
+ ViewState("SaldoLineaAdicional") = value
End Set
End Property
@@ -14866,16 +14866,14 @@ Partial Class Ventas
Next
End If
- If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
+ If factura.TipoDocto.Contiene("Ing", "Dev") AndAlso DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
Dim Filtro As String = ""
Select Case factura.TipoDocto
- Case "Ing", "Ped"
+ Case "Ing"
Filtro = "CveConcepto IN (3,40)"
Case "Dev"
Filtro = "CveConcepto IN (3,40)"
- Case Else
- Filtro = "CveConcepto = 9"
End Select
Dim CveConceptoAlmacen As Integer = 3
@@ -33399,11 +33397,14 @@ Partial Class Ventas
TxtPedidoContrato.Enabled = True
TxtObsAlmacen.Enabled = True
RblPaqueteria.Enabled = True
- DdlLineaAdicional.Enabled = True
+
LnkUpdateLineaAdicional.Visible = True
'Acciones
BtnEditar.Text = "Guardar"
+ CalculaLineasAdicionales()
+ DdlLineaAdicional.Enabled = True
+
UpParametros.Update()
UPObservaciones.Update()
UpFacturar.Update()
@@ -35285,9 +35286,17 @@ Partial Class Ventas
Me.CveCategoriaLineaAdicional = RowLinea("CveCategoria").ToString().ToEntero()
Me.CveMonedaLineaAdicional = RowLinea("CveMoneda").ToString().ToEntero()
+ Me.SaldoLineaAdicional = RowLinea("Saldo").ToString().ToDecimal()
End If
-
+ Else
+ Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
+ Me.SaldoLineaAdicional = 0
+ Me.CveCategoriaLineaAdicional = 0
End If
+ Else
+ Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
+ Me.SaldoLineaAdicional = 0
+ Me.CveCategoriaLineaAdicional = 0
End If
End Using
Else