-- tipo de pago, previo al registro del depósito

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