eFacturas Vinculacion de complemento por Partida

App_Code/ClsOC.vb

@@ -1580,7 +1580,7 @@ Public Class ClsOC
 
         Return Retorno
     End Function
-    Public Function RemoveEstatusUsuarios(CveEstatusUsuarios As Integer, Optional CveUsuarioModifico As Integer = -1) As Boolean
+    Public Function RemoveEstatusUsuarios(CveEstatusUsuarios As Integer, CveUsuarioModifico As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_EstatusUsuariosRemove")
@@ -1596,7 +1596,8 @@ Public Class ClsOC
             Retorno = True
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 547;") Then
-                Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+                'Alert("El Estatus no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia)
+                Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             Else
                 Me.OnError("Ocurrió un error al eliminar el Estatus de Usuario para Ordenes de Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If

App_Code/ClsOIEventos.vb

@@ -888,7 +888,30 @@ Public Class ClsOIEventos
             OnError("Ocurrió un error al obtener el Catálogo de Evento Usuario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
         Return Retorno
+    End Function
+
+
+
+    Public Function RemoveEventosProyectos(CveEvento As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_EventosProyectosRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEvento", SqlDbType.Int).Value = CveEvento
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el proyecto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
     End Function
+
+
+
     Public Function GetEventos2(cveEvento As Int32, CveEmpresa As Integer, Optional CveEventoPadre As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_OI_Eventos2Get", CommandType.StoredProcedure)

Compras/eFacturas.aspx

@@ -509,13 +509,16 @@
                         <h4 class="modal-title">Vincular Complemento de Pago</h4>
                     </div>
                     <div class="modal-body">
-                        <div class="row" runat="server" id="DivVincularPagoManualmente" visible="false">
+
+                        <div class="row" runat="server" id="DivVincularPagoManualmente" style="visibility:hidden!important">
                             <div class="col-md-2">
                                 <a runat="server" class="btn btn-circle btn-default" href="javascript:AbrirVentana('/Bancos/PopUpBuscarIE.aspx?OPCION=Complementos',800,600,'N');"><i class='fa fa-plus'></i>Vincular IE Manualmente</a>
                                 <asp:Button ID="BtnVincularManualmente" runat="server" ClientIDMode="Static" OnClick="BtnVincularManualmente_Click" Style="display: none;" class="btn btn-primary" />
                                 <asp:HiddenField runat="server" ID="HdnCveIE" ClientIDMode="Static" Value="-1" />
+                                <asp:HiddenField runat="server" ID="HdnIdDocumento" ClientIDMode="Static" Value="-1" />
                             </div>
                         </div>
+
                         <br />
                         <table class="table table-hover table-striped ScrollAD mysmallbtn Widthall">
                             <tr style="border: 0px!important">
@@ -555,10 +558,11 @@
                         <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
                         
                         <asp:GridView ID="GVPDocumentosRelacionadosPagos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn"
-                            DataKeyNames="CveFactura,CveCompra,CveIE,Fecha,FechaPago,ImpPagado,CvePrePolizaDetalle"
+                            DataKeyNames="CveFactura,CveCompra,SerieFolio,CveIE,Fecha,FechaPago,ImpPagado,CvePrePolizaDetalle,IdDocumento,FolioPago,Manual"
                             data-sort="true" Width="100%" EmptyDataText="No se encontró registros con la información del complemento de pago"
                             ShowHeaderWhenEmpty="true" AutoGenerateColumns="False">
                             <Columns>
+
                                 <asp:HyperLinkField DataNavigateUrlFields ="CveCompra" DataNavigateUrlFormatString ="/Compras/Compras.aspx?CveCompra={0}" DataTextField ="SerieFolio" HeaderText="SerieFolio"  />
                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="center"  DataFormatString="{0:d}" />
                                 <asp:BoundField DataField="IdDocumento" HeaderText="UUID" ItemStyle-HorizontalAlign="Left" />                                
@@ -567,7 +571,7 @@
 
                                <%-- <asp:BoundField DataField="FolioPago" HeaderText="Folio Pago" ItemStyle-HorizontalAlign="Right"  />--%>
                                 <asp:HyperLinkField DataNavigateUrlFields ="CveIE" DataNavigateUrlFormatString ="/Bancos/IE.aspx?CveIE={0}" DataTextField ="FolioPago" HeaderText="Folio Pago"/>
-
+                                <asp:BoundField    ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10px" />
                                 <asp:BoundField DataField="FechaPago" HeaderText="Fecha Pago" ItemStyle-HorizontalAlign="center"  DataFormatString="{0:d}" />
                                 <asp:BoundField DataField="ImportePago" HeaderText="Importe Pago" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
                                 
@@ -765,9 +769,15 @@
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">
-        function VinculacionManual(v) {
+
-            $get("HdnCveIE").value = v;
+        function VinculacionManual(CveIE) {
+            $('#HdnCveIE').val(CveIE);
             $('#BtnVincularManualmente').click();
         }
+
+        //function VinculacionManual(v) {
+        //    $get("HdnCveIE").value = v;
+        //    $('#BtnVincularManualmente').click();
+        //}
     </script>
 </asp:Content>

Compras/eFacturas.aspx.vb

@@ -604,6 +604,70 @@ Partial Class Compras_eFacturas
         End Set
     End Property
 
+
+
+    Property DTGVPagosVinculacion As DataTable
+
+        Get
+            If ViewState("DTGVPagosVinculacion") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTGVPagosVinculacion"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTGVPagosVinculacion") = value
+        End Set
+    End Property
+
+
+
+    Private Property CurretUUIDPagoVincular As String
+
+        Get
+            If ViewState("CurretUUIDPagoVincular") Is Nothing Then
+                Return "-1"
+            Else
+                Return ViewState("CurretUUIDPagoVincular").ToString
+            End If
+
+        End Get
+        Set(value As String)
+            ViewState("CurretUUIDPagoVincular") = value
+        End Set
+
+    End Property
+
+
+    Private Property XMLNodosPagosModalCount As Integer
+        Get
+            If ViewState("XMLNodosPagosModalCount") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("XMLNodosPagosModalCount").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("XMLNodosPagosModalCount") = value
+        End Set
+    End Property
+
+
+    Private Property MontoPago As Decimal
+        Get
+            If ViewState("MontoPago") Is Nothing Then
+                Return 0
+            Else
+                Return (ViewState("MontoPago")).ToString.ToDecimal
+            End If
+        End Get
+
+        Set(value As Decimal)
+            ViewState("MontoPago") = value
+        End Set
+
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -2682,7 +2746,10 @@ Partial Class Compras_eFacturas
         Dim FechaPago As Date
         Dim PagosCantidad As Integer = 0
 
+        DTGVPagosVinculacion = New DataTable
+        MontoPago = 0D
 
+        XMLNodosPagosModalCount = 0
 
         Dim XMLDoc As New XmlDocument
         Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML"))
@@ -2759,13 +2826,14 @@ Partial Class Compras_eFacturas
             DTDocumentosRelacionados.Columns.Add("SerieFolioCompra")
             DTDocumentosRelacionados.Columns.Add("CvePrePolizaDetalle", GetType(Integer))
 
+            DTDocumentosRelacionados.Columns.Add("Tipo", GetType(String))
+            DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean))
 
 
             Dim nodePagosN As XmlNodeList
             nodePagosN = nodeComp.SelectNodes(String.Format("//{0}:Pagos", PrefijoPagos), namespaces)
 
 
-
             For Each NodosPagos As XmlNode In nodePagosN
                 For Each innernode As XmlNode In NodosPagos
 
@@ -2788,14 +2856,20 @@ Partial Class Compras_eFacturas
                         Nrow("ImpPagado") = ValorXML(node, "ImpPagado").ToDecimal
                         Nrow("Fecha") = FechaPago
 
+                        Nrow("Tipo") = "17"
+                        Nrow("Manual") = False
+
                         DTDocumentosRelacionados.Rows.Add(Nrow)
                         StrUUID.AppendFormat("'{0}',", ValorXML(node, "IdDocumento").Replace("'", ""))
+
+                        XMLNodosPagosModalCount = XMLNodosPagosModalCount + 1
+
                     Next
 
                 Next
             Next
 
-
+            MontoPago = Monto
 
             Dim ObjCompraFolios As New ClsCompras
             If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace($"{PrefijoPagos}:", ""), UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
@@ -2820,19 +2894,13 @@ Partial Class Compras_eFacturas
 
 
                                 If drow("CveIE").ToString.ToEntero > 0 Then
-
                                     dRow2("CveIE") = drow("CveIE").ToString.ToEntero
                                     dRow2("ImportePago") = drow("Importe").ToString.ToDecimal
-
-
                                 End If
 
                                 dRow2("FolioPago") = drow("FolioIE")
                                 dRow2("FechaPago") = drow("FechaDocumento")
 
-
-
-
                             End If
                         Next
                     Next
@@ -2843,6 +2911,7 @@ Partial Class Compras_eFacturas
             GVPDocumentosRelacionadosPagos.DataSource = DTDocumentosRelacionados
             GVPDocumentosRelacionadosPagos.DataBind()
 
+            DTGVPagosVinculacion = DTDocumentosRelacionados
 
 
             If DTDocumentosRelacionados.MAX("CveCompra").ToString.ToEntero > 0 Then
@@ -2873,6 +2942,7 @@ Partial Class Compras_eFacturas
             DT_ComprasSinIE.Columns.Add("SerieFolioCompra")
 
             For Each dRow As DataRow In DTDocumentosRelacionados.Rows
+
                 Dim nRow As DataRow = DT_ComprasSinIE.NewRow
                 nRow("CveCompra") = dRow("CveCompra").ToString.ToEntero
                 ' nRow("CveFactura") = dRow("CveFactura").ToString.ToEntero
@@ -2881,7 +2951,6 @@ Partial Class Compras_eFacturas
 
                 DT_ComprasSinIE.Rows.Add(nRow)
 
-
             Next
 
 
@@ -3057,27 +3126,40 @@ Partial Class Compras_eFacturas
 
         For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 
-            If HdnCveIE.Value.ToEntero > 0 Then
-                If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.FCLabel("LblCveIE").Text.ToEntero > 0 Then
 
-                    If Not ObjCompra.AddComplementoPago(Gv.FCLabel("LblCveIE").Text.ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero, CveFacturaPago) > 0 Then
-                        TieneError = True
-                        Exit For
-                    End If
 
+            If Gv.DataKey("CveCompra").ToEntero > 0 Then
+
+                If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
+                    TieneError = True
+                    Exit For
                 End If
-            Else
-                If Gv.DataKey("CveCompra").ToEntero > 0 Then
 
-                    If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
-                        TieneError = True
-                        Exit For
-                    End If
-
-                End If
             End If
+
+            ' If HdnCveIE.Value.ToEntero > 0 Then
+            '    If Gv.DataKey("CveCompra").ToEntero > 0 And Gv.FCLabel("LblCveIE").Text.ToEntero > 0 Then
+
+            '        If Not ObjCompra.AddComplementoPago(Gv.FCLabel("LblCveIE").Text.ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero, CveFacturaPago) > 0 Then
+            '            TieneError = True
+            '            Exit For
+            '        End If
+
+            '    End If
+            'Else
+            '    If Gv.DataKey("CveCompra").ToEntero > 0 Then
+
+            '        If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
+            '            TieneError = True
+            '            Exit For
+            '        End If
+
+            '    End If
+            'End If
         Next
 
+
+
         If Not TieneError AndAlso Not ObjCompra.AddVincularPago(CveFacturaPago) Then
             TieneError = True
         End If
@@ -3096,13 +3178,21 @@ Partial Class Compras_eFacturas
             End If
 
 
-            If HdnCveIE.Value.ToEntero > 0 Then
+            For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 
-                For Each dRow As DataRow In DT_ComprasSinIE.Rows
+                If Boolean.Parse(Gv.DataKey("Manual").ToString) Then
-                    objEventos.AddEventoBitacora($"Complemento { dRow("SerieFolioPago").ToString }  vinculado manualmente  a compra {dRow("SerieFolioCompra").ToString}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=dRow("CveCompra").ToString.ToEntero)
+                    objEventos.AddEventoBitacora($"Complemento { LblSerieFolioPago.Text}  vinculado manualmente  a compra {Gv.DataKey("SerieFolio").ToString} y Pago { Gv.DataKey("FolioPago").ToString }", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=Gv.DataKey("CveCompra").ToString.ToEntero)
-                Next
+                End If
+            Next
 
-            End If
+
+            'If HdnCveIE.Value.ToEntero > 0 Then
+
+            '    For Each dRow As DataRow In DT_ComprasSinIE.Rows
+            '        objEventos.AddEventoBitacora($"Complemento { dRow("SerieFolioPago").ToString }  vinculado manualmente  a compra {dRow("SerieFolioCompra").ToString}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=dRow("CveCompra").ToString.ToEntero)
+            '    Next
+
+            'End If
 
 
 
@@ -3135,82 +3225,244 @@ Partial Class Compras_eFacturas
 
 
         If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then
+            'VincularComplementoManualGV(HdnCveIE.Value.ToEntero)
 
-            Dim ImportePago As Double = 0
+            For Each dRow As DataRow In DTGVPagosVinculacion.Rows
-            Dim ImporteIES As Double = 0
-            Dim SerieFolioIE As String = ""
-            Dim ObjCompras As New ClsCompras
-            Dim ErrorVinculacion = True
-
-            If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
-
-                For Each Drow As DataRow In ObjCompras.DtResultados.Rows
-                    For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
-
-                        If GvRow.RowType = DataControlRowType.DataRow Then
-
-                            If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then
-
-                                GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString
-                                GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString
-
-                            End If
-
-                        End If
-
-                    Next
-                Next
 
 
-                For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+                If HdnIdDocumento.Value = dRow("IdDocumento").ToString Then  'And dRow("CveIE").ToString.ToEntero <= 0
-                    If GvRow.RowType = DataControlRowType.DataRow Then
 
-                        If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
+                    dRow("CveIE") = HdnCveIE.Value.ToEntero
-                            ErrorVinculacion = False
 
-                        Else
+                    Dim ObjIE As New ClsBancos()
 
-                            If ObjCompras.DtResultados.Rows.Count > 0 Then
+                    'If ObjIE.GetBancosIE(HdnCveIE.Value.ToEntero, UsuarioActual.CveEmpresa) Then
-                                GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
+                    '    Try
-                                GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
+                    '        dRow("FolioPago") = ObjIE.Folio
-                            Else
+                    '        dRow("ImportePago") = dRow("ImpPagado")
-                                ErrorVinculacion = True
+                    '        dRow("FechaPago") = ObjIE.FechaDocumento
-                                Exit For
+                    '        dRow("Tipo") = "E"
-                            End If
+                    '        ' dRow("Diferencia") = 0D
+                    '        dRow("Manual") = True
+
+                    '    Catch ex As Exception
+
+                    '    End Try
+
+                    'End If
+
+                    Dim ObjCompras As New ClsCompras
+
+                    If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
+
+                        Try
+                            dRow("FolioPago") = ObjCompras.DtResultados(0)("FolioIE")
+                            dRow("ImportePago") = dRow("ImpPagado")
+                            dRow("FechaPago") = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
+                            dRow("CvePrePolizaDetalle") = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero
+                            dRow("Tipo") = "E"
+                            ' dRow("Diferencia") = 0D
+                            dRow("Manual") = True
+                        Catch ex As Exception
+
+                        End Try
 
-                        End If
                     End If
+                    ObjCompras.Dispose()
 
-                Next
+                    ObjIE.Dispose()
+
+                End If
+            Next
+        End If
+
+        DTGVPagosVinculacion.AcceptChanges()
+
+        HdnIdDocumento.Value = "-1"
+
+        GVPDocumentosRelacionadosPagos.DataSource = DTGVPagosVinculacion
+        GVPDocumentosRelacionadosPagos.DataBind()
+
+        UpVincularPago.Update()
+        CurretUUIDPagoVincular = ""
+
+        ValidaTablaDeVinculacion()
+
+        Exit Sub
+
+        '**********************************************************************************************************************
 
 
+
+
+
+        'If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then
+
+        '    Dim ImportePago As Double = 0
+        '    Dim ImporteIES As Double = 0
+        '    Dim SerieFolioIE As String = ""
+        '    Dim ObjCompras As New ClsCompras
+        '    Dim ErrorVinculacion = True
+
+        '    If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
+
+        '        For Each Drow As DataRow In ObjCompras.DtResultados.Rows
+        '            For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+
+        '                If GvRow.RowType = DataControlRowType.DataRow Then
+
+        '                    If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then
+
+        '                        GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString
+        '                        GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString
+
+        '                    End If
+
+        '                End If
+
+        '            Next
+        '        Next
+
+
+        '        For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
+        '            If GvRow.RowType = DataControlRowType.DataRow Then
+
+        '                If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
+        '                    ErrorVinculacion = False
+
+        '                Else
+
+        '                    If ObjCompras.DtResultados.Rows.Count > 0 Then
+        '                        GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
+        '                        GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
+        '                    Else
+        '                        ErrorVinculacion = True
+        '                        Exit For
+        '                    End If
+
+        '                End If
+        '            End If
+
+        '        Next
+
+
+        '    Else
+        '        ErrorVinculacion = True
+        '    End If
+
+        '    If Not ErrorVinculacion Then
+        '        ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+        '        ObjCompras.Dispose()
+
+        '        BtnVincularPago.Visible = True
+
+        '        LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
+        '        LblImportePago.Text = ImportePago.FormatoNumero
+        '        'LblSerieFolioIE.Text = SerieFolioIE
+        '        LblImporteIE.Text = ImporteIES.FormatoNumero
+
+        '        GvVincularPago.DataBind()
+        '        UpVincularPago.Update()
+        '        ObjCompras.Dispose()
+
+        '    Else
+        '        Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia)
+        '    End If
+
+
+        'End If
+
+    End Sub
+
+
+
+
+
+
+    Private Function ValidaTablaDeVinculacion() As Boolean
+
+        Dim ResPuesta As Boolean = False
+        Dim Vinculados As Integer = 0
+        Dim TodoVinculado As Boolean = False
+
+        Dim Diferencia As Boolean = If(Math.Abs(DTGVPagosVinculacion.SUM("ImpPagado") - DTGVPagosVinculacion.SUM("ImportePago")).ToDecimal > 0.1D, True, False)
+        Dim VinculacionManual As Boolean = If(DTGVPagosVinculacion.FiltraParametros("Manual = 1").Rows.Count > 0, True, False)
+
+
+
+
+        Dim PermisoVinculacionDiferencia As Boolean = UsuarioActual.TienePermisoProceso(286)
+        Dim PermisoVinculacionManual As Boolean = UsuarioActual.TienePermisoProceso(286)
+
+        Dim MontoSuma As Decimal = DTGVPagosVinculacion.SUM("ImportePago").ToString.ToDecimal
+
+        For Each dRow As DataRow In DTGVPagosVinculacion.Rows
+            If dRow("CveIE").ToString.ToEntero > 0 Then
+                Vinculados = Vinculados + 1
+            End If
+        Next
+
+        If XMLNodosPagosModalCount = Vinculados Then
+            TodoVinculado = True
+        End If
+
+
+        If TodoVinculado Then
+
+            If Diferencia Then
+                If PermisoVinculacionDiferencia Then
+                    If VinculacionManual Then
+                        If PermisoVinculacionManual Then
+                            ResPuesta = True
+                        Else
+                            ResPuesta = False
+                        End If
+                    Else
+                        ResPuesta = True
+                    End If
+                Else
+                    ResPuesta = False
+                End If
             Else
-                ErrorVinculacion = True
+
+                If VinculacionManual Then
+                    If PermisoVinculacionManual Then
+                        ResPuesta = True
+                    Else
+                        ResPuesta = False
+                    End If
+                Else
+                    ResPuesta = True
+                End If
+
             End If
 
-            If Not ErrorVinculacion Then
+        Else
-                ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+            ResPuesta = False
-                ObjCompras.Dispose()
+        End If
 
-                BtnVincularPago.Visible = True
 
-                LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
+        If Not MontoSuma = MontoPago And ResPuesta Then
-                LblImportePago.Text = ImportePago.FormatoNumero
-                'LblSerieFolioIE.Text = SerieFolioIE
-                LblImporteIE.Text = ImporteIES.FormatoNumero
 
-                GvVincularPago.DataBind()
+            If Not PermisoVinculacionDiferencia Then
-                UpVincularPago.Update()
+                ResPuesta = False
-                ObjCompras.Dispose()
-
-            Else
-                Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia)
             End If
 
-
         End If
 
-    End Sub
+
+        If ResPuesta Then
+            BtnVincularPago.Visible = True
+        Else
+            BtnVincularPago.Visible = False
+        End If
+
+        UpVincularPago.Update()
+
+        Return ResPuesta
+
+    End Function
+
 
     Private Sub GVPDocumentosRelacionadosPagos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GVPDocumentosRelacionadosPagos.RowCreated
 
@@ -3220,7 +3472,7 @@ Partial Class Compras_eFacturas
             Dim HeaderCell = New TableCell
 
             HeaderCell.Text = "Documentos Relacionados"
-            HeaderCell.ColumnSpan = 8
+            HeaderCell.ColumnSpan = 9
             HeaderCell.Attributes.Add("style", "border-top: 1px solid #ddd; vertical-align: top; background-color: #DDD; color: #333333;font-family: 'Open Sans', sans-serif;font-size: 12px; text-align:center!important;    font-weight: bold;")
             HeaderGridRow.Cells.Add(HeaderCell)
             GVPDocumentosRelacionadosPagos.Controls(0).Controls.AddAt(0, HeaderGridRow)
@@ -3240,12 +3492,24 @@ Partial Class Compras_eFacturas
                     e.Row.ToolTip = "Compra registrada"
                     e.Row.Cells(4).ForeColor = Drawing.Color.Green
 
+
+                    e.Row.Cells(6).Controls.Clear()
+                    Dim LiteralVincular As New Literal
+
+                    If UsuarioActual.TienePermisoProceso(286) Then ' permiso vinculación manual
+                        LiteralVincular.Text = $"<a  title='Vinculación manual' onclick="" { $"$('#HdnIdDocumento').val('{ e.Row.DataKey("IdDocumento") }');AbrirVentana('/Bancos/PopUpBuscarIE.aspx?OPCION=Complementos',800,600,'N');" }"" ><i class='fa fa-external-link' aria-hidden='true'></i></a>"
+                    Else
+                        LiteralVincular.Text = "-"
+                    End If
+
+
+                    e.Row.Cells(6).Controls.Add(LiteralVincular)
+
                 Else
                     e.Row.Cells(4).Text = "<i class='fa fa-check-circle' aria-hidden='true'></i>"
                     e.Row.ToolTip = "Factura recibida sin registrar"
                 End If
 
-
             Else
                 e.Row.Cells(4).Text = "<i class='fa red fa-ban' aria-hidden='true'></i>"
                 e.Row.ToolTip = "No se encontro el Folio Fiscal en el sistema"

Inventarios/EntradasSalidas.aspx.vb

@@ -543,8 +543,14 @@ Partial Class Inventarios_EntradasSalidas
         'Llenar el dropdownlist de almacén
         If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then
             DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            'ElseIf UsuarioActual.CveUsuario.Contiene(1) Then
+            '    DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11) or CveAlmacen = 651e") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+
 
         End If
+
+
+
         DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)")
 
@@ -2060,7 +2066,11 @@ Partial Class Inventarios_EntradasSalidas
         If DdlAlmacen.SelectedValue = "-1" Then
             filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString
         Else
+
+
+
             filtro = String.Format("{0} AND CveTipoAlmacen = {1}", IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80, 4, 7, 11, 12, 135), "CveConcepto NOT IN (4,5,10)", filtro).ToString, CveTipoAlmacen)
+
         End If
 
         DdlConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros(filtro)
@@ -2139,6 +2149,7 @@ Partial Class Inventarios_EntradasSalidas
         ''condicion de limpieza si es el usuario 1490, se dejan sino 
         If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
             If Not UsuarioActual.CveUsuario.Contiene(1490, 2185) Then 'luz del mar(1490), y celia(2185)
+
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("1"))
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("2"))
                 DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("3"))
@@ -2153,12 +2164,21 @@ Partial Class Inventarios_EntradasSalidas
 
             End If
 
+
+
         End If
 
+
+        If UsuarioActual.CveUsuario.Contiene(2185, 100) And DdlAlmacen.SelectedValue.ToEntero.Contiene(651, 658) Then
+            DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
+        End If
+
+
+
         DdlConcepto.SelectedValue = "-1"
         ddlConcepto_SelectedIndexChanged(DdlConcepto, EventArgs.Empty)
 
-
+        UpGenerales.Update()
 
     End Sub
 

OC/CatEstatus.aspx.vb

@@ -594,7 +594,7 @@ Partial Class OC_CatEstatus
 
                     If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then
                         'Eliminar el registro existente
-                        If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero) Then
+                        If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero, UsuarioActual.CveUsuario) Then
                             HuboErrores = True
                             Exit For
                         End If
@@ -660,7 +660,7 @@ Partial Class OC_CatEstatus
 
                     If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then
                         'Eliminar el registro existente
-                        If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero) Then
+                        If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero, UsuarioActual.CveUsuario) Then
                             HuboErrores = True
                             Exit For
                         End If

OI/Proyecto.aspx

@@ -146,6 +146,8 @@
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
                                             <asp:Label runat="server" AssociatedControlID="DdlPara">Para:</asp:Label>
+                                            <asp:RequiredFieldValidator ID="RFVDdlPara" runat="server"  ControlToValidate="DdlPara" Display="None" ErrorMessage="El campo <b>''Para''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>                                                    
+                                            <ajax:ValidatorCalloutExtender ID="VCERFVDdlPara" runat="server" TargetControlID="RFVDdlPara" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
                                         </div>
                                         <div class="row">
                                             <div class="col-sm-6">
@@ -187,6 +189,8 @@
                                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                     <asp:Label runat="server" AssociatedControlID="DdlTema">Tema:</asp:Label>
+                                                     <asp:RequiredFieldValidator ID="RFVDdlTema" runat="server"  ControlToValidate="DdlTema" Display="None" ErrorMessage="El campo <b>''Tema''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>                                                    
+                                                    <ajax:ValidatorCalloutExtender ID="VCERFVDdlTema" runat="server" TargetControlID="RFVDdlTema" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                                             </div>
                                         </div>

OI/Proyecto.aspx.cs

@@ -36,6 +36,7 @@ public partial class OI_Proyecto : ClsPaginas
 
             DdlPara.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC"); ;
             DdlPara.DataBind();
+            DdlPara.Items.Insert(0, new ListItem("Seleccione", "-1"));
 
             DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
             DdlTema.DataBind();

OI/RepProyectos.aspx

@@ -89,6 +89,15 @@
                             <%--<asp:Label runat="server" Text='<%# Eval("Avance","%{0:##0.##}")%>'> </asp:Label>--%>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+
+                    <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80" ItemStyle-HorizontalAlign="Center">
+                        <ItemTemplate>
+                            <asp:LinkButton runat="server" ID="LnkEliminar" OnClick="LnkEliminar_Click"  CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar,  se eliminara el proyecto, sub proyectos y tareas relacionadas" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+
                 </Columns>
             </asp:GridView>
             <div id='<%= iddivAgregarProyecto %>' class="modal ADS fade" role="dialog">
@@ -129,6 +138,11 @@
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
                                             <asp:Label runat="server" AssociatedControlID="DdlPara">Para:</asp:Label>
+
+                                            <asp:RequiredFieldValidator ID="RFVDdlPara" runat="server"  ControlToValidate="DdlPara" Display="None" ErrorMessage="El campo <b>''Para''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>                                                    
+                                            <ajax:ValidatorCalloutExtender ID="VCERFVDdlPara" runat="server" TargetControlID="RFVDdlPara" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
+
+
                                         </div>
                                         <div class="row">
                                             <div class="col-sm-6">
@@ -166,10 +180,17 @@
                                             </div>
                                             <div class="col-sm-6">
                                                 <div class="form-group form-md-line-input">
+                                                    
                                                     <asp:DropDownList ID="DdlTema" runat="server" CssClass="form-control select2me input-sm" DataValueField="CveRevision" DataTextField="Revision" Width="100%">
                                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                     <asp:Label runat="server" AssociatedControlID="DdlTema">Tema:</asp:Label>
+
+
+                                                    <asp:RequiredFieldValidator ID="RFVDdlTema" runat="server"  ControlToValidate="DdlTema" Display="None" ErrorMessage="El campo <b>''Tema''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>                                                    
+                                                    <ajax:ValidatorCalloutExtender ID="VCERFVDdlTema" runat="server" TargetControlID="RFVDdlTema" HighlightCssClass="vco" Width="300px"></ajax:ValidatorCalloutExtender>
+
+
                                                 </div>
                                             </div>
                                         </div>
@@ -177,7 +198,7 @@
                                 </asp:Panel>
                             </div>
                             <div class="modal-footer">
-                                <asp:LinkButton ID="btnguardarProyecto" OnClick="btnguardarProyecto_Click" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
+                                <asp:LinkButton ID="btnguardarProyecto" OnClick="btnguardarProyecto_Click" CssClass="btn btn-primary" runat="server"  ValidationGroup="GrpTarea" >Guardar</asp:LinkButton>
                                 <button data-dismiss="modal" class="btn btn-danger">Cancelar</button>
                             </div>
                         </ContentTemplate>

OI/RepProyectos.aspx.cs

@@ -19,6 +19,8 @@ public partial class OI_RepProyectos : ClsPaginas
             DdlPara.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC"); ;
             DdlPara.DataBind();
 
+            DdlPara.Items.Insert(0, new ListItem("Seleccione uno", "-1"));
+
             DdlTema.DataSource = get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
             DdlTema.DataBind();
             DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
@@ -177,4 +179,21 @@ public partial class OI_RepProyectos : ClsPaginas
         }
 
     }
+
+
+    protected void LnkEliminar_Click(object sender, EventArgs e)
+    {
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+
+        int CveEventoProyectoEliminar = GvRow.DataKey("CveEvento").ToEntero();
+
+        ClsOIEventos ObjEventos = new ClsOIEventos();
+
+        if (ObjEventos.RemoveEventosProyectos(CveEventoProyectoEliminar, UsuarioActual.CveEmpresa))
+        {
+            cargar();
+            Alert("Proyecto eliminado correctamente.");
+        }
+    }
+
 }