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

App_Code/ClsGenerales.vb

@@ -1649,7 +1649,7 @@ Public Class ClsGenerales
     Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer, CveEmpresa As Integer,
                                         Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
                                         Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1,
-                                        Optional ConceptoCIE As String = "-1") As Boolean
+                                        Optional ConceptoCIE As String = "-1", Optional Estatus As Boolean = True) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_CuentasDepositosAdd")
@@ -1678,6 +1678,7 @@ Public Class ClsGenerales
             .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos
             .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco
             .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE
+            .Add("@Estatus", SqlDbType.VarChar).Value = Estatus
 
         End With
 

Ashx/TareasProgramadas.ashx

@@ -108,7 +108,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
                     context.Response.Write(retorno)
                 Case "EstadosCuenta"
                     'CargaEstadosCuenta(context, 119, 227774)
-                    CargaEstadosCuenta(context, 119, -1, FechaEnvio, FechaActual)
+                    'CargaEstadosCuenta(context, 119, -1, FechaEnvio, FechaActual)
+                    Dim tCveEmpresa As Integer = context.Request("CveEmpresa").ToString.ToEntero
+                    CargaEstadosCuenta(context, tCveEmpresa, -1, FechaEnvio, FechaActual)
 
                 Case "ScoreCard"
                     CargaScoreCard(context, 140, FechaEnvio)
@@ -354,6 +356,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
 
 #Region "E S T A D O S  D E  C U E N T A"
     Private Sub CargaEstadosCuenta(ByVal context As HttpContext, pCveEmpresa As Integer, pCveCliente As Integer, FechaEnvio As DateTime, FechaActual As DateTime)
+
+        Dim Usuario As Usuario = ValidaUsuarioSistema(100, pCveEmpresa)
+
         Dim Retorno As New JArray()
         Dim DtEmpresas As DataTable = Nothing
         Using ObjEmpresas As New ClsSisEmpresas()
@@ -364,7 +369,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
 
         If DtEmpresas IsNot Nothing Then
             For Each Row As DataRow In DtEmpresas.Rows
-                Dim Usuario As Usuario = ValidaUsuarioSistema(100, Row("CveEmpresa").ToString().ToEntero())
+                'Dim Usuario As Usuario = ValidaUsuarioSistema(100, Row("CveEmpresa").ToString().ToEntero())
                 Dim obj As JObject = EjecutarEnvioEstadoCuenta(Usuario, FechaEnvio, FechaActual, pCveCliente:=pCveCliente)
 
                 Retorno.Add(obj)
@@ -499,7 +504,9 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
 
                             Dim Envio As Boolean = False
                             If Not String.IsNullOrEmpty(Correo) Then
+                                'Correo = "oscar.irigoyen@adssistemas.mx"
                                 Envio = EnviarEstadoCuenta(UsuarioActual, Correo, Cliente)
+                                GuardaLog($"Log envio Estados Cuenta correo {If(Envio, "Enviado", "Error")}  CveCliente {CveCliente} ")
                             End If
 
                             If Envio Then
@@ -522,6 +529,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
                                         New JProperty("Cliente", Cliente.Nombre)
                                 ))
                             End If
+
                         End If
                     Next
                 End If
@@ -857,7 +865,10 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState
         If sw.Elapsed.TotalSeconds > 10 Then
             GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds}   ")
         End If
-        If MR IsNot Nothing Then MR.Dispose()
+        If MR IsNot Nothing Then
+            'MR.Close()
+            MR.Dispose()
+        End If
         Return Bytes
     End Function
 

Bancos/PopIEVentas.aspx.vb

@@ -545,16 +545,7 @@ Partial Class Bancos_PopIEVentas
                 FechaVenta = dr("Fecha").ToString.ToDate
                 SaldoVenta = dr("Saldo").ToString.ToDouble
 
-
+                Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)
-                'Cortes de Caja
-                If UsuarioActual.TienePermisoProceso(160) Then
-                    CargaCorteCaja()
-                End If
-
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse (dr("CveCorte").ToString.ToEntero > 0) Then 'toma como proridad el que viene de 
-                    CveCorte = dr("CveCorte").ToString.ToEntero
-                End If
-
 
                 If RFCCliente.ToUpper <> "XAXX010101000" Then
                     Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
@@ -581,18 +572,57 @@ Partial Class Bancos_PopIEVentas
         ObjVenta.Dispose()
     End Sub
 
-    Private Sub CargaCorteCaja()
+    Protected Function CargaCorteCaja(CveVenta As Integer, UsuarioActual As Usuario) As Integer
-        'Checar si hay un Turno Abierto
+        Dim CveCorte As Integer = -1
-        Dim ObjPVenta As New ClsPuntoVenta
 
-        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+        Dim CveCorteVenta As Integer = -1
+        Dim EsCredito As Boolean = False
+        Dim UsaCorteActual As Boolean = False
 
-            If ObjPVenta.DtResultados.Rows.Count > 0 Then
+        If CveVenta > 0 Then
-                CveCorte = ObjPVenta.CveCorte
+            Using ObjVentas As New ClsVentas
+                If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
+                    EsCredito = If(ObjVentas.DtResultados.FiltroPrimeroValor("CondicionesPago").ToEntero() = 1, True, False)
+                    CveCorteVenta = ObjVentas.DtResultados.FiltroPrimeroValor("CveCorte").ToEntero()
+                End If
+            End Using
+
+            If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
+                'SI ES FACTURA A CREDITO
+                If EsCredito OrElse CveCorteVenta <= 0 Then
+                    UsaCorteActual = True
+                End If
+            End If
+
+            'SI ES CONTADO TOMAR EL DE LA VENTA
+            If Not EsCredito Then
+                UsaCorteActual = False
+            End If
+
+            'EN BDH TOMAR EL DE LA VENTA
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                UsaCorteActual = False
+            End If
+        Else
+            If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
+                UsaCorteActual = True
             End If
         End If
-        ObjPVenta.Dispose()
+
-    End Sub
+        If UsaCorteActual Then
+            Dim ObjPVenta As New ClsPuntoVenta
+            If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+                If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                    CveCorte = ObjPVenta.CveCorte
+                End If
+            End If
+            ObjPVenta.Dispose()
+        Else
+            CveCorte = CveCorteVenta
+        End If
+
+        Return CveCorte
+    End Function
 
     Private Sub CargaCliente(ByVal CveCliente As Integer, RFC As String)
         Dim ObjCliente As New ClsClientes

Bancos/RepCortes.aspx

@@ -131,7 +131,7 @@
                             <asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:LinkButton ID="LBDescripcion" CommandName="CargaDetalle" CommandArgument='<%# Eval("CveCorte") %>' OnClick="LbDescripcion_Click" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(382) = "1", Eval("FechaInicial", "{0:dd/MM/yyyy}"), Eval("FechaInicial", "{0:g}")) %>'></asp:LinkButton>
+                            <asp:LinkButton ID="LBDescripcion" CommandName="CargaDetalle" CommandArgument='<%# Eval("CveCorte") %>' OnClick="LbDescripcion_Click" runat="server" Text='<%# Eval("FechaInicial", "{0:g}") %>'></asp:LinkButton>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField>
@@ -315,7 +315,7 @@
                             <asp:Literal ID="LtlTotalCorte" runat="server" Text='<%# Eval("TotalCorte", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <%--<asp:BoundField HeaderText="CveCorte" DataField="CveCorte" />--%>
+                    <asp:BoundField HeaderText="CveCorte" DataField="CveCorte" Visible="false" />
                 </Columns>
                 <HeaderStyle CssClass="Titulos" Font-Size="9pt" />
                 <RowStyle CssClass="Texto" />
@@ -448,6 +448,11 @@
                                         <asp:Literal ID="LtlFacRemisionAnterior" runat="server" Text='<%# Eval("FacturaRemisionAnteriorTexto") %>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Sobr/Falt" ItemStyle-HorizontalAlign="Right" Visible="false">
+                                    <ItemTemplate>
+                                        <asp:Label ID="LblSobrFalt" Text='<%# Eval("SobranteFaltante", "{0:N2}") %>' runat="server"></asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
                                     <ItemTemplate>
                                         <asp:Label ID="LblTotal" Text='<%# Eval("ImportePagado", "{0:N2}") %>' runat="server"></asp:Label>

Bancos/RepCortes.aspx.vb

@@ -90,6 +90,10 @@ Partial Class Bancos_RepCortes
             GvDatos.Columns(4).Visible = True
         End If
 
+        If UsuarioActual.CveRol = 1 Then
+            GvDatos.Columns(21).Visible = True 'COLUMNA DE CveCorte
+        End If
+
         GvP.DataBind()
         GvDep.DataBind()
         GvPorIVA.DataBind()
@@ -219,7 +223,7 @@ Partial Class Bancos_RepCortes
         Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1"
 
         If ConsultaPorSucursal Then
-            CveCorte = -1
+            'CveCorte = -1
             FechaConsulta = gvr.DataKey("FechaInicial").ToDate()
         End If
 
@@ -231,6 +235,10 @@ Partial Class Bancos_RepCortes
                 DtCortesVentas = DsDatos.Tables(0)
                 GvD.DataSource = DtCortesVentas
 
+                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                    GvD.Columns(3).Visible = True
+                End If
+
                 divDetalle.Visible = True
                 'RESUMEN
                 DtCortesVentasResumen = DsDatos.Tables(1)

Compras/Compras.aspx

@@ -716,6 +716,8 @@
                                                 <th style="width: 100px">P.U.&nbsp;</th>
                                                 <th style="width: 40px">IVA&nbsp;</th>
                                                 <th style="width: 40px" runat="server" id="TD_Gvps_IEPS" visible="false">IEPS&nbsp;</th>
+                                                <th style="width: 40px" runat="server" id="TdRetIVA" visible="false">Ret. IVA&nbsp;</th>
+                                                <th style="width: 40px" runat="server" id="TdRetISR" visible="false">Ret. ISR&nbsp;</th>
                                                 <th style="width: 110px">Total&nbsp;</th>
                                                 <div id="dvNoDeducible" runat="server" visible="false">
                                                     <th style="width: 80px">¿No Deducible?&nbsp;</th>
@@ -826,55 +828,69 @@
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
+                                                <%-- 10 --%>
+                                               <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="53px" Visible="false">
+                                                   <ItemTemplate>                                                    
+                                                       <asp:Label ID="LtlRetIVA" runat="server" Text='<%# If(Eval("RetIVA").ToString.Length > 0, If((CDbl(Eval("RetIVA").ToString)) > 0, (CDbl(Eval("RetIVA").ToString)).ToString("###,####,###.00"), ""), "") %>'></asp:Label><br />
+                                                       <asp:Label ID="LtlRetIVAPorcentaje" runat="server" Text='<%# If(Eval("RetIVAPorcentaje").ToString.Length > 0, (CDbl(Eval("RetIVAPorcentaje").ToString) * 100).ToString("#####") & If(CDbl(Eval("RetIVAPorcentaje").ToString) * 100 > 0, "%", ""), "") %>'></asp:Label>                                                    
+                                                   </ItemTemplate>
+                                               </asp:TemplateField>
+                                                <%-- 11 --%>
+                                           <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="53px" Visible="false">
+                                               <ItemTemplate>                                                    
+                                                   <asp:Label ID="LtlRetISR" runat="server" Text='<%# If(Eval("RetISR").ToString.Length > 0, If((CDbl(Eval("RetISR").ToString)) > 0, (CDbl(Eval("RetISR").ToString)).ToString("###,####,###.00"), ""), "") %>'></asp:Label><br />
+                                                   <asp:Label ID="LtlRetISRPorcentaje" runat="server" Text='<%# If(Eval("RetISRPorcentaje").ToString.Length > 0, (CDbl(Eval("RetISRPorcentaje").ToString) * 100).ToString("#####") & If(CDbl(Eval("RetISRPorcentaje").ToString) * 100 > 0, "%", ""), "") %>'></asp:Label>                                                    
+                                               </ItemTemplate>
+                                           </asp:TemplateField>
 
 
-                                            <%-- 10 --%>
+                                            <%-- 12 --%>
                                             <asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="110px" />
 
-                                            <%-- 11 --%>
+                                            <%-- 13 --%>
                                             <asp:TemplateField ItemStyle-HorizontalAlign="Center" ControlStyle-Width="100px" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:CheckBox ID="ChkEsNoDeduciblePS" runat="server" Checked='<%# If(Eval("NoDeducible").ToString = "", 0, Eval("NoDeducible")) %>' AutoPostBack="true" OnCheckedChanged="ChkEsNoDeduciblePS_CheckedChanged" />
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
-                                            <%-- 12 --%>
+                                            <%-- 14 --%>
                                             <asp:TemplateField ItemStyle-HorizontalAlign="Center"  ItemStyle-Width="40px">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 13 --%>
+                                            <%-- 15 --%>
                                             <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="40px">
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 14 --%>
+                                            <%-- 16 --%>
                                             <asp:TemplateField HeaderText="Clasificacion" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC5" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="CodigoClasificacion" DataValueField="CveClasificacion" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC" Visible="true"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 15 --%>
+                                            <%-- 17 --%>
                                             <asp:TemplateField HeaderText="Programa Operativo" Visible="False">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC1" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="ProgramaOperativo" DataValueField="CveProgramaOperativo" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 16 --%>
+                                            <%-- 18 --%>
                                             <asp:TemplateField HeaderText="Unidad Administrativa" Visible="False">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC2" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="UnidadAdministrativa" DataValueField="CveUnidadAdministrativa" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 17 --%>
+                                            <%-- 19 --%>
                                             <asp:TemplateField HeaderText="Fuente Financiamiento" Visible="False">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC3" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="FuenteFinanciamiento" DataValueField="CveFuenteFinanciamiento" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
-                                            <%-- 18 --%>
+                                            <%-- 12 --%>
                                             <asp:TemplateField HeaderText="Tipo Gasto" Visible="False">
                                                 <ItemTemplate>
                                                     <asp:DropDownList runat="server" ID="DdlAC4" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="100px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>

Compras/Compras.aspx.vb

@@ -978,6 +978,36 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+
+
+    Private Property ProvRetIVA As Decimal
+        Get
+            If ViewState("ProvRetIVA") Is Nothing Then
+                ViewState("ProvRetIVA") = 0
+            End If
+
+            Return ViewState("ProvRetIVA").ToString.ToDecimal
+        End Get
+        Set(value As Decimal)
+            ViewState("ProvRetIVA") = value
+        End Set
+    End Property
+
+    Private Property ProvRetISR As Decimal
+        Get
+            If ViewState("ProvRetISR") Is Nothing Then
+                ViewState("ProvRetISR") = 0
+            End If
+
+            Return ViewState("ProvRetISR").ToString.ToDecimal
+        End Get
+        Set(value As Decimal)
+            ViewState("ProvRetISR") = value
+        End Set
+    End Property
+
+
+
     Private Property TotalOriginal As Decimal
         Get
             If ViewState("TotalOriginal") Is Nothing Then
@@ -1787,7 +1817,7 @@ Partial Class Compras_Compras
 
         End If
 
-        MostrarOcultarColumnaIEPS()
+        MostrarOcultarColumnaIEPSRetIVARetISR()
 
     End Sub
 
@@ -1886,7 +1916,7 @@ Partial Class Compras_Compras
 
 #Region "C A R G A S"
 
-    Private Sub MostrarOcultarColumnaIEPS()
+    Private Sub MostrarOcultarColumnaIEPSRetIVARetISR()
 
 
         If TxtIEPS.Text.ToDecimal <> 0 And TmpDT.SUM("IEPSPS") <> 0 Then
@@ -1896,6 +1926,25 @@ Partial Class Compras_Compras
             GvPS.Columns(9).Visible = False
             TD_Gvps_IEPS.Visible = False
         End If
+
+        If TxtRetIVA.Text.ToDecimal <> 0 And TmpDT.SUM("RetIVA") <> 0 Then
+            GvPS.Columns(10).Visible = True
+            TdRetIVA.Visible = True
+        Else
+            GvPS.Columns(10).Visible = False
+            TdRetIVA.Visible = False
+        End If
+
+
+        If TxtRetISR.Text.ToDecimal <> 0 And TmpDT.SUM("RetISR") <> 0 Then
+            GvPS.Columns(11).Visible = True
+            TdRetISR.Visible = True
+        Else
+            GvPS.Columns(11).Visible = False
+            TdRetISR.Visible = False
+        End If
+
+
         UpPS.Update()
 
     End Sub
@@ -2562,7 +2611,7 @@ Partial Class Compras_Compras
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                 End If
 
-                If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
+                If DIOTCveTipoOperacion.Contiene(0, 3, 4) Then ' 85 - Otros
                     If UsuarioActual.CveEmpresa <> 119 Then
                         DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
                         DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
@@ -2585,7 +2634,7 @@ Partial Class Compras_Compras
                     DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
                 End If
 
-                If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros
+                If DIOTCveTipoOperacion.Contiene(3, 4) Then ' 85 - Otros
                     If UsuarioActual.CveEmpresa <> 119 Then
                         DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
                         DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
@@ -2619,7 +2668,7 @@ Partial Class Compras_Compras
                 DdlRetISRConcepto.Items.Insert(0, New ListItem("Arrendamiento", "2"))
             End If
 
-            If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros
+            If DIOTCveTipoOperacion.Contiene(3, 4) Then ' 85 - Otros
                 If UsuarioActual.CveEmpresa <> 119 Then
                     DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
                     DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
@@ -2954,6 +3003,11 @@ Partial Class Compras_Compras
                 TxtIVA.Text = dr("IVA").ToString.FormatoNumero(2)
                 TxtRetIVA.Text = dr("RetIVA").ToString.FormatoNumero(2)
                 TxtRetISR.Text = dr("RetISR").ToString.FormatoNumero(2)
+
+                RetIVAOriginal = dr("RetIVA").ToString.ToDecimal
+                RetISROriginal = dr("RetISR").ToString.ToDecimal
+
+
                 TxtIEPS.Text = dr("IEPS").ToString.FormatoNumero(2)
                 If dr("IEPS").ToString.ToDouble > 0 Then TrIEPS.Visible = True
                 If dr("RetIVA").ToString.ToDouble > 0 Then TrRetIVA.Visible = True
@@ -3777,6 +3831,9 @@ Partial Class Compras_Compras
                     End If
                 End If
 
+                ProvRetIVA = ObjProveedor.RetIVA.ToDecimal
+                ProvRetISR = ObjProveedor.RetISR.ToDecimal
+
                 If CveCompra <= 0 AndAlso CveFactura <= 0 Then 'si se está cargando una factura o compra no se carga
                     'LblRetIVA.Text = ObjProveedor.RetIVA.ToString.FormatoNumero(5)
                     'LblRetISR.Text = ObjProveedor.RetISR.ToString.FormatoNumero(5)
@@ -10739,12 +10796,12 @@ Partial Class Compras_Compras
                 If e.Row.RowIndex = 0 Then
 
                     If UsuarioActual.Empresa.UsaAC Then 'AndAlso (CveFactura > 0 Or CveCompra > 0) 
-                        e.Row.Cells(13).Width = Unit.Pixel(150)
-                        e.Row.Cells(14).Width = Unit.Pixel(150)
                         e.Row.Cells(15).Width = Unit.Pixel(150)
                         e.Row.Cells(16).Width = Unit.Pixel(150)
                         e.Row.Cells(17).Width = Unit.Pixel(150)
-                        e.Row.Cells(18).Width = Unit.Pixel(100)
+                        e.Row.Cells(18).Width = Unit.Pixel(150)
+                        e.Row.Cells(19).Width = Unit.Pixel(150)
+                        e.Row.Cells(20).Width = Unit.Pixel(100)
                     End If
                 End If
 
@@ -10847,11 +10904,11 @@ Partial Class Compras_Compras
 
                 'CargaPresupuestosEgresos
                 If UsuarioActual.Empresa.UsaAC Then
-                    e.Row.Cells(14).Visible = True
-                    e.Row.Cells(15).Visible = True
                     e.Row.Cells(16).Visible = True
                     e.Row.Cells(17).Visible = True
                     e.Row.Cells(18).Visible = True
+                    e.Row.Cells(19).Visible = True
+                    e.Row.Cells(20).Visible = True
 
                     e.Row.FCDropDownList("DdlAC1").Items.Clear()
                     e.Row.FCDropDownList("DdlAC1").DataSource = DtPresupuestos.FiltraParametros("", DistinctColumns:={"CveProgramaOperativo", "ProgramaOperativo"})
@@ -10882,19 +10939,19 @@ Partial Class Compras_Compras
                     'SI EL PRESUPUESTO DE EGRESOS VIENE DESDE LA OC, SE BLOQUEA PE
                     If e.Row.DBCampo("CveOrdenCompraDetalle").ToEntero > 0 AndAlso e.Row.DBCampo("CvePresupuestoEgreso").ToEntero > 0 Then
 
-                        e.Row.Cells(14).Enabled = False
-                        e.Row.Cells(15).Enabled = False
                         e.Row.Cells(16).Enabled = False
                         e.Row.Cells(17).Enabled = False
                         e.Row.Cells(18).Enabled = False
+                        e.Row.Cells(19).Enabled = False
+                        e.Row.Cells(20).Enabled = False
                     End If
                 Else
 
-                    e.Row.Cells(14).Visible = False
-                    e.Row.Cells(15).Visible = False
                     e.Row.Cells(16).Visible = False
                     e.Row.Cells(17).Visible = False
                     e.Row.Cells(18).Visible = False
+                    e.Row.Cells(19).Visible = False
+                    e.Row.Cells(20).Visible = False
                 End If
 
             End If
@@ -13049,12 +13106,12 @@ Partial Class Compras_Compras
 
         'Seccion Grid
         GvPS.Width = 1760
-        GvPS.Columns(13).Visible = True
-        GvPS.Columns(14).Visible = True
         GvPS.Columns(15).Visible = True
         GvPS.Columns(16).Visible = True
         GvPS.Columns(17).Visible = True
         GvPS.Columns(18).Visible = True
+        GvPS.Columns(19).Visible = True
+        GvPS.Columns(20).Visible = True
 
         'Panel General
         UpPresupuestosAC.Visible = True
@@ -17600,7 +17657,7 @@ Partial Class Compras_Compras
         CargaRetISRConcepto()
 
         Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
-        If NumNoDed > 0 Then GvPS.Columns(11).Visible = True 'visualiza columnas de nodeducibles
+        If NumNoDed > 0 Then GvPS.Columns(13).Visible = True 'visualiza columnas de nodeducibles
 
         'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then
         '    InicializaAplicaNCFact()
@@ -18151,6 +18208,9 @@ Partial Class Compras_Compras
                     HdnPS.Value = PS("PSCodigo").ToString
                     LblUnidadMedida.Text = PS("UnidadMedida").ToString
 
+                    Dim PsRetIVA As Decimal = PS("RetIVA").ToString.ToDecimal
+                    Dim PsRetISR As Decimal = PS("RetISR").ToString.ToDecimal
+
                     ddlUM.Items.Clear()
                     If UsuarioActual.Empresa.UsaInventarios Then
                         ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
@@ -18230,6 +18290,19 @@ Partial Class Compras_Compras
                     TxtRetIVAModal.Text = FormatoNumero(ViewState("RetIVA").ToString().ToDouble * 100, 6)
                     TxtRetISRModal.Text = FormatoNumero(ViewState("RetISR").ToString().ToDouble * 100, 6)
 
+                    'OIC 2025-04-29 
+                    If CveCompra > 0 AndAlso Modalidad = "A" Then
+                        If ProvRetIVA > 0 Or ProvRetISR > 0 Then
+                            TxtRetIVAModal.Text = FormatoNumero(ProvRetIVA, 6)
+                            TxtRetISRModal.Text = FormatoNumero(ProvRetISR, 6)
+                        ElseIf PsRetIVA > 0 Or PsRetISR > 0 Then
+                            TxtRetIVAModal.Text = FormatoNumero(PsRetIVA, 6)
+                            TxtRetISRModal.Text = FormatoNumero(PsRetISR, 6)
+                        End If
+                    End If
+
+
+
                     If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 And PS("IEPSPorcentaje").ToString.ToDecimal > 0 Then
                         TxtIEPSModal.Text = "0"
                         Alert("El producto seleccionado contiene IEPS, pero el acumulado de la factura no contiene IEPS, por lo que no se agregara el impuesto.", TipoMensaje.MsgAdvertencia)
@@ -18518,7 +18591,7 @@ Partial Class Compras_Compras
         UpPS.Update()
         CargaGvPersonal()
 
-        MostrarOcultarColumnaIEPS()
+        MostrarOcultarColumnaIEPSRetIVARetISR()
 
 
     End Sub
@@ -20300,7 +20373,7 @@ Partial Class Compras_Compras
             Alert("Debe seleccionar al menos un impuesto", TipoMensaje.MsgAdvertencia)
         End If
 
-        MostrarOcultarColumnaIEPS()
+        MostrarOcultarColumnaIEPSRetIVARetISR()
         AddPS2()
     End Sub
 #End Region
@@ -21156,12 +21229,12 @@ Partial Class Compras_Compras
         If ChkEsNoDeducible.Checked Then
             EsNoDeducible = True
             dvNoDeducible.Visible = True
-            GvPS.Columns(11).Visible = True
+            GvPS.Columns(13).Visible = True
             DivEsNoDeducible.Visible = True
         Else
             EsNoDeducible = False
             dvNoDeducible.Visible = False
-            GvPS.Columns(11).Visible = False
+            GvPS.Columns(13).Visible = False
             DivEsNoDeducible.Visible = False
         End If
 

Compras/PopUpVerFactura.aspx.vb

@@ -1749,7 +1749,7 @@ Partial Class PopUpVerFactura
                 End Using
             End If
 
-            CveCorte = -1
+            'CveCorte = -1
         End If
 
         Dim ObjVenta As New ClsVentas

Compras/Proveedores.aspx

@@ -3326,89 +3326,89 @@
                                     <ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
                                     <label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
                                 </div>
-                                        </div>
+                            </div>
-                                     <div class="col-md-6">
+                            <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
                                     <label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
                                 </div>
-                                 </div>
                             </div>
-                         <div class="row">
-                            <div class="col-md-6">
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtNumeroCuenta" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
-                            <label for="<%= TxtNumeroCuenta.ClientID.ToString()%>">Numero de Cuenta:</label>
                         </div>
-                                 </div>
-                                     <div class="col-md-6">
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtCLABE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
-                            <label for="<%= TxtCLABE.ClientID.ToString()%>">CLABE:</label>
-                        </div>
-                                          </div>
-                                 </div>
-                         <div class="row">
-                            <div class="col-md-6">
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
-                        </div>
-                                 </div>
-                                     <div class="col-md-6">
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
-                        </div>
-                                          </div>
-                                 </div>
                         <div class="row">
                             <div class="col-md-6">
-                        <div class="form-group form-md-line-input input-iconright">
+                                <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtConvenioCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <asp:TextBox ID="TxtNumeroCuenta" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <%--<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />--%>
+                                    <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
-                            <label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
+                                    <label for="<%= TxtNumeroCuenta.ClientID.ToString()%>">Numero de Cuenta:</label>
-                        </div>
-                        </div>
-                                     <div class="col-md-6">
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtReferencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
-                            <label for="<%= TxtReferencia.ClientID.ToString()%>">Referencia:</label>
-                        </div>
- </div>
-                                 </div>
-                        <div class="row">
-                            <div class="col-md-6">
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ></asp:TextBox>
-                            <ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
-                            <label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
-                        </div>
-</div>
-                                     <div class="col-md-6">
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Crédito Proveedor:</label>
-                        </div>
-                                          </div>
- </div> <div class="row">
-                            <div class="col-md-6">
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtCorreoCuenta" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">Correo:</label>
-                        </div>
                                 </div>
-                                     <div class="col-md-6">
+                            </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                            <div class="col-md-6">
-                            <asp:TextBox ID="TxtBBVAAlias" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                <div class="form-group form-md-line-input input-iconright">
-                            <ajax:FilteredTextBoxExtender ID="Flter" runat="server" TargetControlID="TxtBBVAAlias" FilterType="UppercaseLetters,LowercaseLetters,Numbers" InvalidChars="-+.," />
+                                    <asp:TextBox ID="TxtCLABE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
-                            <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">BBVA Alias:</label>
+                                    <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
+                                    <label for="<%= TxtCLABE.ClientID.ToString()%>">CLABE:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtConvenioCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtReferencia" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferencia" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
+                                    <label for="<%= TxtReferencia.ClientID.ToString()%>">Referencia:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30"></asp:TextBox>
+                                    <ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
+                                    <label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Crédito Proveedor:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtCorreoCuenta" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">Correo:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtBBVAAlias" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                    <ajax:FilteredTextBoxExtender ID="Flter" runat="server" TargetControlID="TxtBBVAAlias" FilterType="UppercaseLetters,LowercaseLetters,Numbers" InvalidChars="-+.," />
+                                    <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">BBVA Alias:</label>
+                                </div>
+                            </div>
                         </div>
- </div>
-                                          </div>
                         <div class="row">
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
@@ -3427,38 +3427,38 @@
                             </div>
                         </div>
 
-                         <div class="row">
+                        <div class="row">
-                             <div class="col-md-6">
+                            <div class="col-md-6">
-                                  <div class="form-group form-md-line-input input-iconright" id="div2" runat="server">
+                                <div class="form-group form-md-line-input input-iconright" id="div2" runat="server">
                                     <asp:CheckBox ID="ChkPagoElectronico" runat="server" AutoPostBack="true" OnCheckedChanged="ChkPagoElectronico_CheckedChanged"></asp:CheckBox>
                                     <label for="<%= ChkPagoElectronico.ClientID.ToString()%>">Pago Electronico</label>
                                 </div>
-                             </div>
+                            </div>
-                             <div class="col-md-6">
+                            <div class="col-md-6">
 
-                                 <div class="form-group form-md-line-input input-iconright" id="div3" runat="server">
+                                <div class="form-group form-md-line-input input-iconright" id="div3" runat="server">
-                                    
+
-                                     <asp:CheckBox ID="ChkPagoElectronicoGrupos" runat="server" OnCheckedChanged="ChkPagoElectronicoGrupos_CheckedChanged" AutoPostBack="true"></asp:CheckBox>
+                                    <asp:CheckBox ID="ChkPagoElectronicoGrupos" runat="server" OnCheckedChanged="ChkPagoElectronicoGrupos_CheckedChanged" AutoPostBack="true"></asp:CheckBox>
                                     <label for="<%= ChkPagoElectronicoGrupos.ClientID.ToString()%>">Pago Electronico Grupos</label>
 
                                 </div>
 
-                             </div>
+                            </div>
-                         </div>
+                        </div>
 
 
-                         <div class="form-group form-md-line-input input-iconright" runat="server" id="DVDdlSatBanco" visible="false">
+                        <div class="form-group form-md-line-input input-iconright" runat="server" id="DVDdlSatBanco" visible="false">
-                                    
+
-                             <asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
+                            <asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
-                                 <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
-                             </asp:DropDownList>
+                            </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="GrpAgregarBanco"></asp:RequiredFieldValidator>
+                            <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="GrpAgregarBanco"></asp:RequiredFieldValidator>
-                             <ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
+                            <ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
-                             <label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>
+                            <label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>
+
+                        </div>
 
-                          </div>
 
-                       
 
                     </div>
                     <div class="modal-footer">

Compras/ReembolsosComprobaciones.aspx.vb

@@ -950,7 +950,7 @@ Partial Class Compras_ReembolsosComprobaciones
         GvCxP.Visible = True
 
         ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim), OpcionSaldo:=1)
-        DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0")
+        DtDatos = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND LEN(SerieFolio) > 0 ")
         GvCxP.DataSource = DtDatos
         CvePrePolizaComprobacion = DtDatos.MAX("CvePrePolizaComprobacion").ToEntero
 

Compras/RepComplementoPago.aspx

@@ -18,32 +18,32 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+
             <li style="text-align: left!important">
                 <asp:LinkButton runat="server" ID="LnkNotificar" Visible="false" CssClass=" " OnClick="LnkNotificar_Click" data-html="true" data-placement="left" Text="<i class='fa fa-envelope'></i> Notificar Pendientes"
                     data-toggle="confirmation" data-popout="true" data-original-title="¿Notificar?" data-btn-ok-label="si"></asp:LinkButton>
             </li>
-            <asp:UpdatePanel runat="server" ID="UpPorcentajePrecios" RenderMode="Inline" UpdateMode="Conditional">
-                <ContentTemplate>
-                    <li>
-                        <asp:LinkButton ID="LnkPDF" OnClick="LnkPDF_Click" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-                    </li>
-                </ContentTemplate>
-                <Triggers>
-                    <asp:PostBackTrigger ControlID="LnkPDF" />
-                </Triggers>
-            </asp:UpdatePanel>
 
-            <asp:UpdatePanel runat="server" ID="UpdatePanel1" RenderMode="Inline" UpdateMode="Conditional">
+            <li>
-                <ContentTemplate>
+                <asp:LinkButton ID="LnkPDF" OnClick="LnkPDF_Click" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-                    <li>
+            </li>
-                        <asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+
-                    </li>
+            <li>
-                </ContentTemplate>
+                <asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
-                <Triggers>
+            </li>
-                    <asp:PostBackTrigger ControlID="LnkExcel" />
+            <li>
-                </Triggers>
+                <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar</asp:HyperLink>
-            </asp:UpdatePanel>
+            </li>
+            <li>
+                 <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel Personalizado</asp:LinkButton>
+             </li>
+
         </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkPDF" />
+            <asp:PostBackTrigger ControlID="LnkExcel" />
+            <asp:PostBackTrigger ControlID="ImgExcelPersonalizado" />
+        </Triggers>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
@@ -135,18 +135,32 @@
             </table>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None" data-sort="true">
                 <Columns>
+                    <%--0--%>
                     <asp:HyperLinkField HeaderText="Proveedor" DataTextField="RazonSocial" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" Target="_blank" ItemStyle-Width="30%" />
+                    <%--1--%>
                     <asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
+                    <%--2--%>
+                    <asp:TemplateField Visible="false" HeaderText="Folio Fiscal">
+                        <ItemTemplate>
+                            <asp:Label ID="LblFolioFiscal" runat="server" Text='<%# Eval("UUID") %>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Left" />
+                    </asp:TemplateField>
+                    <%--3--%>
                     <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
+                    <%--4--%>
                     <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
+                    <%--5--%>
                     <asp:HyperLinkField HeaderText="Folio" DataTextField="FolioIE" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
+                    <%--6--%>
                     <asp:BoundField HeaderText="Fecha" DataField="FechaIE" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
+                    <%--7--%>
                     <asp:BoundField HeaderText="Importe" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
+                    <%--8--%>
                     <asp:TemplateField Visible="false">
                         <ItemTemplate>
                             <asp:HyperLink ID="HplPDF" runat="server" Visible="false"><i class='fa fa-ad-pdf'></i></asp:HyperLink>
-                        </ItemTemplate>
+                        </ItemTemplate>                        
-                        <ItemStyle Width="5%" />
                     </asp:TemplateField>
                 </Columns>
             </asp:GridView>
@@ -154,6 +168,49 @@
     </asp:UpdatePanel>
 
 
+    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+    <ContentTemplate>
+        <div id="DivPersonalizar" class="modal fade" role="dialog">
+            <div class="modal-dialog">
+
+                <!-- Modal content-->
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">
+                            <asp:Label ID="Label2" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
+                    </div>
+                    <div class="modal-body">
+                        <table style="width:100%" class="table table-striped table-advance table-hover">
+                            <tr>
+                                <td>
+                                    <asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="Folio Fiscal" />
+
+                                </td>
+                                <td></td>
+                                <td></td>
+                                <td></td>
+                                
+                                 
+                            </tr>
+                           
+                        </table>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-primary" OnClick="BtnPersonalizar_Click" />
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+
+            </div>
+        </div>
+
+
+
+
+    </ContentTemplate>
+</asp:UpdatePanel>
+
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Compras/RepComplementoPago.aspx.vb

@@ -69,15 +69,17 @@ Partial Class Compras_RepComplementoPago
         Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1)
         Dim Count As Integer = 0
 
+        Personalizar()
+
         Dim ObjCompras As New ClsCompras
         If ObjCompras.RepComplementosPago(CveProveedor, -1, TipoConsulta, FechaInicio, FechaFin, UsuarioActual.CveEmpresa, CveTipoProveedor, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRegistra.SelectedValue.ToEntero) Then
             DTComplemntos = ObjCompras.DtResultados '.FiltraParametros(If(ChkViculadas.Checked, "FechaAsociacionPago IS NOT NULL", "FechaAsociacionPago IS NULL"))
             GvDatos.DataSource = DTComplemntos
             If ChkViculadas.Checked Then
                 Count = DTComplemntos.Rows.Count
-                GvDatos.Columns(7).Visible = True
+                GvDatos.Columns(8).Visible = True
             Else
-                GvDatos.Columns(7).Visible = False
+                GvDatos.Columns(8).Visible = False
             End If
         End If
         ObjCompras.Dispose()
@@ -98,6 +100,20 @@ Partial Class Compras_RepComplementoPago
         GvDatos.DataBind()
         UpDatos.Update()
     End Sub
+
+    Private Sub Personalizar()
+
+        GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked
+        If ChkFolioFiscal.Checked Then
+            GvDatos.Columns(0).ItemStyle.Width = 15%
+        Else
+            GvDatos.Columns(0).ItemStyle.Width = 30%
+        End If
+
+        UpDatos.Update()
+
+    End Sub
+
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If ChkViculadas.Checked Then
@@ -201,4 +217,32 @@ Partial Class Compras_RepComplementoPago
 
     End Sub
 #End Region
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As EventArgs)
+        Personalizar()
+        ImgExcelPersonalizado.Visible = True
+        UpAcciones.Update()
+    End Sub
+
+
+    Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
+
+        ' GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString)
+        'GvDatos.ExportToExcelG("DetalleCompras_" & NowADS().ToShortDateString & ".xlsx")
+        Dim SubProyecto As String = ""
+
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
+            SubProyecto = DdlSubProyecto.SelectedItem.Text
+        End If
+
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat($"Fecha Inicio: {TxtFiltrosFechaInicio.Text} Fecha Fin: {TxtFiltrosFechaFin.Text}|")
+        SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
+
+
+        GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
 End Class

Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc

@@ -6485,6 +6485,9 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                 <Height>0.6cm</Height>
                 <Width>3.97474cm</Width>
                 <ZIndex>45</ZIndex>
+                <Visibility>
+                  <Hidden>true</Hidden>
+                </Visibility>
                 <Style>
                   <Border>
                     <Style>None</Style>
@@ -6525,6 +6528,9 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                 <Height>0.6cm</Height>
                 <Width>3.97474cm</Width>
                 <ZIndex>46</ZIndex>
+                <Visibility>
+                  <Hidden>true</Hidden>
+                </Visibility>
                 <Style>
                   <Border>
                     <Style>None</Style>
@@ -7793,7 +7799,6 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox14</rd:DefaultName>
-              <Top>0cm</Top>
               <Left>14.77452cm</Left>
               <Height>0.54708cm</Height>
               <Width>4.70062cm</Width>

OC/OC.aspx.vb

@@ -6952,6 +6952,28 @@ Partial Class OC_OC
 
         Dim dt As New DataTable
         dt = ReadExcelFile(Ruta + FileName, True)
+
+
+        If dt.Rows.Count > 0 Then
+            Dim dtOriginal As DataTable = dt
+            Dim dtFiltrada As DataTable = dtOriginal.Clone()
+            Try
+                For Each row As DataRow In dtOriginal.Rows
+                    Dim cantidadStr As String = row("Cantidad").ToString().Trim()
+
+                    Dim cantidadNum As Decimal
+                    If Decimal.TryParse(cantidadStr, cantidadNum) Then
+                        If cantidadNum > 0 Then
+                            dtFiltrada.ImportRow(row)
+                        End If
+                    End If
+                Next
+            Catch ex As Exception
+
+            End Try
+            dt = dtFiltrada
+        End If
+
         Dim ErrorArchivo As Boolean = False
 
         'Dim Conexion As Odbc.OdbcConnection = Nothing

OI/Proyecto.aspx

@@ -119,17 +119,8 @@
                             </div>
                             <div class="modal-body">
 
-                                <asp:Panel runat="server" ID="portletTarea" class="portlet light smmallpadding bordered">
+                              
-                                    <div class="portlet-title">
+
-                                        <div class="caption font-green">
-                                            <i class="icon-pin font-green"></i>
-                                            <span class="caption-subject bold uppercase">Nuevo</span>
-                                        </div>
-                                        <div class="tools">
-                                            <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                                        </div>
-                                    </div>
-                                    <div class="portlet-body rowpadding">
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtAsunto" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RFVAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
@@ -269,8 +260,11 @@
                                               </div>
                                              
                                           </div>
-                                    </div>
+
-                                </asp:Panel>
+
+                                  
+
+
                                 <asp:TextBox ID="txtCveEvento" CssClass="hidden txtCveEvento" runat="server"></asp:TextBox>
                                 <asp:Button ID="BtnopenmodalClickGant" OnClick="BtnopenmodalClickGant_Click" CssClass="hidden BtnopenmodalClickGant" UseSubmitBehavior="false" runat="server" Text="Button" />
                             </div>
@@ -320,6 +314,36 @@
     <script src="/Metronic/assets/global/plugins/dhtmlxgantt/dhtmlxgantt.js"></script>
 
     <script>
+
+        (function () {
+            const BsModal = $.fn.modal.Constructor.prototype;
+            const oldFocus1 = BsModal.enforceFocus;   // BS3
+            const oldFocus2 = BsModal._enforceFocus; // BS4+
+
+            $('#iddivAgregarProyecto')
+                .on('shown.bs.modal', function () {
+                    // quito TODOS los focus trap que se hayan registrado
+                    $(document).off('focusin.bs.modal');
+                    if (oldFocus1) BsModal.enforceFocus = function () { };
+                    if (oldFocus2) BsModal._enforceFocus = function () { };
+                })
+                .on('hidden.bs.modal', function () {
+                    // devuelvo el comportamiento original
+                    if (oldFocus1) BsModal.enforceFocus = oldFocus1;
+                    if (oldFocus2) BsModal._enforceFocus = oldFocus2;
+                });
+        })();
+
+        $(document).on('select2:open', () => {
+            const $f = $('.select2-container--open .select2-search__field').last();
+            setTimeout(() => $f.trigger('focus'), 0);   // micro-tarea → evita el blur inmediato
+        });
+
+        $('#iddivAgregarProyecto .select2me').select2({
+            width: '100%',
+            dropdownParent: $('#iddivAgregarProyecto .modal-content')   // evita desalinearse al hacer scroll
+        });
+
         let RCveEvento =<%= RCveEvento %>;
         function NuevoEvento(CveEvento) {
             $('.txtCveEvento').val(CveEvento);

RH/Personal.aspx

@@ -61,10 +61,15 @@
             </Triggers>
         </asp:UpdatePanel>--%>
         
+      <asp:UpdatePanel ID="UpAccionesCuentasBancarias" runat="server">
+      <ContentTemplate>
+          <li>              
+              <asp:LinkButton ID="Lnkopenaddcuentabancaria" OnClick="Lnkopenaddcuentabancaria_Click" Visible="true" runat="server"> <i class="fa fa-plus"></i> Agregar cuenta bancaria</asp:LinkButton>
+          </li>
+      </ContentTemplate>
+  </asp:UpdatePanel>
+    
     
-    <li>
-        <asp:LinkButton ID="Lnkopenaddcuentabancaria" OnClick="Lnkopenaddcuentabancaria_Click" Visible="true" runat="server"> <i class="fa fa-plus"></i> Agregar cuenta bancaria</asp:LinkButton>
-    </li>
 
     <asp:UpdatePanel ID="UpBuzon" runat="server">
         <ContentTemplate>
@@ -1246,7 +1251,8 @@
                                                 <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,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,EstatusTexto,CveMoneda" AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
+                                                        DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE,EstatusTexto" 
+                                                        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">
@@ -1370,7 +1376,7 @@
                                                                     <asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# IIf(Eval("EstatusTexto").ToString = "Activo", True, False)%>' Visible="false"></asp:CheckBox>
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField HeaderText="Editar" ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
+                                                            <asp:TemplateField HeaderText="Editar" ItemStyle-Width="50px" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
                                                                 <EditItemTemplate>
                                                                     <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="GrpEditarCuentaBanco" />
@@ -1381,7 +1387,7 @@
                                                                     <asp:LinkButton ID="LnkshowEditcuentasbancarias" runat="server" OnClick="LnkshowEditcuentasbancarias_Click" AlternateText="Editar" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField HeaderText="Elim." ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
+                                                            <asp:TemplateField HeaderText="Elim." ItemStyle-Width="50px" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" OnClientClick="javascript:return confirm('Está seguro de eliminar el registro?');" />
                                                                 </ItemTemplate>
@@ -4918,7 +4924,7 @@
         </div>
     </div>
 
-    <div id="DivCuentasVancarias" class="modal ADS fade" role="dialog">
+<%--    <div id="DivCuentasVancarias" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="width: 400px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpCuentasVancarias" UpdateMode="Conditional">
                 <ContentTemplate>
@@ -4978,7 +4984,197 @@
                 </ContentTemplate>
             </asp:UpdatePanel>
         </div>
-    </div>
+    </div>--%>
+
+
+     <div id="DivAddCuentasBancarias" class="modal ADS fade" role="dialog">
+     <asp:UpdatePanel ID="UpAddBancos" class="modal-dialog" runat="server" UpdateMode="Conditional">
+         <ContentTemplate>
+             <div class="modal-content">
+                 <div class="modal-header">
+                     <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                         <span aria-hidden="true">&times;</span>
+                     </button>
+                     <h4 class="modal-title" id="H2" runat="server">Cuenta Bancaria</h4>
+                 </div>
+                 <div class="modal-body">
+
+                     <div class="row">
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:DropDownList ID="DdlBancoSat" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Banco" DataValueField="CveSATBanco" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                 <asp:Label runat="server" AssociatedControlID="DdlBancoSat" Text="Banco:"></asp:Label>
+                                 <asp:RequiredFieldValidator ID="RFVBancoSat" runat="server" InitialValue="-1" ControlToValidate="DdlBancoSat" 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="GrpAgregarBanco"></asp:RequiredFieldValidator>
+                                 <ajax:ValidatorCalloutExtender ID="VcoBancoSat" runat="server" HighlightCssClass="vco" TargetControlID="RFVBancoSat" Width="300px"></ajax:ValidatorCalloutExtender>
+                                 <i></i>
+                             </div>
+
+                         </div>
+
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtNumeroCuenta" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta" FilterType="Numbers" />
+                                 <label for="<%= TxtNumeroCuenta.ClientID.ToString()%>">Numero de Cuenta:</label>
+                             </div>
+                         </div>
+
+                     </div>
+                     
+                    
+
+
+
+                     <div class="row">
+                         <div class="col-md-6" runat="server" visible="false">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <asp:RequiredFieldValidator ID="RFVNombreBanco" runat="server" ControlToValidate="TxtNombreBanco" 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="GrpAgregarBanco"></asp:RequiredFieldValidator>
+                                 <ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
+                                 <label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
+                             </div>
+                         </div>
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
+                             </div>
+                         </div>
+ <div class="col-md-6">
+     <div class="form-group form-md-line-input input-iconright">
+         <asp:TextBox ID="TxtCLABECB" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+         <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABECB" FilterType="Numbers" />
+         <label for="<%= TxtCLABECB.ClientID.ToString()%>">CLABE:</label>
+     </div>
+ </div>
+                     </div>
+                     <div class="row">
+                        
+                        
+                     </div>
+                     <div class="row"  runat="server" visible="false">
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
+                             </div>
+                         </div>
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
+                             </div>
+                         </div>
+                     </div>
+                     <div class="row">
+                         <div class="col-md-6"  runat="server" visible="false">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtConvenioCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <label for="<%= TxtConvenioCIE.ClientID.ToString()%>">CIE:</label>
+                             </div>
+                         </div>
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtReferenciaC" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtReferenciaC" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
+                                 <label for="<%= TxtReferenciaC.ClientID.ToString()%>">Referencia:</label>
+                             </div>
+                         </div>
+                     </div>
+                     <div class="row"  runat="server" visible="false">
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtConceptoCIE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30"></asp:TextBox>
+                                 <ajax:FilteredTextBoxExtender ID="FilAlfanumerico" runat="server" TargetControlID="TxtConceptoCIE" FilterType="UppercaseLetters,LowercaseLetters,Numbers" />
+                                 <label for="<%= TxtReferencia.ClientID.ToString()%>">Concepto CIE:</label>
+                             </div>
+                         </div>
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtRefCrediProveedor" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="5" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <label for="<%= TxtRefCrediProveedor.ClientID.ToString()%>">Crédito Proveedor:</label>
+                             </div>
+                         </div>
+                     </div>
+                     <div class="row"  runat="server" visible="false">
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtCorreoCuenta" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <label for="<%= TxtCorreoCuenta.ClientID.ToString()%>">Correo:</label>
+                             </div>
+                         </div>
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:TextBox ID="TxtBBVAAlias" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="30" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
+                                 <ajax:FilteredTextBoxExtender ID="Flter" runat="server" TargetControlID="TxtBBVAAlias" FilterType="UppercaseLetters,LowercaseLetters,Numbers" InvalidChars="-+.," />
+                                 <label for="<%= TxtBBVAAlias.ClientID.ToString()%>">BBVA Alias:</label>
+                             </div>
+                         </div>
+                     </div>
+                     <div class="row">
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright">
+                                 <asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
+                                 <asp:RequiredFieldValidator ID="RFVMoneda" runat="server" InitialValue="-1" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
+                                 <ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
+                                 <label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label>
+                             </div>
+                         </div>
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright" id="divestatus" runat="server">
+                                 <asp:CheckBox ID="ChkEstatuscuenta" runat="server"></asp:CheckBox>
+                                 <label for="<%= ChkEstatuscuenta.ClientID.ToString()%>">Estatus:</label>
+                             </div>
+
+                         </div>
+                     </div>
+
+                     <div class="row">
+                         <div class="col-md-6">
+                             <div class="form-group form-md-line-input input-iconright" id="div3" runat="server">
+                                 <asp:CheckBox ID="ChkEstatusPagoE" runat="server" AutoPostBack="true" OnCheckedChanged="ChkPagoElectronico_CheckedChanged"></asp:CheckBox>
+                                 <label for="<%= ChkEstatusPagoE.ClientID.ToString()%>">Pago Electronico</label>
+                             </div>
+                         </div>
+                         <div class="col-md-6">
+                                
+                             <div class="form-group form-md-line-input input-iconright" id="div4" runat="server">
+
+                                 <asp:CheckBox ID="ChkPagoElectronicoGrupos" runat="server"  ></asp:CheckBox>
+                                 <label for="<%= ChkPagoElectronicoGrupos.ClientID.ToString()%>">Pago Electronico Grupos</label>
+
+                             </div>
+
+                         </div>
+                     </div>
+
+
+                     <div class="form-group form-md-line-input input-iconright" runat="server" id="DVDdlSatBanco" visible="false">
+
+                         <%--<asp:DropDownList CssClass="form-control select2me" Width="50%" 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="GrpAgregarBanco"></asp:RequiredFieldValidator>
+                         <ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
+                         <label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>--%>
+
+                     </div>
+
+
+
+                 </div>
+                 <div class="modal-footer">
+                     <%--<asp:LinkButton ID="LbAgregarCuentaBanco" runat="server" CausesValidation="true" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpAgregarBanco" OnClick="LbAgregarCuentaBanco_Click"></asp:LinkButton>
+                     <asp:Button type="button" class="btn btn-default" runat="server" ID="Button2" data-dismiss="modal" Text="Cancelar" />--%>
+                    <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>
+             </div>
+         </ContentTemplate>
+     </asp:UpdatePanel>
+ </div>
 
     <div id="divEditarDiaVacacion" class="modal ADS fade" role="dialog">
         <div id="dvEdicion" runat="server" class="modal-dialog" style="width: 400px;">

RH/Personal.aspx.vb

@@ -6,9 +6,9 @@ Imports System.IO
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
 Imports System.Globalization
-Imports System.Data.SqlTypes
+
-Imports DocumentFormat.OpenXml.Drawing.Diagrams
+
-Imports Microsoft.AspNet.SignalR.Infrastructure
+
 
 Partial Class RH_Personal
     Inherits ClsPaginas
@@ -427,6 +427,18 @@ Partial Class RH_Personal
     End Property
 
 
+    Private Property IndexCuentaDepostito As Integer
+        Get
+            If ViewState("IndexCuentaDepostito") Is Nothing Then
+                ViewState("IndexCuentaDepostito") = -1
+            End If
+            Return ViewState("IndexCuentaDepostito").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IndexCuentaDepostito") = value
+        End Set
+    End Property
+
 
 #End Region
 
@@ -1001,11 +1013,8 @@ Partial Class RH_Personal
                     CargaFonacot()
                 End If
 
-
                 ValidaDeudorAcreedor()
 
-
-
             Else
                 cargatipoTrabajador()
                 MostrarOcultarFechasEstatus()
@@ -1020,6 +1029,7 @@ Partial Class RH_Personal
             End If
 
             CargaCuentasBancarias()
+
             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
 
                 CrearEstructuraFamiliares()
@@ -2124,7 +2134,12 @@ Partial Class RH_Personal
                             If TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count > 0 Then
 
                                 For Each row As DataRow In TempDTCuentasBancos.Rows
-                                    If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=True, EstatusPagoElectronicoGrupos:=True) Then
+                                    If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(),
+                                                                                  row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), row("RefCrediProveedor").ToString(), UsuarioActual.CveUsuario,
+                                                                                  row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario,
+                                                                                  BBVAAlias:=row("BBVAAlias").ToString(), EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString),
+                                                                                  EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), Correo:=row("Correo").ToString(),
+                                                                                  ConceptoCIE:=row("ConceptoCIE").ToString(), Estatus:=If(row("EstatusTexto").ToString = "Activo", True, False)) Then
                                         TieneError = True
                                         Exit For
                                     End If
@@ -3377,21 +3392,81 @@ Partial Class RH_Personal
     Protected Sub Lnkopenaddcuentabancaria_Click(sender As Object, e As EventArgs)
         BtnActualizarCuentaBanco.Visible = False
         BtnAgregarCuentaBanco.Visible = True
+        IndexCuentaDepostito = -1
+        CuentasBancosLimpiarControles()
+        RegistraScript("$('#DivAddCuentasBancarias').modal();")
+    End Sub
 
-        RegistraScript("$('#DivCuentasVancarias').modal();")
+    Private Sub CuentasBancosLimpiarControles()
+
+        DdlBancoSat.SelectedValueExist(-1)
+        DdlMoneda.SelectedValueExist(-1)
+        TxtNumeroCuenta.Text = ""
+        TxtCLABECB.Text = ""
+        ChkEstatusPagoE.Checked = False
+        ChkEstatuscuenta.Checked = True
+
+        TxtNombreBanco.Text = ""
+        TxtNumeroSucursal.Text = ""
+        TxtSWIFT.Text = ""
+        TxtPlaza.Text = ""
+        TxtConvenioCIE.Text = ""
+        TxtReferenciaC.Text = ""
+        TxtConceptoCIE.Text = ""
+        TxtRefCrediProveedor.Text = ""
+        TxtCorreoCuenta.Text = ""
+        TxtBBVAAlias.Text = ""
+        ChkPagoElectronicoGrupos.Checked = False
+
+
+
+
+        UpAddBancos.Update()
     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(), UsuarioActual.CveEmpresa) Then
+        Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
-                '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
+        If CvePersonal > 0 Then
-                Alert("Cuenta actualizada")
+            Using ObjCuentasBancos As New ClsGenerales
+
+                'If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+                If ObjCuentasBancos.UpdateCuentasDepositos(CveCuentaDeposito, nombrebanco, TxtPlaza.Text, TxtNumeroSucursal.Text, TxtNumeroCuenta.Text.Trim, TxtCLABECB.Text.Trim, TxtConvenioCIE.Text, TxtSWIFT.Text, TxtReferenciaC.Text, TxtRefCrediProveedor.Text,
+                                                               False, ChkEstatuscuenta.Checked, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, Correo:=TxtCorreoCuenta.Text, BBVAAlias:=TxtBBVAAlias.Text, EstatusPagoElectronico:=ChkEstatusPagoE.Checked,
+                                                               EstatusPagoElectronicoGrupos:=ChkPagoElectronicoGrupos.Checked, CveSATBanco:=DdlBancoSat.SelectedValue.ToEntero(), ConceptoCIE:=TxtConceptoCIE.Text) 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
+        Else
+            If IndexCuentaDepostito > -1 Then
+                Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
+                Row("BancoNombre") = nombrebanco
+                Row("Cuenta") = TxtNumeroCuenta.Text.Trim
+                Row("Sucursal") = TxtNumeroSucursal.Text
+                Row("CLABE") = TxtCLABECB.Text.Trim
+                Row("SWIFT") = TxtSWIFT.Text
+                Row("Plaza") = TxtPlaza.Text
+                Row("Cuenta") = TxtNumeroSucursal.Text
+                Row("CIE") = TxtConvenioCIE.Text
+                Row("Referencia") = TxtReferenciaC.Text
+                Row("RefCrediProveedor") = TxtRefCrediProveedor.Text
+                Row("CveMoneda") = DdlMoneda.SelectedValue.ToEntero()
+                Row("Moneda") = DdlMoneda.SelectedItem.Text
+                Row("BBVAAlias") = TxtBBVAAlias.Text
+                Row("CveSATBanco") = DdlBancoSat.SelectedValue.ToEntero
+                Row("EstatusPagoElectronico") = ChkEstatusPagoE.Checked
+                Row("EstatusPagoElectronicoGrupos") = ChkPagoElectronicoGrupos.Checked
+                Row("Correo") = TxtCorreoCuenta.Text.Trim
+                Row("Correo") = TxtCorreoCuenta.Text.Trim
+                Row("ConceptoCIE") = TxtConceptoCIE.Text
+                Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
+
             End If
-        End Using
+        End If
+
         CargaCuentasBancarias()
-        RegistraScript("$('#DivCuentasVancarias').modal('hide');")
+        RegistraScript("$('#DivAddCuentasBancarias').modal('hide');")
     End Sub
     Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
         Dim EsBancomer As Boolean = False
@@ -3431,6 +3506,27 @@ Partial Class RH_Personal
         End If
 
 
+        If ChkPagoElectronicoGrupos.Checked Then
+
+            If TxtConvenioCIE.Text.Trim.Length > 0 Then
+
+                If TxtConvenioCIE.Text.Trim.Length < 5 Then
+                    Alert("El campo CIE debe de tener una tamaño mininmo 5 caracteres.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+
+                If Not DdlBancoSat.SelectedValue.ToEntero > 0 Then
+                    Alert("Se debe de especificar el banco.")
+                    Exit Sub
+                End If
+
+
+
+            End If
+
+        End If
+
+
 
         ''CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
         'If EsBancomer AndAlso Not (TxtNumeroCuenta.Text.Trim.Length = 10 Or TxtConvenioCIE.Text.Trim.Length = 6) Then
@@ -3438,8 +3534,9 @@ 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(), ChkEstatusPagoE.Checked)
+        AgregarCuentaBanco(nombrebanco, TxtNumeroSucursal.Text, TxtCLABECB.Text.Trim, TxtSWIFT.Text, TxtPlaza.Text, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text, TxtReferenciaC.Text, TxtRefCrediProveedor.Text, DdlMoneda.SelectedValue.ToEntero(),
-        RegistraScript("$('#DivCuentasVancarias').modal('hide');")
+                           DdlMoneda.SelectedItem.Text, ChkEstatuscuenta.Checked, TxtCorreoCuenta.Text, TxtBBVAAlias.Text, DdlBancoSat.SelectedValue.ToEntero(), ChkEstatusPagoE.Checked, ChkPagoElectronicoGrupos.Checked, TxtConceptoCIE.Text)
+        RegistraScript("$('#DivAddCuentasBancarias').modal('hide');")
     End Sub
     Private Sub CargaGridCuentasBancos(Orden As String)
         If CvePersonal > 0 Then
@@ -3463,14 +3560,17 @@ 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, EstatusPagoElectronico As Boolean)
+    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, RefCrediProveedor As String, CveMoneda As Integer,
+                                   Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, CveSATBanco As Integer, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, ConceptoCIE As String)
+
 
-        Dim Row As DataRow
 
         If CvePersonal > 0 Then
             Using ObjCuentasBancos As New ClsGenerales()
 
-                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico) Then
+                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal,
+                                                        CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias, CveSATBanco:=CveSATBanco, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos,
+                                                        Correo:=Correo, ConceptoCIE:=ConceptoCIE) Then
                     DTCuentasBancos.Clear()
                     DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal)))
 
@@ -3480,22 +3580,54 @@ Partial Class RH_Personal
             CargaGvBitacora()
 
         Else
-            Row = TempDTCuentasBancos.NewRow
 
-            Row("BancoNombre") = NombreBanco
+            If IndexCuentaDepostito > -1 Then
-            Row("Sucursal") = NumeroSucursal
+                Dim Row As DataRow = TempDTCuentasBancos.Rows(IndexCuentaDepostito)
-            Row("CLABE") = CLABE
+                Row("BancoNombre") = NombreBanco
-            Row("SWIFT") = SWIFT
+                Row("Sucursal") = NumeroSucursal
-            Row("Plaza") = Plaza
+                Row("CLABE") = CLABE
-            Row("Cuenta") = NumeroCuenta
+                Row("SWIFT") = SWIFT
-            Row("CIE") = ConvenioCIE
+                Row("Plaza") = Plaza
-            Row("Referencia") = Referencia
+                Row("Cuenta") = NumeroCuenta
-            Row("CveMoneda") = CveMoneda
+                Row("CIE") = ConvenioCIE
-            Row("Moneda") = Moneda
+                Row("Referencia") = Referencia
-            Row("BBVAAlias") = BBVAAlias
+                Row("RefCrediProveedor") = RefCrediProveedor
-            Row("CveSATBanco") = CveSATBanco
+                Row("CveMoneda") = CveMoneda
-            Row("EstatusPagoElectronico") = EstatusPagoElectronico
+                Row("Moneda") = Moneda
-            TempDTCuentasBancos.Rows.Add(Row)
+                Row("BBVAAlias") = BBVAAlias
+                Row("CveSATBanco") = CveSATBanco
+                Row("EstatusPagoElectronico") = EstatusPagoElectronico
+                Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
+                Row("Correo") = Correo
+                Row("ConceptoCIE") = ConceptoCIE
+                Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
+
+            Else
+                Dim Row As DataRow = TempDTCuentasBancos.NewRow
+                Row("BancoNombre") = NombreBanco
+                Row("Sucursal") = NumeroSucursal
+                Row("CLABE") = CLABE
+                Row("SWIFT") = SWIFT
+                Row("Plaza") = Plaza
+                Row("Cuenta") = NumeroCuenta
+                Row("CIE") = ConvenioCIE
+                Row("Referencia") = Referencia
+                Row("RefCrediProveedor") = RefCrediProveedor
+                Row("CveMoneda") = CveMoneda
+                Row("Moneda") = Moneda
+                Row("BBVAAlias") = BBVAAlias
+                Row("CveSATBanco") = CveSATBanco
+                Row("EstatusPagoElectronico") = EstatusPagoElectronico
+                Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
+                Row("Correo") = Correo
+                Row("ConceptoCIE") = ConceptoCIE
+                TempDTCuentasBancos.Rows.Add(Row)
+                Row("EstatusTexto") = If(ChkEstatuscuenta.Checked, "Activo", "Inactivo")
+
+            End If
+
+
+
         End If
 
         LimpiaCuentasBancarias()
@@ -3510,7 +3642,7 @@ Partial Class RH_Personal
     Private Sub CargaCuentasBancarias()
         Dim ObjCuentasBancos As New ClsGenerales
         DTCuentasBancos = New DataTable
-        TempDTCuentasBancos = New DataTable
+        'TempDTCuentasBancos = New DataTable
 
         If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
             DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
@@ -3518,7 +3650,7 @@ Partial Class RH_Personal
             Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgError)
         End If
 
-        If CvePersonal < 0 Then
+        If (CvePersonal < 0 AndAlso TempDTCuentasBancos Is Nothing) Or (CvePersonal < 0 AndAlso TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count = 0) Then
             TempDTCuentasBancos = DTCuentasBancos.Clone
         End If
 
@@ -3563,19 +3695,48 @@ Partial Class RH_Personal
 
 
     Protected Sub LnkshowEditcuentasbancarias_Click(sender As Object, e As EventArgs)
+
         Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
         BtnActualizarCuentaBanco.Visible = True
         BtnAgregarCuentaBanco.Visible = False
         'CveCuentaDeposito,CveSATBanco,Cuenta,CLABE,EstatusPagoElectronico,CveMoneda
+
         CveCuentaDeposito = gvrow.DataKey("CveCuentaDeposito").ToEntero()
+        IndexCuentaDepostito = gvrow.RowIndex
+
+        CuentasBancosLimpiarControles()
+
         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();")
+        'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE
+        'DdlBancoSat
+        TxtNombreBanco.Text = gvrow.DataKey("BancoNombre")
+        TxtNumeroSucursal.Text = gvrow.DataKey("Sucursal")
+        TxtSWIFT.Text = gvrow.DataKey("SWIFT")
+        TxtPlaza.Text = gvrow.DataKey("Plaza")
+        TxtConvenioCIE.Text = gvrow.DataKey("CIE")
+        TxtReferenciaC.Text = gvrow.DataKey("Referencia")
+        TxtConceptoCIE.Text = gvrow.DataKey("ConceptoCIE")
+        TxtRefCrediProveedor.Text = gvrow.DataKey("RefCrediProveedor")
+        TxtCorreoCuenta.Text = gvrow.DataKey("Correo")
+        TxtBBVAAlias.Text = gvrow.DataKey("BBVAAlias")
+        ChkPagoElectronicoGrupos.Checked = Boolean.Parse(gvrow.DataKey("EstatusPagoElectronicoGrupos").ToString)
+        ChkEstatuscuenta.Checked = If(gvrow.DataKey("EstatusTexto").ToString = "Activo", True, False)
+
+
+
+        'CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,RefCrediProveedor,CveMoneda,Estatus,Correo,BBVAAlias,EstatusPagoElectronico,EstatusPagoElectronicoGrupos,CveSATBanco,ConceptoCIE,EstatusTexto
+
+        'asdasd
+
+        UpAddBancos.Update()
+        RegistraScript("$('#DivAddCuentasBancarias').modal();")
     End Sub
     Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
 
@@ -5011,7 +5172,7 @@ Partial Class RH_Personal
     Private Sub CargaVacacionesResumenPeriodoActual()
         Using objnom As New ClsNominas
 
-            If objnom.GETPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
+            If objnom.GetPersonalVacResumen(UsuarioActual.Empresa.CveEmpresa, CvePersonal) Then
                 RPTVacacionesResumen.DataSource = objnom.DtResultados
                 DdlVacPeriodo.DataSource = objnom.DtResultados.FiltraParametros("DiasDisponibles > 0", "Ejercicio")
                 DdlVacPeriodo.DataBind()
@@ -8282,5 +8443,25 @@ Partial Class RH_Personal
     End Sub
 
 
+    'Protected Sub ChkPagoElectronicoGrupos_CheckedChanged(sender As Object, e As EventArgs)
+
+    '    If ChkPagoElectronicoGrupos.Checked Then
+    '        DVDdlSatBanco.Visible = True
+    '    Else
+    '        DVDdlSatBanco.Visible = False
+    '    End If
+
+    '    UpAddBancos.Update()
+    'End Sub
+
+
+    Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)
+
+        'If ChkEstatusPagoE.Checked Then
+        '    Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la plataforma", TipoMensaje.MsgAdvertencia)
+        'End If
+
+    End Sub
+
 End Class
 

Ventas/ClientesAbonar.aspx.vb

@@ -10,6 +10,14 @@ Partial Class Ventas_ClientesAbonar
 
 
 #Region "Propiedades"
+    Private Property CveCorte As Integer
+        Get
+            Return ViewState("CveCorte").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveCorte") = value
+        End Set
+    End Property
     Private ReadOnly Property CveCliente As Integer
         Get
             Return ViewState("CveCliente").ToString.ToEntero
@@ -172,6 +180,7 @@ Partial Class Ventas_ClientesAbonar
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+            Me.CveCorte = -1
             CveMonedaPago = -1
             If Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToString.ToEntero > 0 Then
                 ViewState("CveCliente") = Request("CveCliente").ToString.ToEntero
@@ -229,6 +238,8 @@ Partial Class Ventas_ClientesAbonar
                     ChkPagarDolares.Visible = False
                 End If
                 RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Fecha).FormatoNumero(4)}")
+
+                Me.CveCorte = CargaCorteCaja(-1, UsuarioActual)
             End If
 
             RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy")
@@ -255,6 +266,58 @@ Partial Class Ventas_ClientesAbonar
 
     End Sub
 
+    Protected Function CargaCorteCaja(CveVenta As Integer, UsuarioActual As Usuario) As Integer
+        Dim CveCorte As Integer = -1
+
+        Dim CveCorteVenta As Integer = -1
+        Dim EsCredito As Boolean = False
+        Dim UsaCorteActual As Boolean = False
+
+        If CveVenta > 0 Then
+            Using ObjVentas As New ClsVentas
+                If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
+                    EsCredito = If(ObjVentas.DtResultados.FiltroPrimeroValor("CondicionesPago").ToEntero() = 1, True, False)
+                    CveCorteVenta = ObjVentas.DtResultados.FiltroPrimeroValor("CveCorte").ToEntero()
+                End If
+            End Using
+
+            If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
+                'SI ES FACTURA A CREDITO
+                If EsCredito OrElse CveCorteVenta <= 0 Then
+                    UsaCorteActual = True
+                End If
+            End If
+
+            'SI ES CONTADO TOMAR EL DE LA VENTA
+            If Not EsCredito Then
+                UsaCorteActual = False
+            End If
+
+            'EN BDH TOMAR EL DE LA VENTA
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                UsaCorteActual = False
+            End If
+        Else
+            If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
+                UsaCorteActual = True
+            End If
+        End If
+
+        If UsaCorteActual Then
+            Dim ObjPVenta As New ClsPuntoVenta
+            If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+                If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                    CveCorte = ObjPVenta.CveCorte
+                End If
+            End If
+            ObjPVenta.Dispose()
+        Else
+            CveCorte = CveCorteVenta
+        End If
+
+        Return CveCorte
+    End Function
+
     Private Sub CargaTipoTransaccion()
         DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Ing' AND Estatus = 1 ")
         DdlTipoTransaccion.DataBind()
@@ -870,7 +933,7 @@ Partial Class Ventas_ClientesAbonar
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, Folio, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal,
                                            GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio,
                                            TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito,
-                                           CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal, FechaEmision:=FechaEmision)
+                                           CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal, FechaEmision:=FechaEmision, CveCorte:=Me.CveCorte)
                 If Folio = "-1" Then
                     TxtFolio.Text = ObjIE.Folio.ToString()
                 End If