Merge branch 'master' of http://192.168.10.111:8383/SIG

2021-04-16 18:00:52 -07:00
parent 4bee3a82b6 efdd5dce5c
commit 3ee086ecc1
7 changed files with 332 additions and 34 deletions
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -1043,7 +1043,7 @@
                                                <ContentTemplate>

                                                    <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" CssClass="table table-striped table-hover Widthall" Style="table-layout: fixed" runat="server"
-                                                        DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
+                                                        DataKeyNames="CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,EstatusTexto,CveMoneda" AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
                                                        <%--<asp:GridView ID="GvBancosCuentas" runat="server" DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias" CssClass="table table-striped table-advance table-hover" Style="table-layout: fixed" BorderWidth="0" GridLines="None">--%>
                                                        <Columns>
                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Banco" ItemStyle-HorizontalAlign="Center">
@@ -1154,6 +1154,9 @@
                                                                    <!--IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No") = If(EstatusPagoElectronico) Then "Sí" Else "No"-->
                                                                    <asp:Label ID="LblEstatusPE" runat="server" Text='<%# IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No")%>'>'></asp:Label>
                                                                </ItemTemplate>
+                                                                <EditItemTemplate>
+                                                                    <asp:CheckBox ID="ChkEstatusPagoE" runat="server" Checked='<%# IIf(CBool(Eval("EstatusPagoElectronico")), True, False)%>' Visible="true"></asp:CheckBox>
+                                                                </EditItemTemplate>
                                                            </asp:TemplateField>
                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
                                                                <ItemTemplate>
@@ -1402,22 +1405,24 @@
                                                        <asp:RequiredFieldValidator ID="RFVMetodoPago" runat="server" ControlToValidate="DdlMetodoPago" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Método de Pago''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                        <i></i>
                                                    </div>
-                                                    <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList ID="DdlBanco" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Banco" DataValueField="CveSATBanco" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
-                                                            <asp:ListItem Selected="True" Text="Sin asignar Banco" Value="-1"></asp:ListItem>
-                                                        </asp:DropDownList>
-                                                        <asp:Label runat="server" AssociatedControlID="DdlBanco" Text="Banco:"></asp:Label>
-                                                        <i></i>
-                                                    </div>
-                                                    <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtBancoNumCuenta" runat="server"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtBancoNumCuenta" Text="Cuenta:"></asp:Label>
-                                                        <i></i>
-                                                    </div>
-                                                    <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtCLABE" runat="server" MaxLength="20"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtCLABE" Text="CLABE:"></asp:Label>
-                                                        <i></i>
+                                                    <div style="display: none;">
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:DropDownList ID="DdlBanco" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Banco" DataValueField="CveSATBanco" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                                                <asp:ListItem Selected="True" Text="Sin asignar Banco" Value="-1"></asp:ListItem>
+                                                            </asp:DropDownList>
+                                                            <asp:Label runat="server" AssociatedControlID="DdlBanco" Text="Banco:"></asp:Label>
+                                                            <i></i>
+                                                        </div>
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtBancoNumCuenta" runat="server"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtBancoNumCuenta" Text="Cuenta:"></asp:Label>
+                                                            <i></i>
+                                                        </div>
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtCLABE" runat="server" MaxLength="20"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtCLABE" Text="CLABE:"></asp:Label>
+                                                            <i></i>
+                                                        </div>
                                                    </div>
                                                </div>
                                            </div>
@@ -3975,12 +3980,17 @@
                            <ajax:ValidatorCalloutExtender ID="VCEMonedax" runat="server" HighlightCssClass="vco" TargetControlID="RFVMonedax" Width="300px"></ajax:ValidatorCalloutExtender>
                        </div>
                        <div>
-                            <asp:Label runat="server" AssociatedControlID="ChkEstatus" Text="Activo:"></asp:Label><br />
-                            <asp:CheckBox ID="ChkEstatus" runat="server" Checked="true" Visible="false"></asp:CheckBox>
+                            <asp:Label runat="server" AssociatedControlID="ChkEstatusPagoE" Text="Estatus Pago E.:"></asp:Label><br />
+                            <asp:CheckBox ID="ChkEstatusPagoE" runat="server" Checked="true"></asp:CheckBox>
+                        </div>
+                        <div>
+                            <asp:Label runat="server" AssociatedControlID="ChkEstatuscuenta" Text="Activo:"></asp:Label><br />
+                            <asp:CheckBox ID="ChkEstatuscuenta" runat="server" Checked="true" Enabled="false"></asp:CheckBox>
                        </div>
                    </div>

                    <div class="modal-footer">
+                        <asp:Button ID="BtnActualizarCuentaBanco" OnClick="LbActualizarCuentaBanco_Click" UseSubmitBehavior="false" runat="server" class="btn btn-primary" Text="Actualizar" ValidationGroup="GrpAgregarBanco" />
                        <asp:Button ID="BtnAgregarCuentaBanco" OnClick="LbAgregarCuentaBanco_Click" UseSubmitBehavior="false" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" />
                        <button id="Button5" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
                    </div>
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -88,6 +88,18 @@ Partial Class RH_Personal
            ViewState("Documentacion") = value
        End Set
    End Property
+    Property CveCuentaDeposito As Integer
+        Get
+            If ViewState("CveCuentaDeposito") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveCuentaDeposito"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveCuentaDeposito") = value
+        End Set
+    End Property
    Property CveDocumentacion As Integer
        Get
            If ViewState("CveDocumentacion") Is Nothing Then
@@ -2892,11 +2904,23 @@ Partial Class RH_Personal
    End Sub

    Protected Sub Lnkopenaddcuentabancaria_Click(sender As Object, e As EventArgs)
-        BtnAgregarCuentaBanco.Visible = False
+        BtnActualizarCuentaBanco.Visible = False
        BtnAgregarCuentaBanco.Visible = True

        RegistraScript("$('#DivCuentasVancarias').modal();")
    End Sub
+
+    Protected Sub LbActualizarCuentaBanco_Click(sender As Object, e As EventArgs)
+        Using ObjCuentasBancos As New ClsGenerales
+            Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
+            If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero()) Then
+                'UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
+                Alert("Cuenta actualizada")
+            End If
+        End Using
+        CargaCuentasBancarias()
+        RegistraScript("$('#DivCuentasVancarias').modal('hide');")
+    End Sub
    Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
        Dim EsBancomer = False
        Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
@@ -2940,7 +2964,7 @@ Partial Class RH_Personal
        '    Exit Sub
        'End If

-        AgregarCuentaBanco(nombrebanco, "", TxtCLABECB.Text.Trim, "", "", TxtNumeroCuenta.Text.Trim, "", "", DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, "", DdlBancoSat.SelectedValue.ToEntero())
+        AgregarCuentaBanco(nombrebanco, "", TxtCLABECB.Text.Trim, "", "", TxtNumeroCuenta.Text.Trim, "", "", DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, "", DdlBancoSat.SelectedValue.ToEntero(), ChkEstatusPagoE.Checked)
        RegistraScript("$('#DivCuentasVancarias').modal('hide');")
    End Sub
    Private Sub CargaGridCuentasBancos(Orden As String)
@@ -2965,13 +2989,13 @@ Partial Class RH_Personal
        GvBancosCuentas.DataBind()
        UpCuentasBancos.Update()
    End Sub
-    Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, CveMoneda As Integer, Moneda As String, BBVAAlias As String, CveSATBanco As Integer)
+    Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, CveMoneda As Integer, Moneda As String, BBVAAlias As String, CveSATBanco As Integer, EstatusPagoElectronico As Boolean)

        Dim Row As DataRow

        If CvePersonal > 0 Then
            Dim ObjCuentasBancos As New ClsGenerales
-            If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco) Then
+            If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then
                DTCuentasBancos.Clear()
                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))

@@ -2993,7 +3017,7 @@ Partial Class RH_Personal
            Row("Referencia") = Referencia
            Row("CveMoneda") = CveMoneda
            Row("Moneda") = Moneda
-            Row("EstatusPagoElectronico") = False
+            Row("EstatusPagoElectronico") = EstatusPagoElectronico
            TempDTCuentasBancos.Rows.Add(Row)
        End If

@@ -3064,8 +3088,22 @@ Partial Class RH_Personal
        End If
    End Sub
    Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
-        GvBancosCuentas.EditIndex = e.NewEditIndex
-        CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
+        Dim gvrow As GridViewRow = GvBancosCuentas.Rows(e.NewEditIndex) 'DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        BtnActualizarCuentaBanco.Visible = True
+        BtnAgregarCuentaBanco.Visible = False
+        'CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,CveMoneda
+        CveCuentaDeposito = gvrow.DataKey("CveCuentaDeposito").ToEntero()
+        DdlBancoSat.SelectedValueExist(gvrow.DataKey("CveSATBanco"))
+        DdlMoneda.SelectedValueExist(gvrow.DataKey("CveMoneda"))
+        TxtNumeroCuenta.Text = gvrow.DataKey("Cuenta")
+        TxtCLABECB.Text = gvrow.DataKey("CLABE")
+        ChkEstatusPagoE.Checked = gvrow.DataKey("EstatusPagoElectronico").ToUpper().Contiene("TRUE", "1")
+        ChkEstatuscuenta.Checked = gvrow.DataKey("EstatusTexto").ToUpper().Contiene("TRUE", "1", "ACTIVO")
+        UpCuentasVancarias.Update()
+        RegistraScript("$('#DivCuentasVancarias').modal();")
+
+        'GvBancosCuentas.EditIndex = e.NewEditIndex
+        'CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString())
    End Sub
    Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
        GvBancosCuentas.EditIndex = -1
@@ -3082,6 +3120,8 @@ Partial Class RH_Personal
        Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim
        Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString().ToEntero
        Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
+        Dim EstatusPagoElectronico = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatusPagoE").Checked
+
        Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text

        Dim BBVAAlias As String = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtBBVAAlias").Text
@@ -3136,7 +3176,7 @@ Partial Class RH_Personal
        End If
        Dim ObjCuentasBancos As New ClsGenerales
        If CvePersonal > 0 Then
-            If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias) Then
+            If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico) Then
                DTCuentasBancos.Clear()
                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
                Alert("Cuenta actualizada con exito.", TipoMensaje.MsgInformacion)