diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 45747d1ea..ec3f491a6 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -147,9 +147,9 @@
- +
-
+
@@ -171,6 +171,18 @@
+
+ +
+
+ + + + + + + +
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index ca047fa89..9551eba19 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -61,6 +61,8 @@ Partial Class Bancos_DepositosCaja DivRowCuenta.Visible = True End If + If UsuarioActual.CveEmpresa.Contiene(140, 141) Then divTipoPago.Visible = False : divTipoPago1.Visible = False + DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) @@ -284,15 +286,15 @@ Partial Class Bancos_DepositosCaja End If End If - Dim CveTransaccionBanco As Integer = 13 + Dim CveTransaccionBanco As Integer = DdlTipoDeposito.SelectedValue.ToEntero 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 - If DdlTipoPago.SelectedValue.Contiene("11", "12") Then ' cuando son pagos con tarjetas - CveTransaccionBanco = DdlTipoPago.SelectedValue.ToEntero - End If + 'If DdlTipoPago.SelectedValue.Contiene("11", "12") Then ' cuando son pagos con tarjetas + ' CveTransaccionBanco = DdlTipoPago.SelectedValue.ToEntero + 'End If 'código temporal, para claudia y toñita, monge, anadelia, alba,patricia If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then