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

App_Code/ClsCRM.vb

@@ -667,7 +667,7 @@ Public Class ClsCRM
                                     Optional CveVendedor As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional NombreAcercamiento As String = "-1",
                                     Optional CveMedioCaptacion As Integer = -1, Optional CveRechazoMotivo As Integer = -1, Optional CveProbabilidad As Integer = -1,
                                     Optional FechaApertura As String = "-1", Optional FechaCierre As String = "-1", Optional TopSelect As Integer = 10000, Optional CvePS As Integer = -1,
-                                    Optional CveGiroClasificacion As Integer = -1) As Boolean
+                                    Optional CveGiroClasificacion As Integer = -1, Optional EnPausa As Integer = -1, Optional CveEtapaProceso As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_CRM_AcercamientoGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -694,6 +694,12 @@ Public Class ClsCRM
 
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
+
+            .Add("@EnPausa", SqlDbType.Int).Value = EnPausa
+            .Add("@CveEtapaProceso", SqlDbType.Int).Value = CveEtapaProceso
+            '.Add("@CveMedioCaptacion", SqlDbType.Int).Value = CveMedioCaptacion
+            '.Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
+
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1030,7 +1036,8 @@ Public Class ClsCRM
 
 #Region "REPORTES"
 
-    Public Function RepAcercamientosEtapas(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1) As Boolean
+    Public Function RepAcercamientosEtapas(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32,
+                                           cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1, Optional EnPausa As Integer = -1, Optional CveEtapaProceso As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_CRM_RepAcercamientosEtapas", CommandType.StoredProcedure)
 
@@ -1046,6 +1053,13 @@ Public Class ClsCRM
             .Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = cveProbabilidadAcercamiento
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
+
+            .Add("@EnPausa", SqlDbType.Int).Value = EnPausa
+            .Add("@CveEtapaProcesoFiltro", SqlDbType.Int).Value = CveEtapaProceso  '@CveEtapaProcesoFiltro
+            '.Add("@CveMedioCaptacion", SqlDbType.Int).Value = cveMedioCaptacion
+            '.Add("@CveTipoProceso", SqlDbType.Int).Value = cveTipoProceso
+
+
         End With
         Try
             SqlAdapter.Fill(DSet)
@@ -1056,7 +1070,8 @@ Public Class ClsCRM
         Return retorno
     End Function
 
-    Public Function RepAcercamientosRechazos(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32, cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1) As Boolean
+    Public Function RepAcercamientosRechazos(cveEmpresa As Int32, cveTipoProceso As Int32, idgrupo1 As Int32, idgrupo2 As Int32, fechaIni As String, fechaFin As String, cveVendedor As Int32, cveMedioCaptacion As Int32,
+                                             cveProbabilidadAcercamiento As Int32, Optional CvePS As Integer = -1, Optional CveGiroClasificacion As Integer = -1, Optional EnPausa As Integer = -1, Optional CveEtapaProceso As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_CRM_RepAcercamientosRechazos", CommandType.StoredProcedure)
 
@@ -1072,6 +1087,10 @@ Public Class ClsCRM
             .Add("@CveProbabilidadAcercamiento", SqlDbType.Int).Value = cveProbabilidadAcercamiento
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
+
+            .Add("@EnPausa", SqlDbType.Int).Value = EnPausa
+            .Add("@CveEtapaProcesoFiltro", SqlDbType.Int).Value = CveEtapaProceso
+
         End With
         Try
             SqlAdapter.Fill(DSet)

App_Code/ClsMovimientos.vb

@@ -690,7 +690,7 @@ Public Class ClsMovimientos
                                 Optional FechaVI As String = "-1", Optional FechaVF As String = "-1",
                                 Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
                                 Optional CveTipoProveedor As Integer = -1, Optional Comprobaciones As Integer = -1,
-                                Optional TipoDocto As String = "-1", Optional TipoAgrupacion As Integer = -1) As Boolean
+                                Optional TipoDocto As String = "-1", Optional TipoAgrupacion As Integer = -1, Optional CveProyecto As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         If FechaCorte = Nothing Then FechaCorte = Now
@@ -719,7 +719,8 @@ Public Class ClsMovimientos
             .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
             .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
-            .Add("@TipoAgrupacion", SqlDbType.Int).Value = TipoAgrupacion
+            .Add("@TipoAgrupacion", SqlDbType.Int).Value = TipoAgrupacion
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
 
         End With
 
@@ -1295,7 +1296,7 @@ Public Class ClsMovimientos
                                   CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer,
                                   TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1",
                                   Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1,
-                                  Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1, Optional TipoDocto As String = "-1") As Boolean
+                                  Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         If FechaCorte = Nothing Then FechaCorte = Now
@@ -1330,6 +1331,7 @@ Public Class ClsMovimientos
             .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones
             .Add("@AplicaNC", SqlDbType.Int).Value = AplicaNC
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
         End With
 
         Try

App_Code/ClsOIEventos.vb

@@ -1189,12 +1189,13 @@ Public Class ClsOIEventos
 
 
 #Region "CRUD_cheklist"
-    Public Function Getcheklist(cveEvento As Int32) As Boolean
+    Public Function Getcheklist(cveEvento As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_OI_cheklistGet", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
 
             .Add("@cveEvento", SqlDbType.Int).Value = cveEvento
+            .Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1204,13 +1205,14 @@ Public Class ClsOIEventos
         End Try
         Return retorno
     End Function
-    Public Function Addcheklist(cveEvento As Int32, eventoComentario As String, cveUsuario As Int32) As Boolean
+    Public Function Addcheklist(cveEvento As Int32, eventoComentario As String, cveUsuario As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_OI_cheklistAdd", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
             .Add("@cveEvento", SqlDbType.Int).Value = cveEvento
             .Add("@eventoComentario", SqlDbType.VarChar).Value = eventoComentario
             .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
+            .Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1220,7 +1222,7 @@ Public Class ClsOIEventos
         End Try
         Return retorno
     End Function
-    Public Function Upcheklist(cveEventoCheckList As Int32, cveEvento As Int32, eventoComentario As String, estatus As Boolean, cveUsuario As Int32, CveEmpresa As Int32) As Boolean
+    Public Function Upcheklist(cveEventoCheckList As Int32, cveEvento As Int32, eventoComentario As String, estatus As Boolean, cveUsuario As Int32, CveEmpresa As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_OI_cheklistUp", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -1230,6 +1232,7 @@ Public Class ClsOIEventos
             .Add("@estatus", SqlDbType.Bit).Value = estatus
             .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
         End With
 
         Dim separador As String = ""
@@ -1272,13 +1275,14 @@ Public Class ClsOIEventos
         End If
         Return retorno
     End Function
-    Public Function Removecheklist(cveEventoCheckList As Int32, cveEvento As Int32, cveUsuario As Int32) As Boolean
+    Public Function Removecheklist(cveEventoCheckList As Int32, cveEvento As Int32, cveUsuario As Int32, Optional CveAcercamiento As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_OI_cheklistRemove", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
             .Add("@cveEventoCheckList", SqlDbType.Int).Value = cveEventoCheckList
             .Add("@cveEvento", SqlDbType.Int).Value = cveEvento
             .Add("@cveUsuario", SqlDbType.Int).Value = cveUsuario
+            .Add("@CveAcercamiento", SqlDbType.Int).Value = CveAcercamiento
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsPaginas.vb

@@ -6032,16 +6032,22 @@ Public Class ClsPaginas
 
             Dim ds As New DataSet
             For Each rpds As ReportDataSource In DataSource
-                If rpds.Value.GetType().ToString() = "System.Data.DataTable" Then
-                    Dim dt As DataTable = DirectCast(rpds.Value, Data.DataTable)
-                    dt = dt.Copy()
-                    dt.TableName = rpds.Name
-                    ds.Tables.Add(dt)
+                If rpds.Value IsNot Nothing Then
+                    If rpds.Value.GetType().ToString() = "System.Data.DataTable" Then
+                        Dim dt As DataTable = DirectCast(rpds.Value, Data.DataTable)
+                        dt = dt.Copy()
+                        dt.TableName = rpds.Name
+                        ds.Tables.Add(dt)
+                    Else
+                        Dim ojext As New WSRDLC2.ReportObjects
+                        ojext.Name = rpds.Name
+                        ojext.Value = rpds.Value
+                        reportobjects.Add(ojext)
+                    End If
                 Else
-                    Dim ojext As New WSRDLC2.ReportObjects
-                    ojext.Name = rpds.Name
-                    ojext.Value = rpds.Value
-                    reportobjects.Add(ojext)
+                    Dim dt = New DataTable()
+                    dt.TableName = If(String.IsNullOrEmpty(rpds.Name), "DataTable1", rpds.Name)
+                    ds.Tables.Add(dt)
                 End If
             Next
 
@@ -7145,7 +7151,10 @@ Public Class ClsPaginas
 
 
                                 nRowCECabecera("Version") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("Version").InnerText
-                                nRowCECabecera("MotivoTraslado") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("MotivoTraslado").InnerText
+                                If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("MotivoTraslado") IsNot Nothing Then
+                                    nRowCECabecera("MotivoTraslado") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("MotivoTraslado").InnerText
+                                End If
+
                                 nRowCECabecera("TipoOperacion") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("TipoOperacion").InnerText
                                 nRowCECabecera("ClaveDePedimento") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("ClaveDePedimento").InnerText
                                 nRowCECabecera("CertificadoOrigen") = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("CertificadoOrigen").InnerText
@@ -7180,8 +7189,10 @@ Public Class ClsPaginas
 
                                 End Try
 
+                                If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("MotivoTraslado") IsNot Nothing Then
+                                    CEMotivoTraslado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("MotivoTraslado").InnerText
+                                End If
 
-                                CEMotivoTraslado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("MotivoTraslado").InnerText
                                 CETipoCambio = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("TipoCambioUSD").InnerText
 
 
@@ -7377,7 +7388,7 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("CEIncoterm", RCEIncoterm))
                 params.Add(New ReportParameter("CEId", CEId))
                 params.Add(New ReportParameter("CEMotivoTraslado", RCEMotivoTraslado))
-                params.Add(New ReportParameter("CETipoCamvio", CETipoCambio))
+                params.Add(New ReportParameter("CETipoCambio", CETipoCambio))
             End If
 
 

App_Code/LogicNominas.vb

@@ -19,7 +19,7 @@ Public Class LogicNominas
 
             sw.Start()
         End If
-        Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False) 'CvePersonal, CvePeriodo,
+        Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, CvePAC) 'CvePersonal, CvePeriodo,
         If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
             If Not cfdi.Timbrado Then
                 Dim ObjTimbrado As New Timbrado
@@ -81,7 +81,7 @@ Public Class LogicNominas
         Return Retorno
     End Function
     Dim hasfiniquito As Boolean
-    Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean) As CFDITimbre
+    Public Function PreTimbrar(CveNomina As Integer, UsuarioActual As Usuario, TimbreIndemnizacion As Boolean, Optional CvePAC As Integer = 4) As CFDITimbre
         Dim continuar As Boolean = True
         hasfiniquito = False
         Dim CvePersonal As Integer = -1
@@ -439,7 +439,7 @@ Public Class LogicNominas
         cfdi.Comprobante.TipoComprobante = "N"
         cfdi.Comprobante.TipoDocto = "Egs"
         cfdi.Comprobante.MetodoPago = "PUE"
-        cfdi.Comprobante.CondicionesdePago = "" '"CONTADO"
+        cfdi.Comprobante.CondicionesdePago = If(CvePAC < 4, "CONTADO", "") '"" '""
         cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99")
         cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL
         cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta

App_Code/modExtensiones.vb

@@ -59,14 +59,14 @@ Namespace Extensiones
 #End Region
 
 
-        Public Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
+        Public Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean, Optional curRow As Integer = 0) As DataTable
             GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
             Dim excelFile As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(flatFilePath)
 
             Dim unnamed As Integer = 0
             Dim cols As Integer
             Dim columns As String()
-            Dim curRow As Integer = 0
+            'Dim curRow As Integer = 0
             Dim curCol As Integer = 0
             Dim dataTable As DataTable = New DataTable()
             Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0)
@@ -75,8 +75,8 @@ Namespace Extensiones
 
                 If firstRowHasHeaders Then
 
-                    If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
-                        dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
+                    If worksheet.Rows(curRow).Cells(cols).Value IsNot Nothing Then
+                        dataTable.Columns.Add(worksheet.Rows(curRow).Cells(cols).Value.ToString())
                     Else
                         dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
                     End If

Bancos/IE.aspx.vb

@@ -5462,7 +5462,7 @@ Partial Class Bancos_IE
 
                 Else
 
-                    Alert("El documento no ha sido eliminado.", TipoMensaje.MsgAdvertencia)
+                    Alert($"El documento no ha sido eliminado. {If(UsuarioActual.CveRol = 1, MsgEliminar, "")}", TipoMensaje.MsgAdvertencia)
 
                     If ObjAC IsNot Nothing Then ObjAC.RollBack()
 

CRM/Acercamiento.aspx

@@ -349,6 +349,7 @@
     <asp:UpdatePanel ID="UPAcercamiento" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <ajax:TabContainer ID="TabsAcercamiento" runat="server" ActiveTabIndex="0" Width="100%">
+
                 <ajax:TabPanel ID="TabDatosAcercmaiento" runat="server" HeaderText="Información de la Empresa">
                     <ContentTemplate>
                         <div class="row">
@@ -410,6 +411,21 @@
                                             <label style="height: 83px;" for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción del Proyecto:</label>
                                             <i></i>
                                         </div>
+
+                                         <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlEmpresaCRM" DataTextField="Empresa" DataValueField="CveEmpresaCRM" CausesValidation="true" OnSelectedIndexChanged="DdlEmpresaCRM_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                            <label for="<%= DdlEmpresaCRM.ClientID.ToString()%>">Empresa:</label>
+                                            <asp:RequiredFieldValidator ID="RFVEmpresaCRM" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEmpresaCRM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Empresa''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        </div>
+
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlContactoPrincipal" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveContacto" Class="form-control input-sm select2me">
+                                                <asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
+                                            </asp:DropDownList>
+                                            <label for="<%= DdlContactoPrincipal.ClientID.ToString()%>">Contacto Principal:</label>
+                                        </div>
+
+
                                         <div id="DivPS" runat="server" class="form-group form-md-line-input input-iconright">
                                             <label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label>
                                             <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
@@ -482,6 +498,7 @@
                             </div>
 
                             <div class="col-md-4">
+
                                 <div class="portlet light xspadding bordered" style="height: 228px">
                                     <div class="portlet-title">
                                         <div class="caption font-green">
@@ -494,19 +511,7 @@
                                         </div>
                                     </div>
 
-                                    <div id="DivBodyProceso" class="portlet-body form">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlEmpresaCRM" DataTextField="Empresa" DataValueField="CveEmpresaCRM" CausesValidation="true" OnSelectedIndexChanged="DdlEmpresaCRM_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                            <label for="<%= DdlEmpresaCRM.ClientID.ToString()%>">Empresa:</label>
-                                            <asp:RequiredFieldValidator ID="RFVEmpresaCRM" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEmpresaCRM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Empresa''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                        </div>
-
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlContactoPrincipal" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveContacto" Class="form-control input-sm select2me">
-                                                <asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
-                                            </asp:DropDownList>
-                                            <label for="<%= DdlContactoPrincipal.ClientID.ToString()%>">Contacto Principal:</label>
-                                        </div>
+                                    <div id="DivBodyProceso" class="portlet-body form">                                       
 
                                         <%-- <div class="form-group form-md-line-input input-iconright">
                                             <asp:DropDownList ID="DdlTipoProceso" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CausesValidation="true" OnSelectedIndexChanged="DdlTipoProceso_SelectedIndexChanged" AutoPostBack="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
@@ -521,8 +526,82 @@
                                             <label for="<%= DdlEtapaProceso.ClientID.ToString()%>">Etapa Actual:</label>
                                             <asp:RequiredFieldValidator ID="RFVEtapaActual" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlEtapaProceso" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Etapa Actual'</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                         </div>
+
+                                        <div class="row">
+                                            <div class="form-group col-md-6 ">
+                                                <label>En pausa: </label>
+                                                <asp:CheckBox ID="ChkePausa" runat="server" CssClass="make-switchsd" data-size="small" Text=" " />
+                                            </div>
+                                        </div>
+
+                                        <br />
+                                        <asp:UpdatePanel ID="UpChkList" runat="server" UpdateMode="Conditional">                                      
+                                            
+                                            <ContentTemplate>
+
+                                                <div class="row">
+                                                    <div class="col-md-8">
+                                                        <div class="form-group form-md-line-input">
+                                                            <asp:TextBox ID="TxtActividad" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                                            <asp:RequiredFieldValidator ID="Rfvactividadchklist" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtActividad" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''actividad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTareachklist"></asp:RequiredFieldValidator>
+                                                            <asp:Label runat="server" Text="Actividad" AssociatedControlID="TxtActividad"></asp:Label>
+                                                        </div>
+                                                    </div>
+                                                    <div class="col-md-4">
+                                                        <%--<asp:Button ID="LnkSinfuncion" OnClick="LnkSinfuncion_Click" UseSubmitBehavior="false" CssClass="btn btn-default LnkSinfuncion hidden" runat="server"></asp:Button>--%>
+                                                        <asp:LinkButton ID="LnkAgregarchklistitem" OnClick="LnkAgregarchklistitem_Click" ValidationGroup="GrpTareachklist" CssClass="btn btn-success" runat="server">Agregar</asp:LinkButton>
+                                                        <%--<a class="btn btn-default">Agregar</a>--%>
+                                                    </div>
+                                                </div>
+
+                                                <div class="row">
+                                                    <div class="col-md-12">
+
+                                                        <asp:GridView ID="GVcheklist" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVcheklist" AutoGenerateColumns="False"
+                                                            DataKeyNames="CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng">
+                                                            <Columns>
+                                                                <asp:TemplateField HeaderText="" ItemStyle-Width="30">
+                                                                    <ItemTemplate>
+                                                                        <asp:CheckBox ID="ChkEstatus" Text=" " AutoPostBack="true" OnCheckedChanged="ChkEstatus_CheckedChanged" runat="server" data-valor='<%# Extensiones.ModExtensiones.Encripta(Eval("CveEventoCheckList").ToString())%>' Checked='<%# Eval("Estatus")%>' />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:TemplateField HeaderText="Actividad">
+                                                                    <ItemTemplate>
+                                                                        <%--<pre>--%>
+                                                                        <span class="pre">
+                                                                            <asp:Literal ID="lbleventoComentario" runat="server" Text='<%# Eval("EventoComentario")%>'> </asp:Literal>
+                                                                        </span>
+                                                                        <%--</pre>--%>
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:TemplateField ItemStyle-Width="30" Visible="false">
+                                                                    <ItemTemplate>
+                                                                        <%--<asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarCheck_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>--%>
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:TemplateField ItemStyle-Width="30">
+                                                                    <ItemTemplate>
+                                                                        <asp:LinkButton ID="LnkD" runat="server" OnClick="LnkEliminarchek_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el cheklist?" data-btn-ok-label="si" />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                            </Columns>
+                                                        </asp:GridView>
+
+                                                    </div>
+
+                                                 </div>
+
+                                                
+
+                                            </ContentTemplate>
+
+
+                                        </asp:UpdatePanel>
+                                        
                                     </div>
+
                                 </div>
+
                             </div>
                             <%--END DATOS DE EMPRESA CRM --%>
                         </div>

CRM/Acercamiento.aspx.cs

@@ -5,11 +5,14 @@ using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
 using ADSNetLibrary.SIGAPI.Services;
 using ADSNetLibrary.SIGAPI.Services.CRM;
 using ADSNetLibrary.SIGAPI.Services.Encuestas;
+using DocumentFormat.OpenXml.Drawing.Diagrams;
 using Extensiones;
+using FormulaEvaluator;
 using MoreLinq;
 using System;
 using System.Collections.Generic;
 using System.Data;
+using System.Data.SqlClient;
 using System.IO;
 using System.Linq;
 using System.Web;
@@ -266,6 +269,10 @@ public partial class CRM_Acercamiento : ClsPaginas
             ViewState["TieneCotizacion"] = value;
         }
     }
+
+    //public int RCveEvento { get { return ViewState["RCveEvento"] != null ? ViewState["RCveEvento"].ToString().ToEntero() : 0; } set { ViewState["RCveEvento"] = value; } }
+    public System.Data.DataTable CheckListNew { get { return ViewState["CheckListNew"] != null ? (System.Data.DataTable)ViewState["CheckListNew"] : null; } set { ViewState["CheckListNew"] = value; } }
+    public int chklistitemindex { get { return ViewState["chklistitemindex"] != null ? ViewState["chklistitemindex"].ToString().ToEntero() : 0; } set { ViewState["chklistitemindex"] = value; } }
     #endregion
 
     protected void Page_Load(object sender, EventArgs e)
@@ -300,6 +307,8 @@ public partial class CRM_Acercamiento : ClsPaginas
                         DivMensajeDatosTecnicos.Visible = false;
                     }
                 }
+
+                CargaCheckLis();
             }
             CargarPS();
         }
@@ -334,11 +343,12 @@ public partial class CRM_Acercamiento : ClsPaginas
                 TxtNombreAcercamiento.Text = objAcercamiento.Result[0].NombreAcercamiento;
                 TxtDescripcion.Text = objAcercamiento.Result[0].Descripcion;
                 TxtFechaApertura.Text = objAcercamiento.Result[0].FechaApertura.ToDateTime().ToShortDateString();
-                TxtFechaCierre.Text = (objAcercamiento.Result[0].FechaCierre.ToString() == "") ? "" : objAcercamiento.Result[0].FechaCierre.ToDateTime().ToShortDateString();
+                TxtFechaCierre.Text = (objAcercamiento.Result[0].FechaCierre.ToString() == "") || objAcercamiento.Result[0].FechaCierre.ToString().ToDate() == ModExtensiones.MinFecha ? "" : objAcercamiento.Result[0].FechaCierre.ToDateTime().ToShortDateString();
                 TxtImporte.Text = String.Format("{0:C2}", objAcercamiento.Result[0].Importe.ToEntero());
                 TxtComision.Text = String.Format("{0:C2}", objAcercamiento.Result[0].Comision.ToEntero());
                 DdlProbabilidadAcercamiento.SelectedValueExist(objAcercamiento.Result[0].CveProbabilidadAcercamiento);
                 DdlPrioridad.SelectedValueExist(objAcercamiento.Result[0].Prioridad);
+                ChkePausa.Checked = objAcercamiento.Result[0].EnPausa;
 
                 CargaDdl();
                 //SECCION DATOS DE LA EMPRESA
@@ -689,6 +699,7 @@ public partial class CRM_Acercamiento : ClsPaginas
             AcercaminetoModel.FechaCierre = FechaCierre != null ? (DateTime)FechaCierre : ModExtensiones.MinFecha;
             AcercaminetoModel.CvePS = DdlPS.SelectedValue.ToEntero();
             AcercaminetoModel.CveRechazoMotivo = CveRechazoMotivo;
+            AcercaminetoModel.EnPausa = ChkePausa.Checked;
 
 
             if (cRMService.AcercamientoUpdate(AcercaminetoModel))
@@ -1812,4 +1823,135 @@ public partial class CRM_Acercamiento : ClsPaginas
     }
 
     #endregion
+
+
+
+    #region "CHECK LIST"
+
+
+    private  void CargaCheckLis()
+    {
+        using (ClsOIEventos objOI = new ClsOIEventos())
+        {
+            if (objOI.Getcheklist(-1, CveAcercamiento: CveAcercamiento))
+            {
+                GVcheklist.DataSource = objOI.DtResultados;
+                GVcheklist.DataBind();
+            }            
+        }
+
+        UpChkList.Update();
+    }
+
+    protected void LnkAgregarchklistitem_Click(object sender, EventArgs e)
+    {
+        if (TxtActividad.Text.Trim().Length > 0)
+        {
+            if (CveAcercamiento > 0)
+            {
+                using (ClsOIEventos objOI = new ClsOIEventos())
+                {
+                    if (objOI.Addcheklist(-1, TxtActividad.Text, UsuarioActual.CveUsuario, CveAcercamiento: CveAcercamiento))
+                    {
+                        Alert("Se agregó la actividad", ModExtensiones.TipoMensaje.ToastInformacion);
+                        if (objOI.Getcheklist(-1, CveAcercamiento: CveAcercamiento))
+                        {
+                            GVcheklist.DataSource = objOI.DtResultados;
+                            GVcheklist.DataBind();
+                        }
+                    }
+                }
+            }
+            else
+            {
+                System.Data.DataRow drow = CheckListNew.NewRow();
+                drow["CveEventoCheckList"] = chklistitemindex++;
+                drow["EventoComentario"] = TxtActividad.Text;
+                drow["Estatus"] = false;
+                //CveEventoCheckList,CveEvento,CveTipoEvento,EventoComentario,Estatus,CveUsuario,Usuario,FechaIng
+                CheckListNew.Rows.Add(drow);
+                GVcheklist.DataSource = CheckListNew;
+                GVcheklist.DataBind();
+            }
+        }
+        TxtActividad.Focus();
+        TxtActividad.Text = "";
+    }
+
+
+    protected void ChkEstatus_CheckedChanged(object sender, EventArgs e)
+    {
+        CheckBox chk = (CheckBox)sender;
+        GridViewRow gvrow = (GridViewRow)chk.NamingContainer;
+        using (ClsOIEventos objOI = new ClsOIEventos())
+        {
+            if (objOI.Upcheklist(gvrow.DataKey("CveEventoCheckList").ToEntero(), gvrow.DataKey("CveEvento").ToEntero(), gvrow.DataKey("EventoComentario"), chk.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 
+                CveAcercamiento: CveAcercamiento))
+            {
+                //ObjEventosCorreo o = objOI.objCorreo;
+                Alert("Se actualizó el estatus de la actividad", ModExtensiones.TipoMensaje.ToastInformacion);
+                if (objOI.Getcheklist(-1, CveAcercamiento: CveAcercamiento))
+                {
+                    GVcheklist.DataSource = objOI.DtResultados;
+                    GVcheklist.DataBind();                 
+                }
+            }
+        }
+    }
+
+
+    protected void LnkEliminarchek_Click(object sender, EventArgs e)
+    {
+        GridViewRow gvrow = (GridViewRow)((LinkButton)sender).NamingContainer;
+
+        if(!(CveAcercamiento > 0))
+        {
+            CheckListNew = CheckListNew.FiltraParametros(string.Format("CveEventoCheckList <> {0}", gvrow.DataKey("CveEventoCheckList")));
+            GVcheklist.DataSource = CheckListNew;
+            GVcheklist.DataBind();
+        }
+        else
+        {
+            using (ClsOIEventos objOI = new ClsOIEventos())
+            {
+                if (objOI.Removecheklist(gvrow.DataKey("CveEventoCheckList").ToEntero(), gvrow.DataKey("CveEvento").ToEntero(), UsuarioActual.CveUsuario, CveAcercamiento: CveAcercamiento))
+                {
+                    Alert("Se ha eliminadó la actividad", ModExtensiones.TipoMensaje.ToastInformacion);
+                    if (objOI.Getcheklist(-1, CveAcercamiento))
+                    {
+                        GVcheklist.DataSource = objOI.DtResultados;
+                        GVcheklist.DataBind();
+                    }
+                }
+            }
+        }
+    }
+
+    protected void LnkSinfuncion_Click(object sender, EventArgs e)
+    {
+        // es para mandar llamar el ChkEstatus_CheckedChanged
+    }
+
+
+
+    //private  bool GuardaCheckList(SqlTransaction transaction, int CveAcercamientoNuevo)
+    //{
+    //    bool respuesta = true;
+
+    //    ClsOIEventos objOI = new ClsOIEventos(transaction);
+
+    //    foreach (GridViewRow GvRow in GVcheklist.Rows)
+    //    {
+    //        if (!objOI.Addcheklist(-1, TxtActividad.Text, UsuarioActual.CveUsuario, CveAcercamiento: CveAcercamiento))
+    //        {
+    //            respuesta = false;
+    //            break;
+    //        }
+    //    }
+
+    //    return respuesta;
+    //}
+
+    #endregion
+
 }

CRM/EmpresaCRM.aspx

@@ -248,18 +248,25 @@
                                         <div runat="server" id="DivContactos" style="padding: 0 10px 10px 10px;">
                                             <asp:UpdatePanel runat="server" ID="UpContactos" UpdateMode="Conditional">
                                                 <ContentTemplate>
-                                                    <asp:GridView ID="GVContactos" runat="server" DataKeyNames="CveContacto, Nombre, TelefonoOficina, Celular, Correo, CveUsuarioIng, FechaIng" EmptyDataText="Aún no se han registrado contactos"
+                                                    <asp:GridView ID="GVContactos" runat="server" DataKeyNames="CveContacto,Nombre,TelefonoOficina,Celular,Correo,CveUsuarioIng,FechaIng,CveTipoContacto" EmptyDataText="Aún no se han registrado contactos"
                                                         EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Contactos" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
                                                         GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" OnRowDeleting="GVContactos_RowDeleting" AutoGenerateColumns="false" OnRowDataBound="GVContactos_RowDataBound">
                                                         <Columns>
-                                                            <asp:TemplateField HeaderText="Nombre" ItemStyle-Width="35%" HeaderStyle-HorizontalAlign="Left">
+                                                            <asp:TemplateField HeaderText="Nombre" ItemStyle-Width="30%" HeaderStyle-HorizontalAlign="Left">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Literal ID="LtlNombreContacto" runat="server" Text='<%# Eval("Nombre", "{0}") %>'></asp:Literal>
                                                                 </ItemTemplate>
                                                                 <ItemStyle HorizontalAlign="Left" />
                                                             </asp:TemplateField>
 
-                                                            <asp:TemplateField ItemStyle-Width="15%" HeaderText="Teléfono Oficina" ItemStyle-HorizontalAlign="Left">
+                                                            <asp:TemplateField HeaderText="Tipo Contacto" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Left">
+                                                                <ItemTemplate>
+                                                                    &nbsp;<asp:Literal ID="LtlTipoContacto" runat="server" Text='<%# Eval("TipoContacto", "{0}") %>'></asp:Literal>
+                                                                </ItemTemplate>
+                                                                <ItemStyle HorizontalAlign="Left" />
+                                                            </asp:TemplateField>
+
+                                                            <asp:TemplateField ItemStyle-Width="10%" HeaderText="Teléfono Oficina" ItemStyle-HorizontalAlign="Left">
                                                                 <ItemTemplate>
                                                                     <asp:Label ID="lblTelefonoOficina" runat="server" Text='<%# Eval("TelefonoOficina")%>'> </asp:Label>
                                                                 </ItemTemplate>
@@ -395,7 +402,7 @@
                                         <div runat="server" id="Div2" style="padding: 0 10px 10px 10px;">
                                             <asp:UpdatePanel runat="server" ID="UpCotizacion" UpdateMode="Conditional">
                                                 <ContentTemplate>
-                                                    <asp:GridView ID="GvCotizacion" runat="server" DataKeyNames="CveVenta,CveEmpresaCRM,CveAcercamientoCRM,CveEstatusFactura, EstatusFactura" EmptyDataText="Aún no se han registrado Cotizaciones"
+                                                    <asp:GridView ID="GvCotizacion" runat="server" DataKeyNames="CveVenta,CveEmpresaCRM,CveAcercamientoCRM,CveEstatusFactura, EstatusFactura,Total" EmptyDataText="Aún no se han registrado Cotizaciones"
                                                         EmptyDataRowStyle-HorizontalAlign="Center" ToolTip="Listado de Cotizaciones" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" AlternatingRowStyle-BorderStyle="None"
                                                         GridLines="None" BorderColor="#D3D3D3" BorderWidth="1" AutoGenerateColumns="false" OnRowDataBound="GvCotizacion_RowDataBound">
                                                         <Columns>
@@ -404,7 +411,9 @@
 
                                                              <asp:HyperLinkField DataTextField="SerieFolio" Target="_blank" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" HeaderText="Serie Folio" />
                                                             <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                                                            <asp:BoundField DataField="Total" ItemStyle-HorizontalAlign="Right" HeaderText="Total" DataFormatString="{0:N2}" />
+                                                            <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left" />
+                                                            
+                                                            <asp:BoundField DataField="Total" ItemStyle-HorizontalAlign="Right" HeaderText="Total"  DataFormatString="{0:n2}" />   
                                                             
                                                             <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left">
                                                                 <ItemTemplate>
@@ -563,9 +572,17 @@
                             <asp:RegularExpressionValidator ID="REVCorreo" runat="server" CssClass="errorimput" ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="VGGuardarContacto"></asp:RegularExpressionValidator>--%>
                             <label for="<%= TxtCorreo.ClientID.ToString()%>">Correo:</label>
                         </div>
+
+                        <div class="form-group form-md-line-input input-iconright">                            
+                            <asp:DropDownList ID="DdlTipocontacto" runat="server" DataTextField="TipoContacto" DataValueField="CveTipoContacto" CssClass="form-control select2me" Width="50%"></asp:DropDownList>
+                            <asp:LinkButton CssClass="btn btn-primary" runat="server" ID="LnkAgregartipoContacto" OnClick="LnkAgregartipoContacto_Click"  Height="30px" style="margin-top:8px">+</asp:LinkButton>
+                            <label for="<%= DdlTipocontacto.ClientID.ToString()%>">Tipo Contacto:</label>
+                        </div>
+
+
                     </div>
                     <div class="modal-footer">
-                        <asp:Button ID="BtnGuardarContacto" OnClick="BtnGuardarContacto_Click" runat="server" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VGGuardarContacto" />
+                        <asp:Button ID="BtnGuardarContacto" OnClick="BtnGuardarContacto_Click" runat="server" Text="Guardar" CssClass="btn btn-primary mysmallbtn" ValidationGroup="VGGuardarContacto" />
                         <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                     </div>
                 </div>
@@ -574,6 +591,73 @@
     </div>
     <%-- END MODAL AGREGAR CONTACTO --%>
 
+        <%-- MODAL TIPO CONTACTO --%>
+    <div id="DivModalTipoContacto" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalTipoContacto" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlmodalTituloTipoContacto" Text="Tipo Contacto" runat="server"> </asp:Literal>
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="row">
+                            <div class="col-md-4">
+                                Tipo Contacto:
+                            </div>
+
+                            <div class="col-md-4">
+                                <asp:TextBox runat="server" ID="TxtTipoContacto" MaxLength="50" CssClass="form-control" ValidationGroup="GrpTipoContacto" ></asp:TextBox>
+                                <asp:RequiredFieldValidator ID="RfvTxtTipoContacto" runat="server" CssClass="help-block errorimput" Display="Dynamic" ControlToValidate="TxtTipoContacto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Contacto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTipoContacto"></asp:RequiredFieldValidator>
+                            </div>
+
+                            <div class="col-md-4" style="text-align:left!important">
+                                <asp:Button Text="Agregar" runat="server" ID="btnAgregarTipoContacto" OnClick="btnAgregarTipoContacto_Click"  CssClass="btn btn-primary" 
+                                    ValidationGroup="GrpTipoContacto"/>
+                            </div>
+                        </div>
+                          <br />
+                        <div class="row">
+                            <div class="col-md-12">
+                                
+                                <asp:GridView ID="GvModalTipoContacto" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" EmptyDataRowStyle-HorizontalAlign="Center"
+                                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"   GridLines="None" Width="100%"
+                                    DataKeyNames="CveTipoContacto,TipoContacto" >
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Tipo Contacto">                                            
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlTipoConcato" runat="server" Text='<%# Eval("TipoContacto") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>                                      
+                                        <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80px">
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="LnkEliminarTipoContacto"   runat="server"   OnClick="LnkEliminarTipoContacto_Click"
+                                                    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="¿Desea eliminar este contacto?" data-btn-ok-label="si" >                                                    
+                                                </asp:LinkButton>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+
+                            </div>
+                          </div>
+               
+
+                    </div>
+                    <div class="modal-footer">                        
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+    <%-- END MODAL TIPO CONTACTO --%>
+
+
+
     <%-- MODAL AGREGAR ACERCAMIENTO --%>
     <div id="DivModalAltaAcercamiento" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpAltaAcercamiento" UpdateMode="Conditional">
@@ -633,22 +717,43 @@
                                 </div>
                             </div>
 
-                            <div class="form-group form-md-line-input input-iconright" style="padding: 0;">
+                            <div class="row">
+                                <div class="col-md-6">
+                                    <div class="form-group form-md-line-input input-iconright" style="padding: 0;">
 
-                                <div runat="server" id="DivFechaApertura" class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
-                                    <asp:TextBox ID="TxtFechaApertura" Text="<%= DateTime.Now.ToShortDateString();%>" runat="server" Style="margin-left: -5px;" CssClass="form-control" Width="121px" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendarioFechaApertura" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                    <label for="<%= TxtFechaApertura.ClientID.ToString()%>" style="width: 125px !important;"><span style="color: #F3565D">*</span> Apertura:</label>
+                                        <div runat="server" id="DivFechaApertura" class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                            <asp:TextBox ID="TxtFechaApertura" Text="<%= DateTime.Now.ToShortDateString();%>" runat="server" Style="margin-left: -5px;" CssClass="form-control" Width="121px" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="imgCalendarioFechaApertura" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                            <label for="<%= TxtFechaApertura.ClientID.ToString()%>" style="width: 125px !important;"><span style="color: #F3565D">*</span> Apertura:</label>
+                                        </div>
+                                        <asp:RequiredFieldValidator ID="RFVTxtFechaApertura" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaApertura" ErrorMessage="El campo <b>''Fecha de Apertura''</b> es necesario." ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
+                                        <ajax:MaskedEditExtender ID="MEETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender ID="CETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" PopupButtonID="imgCalendarioFechaApertura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:RangeValidator ID="RVFechaApertura" runat="server" CssClass="help-block errorimput" ErrorMessage="La <b>''Fecha de Apertura''</b> esta fuera de rango." ControlToValidate="TxtFechaApertura" Type="Date"></asp:RangeValidator>
+
+                                    </div>
                                 </div>
-                                <asp:RequiredFieldValidator ID="RFVTxtFechaApertura" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaApertura" ErrorMessage="El campo <b>''Fecha de Apertura''</b> es necesario." ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
-                                <ajax:MaskedEditExtender ID="MEETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender ID="CETxtFechaApertura" runat="server" TargetControlID="TxtFechaApertura" PopupButtonID="imgCalendarioFechaApertura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RangeValidator ID="RVFechaApertura" runat="server" CssClass="help-block errorimput" ErrorMessage="La <b>''Fecha de Apertura''</b> esta fuera de rango." ControlToValidate="TxtFechaApertura" Type="Date"></asp:RangeValidator>
+                                <div class="col-md-6">
+                                    <div class="form-group form-md-line-input input-iconright" style="padding: 0;">
+                                        <div runat="server" id="Div3" class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                            <asp:TextBox ID="TxtFechaCierre" runat="server" Style="margin-left: -5px;" CssClass="form-control" Width="121px" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="LnkImgTxtFechaCierre" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                            <label for="<%= TxtFechaCierre.ClientID.ToString()%>" style="width: 125px !important;">Cierre:</label>
+                                        </div>
+                                        <%--<asp:RequiredFieldValidator ID="RfvTxtFechaCierre" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFechaCierre" ErrorMessage="El campo <b>''Fecha de Cierre''</b> es necesario." ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>--%>
+                                        <ajax:MaskedEditExtender ID="METxtFechaCierre" runat="server" TargetControlID="TxtFechaCierre" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender ID="CeTxtFechaCierre" runat="server" TargetControlID="TxtFechaCierre" PopupButtonID="LnkImgTxtFechaCierre" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
 
+                                    </div>
+                                </div>
                             </div>
 
+                           
+
 
                             <div class="row">
                                 <div id="DivImporte" runat="server" class="form-group col-md-6 form-md-line-input input-iconright" >

CRM/EmpresaCRM.aspx.cs

@@ -5,6 +5,7 @@ using ADSNetLibrary.SIGAPI.Models.Ventas.Request;
 using ADSNetLibrary.SIGAPI.Services;
 using ADSNetLibrary.SIGAPI.Services.CRM;
 using ADSNetLibrary.SIGAPI.Services.Encuestas;
+
 using Extensiones;
 using MoreLinq;
 using System;
@@ -938,6 +939,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         TempDTContactos.Columns.Add("FechaIng", typeof(string));
 
         TempDTContactos.Columns.Add("CveContacto", typeof(string));
+        TempDTContactos.Columns.Add("CveTipoContacto", typeof(string));
+        TempDTContactos.Columns.Add("TipoContacto", typeof(string));
 
         GVContactos.DataSource = TempDTContactos;
         GVContactos.DataBind();
@@ -996,6 +999,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         TxtTelefonoOficina.Text = "";
         TxtCelular.Text = "";
         TxtCorreo.Text = "";
+        DdlTipocontacto.SelectedValueExist(-1);
     }
 
     protected void BtnAgregarContacto_Click(object sender, EventArgs e)
@@ -1004,6 +1008,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         limpiarCamposModalContato();
         UPModalContacto.Update();
 
+        CargaGridTipoContacto();
+
         this.RegistraScript("$('#DivModalContacto').modal();");
     }
 
@@ -1020,11 +1026,15 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         TxtTelefonoOficina.Text = GvRow.DataKey("TelefonoOficina").ToString();
         TxtCelular.Text = GvRow.DataKey("Celular").ToString();
         TxtCorreo.Text = GvRow.DataKey("Correo").ToString();
+        DdlTipocontacto.SelectedValueExist( GvRow.DataKey("CveTipoContacto").ToString());
 
         IndexDTContacto = GvRow.RowIndex;
 
+        CargaGridTipoContacto();
+
         UPModalContacto.Update();
 
+
         this.RegistraScript("$('#DivModalContacto').modal();");
     }
 
@@ -1057,6 +1067,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 contacto.Correo = Correo;
                 contacto.CveEmpresaCRM = CveEmpresaCRM;
                 contacto.CveUsuarioIng = CveUsuarioIng;
+                contacto.CveTipoContacto = DdlTipocontacto.SelectedValue.ToEntero();
 
                 if (cRMService.EmpresasCRMContactoAdd(contacto))
                 {
@@ -1088,6 +1099,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 contacto.Correo = Correo;
                 contacto.CveContacto = CveContactoEditado;
                 contacto.CveUsuarioIng = CveUsuarioIng;
+                contacto.CveTipoContacto = DdlTipocontacto.SelectedValue.ToEntero();
 
                 if (cRMService.EmpresasCRMContactoUpdate(contacto))
                 {
@@ -1580,6 +1592,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         TxtAcercamiento.Text = "";
         TxtDescripcionAcercamiento.Text = "";
         TxtFechaApertura.Text = DateTime.Now.ToShortDateString();
+        TxtFechaCierre.Text = "";
         TxtImporte.Text = "0.00";
         TxtComision.Text = "0.00";
 
@@ -1651,6 +1664,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         int CveRechazoMotivo = -1;
 
         DateTime FechaApertura = TxtFechaApertura.Text.ToDateTime();
+        DateTime FechaCierre =  TxtFechaCierre.Text.ToDateTime();
 
         Double Importe = TxtImporte.Text.ToDouble();
         Double Comision = TxtComision.Text.ToDouble();
@@ -1673,8 +1687,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 CveMedioCaptacion = CveMedioCaptacion,
                 CveRechazoMotivo = CveRechazoMotivo,
                 CveProbabilidadAcercamiento = CveProbabilidadAcercamiento,
-                FechaApertura = FechaApertura,
-                FechaCierre = (DateTime)System.Data.SqlTypes.SqlDateTime.Null,
+                FechaApertura = FechaApertura,                
+                FechaCierre = FechaCierre > ModExtensiones.MinFecha ? FechaCierre : (DateTime)System.Data.SqlTypes.SqlDateTime.Null,
                 NombreAcercamiento = NombreAcercamiento,
                 Descripcion = Descripcion,
                 Importe = Importe,
@@ -1775,7 +1789,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
     #region "COTIZACIONES"
     protected void CargaCotizaciones()
     {
-        ClsVentas ObjVentas = new ClsVentas();
+        
         IVentaService ventaService = new VentaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
         RequestVentas requestVentas = new RequestVentas(UsuarioActual.CveEmpresa, TipoDocto: "Cot", CveEmpresaCRM: CveEmpresaCRM, CveUsuarioConsulta: UsuarioActual.CveUsuario);
         var objVentas = ventaService.GetVentas(requestVentas);
@@ -1788,7 +1802,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         //{
         //    GvCotizacion.DataSource = ObjVentas.DtResultados;
         //}
-        ObjVentas.Dispose();
+        
         GvCotizacion.DataBind();
         UpCotizacion.Update();
     }
@@ -1801,6 +1815,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
             {
                 e.Row.FCLabel("lblEstatus").Text = String.Format("<b>{0}</b>", e.Row.DataKey("EstatusFactura"));
             }
+
+            if(e.Row.DataKey("Total").ToDecimal() != 0)
+            {
+                e.Row.Cells[5].Text = e.Row.DataKey("Total").ToDecimal().ToString("###,###,###.00");                
+            }
         }
     }
     #endregion
@@ -1833,4 +1852,109 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlGiroClasificacion.SelectedValueExist(CveGiroClasificacion);
     }
+
+
+    #region "TIPO CONTACTO"
+    
+
+    protected void LnkAgregartipoContacto_Click(object sender, EventArgs e)
+    {
+
+        CargaGridTipoContacto();
+        RegistraScript("$('#DivModalTipoContacto').modal('show');");
+    }
+
+
+    private void LimpiaTipoContacto()
+    {
+        TxtTipoContacto.Text = "";
+        UpModalTipoContacto.Update();
+    }
+
+    private void CargaGridTipoContacto()
+    {
+        DdlTipocontacto.Items.Clear();
+        DdlTipocontacto.SelectedValue = null;
+        
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+
+        RequestTipoContacto requestTipoContacto = new RequestTipoContacto(-1,"-1",-1,UsuarioActual.CveEmpresa);
+
+        var ObjTIpocontacto = cRMService.TipoContactoGet(requestTipoContacto);
+
+        if (ObjTIpocontacto.Result.Count > 0)
+        {
+            GvModalTipoContacto.DataSource = ObjTIpocontacto.Result;
+            DdlTipocontacto.DataSource = ObjTIpocontacto.Result;            
+        }
+
+        GvModalTipoContacto.DataBind();
+        
+        DdlTipocontacto.DataBind();
+        DdlTipocontacto.Items.Insert(0, new ListItem("Seleccione Uno", "-1"));       
+
+        UpModalTipoContacto.Update();
+        UPModalContacto.Update();
+
+        cRMService = null;
+    }
+    protected void btnAgregarTipoContacto_Click(object sender, EventArgs e)
+    {
+        bool ErrorProceso = false;
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+
+        TipoContactoModel  TipoContacto = new TipoContactoModel();
+
+        TipoContacto.TipoContacto = TxtTipoContacto.Text;
+        TipoContacto.CveUsuario = UsuarioActual.CveUsuario;
+        TipoContacto.CveEmpresa = UsuarioActual.CveEmpresa;
+
+        if (!cRMService.TipoContactoAdd(TipoContacto))
+        {
+            Alert("Se presento un error al agregar el tipo de contacto", ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }
+
+        if (!ErrorProceso)
+        {
+            CargaGridTipoContacto();
+            LimpiaTipoContacto();
+        }
+    }
+
+    protected void LnkEliminarTipoContacto_Click(object sender, EventArgs e)
+    {
+        bool ErrorProceso = false;
+
+        GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+
+        int CveTipoContactoEliminar = GvRow.DataKey("CveTipoContacto").ToEntero();
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+
+        TipoContactoModel TipoContacto = new TipoContactoModel();
+        TipoContacto.CveTipoContacto = CveTipoContactoEliminar;
+        TipoContacto.CveEmpresa = UsuarioActual.CveEmpresa;
+
+        if (cRMService.TipoContactoRemove(TipoContacto))
+        {
+            Alert("Tipo Contacto eliminado correctamente.");
+        }else{
+            Alert("Se presento un error al eliminar el tipo de contacto.", ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }
+
+        if (!ErrorProceso)
+        {
+            CargaGridTipoContacto();
+        }
+
+    }
+
+    #endregion
+
+
+
+
+
 }

CRM/RepAcercamientos.aspx

@@ -30,7 +30,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div id="DivFiltros" class="portlet solid  grey-cascade portlet-filter">
+            <div id="DivFiltros" class="portlet solid  grey-cascade portlet-filter" id="dvFiltros">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
                         <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
@@ -39,14 +39,14 @@
 
                     <div class="titlefiltros  caption">
                         <div class="row" style="margin-left: 10px;">
-                            <label class="col-md-1 " style="width: 90px; margin-top: 5px;">Vendedor:</label>
-                            <div class="col-md-2">
+                            <label class="col-md-1 "  >Vendedor:</label>
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlVendedor" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                             </div>
 
-                            <label class="col-md-1 " style="width: 90px; margin-top: 5px;">Fecha Inicio:</label>
-                            <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                            <label class="col-md-1 "  >Fecha Inicio:</label>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px; margin-bottom: -10px;">
                                     <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="imgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -56,9 +56,9 @@
                                 <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
 
-                            <label class="col-md-1 " style="width: 90px; margin-top: 5px;">Fecha Fin:</label>
-                            <div class="col-md-2">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                            <label class="col-md-1 "  >Fecha Fin:</label>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px; margin-bottom: -10px;">
                                     <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="imgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -68,8 +68,8 @@
                                 <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
 
-                            <label class="col-md-1" style="width: 115px; margin-top: 5px;">Producto Servicio:</label>
-                            <div class="col-md-2">
+                            <label class="col-md-1" >Producto Servicio:</label>
+                            <div class="col-md-1">
                                 <div style="width:100%">
                                     <ADS:Dropdownlost runat="server" Width="100%" ID="DdlPS" CssClassDdl="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
                                 </div>
@@ -80,10 +80,40 @@
                 </div>
                  <div class="portlet-body" style="display: none;">
                     <div class="row" style="margin-left: 10px; margin-top: 10px;">
-                        <label class="col-md-1" style="width: 90px;"">Giro:</label>
-                        <div class="col-md-2">
+                        <label class="col-md-1">Giro:</label>
+                        <div class="col-md-1">
                             <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
                         </div>
+
+
+                        <label class="col-md-1" >En Pausa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
+                                <asp:ListItem Value="-1">Todo</asp:ListItem>
+                                <asp:ListItem Value="0">Activos</asp:ListItem>
+                                <asp:ListItem Value="1">En Pausa</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+
+                        <label class="col-md-1" >Etapa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
+                            </asp:DropDownList>
+                        </div>
+
+                         <label class="col-md-1" >Medio Captación:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlMedioCaptacion" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion">
+                            </asp:DropDownList>
+                        </div>
+
+                           <label class="col-md-1"  >Tipo Proceso:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlTipoProceso" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="TipoProceso" DataValueField="CveTipoProceso">
+                            </asp:DropDownList>
+                        </div>
+
                     </div>
                 </div>
             </div>

CRM/RepAcercamientos.aspx.cs

@@ -8,6 +8,10 @@ using Extensiones;
 using System.Data;
 using Microsoft.Reporting.WebForms;
 
+using ADSNetLibrary.SIGAPI.Services.CRM;
+using ADSNetLibrary.SIGAPI.Models.CRM.Request;
+//using ADSNetLibrary.SIGAPI.Helpers;
+
 public partial class CRM_RepAcercamientos : ClsPaginas
 {
     #region "PROPIEDADES"
@@ -58,8 +62,12 @@ public partial class CRM_RepAcercamientos : ClsPaginas
         string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text;
         string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text;
         int CvePS = DdlPS.SelectedValue.ToEntero() == 0 ? -1 : DdlPS.SelectedValue.ToEntero();
+        
         ClsCRM ObjCRM = new ClsCRM();
-        if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin, CvePS: CvePS, CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero()))
+
+        if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin, CvePS: CvePS,
+            CveGiroClasificacion: DdlGiroClasificacion.SelectedValue.ToEntero(), CveMedioCaptacion: DdlMedioCaptacion.SelectedValue.ToEntero(), CveTipoProceso: DdlTipoProceso.SelectedValue.ToEntero(),
+            EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveEtapaProceso: DdlEtapaProceso.SelectedValue.ToEntero()))
         {
             GVDatos.DataSource = ObjCRM.DtResultados;
             DtDatos = ObjCRM.DtResultados;
@@ -100,6 +108,23 @@ public partial class CRM_RepAcercamientos : ClsPaginas
         DdlGiroClasificacion.DataSource = dtGiroClasificaciones;
         DdlGiroClasificacion.DataBind();
         DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+        RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);
+        RequestMedioCaptacion MedioCaptacion = new RequestMedioCaptacion(UsuarioActual.CveEmpresa);
+        RequestTipoProceso tipoProceso = new RequestTipoProceso(UsuarioActual.CveEmpresa, 1, -1);       
+
+        DdlEtapaProceso .DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetEtapaProcesoCRM(EtapaProceso).Result);
+        DdlMedioCaptacion.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable( cRMService.GetMedioCaptacionCRM(MedioCaptacion).Result);
+        DdlTipoProceso.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetTipoProcesoCRM(tipoProceso).Result);
+        
+        DdlEtapaProceso.DataBind();
+        DdlMedioCaptacion.DataBind();
+        DdlTipoProceso.DataBind();
+
+        DdlEtapaProceso.Items.Insert(0,new ListItem("Todas", "-1"));
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos", "-1"));
+        DdlTipoProceso.Items.Insert(0, new ListItem("Todos", "-1"));
     }
     #endregion
 

CRM/RepAcercamientosProcesos.aspx

@@ -58,7 +58,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter">
+            <div class="portlet solid  grey-cascade portlet-filter" id="dvFiltros">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
                         <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="LnkConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
@@ -66,23 +66,23 @@
                     </div>
                     <div class="titlefiltros  caption">
                         <div class="row" style="margin-left: 10px;">
-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 "   runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                             </div>
 
-                            <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 "   runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                             </div>
 
-                            <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 "   runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                             </div>
 
-                            <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 "   runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                             </div>
                         </div>
@@ -90,8 +90,9 @@
                 </div>
                 <div class="portlet-body" style="display: none;">
                     <div class="row" style="margin-left: 10px; margin-top: 10px;">
-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
-                        <div class="col-md-2">
+
+                        <asp:Label class="col-md-1 "   runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                        <div class="col-md-1">
                             <asp:DropDownList ID="DdlGrupo1" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
                                 <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
                                 <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
@@ -103,8 +104,8 @@
                             </asp:DropDownList>
                         </div>
 
-                        <asp:Label class="col-md-1 " style="width: 110px; margin-top: 5px; display: none;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
-                        <div class="col-md-2" style="display: none;">
+                        <asp:Label class="col-md-1 " style="  display: none;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                        <div class="col-md-1" style="display: none;">
                             <asp:DropDownList ID="DdlGrupo2" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
                                 <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
                                 <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
@@ -115,7 +116,7 @@
                             </asp:DropDownList>
                         </div>
 
-                        <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                        <asp:Label class="col-md-1 "   runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
                         <div class="col-sm-1">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top:5px">
                                 <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
@@ -127,7 +128,7 @@
                             <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                         </div>
 
-                        <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                        <asp:Label class="col-md-1 "   runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
                         <div class="col-sm-1">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top:5px">
                                 <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
@@ -138,18 +139,49 @@
                             <ajax:MaskedEditExtender ID="MEEFechaSolicitudF" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                             <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                         </div>
-                    </div>
-                    <div class="row">
-                        <asp:Label class="col-md-1 " style="width: 124px; margin-top: 5px;" runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
-                        <div class="col-md-2">
+
+                        <asp:Label class="col-md-1 "   runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
+                        <div class="col-md-1">
                             <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
                         </div>
 
-                        <asp:Label class="col-md-1 " style="width: 90px; margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
-                        <div class="col-md-2">
+                        <asp:Label class="col-md-1 "   runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
+                        <div class="col-md-1">
                             <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
                         </div>
                     </div>
+                    <div class="row" style="margin-left: 10px; margin-top: 10px;">
+
+                         <label class="col-md-1" >En Pausa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
+                                <asp:ListItem Value="-1">Todo</asp:ListItem>
+                                <asp:ListItem Value="0">Activos</asp:ListItem>
+                                <asp:ListItem Value="1">En Pausa</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+
+                        <label class="col-md-1" >Etapa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
+                            </asp:DropDownList>
+                        </div>
+
+                    <%--     <label class="col-md-1" >Medio Captación:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DropDownList1" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion">
+                            </asp:DropDownList>
+                        </div>
+
+                           <label class="col-md-1"  >Medio Captación:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DropDownList2" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="TipoProceso" DataValueField="CveTipoProceso">
+                            </asp:DropDownList>
+                        </div>
+                        --%>
+
+                    </div>
                 </div>
             </div>
 

CRM/RepAcercamientosProcesos.aspx.cs

@@ -9,6 +9,8 @@ using System.Data;
 using Extensiones;
 using iTextSharp.text.pdf;
 using iTextSharp.text;
+using ADSNetLibrary.SIGAPI.Models.CRM.Request;
+using ADSNetLibrary.SIGAPI.Services.CRM;
 
 public partial class CRM_RepAcercamientosProcesos : ClsPaginas
 {
@@ -134,7 +136,17 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
             DdlProbabilidad.SelectedValue = CveProbabilidadAcercamiento;
             DdlTipoProceso.SelectedValue = CveTipoProceso;
         }
+
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+        RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);
+        DdlEtapaProceso.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetEtapaProcesoCRM(EtapaProceso).Result);
+        DdlEtapaProceso.DataBind();
+        DdlEtapaProceso.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todas", "-1"));       
+
+
         upDatosRepA.Update();
+
     }
     protected void cargarDatos()
     {
@@ -149,7 +161,8 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         ClsCRM ObjCRM = new ClsCRM();
         GVRepAcercamientosEtapas.Columns.Clear();
 
-        if (ObjCRM.RepAcercamientosEtapas(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento,CvePS:DdlPS.SelectedValue.ToEntero(),CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero()))
+        if (ObjCRM.RepAcercamientosEtapas(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento,CvePS:DdlPS.SelectedValue.ToEntero(),
+            CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero(), EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveEtapaProceso: DdlEtapaProceso.SelectedValue.ToEntero()))
         {
             DataTable dte = ObjCRM.DSResultados.Tables[1];
             GVRepAcercamientosEtapas.DataSource = ObjCRM.DSResultados.Tables[0];

CRM/RepAcercamientosRechazos.aspx

@@ -55,40 +55,40 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="upDatosRepA" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter">
+            <div class="portlet solid  grey-cascade portlet-filter" id="dvFiltros">
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
                         <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="LnkConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
                         <a href="javascript:;" class="expand"></a>
                     </div>
                     <div class="titlefiltros  caption">
-                        <div class="row" style="margin-left: 10px;">
-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
-                            <div class="col-md-2">
+                         <div class="row" style="margin-left: 10px;">
+                            <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                             </div>
 
-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Vendedor:" AssociatedControlID="DdlVendedor"></asp:Label>
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                             </div>
 
-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Medio de Captación:" AssociatedControlID="DdlMedioCaptacion"></asp:Label>
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlMedioCaptacion" runat="server" DataTextField="MedioCaptacion" DataValueField="CveMedioCaptacion" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                             </div>
 
-                            <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
-                            <div class="col-md-2">
+                            <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Probabilidad:" AssociatedControlID="DdlProbabilidad"></asp:Label>
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlProbabilidad" runat="server" DataTextField="ProbabilidadAcercamiento" DataValueField="CveProbabilidadAcercamiento" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
                             </div>
                         </div>
                     </div>
                 </div>
                 <div class="portlet-body" style="display: none;">
-                    <div class="row" style="margin-left: 10px; margin-top: 10px;">
-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
-                        <div class="col-md-2">
+                     <div class="row" style="margin-left: 10px;">
+                        <asp:Label class="col-md-1 " style="margin-top: 5px;" runat="server" Text="Agrupado Por:" AssociatedControlID="DdlGrupo1"></asp:Label>
+                        <div class="col-md-1">
                             <asp:DropDownList ID="DdlGrupo1" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
                                 <asp:ListItem Value="1" Text="Vendedor" Selected="true"></asp:ListItem>
                                 <asp:ListItem Value="2" Text="Medio de Captación"></asp:ListItem>
@@ -100,8 +100,8 @@
                             </asp:DropDownList>
                         </div>
 
-                        <asp:Label class="col-md-1 " style="width: 110px; margin-top: 5px;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
-                        <div class="col-md-2">
+                        <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Agrupado Por(2):" AssociatedControlID="DdlGrupo2"></asp:Label>
+                        <div class="col-md-1">
                             <asp:DropDownList ID="DdlGrupo2" runat="server" Width="100%" CssClass="form-control input-sm select2me Widthall">
                                 <asp:ListItem Value="-1" Text="Ninguno" Selected="True"></asp:ListItem>
                                 <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
@@ -112,8 +112,8 @@
                             </asp:DropDownList>
                         </div>
 
-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
-                        <div class="col-md-2">
+                        <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Fecha Inicio:" AssociatedControlID="TxtFechaInicio"></asp:Label>
+                        <div class="col-md-1">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: 5px;">
                                 <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
                                 <span class="input-group-btn ">
@@ -124,8 +124,8 @@
                             <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudI" TargetControlID="TxtFechaInicio" PopupButtonID="imgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                         </div>
 
-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
-                        <div class="col-md-2">
+                        <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Fecha Fin:" AssociatedControlID="TxtFechaFin"></asp:Label>
+                        <div class="col-md-1">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: 5px;">
                                 <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
                                 <span class="input-group-btn ">
@@ -136,15 +136,32 @@
                             <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                         </div>
                     </div>
-                    <div class="row">
-                        <asp:Label class="col-md-1 " style="width: 124px; margin-top: 5px;" runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
-                        <div class="col-md-2">
+                     <div class="row" style="margin-left: 10px;">
+                        <asp:Label class="col-md-1 " style="  margin-top: 5px;" runat="server" Text="Producto Servicio:" AssociatedControlID="DdlPS"></asp:Label>
+                        <div class="col-md-1">
                             <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
                         </div>
 
-                        <asp:Label class="col-md-1 " style="width: 100px; margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
-                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlGiroClasificacion" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
+                        <asp:Label class="col-md-1 " style=" margin-top: 5px;" runat="server" Text="Giro:" AssociatedControlID="DdlGiroClasificacion"></asp:Label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat ="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control select2me"></asp:DropDownList>
+                        </div>
+
+
+                            <label class="col-md-1" >En Pausa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEnPausa" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
+                                <asp:ListItem Value="-1">Todo</asp:ListItem>
+                                <asp:ListItem Value="0">Activos</asp:ListItem>
+                                <asp:ListItem Value="1">En Pausa</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+
+
+                        <label class="col-md-1" >Etapa:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlEtapaProceso" Width="100%" runat="server"  CssClass="form-control input-sm select2me" DataTextField="EtapaProceso" DataValueField="CveEtapaProceso">
+                            </asp:DropDownList>
                         </div>
                     </div>
                 </div>

CRM/RepAcercamientosRechazos.aspx.cs

@@ -9,6 +9,8 @@ using Extensiones;
 using iTextSharp.text.pdf;
 using iTextSharp.text;
 using System.IO;
+using ADSNetLibrary.SIGAPI.Models.CRM.Request;
+using ADSNetLibrary.SIGAPI.Services.CRM;
 
 public partial class CRM_RepAcercamientosRechazos : ClsPaginas
 {
@@ -117,6 +119,14 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
         DdlMedioCaptacion.SelectedValue = "-1";
         DdlProbabilidad.SelectedValue = "-1";
         DdlTipoProceso.SelectedIndex = 0;
+
+        ICRMService cRMService = new CRMService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+        RequestEtapaProceso EtapaProceso = new RequestEtapaProceso(UsuarioActual.CveEmpresa, 1, -1);
+        DdlEtapaProceso.DataSource = ADSNetLibrary.SIGAPI.Helpers.ExtensionMethods.ToDataTable(cRMService.GetEtapaProcesoCRM(EtapaProceso).Result);
+        DdlEtapaProceso.DataBind();
+        DdlEtapaProceso.Items.Insert(0, new System.Web.UI.WebControls.ListItem("Todas", "-1"));
+
+
         upDatosRepA.Update();
     }
 
@@ -133,7 +143,8 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
         ClsCRM ObjCRM = new ClsCRM();
         GVRepAcercamientosEtapas.Columns.Clear();
 
-        if (ObjCRM.RepAcercamientosRechazos(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento, CvePS:DdlPS.SelectedValue.ToEntero(), CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero()))
+        if (ObjCRM.RepAcercamientosRechazos(UsuarioActual.CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, fechaIni, fechaFin, cveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento, CvePS:DdlPS.SelectedValue.ToEntero(), 
+            CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero(), EnPausa: DdlEnPausa.SelectedValue.ToEntero(), CveEtapaProceso: DdlEtapaProceso.SelectedValue.ToEntero()))
         {
             DataTable dte = ObjCRM.DSResultados.Tables[1];
             GVRepAcercamientosEtapas.DataSource = ObjCRM.DSResultados.Tables[0];

Compras/Compras.aspx.vb

@@ -1769,7 +1769,7 @@ Partial Class Compras_Compras
 
                 If Validada And Not EnListadoEFOS Then
                     Try
-                        XMLDoc.Load(Archivo)
+                        XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", ""))
                     Catch ex As Exception
                         Try
                             Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
@@ -1820,13 +1820,21 @@ Partial Class Compras_Compras
                         Xml = Xml.Replace(Chr(13), "") 'salto de linea
                         Xml = Xml.Replace(Chr(10), "")
                         Xml = Xml.Replace("<br />", "") 'salto de linea html
+                        Xml = Xml.Replace("&lt;br&gt;", "")
+                        Xml = Xml.Replace("&lt;", "")
+
                         Xml = Xml.Replace("&", "") 'adicional, si hay otros
 
+
                         If ObjeFacturas.GetFacturasComparacionXML(Version, Xml, UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
                             TmpDT.Columns.Add("CveSATPSActualizado")
                             SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL
 
+                            If Not TmpDT.Columns.Contains("Amortizacion") Then
+                                TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+                            End If
+
                             AddPS2(False)
 
                             'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
@@ -1939,6 +1947,11 @@ Partial Class Compras_Compras
 
                     If Version = "3.3" Or Version = "4.0" Then
 
+                        If Not TmpDT.Columns.Contains("Amortizacion") Then
+                            TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+                        End If
+                        TmpDT.AcceptChanges()
+
                         ValidacionesTotalesXml()
 
                     Else
@@ -2264,6 +2277,10 @@ Partial Class Compras_Compras
 
     Private Sub ValidacionesTotalesXml()
 
+        If Not TmpDT.Columns.Contains("Amortizacion") Then
+            TmpDT.Columns.Add("Amortizacion", GetType(Decimal))
+        End If
+
         Dim Msg As String = ""
         Dim SubtotalTemp = TmpDT.SUM("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2)
         Dim DescuentosTemp = TmpDT.SUM("Descuento")
@@ -8088,11 +8105,15 @@ Partial Class Compras_Compras
                                         Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
                                     End If
 
-                                    If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                        TieneError = True
-                                        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+
+                                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                                        If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                                            TieneError = True
+                                            Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+                                        End If
                                     End If
 
+
                                     If Not TieneError Then
                                         ObjCompras.Commit()
                                         If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()

Compras/PopUpVerFactura.aspx.vb

@@ -1236,17 +1236,20 @@ Partial Class PopUpVerFactura
                 Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString)
                 Dim Archivo As New System.IO.FileInfo(Path)
 
-                If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
-                    If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
-                        Dim CveIE As Integer = -1
-                        If UrlParametros("CVEIE") IsNot Nothing Then
-                            CveIE = UrlParametros("CVEIE").ToString.ToEntero
+                If Not Archivo.Exists Then
+                    If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
+                        If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
+                            Dim CveIE As Integer = -1
+                            If UrlParametros("CVEIE") IsNot Nothing Then
+                                CveIE = UrlParametros("CVEIE").ToString.ToEntero
+                            End If
+                            PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
                         End If
-                        PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
                     End If
+
+                    Archivo = Nothing
                 End If
 
-                Archivo = Nothing
             End If
 
             If UrlParametros("SERIEFOLIO") IsNot Nothing AndAlso UrlParametros("SERIEFOLIO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then
@@ -2949,6 +2952,10 @@ Partial Class PopUpVerFactura
                         End If
                     End If
 
+                    If Vta.Version.ToEntero() = 4 AndAlso dr1("CodigoObjetoImpuesto").ToString() = "02" AndAlso Now.Date >= New DateTime(2022, 11, 1) AndAlso dr1("Descuento").ToString().ToDecimal().RoundSQL(2) = dr1("Total").ToString().ToDecimal().RoundSQL(2) Then
+                        dr1("CodigoObjetoImpuesto") = "04"
+                    End If
+
                 Next
 
                 Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC")

Compras/RepCxP.aspx.vb

@@ -195,10 +195,16 @@ Partial Class Compras_RepCxP
         If txtFechaVI.Text = "" Then FechaVI = "-1"
         If txtFechaVF.Text = "" Then FechaVF = "-1"
         Dim TipoAgrupacion As Integer = IIf(chkAgruparMes.Checked, 1, -1)
+
+        Dim CveProyecto As Integer = -1
+        If DdlProyecto.Visible Then
+            CveProyecto = DdlProyecto.SelectedValue.ToEntero()
+        End If
+
         Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM)
         If Mov.GetCxP(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero(), DdlUsuarioResponsable.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlEstatusCompra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
                       DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(DdlTipoProveedor.SelectedValue.ToEntero = 3, -1, DdlTipoProveedor.SelectedValue.ToEntero), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero,
-                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion) Then
+                      TipoDocto:=TipoDocto, TipoAgrupacion:=TipoAgrupacion, CveProyecto:=CveProyecto) Then
             GvCxP.DataSource = Mov.DtResultados
             DtDatos = Mov.DtResultados
             DtGrafica = Mov.DtResultados
@@ -567,50 +573,55 @@ Partial Class Compras_RepCxP
                 e.Row.FCHyperLink($"HplColumna14").Text = e.Row.DBCampo("Mes12").ToString.FormatoNumero
                 e.Row.FCHyperLink($"HplColumna15").Text = e.Row.DBCampo("Mes13").ToString.FormatoNumero
 
-                Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim CveProyecto As Integer = -1
+                If DdlProyecto.Visible Then
+                    CveProyecto = DdlProyecto.SelectedValue.ToEntero()
+                End If
+
+                Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna1").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna2").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes1"), e.Row.DBCampo("NomMesF1"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes1"), e.Row.DBCampo("NomMesF1"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna3").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes2"), e.Row.DBCampo("NomMesF2"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes2"), e.Row.DBCampo("NomMesF2"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna4").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes3"), e.Row.DBCampo("NomMesF3"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes3"), e.Row.DBCampo("NomMesF3"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna5").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes4"), e.Row.DBCampo("NomMesF4"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes4"), e.Row.DBCampo("NomMesF4"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna6").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes5"), e.Row.DBCampo("NomMesF5"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes5"), e.Row.DBCampo("NomMesF5"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna7").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes6"), e.Row.DBCampo("NomMesF6"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes6"), e.Row.DBCampo("NomMesF6"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna8").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes7"), e.Row.DBCampo("NomMesF7"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes7"), e.Row.DBCampo("NomMesF7"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna9").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes8"), e.Row.DBCampo("NomMesF8"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes8"), e.Row.DBCampo("NomMesF8"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna10").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes9"), e.Row.DBCampo("NomMesF9"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes9"), e.Row.DBCampo("NomMesF9"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna11").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes10"), e.Row.DBCampo("NomMesF10"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes10"), e.Row.DBCampo("NomMesF10"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna12").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes11"), e.Row.DBCampo("NomMesF11"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes11"), e.Row.DBCampo("NomMesF11"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna13").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes12"), e.Row.DBCampo("NomMesF12"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes12"), e.Row.DBCampo("NomMesF12"), TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna14").NavigateUrl = Liga1
-                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes13"), "31/12/9999", TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Liga1 = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, e.Row.DBCampo("NomMes13"), "31/12/9999", TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
                 e.Row.FCHyperLink($"HplColumna15").NavigateUrl = Liga1
 
                 If e.Row.FCHyperLink("HplSaldo").Text = "0.00" Then e.Row.FCHyperLink("HplSaldo").Text = "-"
@@ -673,52 +684,57 @@ Partial Class Compras_RepCxP
 
                 '/Bancos/RepProgramarRecursos.aspx --> Compras/RepCxPDetalle.aspx
 
-                Dim LigaTot As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim CveProyecto As Integer = -1
+                If DdlProyecto.Visible Then
+                    CveProyecto = DdlProyecto.SelectedValue.ToEntero()
+                End If
+
+                Dim LigaTot As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
 
-                Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga1 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C1&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                              e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga2 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga2 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C2&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga3 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga3 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C3&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga4 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga4 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C4&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga5 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga5 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C5&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga6 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga6 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C6&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga7 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga7 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C7&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga8 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
-                Dim Liga9 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C9&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
-                Dim Liga10 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C10&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
-                Dim Liga11 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C11&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
-                Dim Liga12 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C12&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
-                Dim Liga13 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C13&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga8 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C8&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Dim Liga9 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C9&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Dim Liga10 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C10&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Dim Liga11 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C11&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Dim Liga12 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C12&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
+                Dim Liga13 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=C13&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga14 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga14 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=S&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga15 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga15 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
-                Dim Liga16 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}",
-                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto)
+                Dim Liga16 As String = String.Format("/Compras/RepCxPDetalle.aspx?Op=TPV&GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&CveMoneda={7}&FechaI={8}&FechaF={9}&CveProveedorSucursal={10}&CveProveedorClasificacion={11}&CveSubProyecto={12}&CveEstatusFactura={13}&TipoMoneda={14}&CveUsuarioResponsable={15}&FechaVI={16}&FechaVF={17}&TCEspecifico={18}&FechaCorte={19}&CveTipoProveedor={20}&Comprobaciones={21}&TipoDocto={22}&CveProyecto={23}",
+                                               e.Row.DBCampo("CveGpo"), e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveMoneda"), FechaI, FechaF, e.Row.DBCampo("CveProveedorSucursal"), e.Row.DBCampo("CveProveedorClasificacion"), If(DdlSubProyecto.SelectedValue.ToEntero > 0, DdlSubProyecto.SelectedValue, e.Row.DBCampo("CveSubProyecto")), e.Row.DBCampo("CveEstatusFactura"), TipoMoneda, Responsable, FechaVI, FechaVF, TCEspecifico, txtCorteA.Text, CveTipoProveedor, e.Row.DBCampo("Comprobaciones"), TipoDocto, CveProyecto)
 
 
 

Compras/RepCxPDetalle.aspx.vb

@@ -167,6 +167,14 @@ Partial Class RepCxPDetalle
         Set(value As Integer)
             ViewState("CveSubProyecto") = value
         End Set
+    End Property
+    Public Property CveProyecto() As Integer
+        Get
+            Return ViewState("CveProyecto").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveProyecto") = value
+        End Set
     End Property
     Private Property DtDatos As DataTable
         Get
@@ -317,7 +325,10 @@ Partial Class RepCxPDetalle
         CveUsuario = IfNull(Request("CveUsuario"), -1).ToString.ToEntero
         CveEstatusFactura = IfNull(Request("CveEstatusFactura"), -1).ToString.ToEntero
         CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
+        CveProyecto = IfNull(Request("CveProyecto"), -1).ToString.ToEntero
 
+        DdlProyecto.SelectedValueExist(CveProyecto)
+        DdlSubProyecto.SelectedValueExist(CveSubProyecto)
 
         DdlEstatusCompra.DataSource = GlobalDTCompEstatusFactura.FiltraParametros("CveEstatusFactura IN (1, 2)")
         DdlEstatusCompra.DataBind()
@@ -408,10 +419,10 @@ Partial Class RepCxPDetalle
             CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
 
             If ObjMovtos.GetCxPDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, CveProveedorSucursal, CveUsuario,
-                                       DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, CveSubProyecto, DdlEstatusCompra.SelectedValue.ToEntero,
+                                       DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero(), DdlEstatusCompra.SelectedValue.ToEntero,
                                        Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero,
                                        TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3,
-                                       -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto) Then
+                                       -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto, CveProyecto:=DdlProyecto.SelectedValue.ToEntero()) Then
 
 
                 Dim TMP_DTDatos As New DataTable

Compras/eFacturas.aspx.vb

@@ -2173,64 +2173,7 @@ Partial Class Compras_eFacturas
 
         Return Fact
     End Function
-    Private Function GuardaArchivoXML(Archivo As String) As Modelos.eFactura
-        ' , Destino As String, Temporal As String
-        Dim Retorno As Modelos.eFactura = Nothing
 
-        If File.Exists(Archivo) Then
-            Dim NombreArchivo As String = Path.GetFileName(Archivo)
-            Dim invalidChars As Char() = Path.GetInvalidFileNameChars()
-            Dim invalidString As String = Regex.Escape(New String(invalidChars))
-            Dim valid As String = Regex.Replace(NombreArchivo, (Convert.ToString("[") & invalidString) + "]", "")
-
-            NombreArchivo = valid
-
-            Try
-                Dim XMLDoc As New XmlDocument()
-
-                XMLDoc.Load(Archivo)
-                Retorno = CargaDatosXML(XMLDoc)
-
-            Catch exx As XmlException
-                Retorno = Nothing
-                'Dim texto As Dynamic = File.ReadAllText(Archivo)
-                Dim txt_utf8 As New UTF8Encoding()
-                'REEMPLAZA CARACTERES ESPECIALES Y VUELVE A LEER EL DOCUMENTO
-
-                'texto = RemoveIllegalXMLCharacters(texto)
-                ' SE RENOMBRA EL ARCHIVO, PERO SE QUITO POR SI NO COINCIDE EL PDF CON EL NOMBRE
-                'Archivo = Archivo.ToUpper.Replace(".XML", "-2.XML")
-                'NombreArchivo = IO.Path.GetFileName(Archivo)
-                'File.WriteAllText(Archivo, texto)
-
-
-                ' Dim xmltr As New XmlTextReader(New MemoryStream(RemoveIllegalXMLCharacters(texto)))
-                Dim XMLDoc As New XmlDocument()
-
-                Try
-                    XMLDoc.Load(Archivo)
-                    Retorno = CargaDatosXML(XMLDoc)
-                Catch ex As Exception
-                    Retorno = Nothing
-
-
-
-                End Try
-            Catch ex As Exception
-
-
-                Retorno = Nothing
-            End Try
-
-            'si se cargaron todos los datos
-            If Retorno IsNot Nothing AndAlso Not String.IsNullOrEmpty(Retorno.TFDUUID) Then
-                'XML
-                Retorno.ArchivoXML = NombreArchivo
-            End If
-        End If
-        Return Retorno
-
-    End Function
     Private Sub CargaImpuestosXML(XMLDoc As XmlDocument)
         Dim Prefijo As String = If(String.IsNullOrEmpty(XMLDoc.DocumentElement.Prefix), "cfd", XMLDoc.DocumentElement.Prefix)
         Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
@@ -3338,7 +3281,7 @@ Partial Class Compras_eFacturas
 
 
             Dim SXML As String = File.ReadAllText(Archivo).Replace(vbLf, " ").Replace(vbCrLf, " ")
-
+            SXML = SXML.Replace("o;?", "")
             SXML = SXML.Trim((Convert.ToChar(0)))
 
             XMLDoc.LoadXml(SXML)
@@ -4508,7 +4451,7 @@ Partial Class Compras_eFacturas
 
 
                 Dim SXML As String = File.ReadAllText(Archivo).Replace(vbLf, " ").Replace(vbCrLf, " ")
-
+                SXML = SXML.Replace("o;?", "")
                 SXML = SXML.Trim((Convert.ToChar(0)))
 
                 XMLDoc.LoadXml(SXML)

Empresas/141/Formatos/Cotizacion.rdlc

@@ -3517,6 +3517,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">

Empresas/141/Formatos/Factura.rdlc

@@ -152,6 +152,10 @@
           <DataField>PorcentajeIVA</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="CodigoObjetoImpuesto">
+          <DataField>CodigoObjetoImpuesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DsOC</rd:DataSetName>
@@ -448,7 +452,7 @@
                   <Paragraph>
                     <TextRuns>
                       <TextRun>
-                        <Value>Este documento es una representación impresa de un CFDI                                                                                                                                                                                  </Value>
+                        <Value>Este documento es una representación impresa de un CFDI                                                                                                                                                                           </Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
                           <FontSize>6pt</FontSize>
@@ -456,7 +460,23 @@
                         </Style>
                       </TextRun>
                       <TextRun>
-                        <Value>VERSION 3.3</Value>
+                        <Value>VERSION </Value>
+                        <Style>
+                          <FontFamily>MYRiad Pro</FontFamily>
+                          <FontSize>6pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                        </Style>
+                      </TextRun>
+                      <TextRun>
+                        <Value>=Parameters!CFDIVersion.Value</Value>
+                        <Style>
+                          <FontFamily>MYRiad Pro</FontFamily>
+                          <FontSize>6pt</FontSize>
+                          <FontWeight>Bold</FontWeight>
+                        </Style>
+                      </TextRun>
+                      <TextRun>
+                        <Value xml:space="preserve"> </Value>
                         <Style>
                           <FontFamily>MYRiad Pro</FontFamily>
                           <FontSize>6pt</FontSize>
@@ -511,16 +531,19 @@
                   <Width>0.66404in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.60074in</Width>
+                  <Width>2.11562in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.83102in</Width>
+                  <Width>0.6863in</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>0.69852in</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>0.6403in</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>0.69088in</Width>
+                  <Width>0.67895in</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>0.80447in</Width>
@@ -743,6 +766,50 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox26">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Obj. Imp.</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox26</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>2pt</Width>
+                            </BottomBorder>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox53">
@@ -1103,6 +1170,41 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="CodigoObjetoImpuesto">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!CodigoObjetoImpuesto.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Normal</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Left</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>CodigoObjetoImpuesto</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="PU1">
@@ -1267,6 +1369,7 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -1283,7 +1386,7 @@
             <Top>1.75278in</Top>
             <Left>0.09836in</Left>
             <Height>0.36206in</Height>
-            <Width>8.16629in</Width>
+            <Width>8.22304in</Width>
             <ZIndex>1</ZIndex>
             <Style>
               <Border>
@@ -2015,6 +2118,25 @@
                 </TextRuns>
                 <Style />
               </Paragraph>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>Reg.fiscal: </Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                  <TextRun>
+                    <Value>=Parameters!RegimenFiscalCodigo.Value</Value>
+                    <Style>
+                      <FontFamily>calibri</FontFamily>
+                      <FontWeight>Bold</FontWeight>
+                    </Style>
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
             <Top>3.56339cm</Top>
@@ -4635,6 +4757,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="ID2">

Inicio.aspx.vb

@@ -243,7 +243,7 @@ Partial Class Inicio
             Dim ObjProveedor As New ClsCompProveedores
             If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then
                 If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then
-                    Dim Mensaje As String = "Hay evaluaciones de proveedores pendientes por aceptar. ¿Desea evaluar las evaluaciones de proveedor pendientes?"
+                    Dim Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?"
                     Dim MsgAccionAceptar = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");"
 
                     Alert(Mensaje, TipoMensaje.MsgConfirmacion, JSBtnAceptar:=MsgAccionAceptar, TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ")

Nomina/Nomina.aspx

@@ -615,19 +615,49 @@
                                     <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                     <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
                                 </div>
-                                <div class="actions">
-                                    <div class="btn-group">
-                                    </div>
-                                </div>
                                 <div style="float: right;">
                                     <asp:TextBox CssClass="TxtBusqasistencia form-control input-sm" runat="server" onkeyup="FiltrarTablaV2('.TxtBusqasistencia','.gvasistencia')" Style="display: inline-block; margin-right: -20px; width: 150px;"></asp:TextBox>
                                     <a href="javascript:;" onclick="FiltrarTablaV2('.TxtBusqasistencia','.gvasistencia')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold yellow-gold"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
                                 </div>
+                                <div class="actions">
+                                    <%--<asp:LinkButton ID="LnkProcesarReporteIncidenciaCitrus" CssClass="btn yellow-gold" OnClick="LnkProcesarReporteIncidenciaCitrus_Click" runat="server">Descargar</asp:LinkButton>
+                                    <asp:LinkButton ID="LinkButton1" CssClass="btn yellow-gold" OnClick="LnkMostrarocultarConceptos_Click" runat="server">Cargar</asp:LinkButton>--%>
+
+                                    <asp:UpdatePanel ID="UpdatePanel2"  runat="server" UpdateMode="Conditional" class="btn-group ">
+                                        <ContentTemplate>
+                                            <a class="btn yellow-gold btn-sm" href="javascript:;" data-toggle="dropdown" data-hover="dropdown" data-close-others="true" aria-expanded="true"><i class="sidebar-toggler-wrapper"></i>Asistencia
+                                                    <i class="fa fa-angle-down"></i>
+                                            </a>
+                                            <ul class="dropdown-menu pull-right">
+                                                <li>
+                                                    <asp:LinkButton ID="LnkProcesarReporteIncidenciaTabular" OnClick="LnkProcesarReporteIncidenciaTabular_Click" Text="<i class='fa fa-download'></i> Plantilla" runat="server"></asp:LinkButton>
+                                                </li>
+                                                <li>
+                                                    <asp:LinkButton ID="LnkshowProsesarASistencia" OnClick="LnkshowProsesarASistencia_Click" Text="<i class='fa fa-download'></i> Actualizar asistencia" runat="server"></asp:LinkButton>
+                                                </li>
+                                                <%-- <li>
+                                                            <asp:LinkButton ID="LnkCalculoSubsidio" OnClick="LnkCalculoSubsidio_Click" Text="<i class='icon-bulb'></i> Calculo Subsidio" runat="server"></asp:LinkButton>
+                                                        </li>
+                                                        <li>
+                                                            <asp:LinkButton ID="LnkCalculoISR" OnClick="LnkCalculoISR_Click" Text="<i class='icon-bulb'></i> Calculo ISR" runat="server"></asp:LinkButton>
+                                                        </li>--%>
+                                            </ul>
+
+                                        </ContentTemplate>
+                                        <Triggers>
+
+                                            <asp:PostBackTrigger ControlID="LnkProcesarReporteIncidenciaTabular" />
+                                        </Triggers>
+
+                                    </asp:UpdatePanel>
+                                    <div class="btn-group">
+                                    </div>
+                                </div>
                             </div>
                             <asp:Literal ID="ltlGvAsistencia" runat="server"></asp:Literal>
                         </div>
                     </ContentTemplate>
-                </ajax:TabPanel>
+        </ajax:TabPanel>
             </ajax:TabContainer>
         </ContentTemplate>
 
@@ -3195,6 +3225,47 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+    
+    <div id="DModalAsistenciaTabular" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpdatePanel3" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <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" runat="server" style="text-align: left">ASISTENCIA TABULAR</h4>
+                    </div>
+                    <div class="modal-body">
+
+
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-upload font-green"></i>
+                                    <span class="caption-subject bold uppercase">cargar Asistencia Tabular </span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding ">
+                                <asp:TextBox ID="TxtAsistenciaTabular" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                            </div>
+                        </div>
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:LinkButton ID="LnkProcesarAsistenciaTabular" OnClick="LnkProcesarAsistenciaTabular_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </div>
+            </ContentTemplate> 
+        </asp:UpdatePanel>
+    </div>
 
     <div id="DModalNominas" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpCargarNomina" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">

Nomina/Nomina.aspx.cs

@@ -8062,6 +8062,146 @@ public partial class Nomina_Nomina2 : ClsPaginas
     {
         RegistraScript("$('#DmodalReportePercepcionesdeducciones').modal()");
     }
+    protected void LnkProcesarReporteIncidenciaTabular_Click(object sender, EventArgs e)
+    {
+
+        DateTime fechai = TxtRIFechaInicio.Text.ToDateTime();
+        DateTime fechaf = TxtRIFechaFin.Text.ToDateTime();
+        ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
+        using (ClsNominas nom = new ClsNominas())
+        {
+            if (nom.GetPeriodos(-1,UsuarioActual.CveEmpresa,-1,-1, DdlPeriodo.SelectedValue.ToEntero(),-1) && (nom.DtResultados.Rows.Count>0))
+            {
+                fechai = nom.DtResultados.Rows[0]["FechaInicio"].ToString().ToDateTime();
+                fechaf = nom.DtResultados.Rows[0]["FechaFin"].ToString().ToDateTime();
+            }
+
+            if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, -4))
+            {
+
+                var libro = wb.AddWorksheet(nom.DTSetResultados.Tables[2], "Incidencias");
+                libro.ColumnsUsed().AdjustToContents();
+                var libroin = wb.AddWorksheet(nom.DTSetResultados.Tables[1], "Descripción incidencias");
+                libroin.ColumnsUsed().AdjustToContents();
+                libro.Row(1).InsertRowsAbove(4);
+                libro.Range(1, 2, 1, 6).Merge().Value = UsuarioActual.Empresa.Empresa;
+                libro.Range(2, 2, 2, 6).Merge().Value = "Reporte de incidencias";
+                libro.Range(3, 2, 3, 6).Merge().Value = $"del {fechai:dd/MM/yyyy} al {fechaf:dd/MM/yyyy}";
+                libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now:dd/MM/yyyy}";
+                libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now:HH:mm}";
+
+                //ws.Row(1).InsertRowsAbove(1);
+            }
+        }
+
+
+        System.IO.Stream fs = new System.IO.MemoryStream();
+        wb.SaveAs(fs);
+        fs.Position = 0;
+        System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
+        using (System.IO.Stream input = fs)
+
+        {
+            input.CopyTo(memoryStream);
+        }
+        memoryStream.Position = 0;
+
+        Response.Clear();
+        Response.Buffer = true;
+
+        Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
+        Response.AddHeader("content-disposition", string.Format("attachment;filename=incidencias del {0:dd-MM-yyyy} al {1:dd-MM-yyyy}.xlsx", fechai, fechaf));
+        Response.BinaryWrite(memoryStream.ToArray());
+        Response.End();
+    }
+
+    // 
+    protected void LnkshowProsesarASistencia_Click(object sender, EventArgs e)
+    {
+        RegistraScript("$('#DModalAsistenciaTabular').modal()");
+    }
+    protected void LnkProcesarAsistenciaTabular_Click(object sender, EventArgs e)
+    {
+
+
+        int chkImporteValor = 1;
+        int chkImporte = 1;
+        int chkImporteGravado = 0;
+        List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
+        bool continuar = Filesgral.Count > 0;
+        string stringError = "";
+        Archivo fileItem = continuar ? Filesgral[0] : null;
+        if (continuar)
+        {
+            string FileExtension = fileItem.Extension.ToUpper();
+            if (FileExtension == "XLS" | FileExtension == "XLSX" | FileExtension == "CSV")
+            {
+            }
+            else
+            {
+                continuar = false;
+                stringError = "No se inserto un archivo de tipo Excel";
+            }
+
+        }
+        if (!(CvePeriodoSeleccionado >= 0))
+        {
+            continuar = false;
+            stringError = "debe cargar el periodo a actualizar";
+
+        }
+
+        DataTable DTEXcel = new DataTable();
+        if (continuar)
+        {
+            try
+            {
+                DataTable dtxz = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true,4);
+                DTEXcel = dtxz.FiltraParametros("  LEN(Codigo)>0  AND Codigo  <> 'Codigo'");
+
+            }
+            catch (Exception ex)
+            {
+
+                continuar = false;
+                stringError = "Ocurrio un Error al procesar el excel ";
+                string.Format("{0} \r\n{0}", stringError, ex.ToString()).GuardaLog();
+            }
+        }
+        if (continuar && DTEXcel.Rows.Count == 0)
+        {
+
+            continuar = false;
+            stringError = "No se encontraron cambios";
+        }
+        if(continuar)
+        {
+
+            for (int j = 2; j < DTEXcel.Rows.Count; j++)
+            {
+                for (int i = 1; i < DTEXcel.Columns.Count; i++)
+                {
+                    /*
+                    //
+                    string conceptocodigo = drowx[i].ToString(); string CveConcepto;
+                    DataRow dconr = dtConceptos.FiltroPrimero(string.Format("codigo='{0}'", conceptocodigo));
+                    if (dconr != null)
+                    {
+                        CveConcepto = dconr["CveConcepto"].ToString();
+                        dtxz.Columns[i].ColumnName = CveConcepto;
+                    }
+                    else
+                    {
+                        continuar = false;
+                        stringError = string.Format("Ocurrio un Error al procesar el excel código no valido '{0}'({1}).", conceptocodigo, i);
+                        break;
+                    }*/
+                    //int CveConcepto = dtxz.Columns[i].ColumnName.ToEntero();
+                }
+            }
+        }
+    }
+
     protected void LnkProcesarReporteIncidencia_Click(object sender, EventArgs e)
     {
 
@@ -8876,4 +9016,5 @@ public partial class Nomina_Nomina2 : ClsPaginas
         UpviewCorreos.Update();
         RegistraScript(string.Format("$('#ModalViewCorreo').modal();", TxtmcImporte.ClientID));
     }
+
 }

RH/CalculoSBC.aspx.cs

@@ -249,22 +249,22 @@ public partial class RH_CalculoSBC : ClsPaginas
         //libro.Range(3, 2, 3, 6).Merge().Value = $"del {fechai:dd/MM/yyyy} al {fechaf:dd/MM/yyyy}";
         libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now:dd/MM/yyyy}";
         libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now:HH:mm}";
-        libro.Range(5, 6, 5, 9).Merge().Value = "Actual";
-        libro.Range(5, 10, 5, 12).Merge().Value = "Nuevo";
+        libro.Range(5, 8, 5, 11).Merge().Value = "Actual";
+        libro.Range(5, 12, 5, 14).Merge().Value = "Nuevo";
 
         libro.Range(5, 1, 6, 14).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
 
         libro.Range(5, 1, 6, 13).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
         libro.Range(5, 1, 5, 13).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.None;
 
-        libro.Range(5, 6, 6, 9).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 100, 162));
-        libro.Range(5, 6, 6, 9).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-        libro.Range(5, 10, 6, 12).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(136, 214, 205));
-        libro.Range(5, 10, 6, 12).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+        libro.Range(5, 8, 6, 11).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(128, 100, 162));
+        libro.Range(5, 8, 6, 11).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+        libro.Range(5, 12, 6, 14).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(136, 214, 205));
+        libro.Range(5, 12, 6, 14).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
 
 
-        libro.Range(7, 6, 7 + dt.Rows.Count, 12).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Right;
-        libro.Range(7, 6, 7 + dt.Rows.Count, 12).Style.NumberFormat.Format = "$##,###,###,0.00";
+        libro.Range(7, 8, 7 + dt.Rows.Count, 12).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Right;
+        libro.Range(7, 8, 7 + dt.Rows.Count, 12).Style.NumberFormat.Format = "$##,###,###,0.00";
 
 
 

Ventas/CatClientesClasificaciones.aspx

@@ -32,7 +32,7 @@
         <ContentTemplate>
             <asp:UpdatePanel ID="UpGvClasificacion" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
-                    <asp:GridView ID="GvClasificacion" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClienteClasificacion" EmptyDataText="No se encontraron Clasificaciones." ToolTip="Listado de Clasificacaiones" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" GridLines="None">
+                    <asp:GridView ID="GvClasificacion" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClienteClasificacion" EmptyDataText="No se encontraron giros de clientes." ToolTip="Listado de giros de clientes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" GridLines="None">
                         <Columns>
                             <asp:BoundField DataField="ClienteClasificacion" ItemStyle-Width="30%" HeaderText="Giro" ItemStyle-HorizontalAlign="left" />
                             <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="30%" HeaderText="Fecha Ingreso" ItemStyle-HorizontalAlign="left" />
@@ -65,15 +65,15 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" id="myModalLabel">Guardar Clasificación</h4>
+                        <h4 class="modal-title" id="myModalLabel">Guardar giro</h4>
                     </div>
                     <div class="modal-body">
                         <asp:UpdatePanel ID="UpAgregarSucursal" UpdateMode="Conditional" runat="server">
                             <ContentTemplate>
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtClasificacion" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RFVClasificacion" runat="server" ControlToValidate="TxtClasificacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtClasificacion.ClientID.ToString()%>">Clasificación:</label>
+                                    <asp:RequiredFieldValidator ID="RFVClasificacion" runat="server" ControlToValidate="TxtClasificacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Giro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarRegistro"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtClasificacion.ClientID.ToString()%>">Giro:</label>
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>

Ventas/CatClientesClasificaciones.aspx.vb

@@ -35,7 +35,7 @@ Partial Class Ventas_ClientesClasificaciones
         If HdnModalidad.Value = "I" Then
             If Objeto.AddClienteClasificacion(TxtClasificacion.Text, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
                 TxtClasificacion.Text = ""
-                Alert("La Clasificación se agregó correctamente.", TipoMensaje.MsgInformacion)
+                Alert("El giro se agregó correctamente.", TipoMensaje.MsgInformacion)
                 CargaDatos()
                 UpGvClasificacion.Update()
                 Objeto.Dispose()
@@ -45,7 +45,7 @@ Partial Class Ventas_ClientesClasificaciones
         Else
             If HdnID.Value.ToEntero <> -1 Then
                 If Objeto.UpdateClienteClasificacion(TxtClasificacion.Text, HdnID.Value.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
-                    Alert("Se actualizó correctamente la Clasificación.", TipoMensaje.MsgInformacion)
+                    Alert("Se actualizó correctamente el giro.", TipoMensaje.MsgInformacion)
                     CargaDatos()
                     UpGvClasificacion.Update()
                     Objeto.Dispose()
@@ -80,7 +80,7 @@ Partial Class Ventas_ClientesClasificaciones
         Dim Clave = GvClasificacion.Rows(e.RowIndex).DataKey("CveClienteClasificacion").ToEntero
 
         If Update.UpdateClienteClasificacion(Clasificacion, Clave, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, True) Then
-            Alert("Se actualizó correctamente la Clasificación.", TipoMensaje.MsgInformacion)
+            Alert("Se actualizó correctamente el giro.", TipoMensaje.MsgInformacion)
         End If
         GvClasificacion.EditIndex = -1
         CargaDatos()
@@ -97,7 +97,7 @@ Partial Class Ventas_ClientesClasificaciones
         Dim Objeto As New ClsClientes
         Dim Clave = GvClasificacion.Rows(e.RowIndex).DataKey("CveClienteClasificacion").ToEntero
         If Objeto.RemoveClienteClasificacion(Clave) Then
-            Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
+            Alert("El giro se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
         Objeto.Dispose()
         GvClasificacion.EditIndex = -1

Ventas/Ventas.aspx.vb

@@ -6185,6 +6185,12 @@ Partial Class Ventas
                 DdlVendedor.Enabled = False
                 LbAgregar.Enabled = True
             End If
+
+
+            ThTiempoEntrega.Visible = True
+                ThTiempoEntrega2.Visible = True
+                GvPS.Columns(5).Visible = True
+
         End If
         ObjCRM.Dispose()
     End Sub
@@ -7635,7 +7641,6 @@ Partial Class Ventas
 #End Region
 
 #Region "G R I D V I E W S"
-
 #Region "GvPS"
     Protected Sub GvPS_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvPS.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -7821,7 +7826,7 @@ Partial Class Ventas
                 End If
 
                 'Si es Cotizacíon
-                If e.Row.DBCampo("TipoDocto") = "Cot" Then
+                If e.Row.DBCampo("TipoDocto") = "Cot" Or CveEmpresaCRM > 0 Then
                     ThTiempoEntrega.Visible = True
                     ThTiempoEntrega2.Visible = True
                     GvPS.Columns(5).Visible = True
@@ -8572,6 +8577,43 @@ Partial Class Ventas
                 Alert("El cliente no tiene asignado un régimen fiscal.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
+
+            If DdlUsoCFDI.SelectedValue.ToEntero() <= 0 Then
+                Alert("No se ha seleccionado el Uso CFDI o el cliente no tiene asignado el correcto.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then
+
+            If LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente <> "616" Then
+                Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue <> "23" Then
+                Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente = "616" Then
+                Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue = "23" Then
+                Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            Dim EsPersonaMoral As Boolean = Me.TipoPersona
+            Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+
+            If DtUsosCFDI.Rows.Count = 0 Then
+                Alert("El Uso CFDI no corresponde con el tipo de persona (fisca, moral) y el régimen fiscal.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
         End If
 
         If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
@@ -12125,7 +12167,7 @@ Partial Class Ventas
             ' If drr("ImporteIVA").ToString().ToDouble > 0 Then
 
             'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero
-            If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then
+            If Timbre.Comprobante.Total > 0 AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0) Then
                 concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(6), .TasaOCuota = drr("PorcentajeIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString().ToDecimal})
             End If
 
@@ -12141,6 +12183,11 @@ Partial Class Ventas
                 concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeRetISR").ToString().ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString().ToDecimal})
             End If
 
+            'si el codigo objeto impuesto es 02 y no tiene desglose de impuestos por el descuento, debe asignar el valor 04 - Si objeto de impuesto y no causa impuesto
+            If concepto.Impuestos.Count = 0 AndAlso concepto.ObjetoImpuesto = "02" AndAlso (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(2) = 0.00D Then
+                concepto.ObjetoImpuesto = "04"
+            End If
+
             Timbre.Conceptos.Add(concepto)
             i += 1
         Next
@@ -12161,7 +12208,11 @@ Partial Class Ventas
                 Timbre.Complementos.ComercioExterior11.Incoterm = GlobalDTIncoterm.FiltroPrimeroValor("ClaveSATIncoterm", $"CveIncoterm={DdlIncoterm.SelectedValue}")
                 Timbre.Complementos.ComercioExterior11.Subdivision = "0"
                 Timbre.Complementos.ComercioExterior11.TipoCambioUSD = If(Obj.CveMoneda = 1, 1, Obj.TipoCambio.ToString().ToDecimal)
-                Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
+                If Timbre.Comprobante.TipoComprobante = "T" Then
+                    Timbre.Complementos.ComercioExterior11.MotivoTraslado = GlobalDTSATMotivoTraslado.FiltroPrimeroValor("ClaveSATMotivoTraslado", $"CveMotivoTraslado={DdlSATMotivoTraslado.SelectedValue}")
+                Else
+                    Timbre.Complementos.ComercioExterior11.MotivoTraslado = ""
+                End If
 
 
 
@@ -15071,7 +15122,7 @@ Partial Class Ventas
                         Dim DtProductos As DataTable = TmpDTDetalle.FiltraParametros("CveTipoPS = 2")
 
                         Dim MovDetalle As DataTable = New DataTable()
-                        MovDetalle.Columns.Add(New DataColumn("Cantidad", GetType(Integer)))
+                        MovDetalle.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
                         MovDetalle.Columns.Add(New DataColumn("CveUM", GetType(Integer)))
                         MovDetalle.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
                         MovDetalle.Columns.Add(New DataColumn("PU", GetType(Decimal)))
@@ -15096,29 +15147,48 @@ Partial Class Ventas
                         Next
 
                         'Le damos salida de apartado por traspaso
-                        Dim CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=False, ObjConta:=ObjConta, CveAlmacenDestino:=CveAlmacenExA)
+                        Dim CveMovimientoSalidaPorTraspaso = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 8, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=False, ObjConta:=ObjConta, CveAlmacenDestino:=CveAlmacenExA, MovimientoPrePoliza:=False)
 
                         If Not CveMovimientoSalidaPorTraspaso > 0 Then
                             OcurrioError = True
                         End If
 
+                        Dim CveMovimientoEntrada As Integer = -1
+
+                        Dim TotalPrePoliza As Decimal = 0
+
                         'Le damos entrada al general por traspaso
                         If Not OcurrioError Then
-                            Dim GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenExA, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=False, ObjConta:=ObjConta) > 0
 
-                            If Not GeneroMovimientoAlmacen Then
-                                OcurrioError = True
+                            If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaPorTraspaso, UsuarioActual.CveEmpresa) Then
+                                MovDetalle = ObjInventario.DtResultados.Copy()
+                                TotalPrePoliza = MovDetalle.SUMD("Total").RoundSQL(2)
                             End If
+
+                            If Not OcurrioError Then
+                                CveMovimientoEntrada = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenExA, 9, CveMoneda, CveRemision, CveMovimientoRelacionado:=CveMovimientoSalidaPorTraspaso, AplicaMovimientoDetalleEntrada:=False, ObjConta:=ObjConta, MovimientoPrePoliza:=False)
+
+                                If CveMovimientoEntrada <= 0 Then
+                                    OcurrioError = True
+                                End If
+                            End If
+
                         End If
 
                         'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
-                        If Not OcurrioError AndAlso DebeGenerarMovimiento Then
+                        If Not OcurrioError Then
                             If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
                                 OcurrioError = True
                                 ErrorList.Add("Ocurrió un error al verificar inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                             End If
                         End If
 
+                        If Not OcurrioError Then
+                            If ContabilizaMovimientoAlmacen(ObjConta, Now, ObjFactura.SerieFolio, "Ventas/Rem", CveMovimientoSalidaPorTraspaso, CveMovimientoEntrada, TotalPrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False) <= 0 Then
+                                OcurrioError = True
+                            End If
+                        End If
+
                     End If
 
                 End If
@@ -16354,6 +16424,7 @@ Partial Class Ventas
     End Function
 #End Region
 
+
 #Region "  BTN ELIMINAR   "
     Protected Sub BtnEmitir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEmitir.Click
 
@@ -20147,6 +20218,7 @@ Partial Class Ventas
             If Not OcurrioError Then
                 If MovimientoPrePoliza AndAlso CveMovimientoInventario > 0 Then
                     'OcurrioError = Not GeneraPrePolizaMovimientoAlmacen(ObjInventario, ObjConta, ObjContPaq, ObjFactura, ObjFactura.CvePrePoliza, CveMovimientoInventario, CveAlmacen)
+
                     If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                         Dim DtCostos = ObjInventario.DtResultados.Copy
                         Dim DtCostosDistinct As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"})
@@ -20197,6 +20269,7 @@ Partial Class Ventas
                     Else
                         OcurrioError = True
                     End If
+
                 End If
             End If
 
@@ -22575,30 +22648,35 @@ Partial Class Ventas
 
     End Sub
 
-    Private Sub CargaComboCFDICliente()
-        If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
-            DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI().FiltraParametros("CveUsoCFDI = 23")
-            DdlUsoCFDICliente.DataBind()
-        Else
-            Dim RegimenFiscalCliente = DdlRegimenFiscalCliente.SelectedValue.ToString()
-            If Not UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
-                RegimenFiscalCliente = "-1"
-            End If
-
-            DdlUsoCFDICliente.Items.Clear()
-            If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-                Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
-                DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+    Private Sub CargaComboCFDICliente()
+        If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+            If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
+                DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI().FiltraParametros("CveUsoCFDI = 23")
+                DdlUsoCFDICliente.DataBind()
             Else
-                DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
-            End If
+                Dim RegimenFiscalCliente As String = "-1"
 
-            DdlUsoCFDICliente.DataBind()
+                If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+                    RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue.ToEntero()}")
+                End If
+
+                DdlUsoCFDICliente.Items.Clear()
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                    Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+                    DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+                Else
+                    DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+                End If
+
+                DdlUsoCFDICliente.DataBind()
+                DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            End If
+        Else
+            DdlUsoCFDICliente.Items.Clear()
             DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        End If
-
-
-        UpAgregarCliente.Update()
+        End If
+
+        UpAgregarCliente.Update()
     End Sub
 
     Protected Sub DdlRegimenFiscalCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -22613,6 +22691,41 @@ Partial Class Ventas
         If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
             CveRegimenFiscal = DdlRegimenFiscalCliente.SelectedValue.ToEntero()
             CveUsoCFDI = DdlUsoCFDICliente.SelectedValue.ToEntero()
+
+            Dim RegimenFiscalCliente As String = "-1"
+
+            If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+                RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {CveRegimenFiscal}")
+            End If
+
+            If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue <> "11" Then
+                Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue <> "23" Then
+                Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue = "11" Then
+                Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue = "23" Then
+                Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+            Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {CveUsoCFDI}")
+
+            If DtUsosCFDI.Rows.Count = 0 Then
+                Alert("El Uso CFDI no corresponde con el tipo de persona (fisca, moral) y el régimen fiscal.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
         End If
 
         If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
@@ -34504,7 +34617,7 @@ Partial Class Ventas
         DVRegimenSociedad.Visible = False
         DivRazonSocial2.Attributes.Add("class", "col-md-12")
 
-        If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
+        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
 
             DivRazonSocial2.Attributes.Add("class", "col-md-8")
             DVRegimenSociedad.Visible = True
@@ -34531,6 +34644,11 @@ Partial Class Ventas
 
             End If
 
+            DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            DdlUsoCFDICliente.Items.Clear()
+            DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         End If
 
         UpAgregarCliente.Update()

vwd.webinfo

@@ -570,6 +570,14 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+