PagoElectronico validacion Banco asisgnado a cuenta deposito, repIva crystal

Bancos/PopIECompras.aspx.vb

@@ -377,7 +377,11 @@ Partial Class Bancos_PopIECompras
 
     Private Property CveCuentaCliente As Integer
         Get
-            Return ViewState("CveCuentaCliente").ToString.ToEntero
+            If ViewState("CveCuentaCliente") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveCuentaCliente").ToString.ToEntero
+            End If
         End Get
         Set(value As Integer)
             ViewState("CveCuentaCliente") = value
@@ -402,10 +406,39 @@ Partial Class Bancos_PopIECompras
         Get
             Return ViewState("CveCuentaMonedaExtranjeraCliente").ToString.ToEntero
         End Get
-    End Property
-
+    End Property
+
+    Private Property OriReferenciaCIE As String
+        Get
+            If ViewState("OriReferenciaCIE") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("OriReferenciaCIE").ToString
+            End If
+
+
+        End Get
+        Set(value As String)
+            ViewState("OriReferenciaCIE") = value
+        End Set
+    End Property
+
+    Private Property OriConceptoCIE As String
+        Get
+            If ViewState("OriConceptoCIE") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("OriConceptoCIE").ToString
+            End If
+
+        End Get
+        Set(value As String)
+            ViewState("OriConceptoCIE") = value
+        End Set
+    End Property
+
 #End Region
-
+
     Private Sub Bancos_PopIECompras_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -926,7 +959,7 @@ Partial Class Bancos_PopIECompras
 
     Private Sub CargaCuentasDepositos()
         DdlCuentaDeposito.Items.Clear()
-        If DdlTipoTransaccion.SelectedValue.Contiene("2", "9") Then ' transferencias y layout
+        If DdlTipoTransaccion.SelectedValue.Contiene("2", "9", "17") Then ' transferencias y layout
             trCuentaDeposito.Visible = False
 
 
@@ -944,7 +977,7 @@ Partial Class Bancos_PopIECompras
                         BtnGuardar.Enabled = False
                         Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
                     End If
-
+                    DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                 ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
 
 
@@ -960,9 +993,9 @@ Partial Class Bancos_PopIECompras
                     End If
 
 
-                    UpGuardar.Update()
-
-
+                    UpGuardar.Update()
+
+                    DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                 Else
                     DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'")
                     If Dep.DtResultados.Rows.Count > 0 Then
@@ -992,9 +1025,11 @@ Partial Class Bancos_PopIECompras
         Else
             trCuentaDeposito.Visible = False
             DdlCuentaDeposito.Items.Clear()
+            'TrReferenciaCIE.Visible = False
         End If
         'RecargaGlobalCuentasBancarias()
-        UpCuentaDeposito.Update()
+        UpCuentaDeposito.Update()
+
     End Sub
 #End Region
 
@@ -1452,7 +1487,7 @@ Partial Class Bancos_PopIECompras
 
                             Select Case RBLContado.SelectedValue
                                 Case "1" ' Banco
-                                    CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"))
+                                    CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"))
                                     If CveIE > 0 Then
                                         CveConcepto = 17
                                     Else
@@ -2371,6 +2406,7 @@ Partial Class Bancos_PopIECompras
                                             End If
 
                                         Case 19 'Iva Acreditable
+
                                             If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
                                                 'funcionalidad que toma el 100% del pago para acreditamiento de iva
                                                 Dim TotalImporte As Decimal
@@ -3408,7 +3444,54 @@ Partial Class Bancos_PopIECompras
         End If
 
 
-    End Sub
+    End Sub
 #End Region
-
+
+
+
+    Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        Dim Dep As New ClsGenerales
+
+        If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then
+
+            If Dep.DtResultados.Rows.Count > 0 Then
+
+                If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then
+
+                    TrReferenciaCIE.Visible = True
+
+                    TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
+                    TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+
+                    OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString
+                    OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString
+
+                Else
+                    TrReferenciaCIE.Visible = False
+                End If
+
+
+                If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) = True AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then
+
+                    Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia)
+                    BtnGuardar.Enabled = False
+
+                Else
+                    BtnGuardar.Enabled = True
+                End If
+
+            Else
+                TrReferenciaCIE.Visible = False
+            End If
+
+        Else
+            TrReferenciaCIE.Visible = False
+        End If
+
+        Dep.Dispose()
+        UpCuentaDeposito.Update()
+        UpGuardar.Update()
+    End Sub
+
 End Class