PagoElectronico validacion Banco asisgnado a cuenta deposito, repIva crystal

Bancos/IE.aspx.vb

@@ -496,6 +496,39 @@ Partial Class Bancos_IE
 #End Region
 
 
+#Region " R E F E R E N C I A C O N C E P T O  O R I G I N A L E S"
+
+
+    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
 
 
 #End Region
@@ -2471,10 +2504,29 @@ Partial Class Bancos_IE
 
 
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
-                                           TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1))
+                                           TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                           CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
+                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"))
 
                 If CveIE > 0 Then
 
+
+
+                    If DdlCuentaDeposito.SelectedValue.ToEntero > 0 And DdlTipoTransaccion.SelectedValue = "17" Then
+
+                        If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then
+
+                            Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL)
+
+                            If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then
+
+                                MsgError = "Error al actualziar Cuanta  Referencia y Concepto Deposito."
+                            End If
+
+                        End If
+
+                    End If
+
                     If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa <> 119 Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
                     CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
 
@@ -4653,7 +4705,7 @@ Partial Class Bancos_IE
                 Else
                     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" And CveIE <= -1 Then
 
 
@@ -4670,7 +4722,7 @@ Partial Class Bancos_IE
                     BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito"
 
                 End If
-
+                DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
 
                 UpGuardar.Update()
 
@@ -4750,17 +4802,59 @@ Partial Class Bancos_IE
         End If
     End Sub
     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(0)("TieneCIE").ToString.ToEntero = 1 Then
-                TrReferenciaCIE.Visible = True
-                TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString
+
+        If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then
+
+            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) 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
+
+
+        Else
+            TrReferenciaCIE.Visible = False
         End If
+
+
+
         Dep.Dispose()
         UpCuentaDeposito.Update()
+        UpGuardar.Update()
+
+
     End Sub
 #End Region