pagoelectronico grupos

2020-06-19 20:40:24 -07:00
parent 3974b4e821
commit 03d2588908
4 changed files with 68 additions and 8 deletions
--- a/App_Code/ClsBancos.vb
+++ b/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
--- a/App_Code/ClsGenerales.vb
+++ b/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
--- a/Bancos/ProveedoresAbonar.aspx
+++ b/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">
-                                        <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" Width="400px" />
+                                    <div class="col-md-4">
+                                        <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>
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/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
-                    DdlCuentaDeposito.SelectedIndex = 1
-                End If
+                'If DdlCuentaDeposito.Items.Count > 1 Then
+                '    DdlCuentaDeposito.SelectedIndex = 1
+                '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