diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 668920538..3e76962a8 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -10,7 +10,7 @@ -   +   @@ -81,9 +81,16 @@ - +
+ +
+ + +
+
+ @@ -98,7 +105,7 @@
- +
@@ -139,8 +146,8 @@
-
@@ -255,7 +262,7 @@ if (comision > 0) { $('#LblSubproyecto').css("display", "block"); - $('#divSubProyecton').css("display", "block"); + $('#divSubProyecto').css("display", "block"); $('#LblClasificacion').css("display", "block"); $('#divClasificacion').css("display", "block"); @@ -263,7 +270,7 @@ } else { $('#LblSubproyecto').css("display", "none"); - $('#divSubProyecton').css("display", "none"); + $('#divSubProyecto').css("display", "none"); $('#LblClasificacion').css("display", "none"); $('#divClasificacion').css("display", "none"); debugger; diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 6d2911286..c9520b792 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -38,9 +38,11 @@ Partial Class Bancos_DepositosCaja DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) + DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) + DdlSubProyectoDeposito.DataBind() + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion.DataBind() - DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click @@ -82,7 +84,7 @@ Partial Class Bancos_DepositosCaja TotalImportePrePoliza = TotalImporte If TxtComision.Text.ToEntero > 0 Then TotalImporte = TotalImporte - TxtComision.Text.ToEntero - If DdlSubProyectos.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then + If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -133,7 +135,7 @@ Partial Class Bancos_DepositosCaja CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If TxtComision.Text.ToEntero > 0 Then - CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero + CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero CveClasificacion = DdlClasificacion.SelectedValue.ToEntero If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TxtComision.Text.ToEntero, "Comisión", 78, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=TxtComision.Text.ToEntero * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then