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

Bancos/CatBancos.aspx

@@ -4,6 +4,16 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+
+        .select2 .select2-selection{
+            max-height:21.14px!important
+        }
+        .select2-selection__rendered{
+            margin-top:-4px!important
+        }
+
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
     <li>
@@ -24,6 +34,12 @@
             <table class="table table-striped table-advance table-hover">
                 <thead>
                     <tr class="Titulos">
+                        <th width="150px">
+                            <asp:LinkButton ID="LbBancoSAT" runat="server" CausesValidation="false" Text="" CommandArgument="BancoSAT" OnClick="LbOrden_Click">
+                                Banco SAT
+                                <asp:Literal ID="ImgBancoSAT" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
+                            </asp:LinkButton>
+                        </th>
                         <th width="150px">
                             <asp:LinkButton ID="LbBanco" runat="server" CausesValidation="false" Text="" CommandArgument="Banco" OnClick="LbOrden_Click">
                                 Banco
@@ -64,6 +80,13 @@
                     </tr>
                 </thead>
                 <tr>
+                    <td>
+                        <asp:DropDownList CssClass="form-control select2me" Width="100%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
+                            <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                        </asp:DropDownList>
+                        <asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                        <ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
+                    </td>
                     <td>
                         <asp:TextBox ID="TxtBanco" runat="server" CausesValidation="true" MaxLength="50" ValidationGroup="GrpGuardar" Width="140px"></asp:TextBox>
                         <asp:RequiredFieldValidator ID="RFVBanco" runat="server" ControlToValidate="TxtBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -90,8 +113,22 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveBanco" EmptyDataText="No se encontraron Bancos Registrados" ToolTip="Listado de Bancos" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px;" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveBanco,CveSATBanco" EmptyDataText="No se encontraron Bancos Registrados" ToolTip="Listado de Bancos" 
+                CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px;" GridLines="None">
                 <Columns>
+                    <asp:TemplateField>
+                    <ItemTemplate>
+                        <asp:Literal ID="LtlBancoSAT" runat="server" Text='<%# Eval("SATBanco", "{0}") %>'></asp:Literal>
+                    </ItemTemplate>
+                    <EditItemTemplate>                        
+                        <asp:DropDownList CssClass="form-control select2me" Width="100%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco" Height="21.14px">
+                            <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                        </asp:DropDownList>
+                        <asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" Display="None" 
+                            ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                        <ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>                        
+                    </EditItemTemplate>
+                </asp:TemplateField>
                     <asp:TemplateField>
                         <ItemTemplate>
                             <asp:Literal ID="LtlBanco" runat="server" Text='<%# Eval("Banco", "{0}") %>'></asp:Literal>
@@ -142,10 +179,14 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Editar">
                         <EditItemTemplate>
-                            <center>
-                                <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
-                                &nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
-                            </center>
+                            <div class="row">
+                                <div class="col-md-6" style="text-align:right!important">
+                                    <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
+                                </div>
+                                <div class="col-md-6">
+                                    <asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
+                                </div>
+                            </div>                            
                         </EditItemTemplate>
                         <ItemTemplate>
                             <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />

Bancos/CatBancos.aspx.vb

@@ -19,13 +19,43 @@ Partial Class Bancos_CatBancos
         End Set
     End Property
 
+    Private Property DTBancosSAT As DataTable
+        Get
+            If ViewState("DTBancosSAT") Is Nothing Then
+                ViewState("DTBancosSAT") = New DataTable()
+            End If
+            Return DirectCast(ViewState("DTBancosSAT"), DataTable)
+        End Get
+
+        Set(ByVal value As DataTable)
+            ViewState("DTBancosSAT") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+            CargaBancosSAT()
             ViewState("Orden") = ""
             CargaDatos()
         End If
     End Sub
 
+    Private Sub CargaBancosSAT()
+
+        Dim ObjBancos As New ClsBancos
+
+        If ObjBancos.GetBancosSAT Then
+            DdlSatBanco.DataSource = ObjBancos.DtResultados
+            DTBancosSAT = ObjBancos.DtResultados
+        End If
+
+        ObjBancos.Dispose()
+
+        DdlSatBanco.DataBind()
+        DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+
     Public Sub CargaDatos()
         Dim ObjBancos As New ClsBancos
         If ObjBancos.GetBancos() Then
@@ -47,7 +77,8 @@ Partial Class Bancos_CatBancos
 
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
         Dim ObjBancos As New ClsBancos
-        If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSATBanco:=DdlSatBanco.SelectedValue.ToEntero) Then
+            DdlSatBanco.SelectedValueExist(-1)
             TxtBanco.Text = ""
             TxtEjecutivo.Text = ""
             TxtTelefono.Text = ""
@@ -68,24 +99,42 @@ Partial Class Bancos_CatBancos
 
 #Region "G V  D A T O S"
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
         If e.Row.RowType = DataControlRowType.DataRow Then
+
             If e.Row.RowIndex = 0 Then
-                e.Row.Cells(0).Width = Unit.Pixel(156) 'BANCO
-                e.Row.Cells(1).Width = Unit.Pixel(206) 'EJECUTIVO
-                e.Row.Cells(2).Width = Unit.Pixel(106) 'TELEFONO
-                e.Row.Cells(3).Width = Unit.Pixel(95) 'ESTATUS
-                e.Row.Cells(4).Width = Unit.Pixel(95) 'FECHA
-                e.Row.Cells(5).Width = Unit.Pixel(100) 'USUARIO
-                e.Row.Cells(6).Width = Unit.Pixel(100) 'EDITAR
-                e.Row.Cells(7).Width = Unit.Pixel(65) 'ELIMINAR
+                e.Row.Cells(0).Width = Unit.Pixel(156) 'BANCO SAT
+                e.Row.Cells(1).Width = Unit.Pixel(156) 'BANCO
+                e.Row.Cells(2).Width = Unit.Pixel(206) 'EJECUTIVO
+                e.Row.Cells(3).Width = Unit.Pixel(106) 'TELEFONO
+                e.Row.Cells(4).Width = Unit.Pixel(95) 'ESTATUS
+                e.Row.Cells(5).Width = Unit.Pixel(95) 'FECHA
+                e.Row.Cells(6).Width = Unit.Pixel(100) 'USUARIO
+                e.Row.Cells(7).Width = Unit.Pixel(65) 'EDITAR
+                e.Row.Cells(8).Width = Unit.Pixel(65) 'ELIMINAR
             End If
+
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
+            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
             e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
             e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
             e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
-            e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
+            'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
+            e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Center
+
         End If
+
+        If (e.Row.RowState And DataControlRowState.Edit) = DataControlRowState.Edit Then
+            Dim DdlSatBanco As DropDownList = e.Row.FCDropDownList("DdlSatBanco")
+            DdlSatBanco.ClearSelection()
+            DdlSatBanco.SelectedValue = Nothing
+            DdlSatBanco.Items.Clear()
+            DdlSatBanco.DataSource = DTBancosSAT
+            DdlSatBanco.DataBind()
+            DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+            DdlSatBanco.SelectedValueExist(e.Row.DataKey("CveSATBanco").ToString())
+        End If
+
     End Sub
 
     Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
@@ -126,19 +175,16 @@ Partial Class Bancos_CatBancos
         Dim Telefono As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTelefono"), TextBox).Text.Trim
         Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
         Dim CveBanco As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
+        Dim CveSATBanco As Integer = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlSatBanco").SelectedValue.ToEntero
 
         Dim TieneError As Boolean = False
 
-        If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco) Then
-            If ObjBancos.InhabilitarCuentasBancos(CveBanco, Estatus) Then
-                GvDatos.EditIndex = -1
-                ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTBancos = ObjBancos.DtResultados
-                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
-            Else
+        If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco, CveSATBanco:=CveSATBanco) Then
+
+            If Not ObjBancos.InhabilitarCuentasBancos(CveBanco, Estatus) Then
                 TieneError = True
             End If
+
         Else
             TieneError = True
         End If
@@ -152,12 +198,24 @@ Partial Class Bancos_CatBancos
 
         ObjBancos.Dispose()
 
-        If ViewState("Orden").ToString() <> String.Empty Then
-            CargaGrid(ViewState("Orden").ToString())
-        Else
-            CargaGrid("")
+        If Not TieneError Then
+
+            GvDatos.EditIndex = -1
+            CargaDatos()
+            GlobalDTBancos = Nothing
+            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+
+            If ViewState("Orden").ToString() <> String.Empty Then
+                CargaGrid(ViewState("Orden").ToString())
+            Else
+                CargaGrid("")
+            End If
+
         End If
 
+
+
+
     End Sub
 
     Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing

Bancos/IE.aspx.vb

@@ -1284,6 +1284,7 @@ Partial Class Bancos_IE
         ViewState("CveCliente") = "-1"
 
         CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1")
+        CargaCuentasDepositos()
     End Sub
 
     Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String)
@@ -4098,11 +4099,17 @@ Partial Class Bancos_IE
 
         Dim dtc As DataTable = Nothing
 
-        If CveProveedor > 0 Then
-            dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor)
+        Dim CveProveedorTemp As Integer = CveProveedor
+
+        If DdlProveedores.SelectedValue.ToEntero > 0 Then
+            CveProveedorTemp = DdlProveedores.SelectedValue.ToEntero
+        End If
+
+        If CveProveedorTemp > 0 Then
+            dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorTemp)
         ElseIf CveCliente > 0 Then
             dtc = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente)
-        ElseIf cvepersonal > 0 Then
+        ElseIf CvePersonal > 0 Then
             dtc = GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal)
         End If
 
@@ -4216,14 +4223,14 @@ Partial Class Bancos_IE
 
                 ElseIf OpBanco = 3 Then
                     If dtc.Rows.Count > 0 Then
-                        DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'")
+                        DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'")
                         DdlCuentaDeposito.DataBind()
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     End If
 
-                    If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then
+                    If dtc.FiltraParametros(" Estatus ='True'").Rows.Count > 0 Then
                         trCuentaDeposito.Visible = True
-                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+                        'DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     Else
                         BtnGuardar.Enabled = False
                         Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
@@ -4265,6 +4272,19 @@ Partial Class Bancos_IE
             End If
         End If
 
+
+        If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then
+            If DdlTipoTransaccion.SelectedValue.Contiene("9") AndAlso OpBanco = 3 Then
+                RBL.Items(1).Enabled = False
+                RBL.Items(2).Enabled = False
+            Else
+                RBL.Items(1).Enabled = True
+                RBL.Items(2).Enabled = True
+            End If
+        End If
+
+
+        UPPP.Update()
         UpGuardar.Update()
         UpCuentaDeposito.Update()
         UpDatos.Update()
@@ -4500,6 +4520,7 @@ Partial Class Bancos_IE
                         DdlProveedores_selectedindexchange(DdlProveedores, Nothing)
                         DdlProveedores.SelectedText = RazonSocial
                         ' BuscaCargaProveedor()
+
                     End If
                     CveOCSolicitudAnticipo = DrOC("CveOC").ToString.ToEntero
                 Else

Bancos/PagoElectronico.aspx

@@ -60,7 +60,7 @@
                     <div class="col-md-6">
                         <asp:UpdatePanel runat="server" ID="UpComandosGeneracion" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <div class="portlet light smmallpadding bordered">
+                                <div class="portlet light xspadding bordered">
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
@@ -79,7 +79,7 @@
                                         <div class="row" style="margin-left: 0px; margin-right: 0px;">
 
                                             <div class="col-md-6">
-                                                <div class="portlet light smmallpadding bordered">
+                                                <div class="portlet light xspadding bordered">
                                                     <div class="portlet-title">
                                                         <div class="caption font-green">
                                                             <i class="icon-pin font-green"></i>
@@ -127,7 +127,7 @@
                                             </div>
 
                                             <div class="col-md-6">
-                                                <div class="portlet light smmallpadding bordered">
+                                                <div class="portlet light xspadding bordered">
                                                     <div class="portlet-title">
                                                         <div class="caption font-green">
                                                             <i class="icon-pin font-green"></i>
@@ -178,7 +178,7 @@
 
                     <div class="col-md-6">
 
-                        <div class="portlet light smmallpadding bordered">
+                        <div class="portlet light xspadding bordered">
                             <div class="portlet-title">
                                 <div class="caption font-green">
                                     <i class="icon-pin font-green"></i>

Bancos/PagoElectronico.aspx.vb

@@ -277,6 +277,8 @@ Partial Class Bancos_PagoElectronico
 
         If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then
             CargaDatosInformativos()
+        Else
+            VistaComandoGeneracion()
         End If
 
     End Sub
@@ -946,7 +948,7 @@ Partial Class Bancos_PagoElectronico
 
             Dim correo As String = dr("Correo").ToString.Trim
             If correo.Trim.Length = 0 Then
-                SBErrores.Append($"Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido.<br>")
+                SBErrores.Append($" {nombreBen} Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido.<br>")
                 ErrorLayout = True
             End If
 

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -2037,15 +2037,15 @@ Partial Class Bancos_PagoElectronicoGrupos
 
                 'Motivo de pago
                 If drow("Observaciones").ToString.Trim.Length > 30 Then
-                    RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30))
+                    RegistrosPago.Append(drow("Observaciones").ToString.Trim.Substring(0, 30))
                 Else
-                    RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno))
+                    RegistrosPago.Append(drow("Observaciones").ToString.Trim.PadRight(30, EspacioRelleno))
                 End If
 
                 If drow("Referencia").ToString.Trim.Length > 7 Then
-                    RegistrosPago.Append(drow("Referencia").ToString.Substring(0, 7))
+                    RegistrosPago.Append(drow("Referencia").ToString.Trim.Substring(0, 7))
                 Else
-                    RegistrosPago.Append(drow("Referencia").ToString.PadRight(7, EspacioRelleno))
+                    RegistrosPago.Append(drow("Referencia").ToString.Trim.PadRight(7, EspacioRelleno))
                 End If
 
                 RegistrosPago.Append("H")