pagoelectronico grupos

App_Code/ClsBancos.vb

@@ -1404,7 +1404,7 @@ Public Class ClsBancos
                                  NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer,
                                  Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
                                  Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
-                                    Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "") As Integer
+                                    Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "") As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Banc_IEAdd")
@@ -1439,6 +1439,7 @@ Public Class ClsBancos
             .Add("@CveProveedorIntermediario", SqlDbType.Int).Value = CveProveedorIntermediario
             .Add("@FueConciliado", SqlDbType.Bit).Value = FueConciliado
             .Add("@MesesSinIntereses", SqlDbType.Int).Value = MesesSinIntereses
+            .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE
 
             .Add("@CveIE", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@FolioRegistro", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output

App_Code/ClsGenerales.vb

@@ -1368,7 +1368,7 @@ Public Class ClsGenerales
     ' IDisposable
 
 #Region "G E N E R A L E S   -  C U E N T A S  B A N C A R I A S "
-    Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1) As Boolean
+    Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1379,6 +1379,7 @@ Public Class ClsGenerales
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
             .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try

Bancos/ProveedoresAbonar.aspx

@@ -191,11 +191,17 @@
                                 </div>
                                 <div class="row" id="TrReferenciaCIE" runat="server" visible="False">
                                     <label class="col-md-2 control-label">Referencia:</label>
-                                    <div class="col-md-10">
+                                    <div class="col-md-4">
-                                        <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" Width="400px" />
+                                        <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" MaxLength="20" Width="200px" />
                                         <asp:RequiredFieldValidator ID="RFVReferenciaCIE" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </div>
+                                    <label class="col-md-2 control-label">Concepto:</label>
+                                    <div class="col-md-4">
+                                        <asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    </div>
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>

Bancos/ProveedoresAbonar.aspx.vb

@@ -283,6 +283,7 @@ Partial Class Bancos_ProveedoresAbonar
             ViewState("CodigoProgramacion") = value
         End Set
     End Property
+
     Private Property DtDatos As DataTable
         Get
             Return DirectCast(ViewState("DtDatos"), DataTable)
@@ -293,6 +294,26 @@ Partial Class Bancos_ProveedoresAbonar
     End Property
 
 
+    Private Property OriReferenciaCIE As String
+        Get
+            Return ViewState("OriReferenciaCIE").ToString
+        End Get
+        Set(value As String)
+            ViewState("OriReferenciaCIE") = value
+        End Set
+    End Property
+
+    Private Property OriConceptoCIE As String
+        Get
+            Return ViewState("OriConceptoCIE").ToString
+        End Get
+        Set(value As String)
+            ViewState("OriConceptoCIE") = value
+        End Set
+    End Property
+
+
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -835,12 +856,29 @@ Partial Class Bancos_ProveedoresAbonar
                     End If
                 End If
 
-                Dim CveIE As Integer = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1))
+                Dim CveIE As Integer = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), ConceptoCIE:=TxtConceptoCIE.Text)
 
                 If CveIE > 0 Then
 
+
                     ComprobanteIE = $"{CveIE}.{Comprobante}"
 
+
+                    If DdlCuentaDeposito.SelectedValue.ToEntero > 0 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
+
                     'guardo el archivo  
                     If filemove <> "" Then
                         filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta))
@@ -2508,6 +2546,7 @@ Partial Class Bancos_ProveedoresAbonar
 
                     If Dep.DtResultados.Rows.Count > 0 Then
                         DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'")
+                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     End If
 
                     If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then
@@ -2522,7 +2561,10 @@ Partial Class Bancos_ProveedoresAbonar
 
 
                     If Dep.DtResultados.Rows.Count > 0 Then
+
                         DdlCuentaDeposito.DataSource = Dep.DtResultados
+                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+
                         trCuentaDeposito.Visible = True
                         BtnIEGuardar.ToolTip = ""
                     Else
@@ -2546,9 +2588,9 @@ Partial Class Bancos_ProveedoresAbonar
                 DdlCuentaDeposito.DataBind()
 
 
-                If DdlCuentaDeposito.Items.Count > 1 Then
+                'If DdlCuentaDeposito.Items.Count > 1 Then
-                    DdlCuentaDeposito.SelectedIndex = 1
+                '    DdlCuentaDeposito.SelectedIndex = 1
-                End If
+                'End If
 
 
             Else
@@ -2608,17 +2650,27 @@ Partial Class Bancos_ProveedoresAbonar
         CargaCuentasDepositos()
     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
+                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
         End If
+
         Dep.Dispose()
         UpCuentaDeposito.Update()
+
     End Sub
 #End Region