Movmientos Impuestos diario de pagos, reembolsos y comprobaciones CveCuentaDeposito en layout y layout grupos

Compras/ReembolsosComprobaciones.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
+
 Partial Class Compras_ReembolsosComprobaciones
     Inherits ClsPaginas
 
@@ -364,7 +365,13 @@ Partial Class Compras_ReembolsosComprobaciones
                 Dim Dep As New ClsGenerales
                 If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
 
-                    DdlCuentaDeposito.DataSource = Dep.DtResultados
+                    If DdlTipoTransaccion.SelectedValue = "9" Then
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
+                    Else
+                        DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
+                    End If
+
+
                     If Dep.DtResultados.Rows.Count > 0 Then
 
                         trCuentaDeposito.Visible = True
@@ -431,8 +438,9 @@ Partial Class Compras_ReembolsosComprobaciones
 #Region " BTN GUARDAR "
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+
         Dim CvecuentaDeposito As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero > 0, DdlCuentaDeposito.SelectedValue.ToEntero, -1)
-        If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+        If DdlTipoPago.SelectedValue.ToEntero = 1 AndAlso DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
             If CvecuentaDeposito <= 0 Then
                 Alert("Debe de seleccionar una cuenta deposito", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -738,7 +746,7 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.CveIE = CveIEPago
                             Pago.CveMonedaPago = CveMonedaPago
                             Pago.TCPago = TipoCambioPago
-                            Pago.CvePersonal =CvePersonal
+                            Pago.CvePersonal = CvePersonal
                             ImportePagoTotal = ImportePagoTotal + ImporteMovto
 
                             If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then