Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsNominas.vb

@@ -3264,8 +3264,46 @@ Public Class ClsNominas
         Return retorno
     End Function
 #End Region
+    Public Function GetConfiguracionNom(CveEmpresa As Int32, periodo As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_ConfiguracionNomGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Periodo", SqlDbType.Int).Value = periodo
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch sqEx As SqlException
+            retorno = False
+            OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            retorno = False
+            OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
 #Region "MovtosPermanentes"
 
+    Public Function GetMovtoPermanenteRep(CveEmpresa As Int32, CvePersonal As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_GetMovtoPermanenteRep", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch sqEx As SqlException
+            retorno = False
+            OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            retorno = False
+            OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
     Public Function GetMovtoPermanente(CveEmpresa As Int32, CvePersonal As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_GetMovtoPermanente", CommandType.StoredProcedure)
@@ -3305,7 +3343,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer
+    Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1, Optional EsAcumulado As Integer = 0) As Integer
         Dim retorno As Integer = 0
         DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure)
 
@@ -3321,6 +3359,7 @@ Public Class ClsNominas
             .Add("@estatus", SqlDbType.Bit).Value = (estatus)
             .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta)
             .Add("@CveIE", SqlDbType.Int).Value = (CveIE)
+            .Add("@EsAcumulado", SqlDbType.Int).Value = (EsAcumulado)
             .Add("@CveMovtoPermanente", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
         Try
@@ -3335,7 +3374,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer) As Boolean
+    Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional EsAcumulado As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -3350,6 +3389,7 @@ Public Class ClsNominas
             .Add("@fechaInicioAplicacion", SqlDbType.Date).Value = (fechaInicioAplicacion)
             .Add("@estatus", SqlDbType.Bit).Value = (estatus)
             .Add("@CveCuenta", SqlDbType.Int).Value = (CveCuenta)
+            .Add("@EsAcumulado", SqlDbType.Int).Value = (EsAcumulado)
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsOC.vb

@@ -1143,13 +1143,14 @@ Public Class ClsOC
         Return Retorno
     End Function
 
-    Public Function GetOrdenesDetalle(pCveOrdenCompra As Integer) As Boolean
+    Public Function GetOrdenesDetalle(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_OrdenesCompraDetalleGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra
+            .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -1331,7 +1331,7 @@ Public Class ClsPaginas
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Public Shared Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable
+    Public Shared Property GlobalDTUnidadesMedida(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTUnidadesMedida-{CveEmpresa}"
             'sino existe, recarga los datos
@@ -1347,7 +1347,7 @@ Public Class ClsPaginas
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable
+    Property GlobalDTUnidadesMedidaAlias(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTUnidadesMedidaAlias-{CveEmpresa}"
             'sino existe, recarga los datos
@@ -2411,7 +2411,7 @@ Public Class ClsPaginas
         End Set
     End Property
 
-    Property GlobalDTTipoVenta(Optional CveEmpresa As Integer = -1) As DataTable
+    Property GlobalDTTipoVenta(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTTipoVenta-{CveEmpresa}"
             'sino existe, recarga los datos
@@ -4426,7 +4426,7 @@ Public Class ClsPaginas
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
-    Public Shared Property GlobalDTVtaCondicionesEntrega(Optional CveEmpresa As Integer = -1) As DataTable
+    Public Shared Property GlobalDTVtaCondicionesEntrega(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTVtaCondicionesEntrega-{CveEmpresa}"
             'sino existe, recarga los datos
@@ -7725,7 +7725,7 @@ Public Class ClsPaginas
                 End If
                 ObjEmpresa.Dispose()
                 Dim dtOC As DataTable = ObjOC.DtResultados
-                If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra) Then 'Obtenemos el Detalle de la Oorden de Compra
+                If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra, ObjOC.CveEmpresa) Then 'Obtenemos el Detalle de la Oorden de Compra
                     DtDetalle = ObjOC.DtResultados
                 End If
 
@@ -7795,15 +7795,9 @@ Public Class ClsPaginas
                             params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir))
 
                         End If
-
                     End If
-
-
                 End If
 
-
-
-
                 Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero
                 Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero
                 Dim drSol As DataRow = GlobalDTUsuarios(CveUsuarioSol, EmpresaActual.CveEmpresa).FiltroPrimero("") 'DataRow (incluye el NOMBRE de quien SOLICITÓ la OC)
@@ -8141,6 +8135,7 @@ Public Class ClsPaginas
                     Return Nothing
                 End If
                 Dim CveNomina As Integer = ObjNomina.CveNomina
+                Dim RFCPackCertifica As String = ""
                 Dim DTPercepciones As Data.DataTable
                 Dim DTDeducciones As Data.DataTable
                 Dim DTDeducciones2 As New Data.DataTable
@@ -8171,8 +8166,18 @@ Public Class ClsPaginas
                 If System.IO.File.Exists(PathXML) Then
                     Dim XmlDoc As New System.Xml.XmlDocument
                     'XmlDoc.Load(Ruta & "XML\\Nomina\NOM A-3845.xml")
+
+                    Dim timbreFiscal = (XDocument.Load(PathXML)).Descendants().
+                            Where(Function(e) e.Name.LocalName = "TimbreFiscalDigital").
+                            FirstOrDefault()
+
+                    If timbreFiscal IsNot Nothing Then
+                        RFCPackCertifica = timbreFiscal.Attribute("RfcProvCertif")?.Value
+                    Else
+                    End If
                     XmlDoc.Load(PathXML)
 
+
                     If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then
                         FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate
                         NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText
@@ -8414,6 +8419,10 @@ Public Class ClsPaginas
                     Dim Archivo As New System.IO.FileInfo(RutaFormato)
                     If Not TieneError Then
                         If Archivo.Exists Then
+                            If Extensiones.ModExtensiones.HasReportParameter(RutaFormato, "RFCPackCertifica") Then
+                                RptParametro.Add(New ReportParameter("RFCPackCertifica", RFCPackCertifica))
+
+                            End If
                             Retorno = StreamPDF(RutaFormato, LSRds, RptParametro, ObjNomina.SerieFolio, "PDF", MR:=Nothing)
                             Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\\{1}.pdf", RutaEmpresa, ObjNomina.SerieFolio))
                             If Not ArchivoPDF.Exists Then
@@ -10423,8 +10432,9 @@ Public Class ClsPaginas
             PaginaDict.Add("/Nomina/PreNominaHistorial.aspx".ToUpper(), 148)
             PaginaDict.Add("/Nomina/RepPreNomina.aspx".ToUpper(), 74)
             PaginaDict.Add("/Nomina/Nomina.aspx".ToUpper(), 75)
-            PaginaDict.Add("/Nomina/NominaB.aspx".ToUpper(), 75)
+            PaginaDict.Add("/Nomina/Configuracion.aspx".ToUpper(), 1135)
-            PaginaDict.Add("/Nomina/Nomina2.aspx".ToUpper(), 75)
+            PaginaDict.Add("/Nomina/RepMovtosPermanentes.aspx".ToUpper(), 1136)
+
             PaginaDict.Add("/Nomina/ReportedeAcumulados.aspx".ToUpper(), 75)
             PaginaDict.Add("/Nomina/ListaAsistencias.aspx".ToUpper(), 91)
             PaginaDict.Add("/Nomina/CatConceptos.aspx".ToUpper(), 172)

App_Code/modExtensiones.vb

@@ -30,6 +30,7 @@ Namespace Extensiones
 #Region "E X T E N S I O N E S"
     Public Module ModExtensiones
 
+
         Public ReadOnly Property foreign_characters As Dictionary(Of String, String)
             Get
                 Dim fgk As Dictionary(Of String, String) = New Dictionary(Of String, String) From {
@@ -3772,6 +3773,20 @@ Namespace Extensiones
 
             Return text
         End Function
+
+
+        Function HasReportParameter(reportPath As String, parameterName As String) As Boolean
+            ' Leer el archivo .rdlc como XML
+            Dim rdlcDoc As XDocument = XDocument.Load(reportPath)
+
+            ' Buscar el parámetro en el XML
+            Dim parameters = From e In rdlcDoc.Descendants()
+                             Where e.Name.LocalName = "ReportParameter"
+                             Select e.Attribute("Name").Value
+
+            ' Verificar si existe el parámetro RFCPackCertifica
+            Return parameters.Contains(parameterName)
+        End Function
     End Module
 #End Region
 

Bancos/IE.aspx

@@ -251,14 +251,6 @@
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
                             </asp:Panel>                            
-                            <div class="row" id="DivCveAutorizacion" runat="server" visible="false">
-                                <label class="col-md-2 control-label">
-                                    <asp:Label runat="server" Text="Clave de autorización:"></asp:Label>
-                                </label>
-                                <label class="col-md-10 control-label">
-                                    <asp:Label ID="LblCveAutorizacion" runat="server" ></asp:Label>
-                                </label>
-                            </div>
                             <div id="DivOtrosIngresosEgresos" runat="server" visible="false" class="row">
 
                                 <label class="col-md-2 control-label ">Otros:</label>
@@ -377,7 +369,14 @@
                                     </div>
                                 </ContentTemplate>
                             </asp:UpdatePanel>
-
+                            <div class="row" id="DivCveAutorizacion" runat="server" visible="false">
+                                <label class="col-md-2 control-label">
+                                    <asp:Label runat="server" Text="Clave de autorización:"></asp:Label>
+                                </label>
+                                <label class="col-md-10 control-label">
+                                    <asp:Label ID="LblCveAutorizacion" runat="server" ></asp:Label>
+                                </label>
+                            </div>
                             <div class="row">
                                 <label class="col-md-2 control-label">Observaciones: </label>
                                 <div class="col-md-10">

Bancos/RepProgramarRecursos.aspx.vb

@@ -191,7 +191,7 @@ Partial Class Bancos_RepProgramarRecursos
                     Dim CveProy As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero
                     DdlSubProyecto.SelectedValue = CveSubProyecto.ToString
 
-                    DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, UsuarioActual.CveEmpresa, -1, 1)
+                    DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProy)
                     DdlSubProyecto.DataBind()
                 End If
 

Compras/Compras.aspx

@@ -1885,10 +1885,10 @@
                                                         <asp:UpdatePanel runat="server" ID="UpGvOC2" UpdateMode="Conditional">
                                                             <ContentTemplate>
                                                                 <div id="DivDatosCompra" style="height: 250px; overflow-y: auto;">
-                                                                    <asp:GridView AutoGenerateColumns="false" runat="server" ID="GvOC2" GridLines="None" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover gridconheader Widthall" RowStyle-HorizontalAlign="Center" DataKeyNames="Cantidad,UM,PS,SATClaveProductoServicio,PU,Total,Descuento">
+                                                                    <asp:GridView AutoGenerateColumns="false" runat="server" ID="GvOC2" GridLines="None" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover gridconheader Widthall" RowStyle-HorizontalAlign="Center" DataKeyNames="Cantidad,UM,PS,CvePS,CodigoPS,SATClaveProductoServicio,PU,Total,Descuento">
                                                                         <Columns>
-                                                                            <asp:BoundField HeaderText="#" DataField="Consec" ItemStyle-Width="20px" />
+                                                                            <asp:BoundField HeaderText="#" DataField="Consec" ItemStyle-Width="20px" ItemStyle-Font-Size="6pt" />
-                                                                            <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-Width="40px" />
+                                                                            <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-Width="40px" />
                                                                             <asp:BoundField HeaderText="UM" DataField="UM" ItemStyle-Width="40px" />
                                                                             <asp:TemplateField HeaderText="UM" ItemStyle-HorizontalAlign="Left">
                                                                                 <ItemTemplate>
@@ -1896,7 +1896,7 @@
                                                                                         <asp:Label ID="LblClasificacion" runat="server" Text='<%# Eval("Clasificacion") %>'></asp:Label>
                                                                                     </span>
                                                                                     <br />
-                                                                                    <asp:Label ID="LbProductoServicio" runat="server" Text='<%# Eval("PS")%>'></asp:Label>
+                                                                                    <asp:Label ID="LbProductoServicio" runat="server" Text='<%# Eval("CodigoPS")%>'></asp:Label>
                                                                                 </ItemTemplate>
                                                                                 <HeaderTemplate>
                                                                                     Clasificación 

Compras/Compras.aspx.vb

@@ -1647,15 +1647,10 @@ Partial Class Compras_Compras
                 DdlTipoComprobante.SelectedValueExist("DEV")
             End If
 
-
-
             If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso DdlTipoComprobante.SelectedValue = "NC" Then
 
-
-
                 ConfiguraseleccionRemisionNotaCredito()
 
-
             End If
 
         End If
@@ -7693,7 +7688,6 @@ Partial Class Compras_Compras
                                         End If
                                     End If
 
-
                                     If Not TieneError Then
                                         ObjCompras.Commit()
                                         If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
@@ -7735,7 +7729,7 @@ Partial Class Compras_Compras
                             Else
                                 ObjCompras.RollBack()
                                 If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-                                Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
+                                Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente..", TipoMensaje.MsgError)
                             End If
 
 
@@ -10669,7 +10663,7 @@ Partial Class Compras_Compras
                 'RegistraScript(String.Format("$get('TxtOC').value = '{0}';tb_remove;", OC.Folio))
                 RegistraScript("tb_remove();")
 
-                If OC.GetOrdenesDetalle(CveOC) Then
+                If OC.GetOrdenesDetalle(CveOC, UsuarioActual.CveEmpresa) Then
                     dt = OC.DtResultados
                 End If
             End If
@@ -11087,7 +11081,7 @@ Partial Class Compras_Compras
         Dim CveProyecto As Integer = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1)
         gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Clear()
         If CveProyecto > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then
-            gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
+            gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto))
         End If
         gvRow.FCDropDownList("DdlSubProyectoPersonal").DataBind()
         gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -11143,7 +11137,7 @@ Partial Class Compras_Compras
                     e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource =
                         If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
                         GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, e.Row.DBCampo("CveProyecto").ToEntero, UsuarioActual.CveEmpresa, -1, 1),
-                        GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero, -1, UsuarioActual.CveEmpresa, 1))
+                        GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=e.Row.DBCampo("CveProyecto").ToEntero))
                 End If
                 e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1"))
                 e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind()
@@ -13491,7 +13485,7 @@ Partial Class Compras_Compras
         CargaGVsAF()
 
         CargaTipoCentroCostoOC()
-        GvOC1.DataSource = DTOCTemp
+        GvOC1.DataSource = DTOCTemp.FiltraParametros("", "CodigoPS")
 
         Dim DTCVEOCS As DataTable = DTOCTemp.FiltraParametros("", "", {"CveOrdenCompra"})
         If DTCVEOCS IsNot Nothing AndAlso DTCVEOCS.Rows.Count > 1 Then
@@ -13502,7 +13496,7 @@ Partial Class Compras_Compras
         GvOC1.DataBind()
 
         ' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT)
-        GvOC2.DataSource = TmpDT
+        GvOC2.DataSource = TmpDT.FiltraParametros("", "CodigoPS")
         GvOC2.DataBind()
 
         UpGvOC1.Update()
@@ -14341,7 +14335,7 @@ Partial Class Compras_Compras
             Dim StrPromos As New StringBuilder
 
             For Each CveOCItem As String In ArrayCveOC.Distinct
-                If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
+                If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then
                     If IsNothing(DTOCTemp) Then
                         DTOCTemp = ObjOC.DtResultados.Copy
                     Else
@@ -14547,24 +14541,10 @@ Partial Class Compras_Compras
 
         CargaTipoCentroCostoOC()
 
-        GvOC1.DataSource = DTOCGV
+        GvOC1.DataSource = DTOCGV.FiltraParametros("", "CveOrdenCompra, CodigoPS")
         GvOC1.DataBind()
 
-        'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
+
-        If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then
-            For Each Gvr As GridViewRow In GvOC1.Rows
-                Dim Change As Boolean = False
-                For Each Dr2 As DataRow In TmpDT.Rows
-                    If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
-                        Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
-                        Change = True
-                    End If
-                Next
-                If Not Change Then
-                    Gvr.FCTextBox("TxtCantidad").Text = "0"
-                End If
-            Next
-        End If
 
         Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"})
         If DTCVEOGV.Rows.Count > 1 Then
@@ -14578,14 +14558,43 @@ Partial Class Compras_Compras
             RegistraScript($"CalculaTotalOCEdit('{ gvr.DataKey("PS").Replace("'", "").Replace(vbLf, " ").Replace(vbCrLf, " ")  }', {gvr.DataKey("Cantidad").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}")
             Cont += 1
         Next
-
         UpGvOC1.Update()
-
+        TmpDT = TmpDT.FiltraParametros("", "CodigoPS")
-        TmpDT = TmpDT.FiltraParametros("", "PU")
-
 
         GvOC2.DataSource = TmpDT
         GvOC2.DataBind()
+
+        'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            For Each Gvr As GridViewRow In GvOC1.Rows
+                Dim Change As Boolean = False
+                For Each Dr2 As DataRow In TmpDT.Rows
+                    If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then
+                        Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
+                        Change = True
+                    End If
+                Next
+                If Not Change Then
+                    Gvr.FCTextBox("TxtCantidad").Text = ""
+                End If
+            Next
+            'detectar los ps que no están en la OC, códigos que no están en la OC
+            'mostrar los ps que no están en la oc
+            Dim strMsg As New StringBuilder
+            For Each Gvr As GridViewRow In GvOC2.Rows
+                Dim i As Integer = DTOCGV.FiltraParametros($"CvePS = '{Gvr.DataKey("CvePS")}'").Rows.Count
+                If i = 0 Then
+                    strMsg.AppendFormat("- {0} <br/>", Gvr.DataKey("CodigoPS"))
+                    Gvr.BackColor = Drawing.Color.Red
+                End If
+            Next
+            If strMsg.Length > 0 Then Alert("Los siguientes productos facturados no están en la Orden de compra<br/>" & strMsg.ToString, TipoMensaje.MsgAdvertencia)
+
+            'condicion temporal rmf
+            GvOC1.Columns(6).Visible = False
+            GvOC2.Columns(4).Visible = False
+        End If
+
         UpGvOC2.Update()
     End Sub
     Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound
@@ -17195,7 +17204,7 @@ Partial Class Compras_Compras
             CveProyecto = -1
         End If
 
-        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto))
 
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -17924,7 +17933,7 @@ Partial Class Compras_Compras
     Private Sub CargaSubProyectoAsignado()
         DdlAsignaSubProyecto.Items.Clear()
         If DdlAsignarProyecto.SelectedValue.ToEntero > 0 Then
-            DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlAsignarProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
+            DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlAsignarProyecto.SelectedValue.ToEntero))
         End If
         DdlAsignaSubProyecto.DataBind()
         DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))

Contratos/Contrato.vb

@@ -835,7 +835,7 @@ Partial Class Contratos_Default
     End Sub
     Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
         DdlSubProyectoContrato.Items.Clear()
-        DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
+        DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
         DdlSubProyectoContrato.DataBind()
         DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
     End Sub

Contratos/ContratoObra.aspx.vb

@@ -1263,15 +1263,7 @@ Partial Class Contratos_ContratoObra
         '    DdlProyecto.DataBind()
         'End If
     End Sub
-    'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
+
-    '    CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)
-    'End Sub
-    'Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
-    '    DdlSubProyectoContrato.Items.Clear()
-    '    DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
-    '    DdlSubProyectoContrato.DataBind()
-    '    DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
-    'End Sub
     Private Sub CargaContratista()
         DdlContratista.setEsWebService(True)
         DdlContratista.Attributes.Add("data-metodo", "getproveedores")

Inventarios/Equivalencia.aspx.vb

@@ -29,7 +29,7 @@ Partial Class Inventarios_Equivalencia
     Private Sub InicializarListas()
         'Llenar el dropdownlist de unidad de medida
 
-        ddlUnidad.DataSource = GlobalDTUnidadesMedida()
+        ddlUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
         ddlUnidad.DataBind()
 
 
@@ -245,7 +245,7 @@ Partial Class Inventarios_Equivalencia
     Protected Sub gvEquivalencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvEquivalencias.RowDataBound
 
         If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida()
+            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
             e.Row.FCDropDownList("ddlEUnidad").DataBind()
         End If

Inventarios/TrasladoSolicitud.aspx

@@ -24,69 +24,73 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
-    <div class="portlet solid  grey-cascade portlet-filter">
+    <asp:UpdatePanel ID="UPCons" runat="server" RenderMode="Inline" UpdateMode="Conditional">
-        <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
+    <ContentTemplate>
-            <div class="tools">
-                <asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" />
-                <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
-                <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
-            </div>
-            <div class="titlefiltros  caption ">
-                <div class="row">
-                    <div class="col-md-1 truncate">Origen</div>
-                    <div class="col-md-2">
-                        <asp:DropDownList ID="DdlAlmacenOrigenFiltro" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
-                    </div>
 
-                    <div class="col-md-1 truncate">Destino</div>
+            <div class="portlet solid  grey-cascade portlet-filter">
-                    <div class="col-md-2">
+                <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
-                        <asp:DropDownList ID="DdlAlmacenDestinoFiltro" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" />
+                        <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
+                        <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                     </div>
-                    <div class="col-md-1 truncate">Fecha Inicio</div>
+                    <div class="titlefiltros  caption ">
-                    <div class="col-md-1 col-sm-1">
+                        <div class="row">
-                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                            <div class="col-md-1 truncate">Origen</div>
-                            <asp:TextBox Style="width: 80px !important;" ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                            <div class="col-md-2">
-                            <span class="input-group-btn ">
+                                <asp:DropDownList ID="DdlAlmacenOrigenFiltro" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
-                                <asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                            </div>
-                            </span>
+
+                            <div class="col-md-1 truncate">Destino</div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlAlmacenDestinoFiltro" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
+                            </div>
+                            <div class="col-md-1 truncate">Fecha Inicio</div>
+                            <div class="col-md-1 col-sm-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgFechaI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            </div>
+                            <div class="col-md-1 truncate">Fecha Fin</div>
+                            <div class="col-md-1 col-sm-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
+                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            </div>
                         </div>
-                        <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                        <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFechaI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                    </div>
-                    <div class="col-md-1 truncate">Fecha Fin</div>
-                    <div class="col-md-1 col-sm-1">
-                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
-                            <asp:TextBox Style="width: 80px !important;" ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                            <span class="input-group-btn ">
-                                <asp:LinkButton ID="ImgFechaF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                            </span>
-                        </div>
-                        <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                        <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                     </div>
                 </div>
-            </div>
+                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
-        </div>
-        <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
            
-        </div>
+                </div>
-    </div>  
+            </div> 
+            </ContentTemplate> 
+    </asp:UpdatePanel>
 
     <div class="row">
         <div class="col-md-12">
             <asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
                 <ContentTemplate>
 
-                    <asp:GridView ID="GvT" Width="1000px" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0"   CssClass="table  table-advance table-hover mysmallbtn ScrollAD Widthall" 
+                    <asp:GridView ID="GvT" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0"   CssClass="table  table-advance table-hover mysmallbtn ScrollAD Widthall" 
                         ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False" OnRowDataBound="GvT_RowDataBound"
-                        DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre" >
+                        DataKeyNames="CveTraspasoSolicitud,Folio,Fecha,CveUsuario,CveAlmacenOrigen,CveAlmacenDestino,CveTrasladoEstatus,PermisoOrigen,PermisoDestino,TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre,CveMovimientoAlmacen,FolioMovimiento,CveMovimientoTransitorio,CveAlmacenTransitorio,CveMomientoEntrada,CveMovimientoRelacionado" >
                         <Columns>                            
-                            <asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="10%" />
+                            <asp:BoundField DataField="Folio" HeaderText="Folio" ItemStyle-Width="80px" />
-                            <asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen"  />
+                            <asp:BoundField DataField="AlmacenOrigen" HeaderText="Origen" ItemStyle-Width="200px" />
-                            <asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" />
+                            <asp:BoundField DataField="AlmacenDestino" HeaderText="Destino" ItemStyle-Width="200px" />
-                            <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="10%" DataFormatString="{0:d}" />
+                            <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="90px" DataFormatString="{0:d}" />
-                            <asp:BoundField DataField="Nombre" HeaderText="Solicitante" ItemStyle-Width="200px" />                            
+                            <asp:BoundField DataField="Nombre" HeaderText="Solicitante" />
-                            <%--<asp:BoundField DataField="TraspasoEstatus" HeaderText="Estatus" ItemStyle-Width="10%" />--%>
 
                             <asp:TemplateField ItemStyle-HorizontalAlign="Left"  HeaderText="Estatus" ItemStyle-Width="70px" >
                                 <ItemTemplate>
@@ -96,25 +100,40 @@
 
                             <asp:HyperLinkField DataNavigateUrlFields="CveMovimientoAlmacen" DataNavigateUrlFormatString="~/Inventarios/EntradasSalidas.aspx?CveMovimiento={0} " 
                                 Target="_blank" ItemStyle-Width="5%" HeaderText="Movimiento" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="FolioMovimiento" />
-                            <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="30px">
+                            <%--<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
                                 <ItemTemplate>
-                                    <asp:LinkButton ID="LnkMostrarTraspaso" runat="server" AlternateText="Editar" OnClick="LnkMostrarTraspaso_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />                                    
+                                    <div class="row">
+                                        <div class="col-lg-12">
+                                            <asp:LinkButton ID="LnkMostrarTraspaso" runat="server" AlternateText="Editar" OnClick="LnkMostrarTraspaso_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />                                    
+                                        </div>
+                                        <div class="col-lg-12">
+                                            <asp:HyperLink ID="HypRecibeTraspaso" runat="server" Target="_blank"  CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-arrow-right'></i>" Visible="false" />                                    
+                                        </div>
+                                    </div>                                                                       
                                 </ItemTemplate>
-                            </asp:TemplateField>
+                            </asp:TemplateField>--%>
+                            <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
+                            <ItemTemplate>
+                                <div class="row">
+                                    <div class="col-lg-4" style="text-align:right">
+                                        <asp:LinkButton ID="LnkMostrarTraspaso" runat="server" AlternateText="Editar" OnClick="LnkMostrarTraspaso_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
+                                    </div>
+                                    <div class="col-lg-4" style="text-align:left">
+                                        <asp:HyperLink ID="HypRecibeTraspaso" runat="server" Target="_blank" CssClass="btn btn-circle btn-sm blue" ToolTip="Recivir traspaso" Text="<i class='fa fa-arrow-right'></i>" Visible="false" />
+                                    </div>
+                                    <div class="col-lg-4" style="text-align:left"></div>
+                                </div>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+
+
                         </Columns>
                     </asp:GridView>
                 </ContentTemplate> 
-
-                <Triggers>                    
-                </Triggers>
-
             </asp:UpdatePanel>
         </div>
-
     </div>
 
-
-
     <div id="DVModalSolicitudAdd" class="modal ADS fade" role="dialog" data-backdrop="static" >
     
         <div class="modal-dialog" style="width: 450px;">
@@ -145,31 +164,34 @@
                                     ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacén Destino''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGeneraSolictud"></asp:RequiredFieldValidator>
                             </div>
                          </div>
-
+                        <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
                         <div class="row marginRowLeft">
 
-                            <div class="col-md-6 form-group form-md-line-input input-iconright">
+                            <div class="col-md-2 form-group form-md-line-input input-iconright">
                                 <asp:TextBox ID="TxtCantidad" CssClass="form-control marginFixRow" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
                                 <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
                                 <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="AgregarPS"></asp:RequiredFieldValidator>
                                 <ajax:FilteredTextBoxExtender ID="SoloNumerosPS" runat="server" TargetControlID="TxtCantidad" FilterType="Numbers" />
                             </div>
 
-                             <div class="col-md-6 form-group form-md-line-input input-iconright" id="DivCaracteristicaOpcion" runat="server">
+                             <div class="col-md-8 form-group form-md-line-input input-iconright" id="DivCaracteristicaOpcion" runat="server">
                                  <ADS:Dropdownlost ID="DdlProductoServicio" runat="server" CssClass="form-control input-sm" CssClassDdl="select2me"  CssStyle="width: 100%;" DataTextField="PSCodigo"  DataValueField="CvePS"   ></ADS:Dropdownlost>                                
                                  <label for="<%= DdlProductoServicio.ClientID.ToString()%>">Producto o Servicio:</label>
                              </div>
+                            <div class="col-md-2 form-group form-md-line-input input-iconright" id="Div3" runat="server">
+                                <asp:LinkButton ID="BtnAgregarPS" runat="server" CssClass="btn btn-success btn-sm" Text='<i class="fa fa-plus"></i> Agregar'   style="margin-top:+5px"  ValidationGroup="AgregarPS"/>
+                            </div>
 
                         </div>
                          
  
-                       <div class="row">
+                     <%--  <div class="row">
                           <div class="col-md-12" style="text-align:right!important">
-                              <%--<asp:Button ID="BtnAgregarPS" runat="server" class="btn btn-success" Text="Agregar" Style="margin-left: -100px;" ValidationGroup="AgregarPS"/>--%>
+                             
-                              <asp:LinkButton ID="BtnAgregarPS" runat="server" CssClass="btn btn-success btn-sm" Text='<i class="fa fa-plus"></i> Agregar' Style="margin-left: -100px;" ValidationGroup="AgregarPS"/>
+                              
 
                           </div>
-                      </div>
+                      </div>--%>
 
                         <div class="row">
                             <div class="col-md-12">

Inventarios/TrasladoSolicitud.aspx.vb

@@ -83,7 +83,7 @@ Partial Class Inventarios_TrasladoSolicitud
 
     Private Sub CargaAlmacenes()
         'Cargo los almacenes
-        DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
+        DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
         'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
         DdlAlmacenOrigen.DataBind()
         DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
@@ -111,11 +111,11 @@ Partial Class Inventarios_TrasladoSolicitud
     End Sub
 
     Private Sub CargaCombos()
-        DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
+        DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
         DdlAlmacenOrigenFiltro.DataBind()
         DdlAlmacenOrigenFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
+        DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1") 'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
         DdlAlmacenDestinoFiltro.DataBind()
         DdlAlmacenDestinoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
 
@@ -357,6 +357,9 @@ Partial Class Inventarios_TrasladoSolicitud
 
 
     Protected Sub LnkAgregarSolicitud_Click(sender As Object, e As EventArgs)
+        GvSolicitudes.DataSource = Nothing
+        GvSolicitudes.DataBind()
+        UpModalSolicitudes.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitudAdd"))
     End Sub
 
@@ -397,7 +400,7 @@ Partial Class Inventarios_TrasladoSolicitud
     Protected Sub BtnAceptarSolicitud_Click(sender As Object, e As EventArgs)
 
 
-        Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero
+        Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=1).FiltraParametros("CveTipoAlmacen = 3").FiltroPrimeroValor("CveAlmacen").ToEntero  'GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero
 
         If Not CveAlmacenTransictorio > 0 Then
             Alert("No se encontro un almacen transitorio", TipoMensaje.MsgAdvertencia)
@@ -674,24 +677,43 @@ Partial Class Inventarios_TrasladoSolicitud
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False)
+            Dim PermisoOrigen As Boolean = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False)
+            Dim PermisoDestino As Boolean = If(e.Row.DataKey("PermisoDestino").ToEntero = 1, True, False)
+
+            Dim CveMovimientoAlmacen As Integer = e.Row.DataKey("CveMovimientoAlmacen").ToEntero
+            Dim FolioMovimiento As Integer = e.Row.DataKey("FolioMovimiento").ToEntero
+            Dim CveAlmacenDestino As Integer = e.Row.DataKey("CveAlmacenDestino").ToEntero
+            Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero
+            Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero
+
+            Dim CveMomientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento   de recepcion  de traspaso
+
+            e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True
 
             If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 1 Then
                 e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue"
                 e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info"
+                e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = PermisoOrigen
             Else
                 If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then
                     e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-success"
                     e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green"
+                    e.Row.FCLinkButton("LnkMostrarTraspaso").Text = "<i class='fa fa-info'></i>"
+
+                    If CveMovimientoAlmacen > 0 AndAlso PermisoDestino AndAlso e.Row.DataKey("CveMovimientoRelacionado") = "" Then
+                        e.Row.FCHyperLink("HypRecibeTraspaso").Visible = True
+                        e.Row.FCHyperLink("HypRecibeTraspaso").NavigateUrl = $"~/Inventarios/TraspasoAlmacen.aspx?CveAlmacenTransitorioR={CveAlmacenTransitorio}&FolioR={FolioMovimiento}&CveAlmacenDestinoR={CveAlmacenDestino}"
+                    End If
+
+                    If e.Row.DataKey("CveMovimientoRelacionado") <> "" Then
+                        e.Row.FCLabel("LblTraspasoEstatus").Text = "Recibido"
+                    End If
+
                 Else
                     e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger"
                     e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red"
                 End If
-
-
             End If
-
-
         End If
 
     End Sub
@@ -702,7 +724,7 @@ Partial Class Inventarios_TrasladoSolicitud
         DdlAlmacenDestino.SelectedValue = Nothing
         DdlAlmacenDestino.Items.Clear()
 
-        DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen <> 9 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}")
+        DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen = 1 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}")
         DdlAlmacenDestino.DataBind()
         DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
         UpPS.Update()

Inventarios/TrasladoSolicitudOld.aspx.vb

@@ -1153,7 +1153,7 @@ Partial Class Inventarios_TrasladoSolicitudOld
 
         Dim SB As New StringBuilder
 
-        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita)(0)("Correo").ToString.Trim
+        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita, UsuarioActual.CveEmpresa)(0)("Correo").ToString.Trim
 
 
         If CorreoDestino.Length > 0 Then
@@ -1193,7 +1193,7 @@ Partial Class Inventarios_TrasladoSolicitudOld
 
         Dim SB As New StringBuilder
 
-        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza)(0)("Correo").ToString.Trim
+        Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza, UsuarioActual.CveEmpresa)(0)("Correo").ToString.Trim
 
 
         If CorreoDestino.Length > 0 Then

Inventarios/TraspasoAlmacen.aspx.vb

@@ -236,6 +236,10 @@ Partial Class Inventarios_TraspasoAlmacen
                 ImgFechaRecepcion.Visible = False
             End If
 
+            If Request("CveAlmacenTransitorioR") IsNot Nothing Then
+                CargaRecepcionTraspaso()
+            End If
+
         Else
             If ChkTransitorio.Checked Then
                 RegistraScript(" $('#DivGastoIndirecto').show(0); ")
@@ -245,6 +249,19 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
     End Sub
 
+    Private Sub CargaRecepcionTraspaso()
+        Tab.ActiveTabIndex = 1
+        Dim CveAlmacenTransitorioR = If(Request("CveAlmacenTransitorioR") IsNot Nothing AndAlso Request("CveAlmacenTransitorioR").ToEntero > 0, Request("CveAlmacenTransitorioR").ToEntero, -1)
+        Dim FolioR = If(Request("FolioR") IsNot Nothing AndAlso Request("FolioR").ToEntero > 0, Request("FolioR").ToEntero, -1)
+        Dim CveAlmacenDestinoR = If(Request("CveAlmacenDestinoR") IsNot Nothing AndAlso Request("CveAlmacenDestinoR").ToEntero > 0, Request("CveAlmacenDestinoR").ToEntero, -1)
+
+        DdlAlmacenRecepcion.SelectedValueExist(CveAlmacenDestinoR)
+        DdlAlmacenTransitorioRecepcion.SelectedValueExist(CveAlmacenTransitorioR)
+        TxtFolioRecepcion.Text = FolioR.ToString
+
+        CargaRecepcion()
+    End Sub
+
 #Region "CARGA DATOS"
     Protected Sub CreaDT()
         Dim dt As New DataTable
@@ -457,7 +474,7 @@ Partial Class Inventarios_TraspasoAlmacen
         DdlAlmacenRecepcion.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'Llena Almacen Transitorio Recepcion
-        DdlAlmacenTransitorioRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
+        DdlAlmacenTransitorioRecepcion.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 3)
         DdlAlmacenTransitorioRecepcion.DataBind()
         DdlAlmacenTransitorioRecepcion.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
@@ -2377,11 +2394,11 @@ Partial Class Inventarios_TraspasoAlmacen
 
                 Dim Mensaje As StringBuilder = New StringBuilder
                 Mensaje.AppendFormat("Se realizo correctamente la recepción. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoEntrada)
-                Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
+                Mensaje.AppendFormat("<br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
-                If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Virtual <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
+                If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Virtual <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
 
                 If CancelacionTraspaso IsNot Nothing Then
-                    If CancelacionTraspaso.CveMovimientoEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Devolución <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CancelacionTraspaso.CveMovimientoEntrada)), CancelacionTraspaso.CveMovimientoEntrada, CancelacionTraspaso.FolioEntrada) 'onclick='ImprimirTraslado()'
+                    If CancelacionTraspaso.CveMovimientoEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Devolución <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CancelacionTraspaso.CveMovimientoEntrada)), CancelacionTraspaso.CveMovimientoEntrada, CancelacionTraspaso.FolioEntrada) 'onclick='ImprimirTraslado()'
                 End If
 
                 Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)

Nomina/Nomina.aspx

@@ -794,6 +794,8 @@
                                     <asp:Label ID="LblAsisProyecto" AssociatedControlID="DdlAsisProyecto" runat="server" Text="Proyecto:"></asp:Label>
                                 </div>
                             </asp:Panel>
+                        </div>
+                        <div class="row">
                             <asp:Panel ID="PnlSubProyecto" CssClass="col-md-12" runat="server">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlAsisSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
@@ -814,11 +816,7 @@
                     </div>
 
                     <div class="modal-footer">
-                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                        <asp:LinkButton ID="LnkGuardarASistencia" OnClick="LnkGuardarASistencia_Click" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
-                            <ContentTemplate>
-                                <asp:LinkButton ID="LnkGuardarASistencia" OnClick="LnkGuardarASistencia_Click" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
                     </div>
                 </div>
             </ContentTemplate>
@@ -1390,7 +1388,7 @@
 
                                                     <asp:GridView ID="GVMovtoPermanente" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall " AutoGenerateColumns="False"
                                                         ShowHeader="true" EmptyDataText="No se encontraron Movimientos"
-                                                        DataKeyNames="CveMovtoPermanente,CveConcepto,CveCuenta,CvePersonal,Descripcion,TipoDescuento,Valor,VecesAplicar,MontoLimite,FechaInicioAplicacion,Estatus,FechaRegistro">
+                                                        DataKeyNames="CveMovtoPermanente,CveConcepto,CveCuenta,CvePersonal,Descripcion,MontoLimiteV,TipoDescuento,Valor,VecesAplicar,MontoLimite,EsAcumulado,FechaInicioAplicacion,Estatus,FechaRegistro">
                                                         <Columns>
                                                             <asp:TemplateField HeaderText="Descripción">
                                                                 <ItemTemplate>
@@ -1419,7 +1417,7 @@
                                                             <asp:TemplateField HeaderText="Monto limite" ItemStyle-HorizontalAlign="Right">
                                                                 <ItemTemplate>
                                                                     <asp:LinkButton data-toggle="tooltip" title="Editar" OnClick="LnkEditarMovtoPermanente_Click"
-                                                                        CssClass="lnkMovotPermanente" runat="server" Text='<%# Eval("MontoLimite","{0:###,###.##}")%>'></asp:LinkButton>
+                                                                        CssClass="lnkMovotPermanente" runat="server" Text='<%# Eval("MontoLimiteV","{0:###,###.##}")%>'></asp:LinkButton>
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
                                                             <asp:TemplateField HeaderText="Saldo" ItemStyle-HorizontalAlign="Right">
@@ -1444,6 +1442,8 @@
                                                 </div>
                                             </div>
 
+
+                                            
                                         </ContentTemplate>
                                     </asp:UpdatePanel>
                                 </ContentTemplate>
@@ -2182,6 +2182,207 @@
                         <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                     </div>
                 </div>
+                
+    <div id="ModalMovtoPermanente" class="modal ADS fade" role="dialog">
+
+        <asp:UpdatePanel ID="UpMovtosPermanentesModal" UpdateMode="Conditional" class="modal-dialog" runat="server">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+
+                        <button type="button" class="close" onclick="$('#ModalMovtoPermanente').modal('hide');return;">&times;</button>
+                        <h4 class="modal-title">Movimiento permanente</h4>
+                    </div>
+                    <div class="modal-body">
+                        <asp:Panel runat="server" Visible="false" CssClass="portlet light  xspadding bordered " ID="pnlAddupMovto">
+                            <div class="portlet-title">
+                                <div class="caption ">
+                                    <i class="icon-pin font-yellow-gold"></i>
+                                    <span class="caption-subject font-yellow-gold bold uppercase">
+                                        <asp:Literal ID="LtlMovtoPermanenteaddup" runat="server"></asp:Literal></span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body ">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtDescripcion" CssClass="form-control" runat="server"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario "
+                                        ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
+                                    <asp:Label runat="server" Text="Descripción:" AssociatedControlID="TxtDescripcion"></asp:Label>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:Label runat="server" Text="Tipo Concepto:" AssociatedControlID=""></asp:Label>
+                                            <asp:DropDownList ID="DdlTipo" runat="server" AppendDataBoundItems="True" OnSelectedIndexChanged="DdlTipo_SelectedIndexChanged" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="TipoGasto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
+                                                <asp:ListItem Value="P" Text="Percepciones"></asp:ListItem>
+                                                <asp:ListItem Value="D" Selected="True" Text="Deducciones"></asp:ListItem>
+                                                <asp:ListItem Value="O" Text="Obligaciones"></asp:ListItem>
+                                            </asp:DropDownList>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:Label runat="server" Text="Concepto:" AssociatedControlID=""></asp:Label>
+                                            <asp:DropDownList ID="DdlConcepto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:Label runat="server" Text="Tipo Descuento:" AssociatedControlID=""></asp:Label>
+                                            <asp:DropDownList ID="DdlTipoDescto" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoDescto_SelectedIndexChanged" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
+                                                <asp:ListItem Value="1" Text="Importe"></asp:ListItem>
+                                                <asp:ListItem Value="2" Text="Porcentaje"></asp:ListItem>
+                                                <asp:ListItem Value="3" Text="Importe(Tope Monto)"></asp:ListItem>
+                                                <asp:ListItem Value="4" Text="Porcentaje(Tope Monto)"></asp:ListItem>
+                                            </asp:DropDownList>
+                                        </div>
+                                    </div>
+                                </div>
+                                <div class="row">
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtValor" CssClass="form-control" runat="server"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RfvValor" runat="server" ControlToValidate="TxtValor" CssClass="help-block errorimput"
+                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Valor''</b> es necesario "
+                                                ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
+                                            <asp:Label runat="server" Text="Valor:" AssociatedControlID="TxtValor"></asp:Label>
+                                        </div>
+                                    </div>
+                                    <asp:Panel runat="server" ID="pnlVecesAplicar" CssClass="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtVecesAplicar" CssClass="form-control" runat="server"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RfvVecesAplicar" runat="server" ControlToValidate="TxtVecesAplicar" CssClass="help-block errorimput"
+                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Veces por Aplicar''</b> es necesario "
+                                                ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
+                                            <asp:Label runat="server" Text="Veces por Aplicar:" AssociatedControlID="TxtVecesAplicar"></asp:Label>
+                                        </div>
+                                    </asp:Panel>
+                                    <asp:Panel runat="server" ID="pnlMonto" CssClass="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtMontoLimite" CssClass="form-control" runat="server"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RfvMontoLimite" runat="server" ControlToValidate="TxtMontoLimite" CssClass="help-block errorimput"
+                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Monto Limite''</b> es necesario "
+                                                ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
+                                            <asp:Label runat="server" Text="Monto Limite:" AssociatedControlID="TxtMontoLimite"></asp:Label>
+                                        </div>
+                                    </asp:Panel>
+
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtFechaAplicacion" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RfvFechaAplicacion" runat="server" ControlToValidate="TxtFechaAplicacion" CssClass="help-block errorimput"
+                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> es necesario "
+                                                ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
+                                            <asp:Label runat="server" Text="Fecha de Aplicación: " AssociatedControlID="TxtFechaAplicacion"></asp:Label>
+                                            <ajax:MaskedEditExtender ID="MKEFechaAplicacion" runat="server" TargetControlID="TxtFechaAplicacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MKEFechaBaja" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
+                                            <ajax:CalendarExtender ID="CEFechaAplicacion" runat="server" TargetControlID="TxtFechaAplicacion" PopupButtonID="ImgFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_CEFechaBaja"></ajax:CalendarExtender>
+                                            <asp:CompareValidator ID="CVFechaAplicacion" runat="server" ControlToValidate="TxtFechaAplicacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar" Visible="False"></asp:CompareValidator>
+
+                                        </div>
+
+                                    </div>
+                                </div>
+                                <div class="row">
+
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                            <asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
+                                            <asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3">
+                                        <div style="padding-top: 10px; padding-bottom: 14px;">
+                                            ¿Activo? 
+                                        </div>
+                                        <asp:CheckBox ID="ChkEstatus" CssClass="chksino " Text=" " runat="server" />
+                                    </div>
+                                    <div class="col-md-3">
+                                        <div style="padding-top: 10px; padding-bottom: 14px;">
+                                            ¿Es acumulado? 
+                                        </div>
+                                        <asp:CheckBox ID="ChkPermEsAcumulado" CssClass="chksino " Text=" " runat="server" />  
+                                    </div>
+                                </div> 
+                            </div>
+                        </asp:Panel>
+
+                        <asp:GridView ID="GVMovtoPermanenteSaldos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                            DataKeyNames="CveTipo,Nombre,Concepto,CveMovtoPermanente,FechaFin,CvePeriodo,NoPagos,ImportePagos,Pagado,Total,Saldo,Fecha">
+                            <Columns>
+                                <asp:TemplateField HeaderText="Nombre">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <%--<asp:TemplateField HeaderText="Concepto">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblconcepto" runat="server" Text='<%# Eval("Concepto")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>
+                                                                            <asp:TemplateField HeaderText="Cve Movto Permanente">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblcveMovtoPermanente" runat="server" Text='<%# Eval("CveMovtoPermanente")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>--%>
+                                <%--<asp:TemplateField HeaderText="Fecha Fin">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>--%>
+                                <%--<asp:TemplateField HeaderText="Cve Periodo">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblcvePeriodo" runat="server" Text='<%# Eval("CvePeriodo")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>--%>
+                                <asp:TemplateField HeaderText="Fecha">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblfecha" runat="server" Text='<%# Eval("Fecha")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="No Pagos">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblnoPagos" runat="server" Text='<%# Eval("NoPagos")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Importe Pago">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblimportePagos" runat="server" Text='<%# Eval("ImportePagos","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Pagado">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblpagado" runat="server" Text='<%# Eval("Pagado","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Total">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lbltotal" runat="server" Text='<%# Eval("Total","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Saldo">
+                                    <ItemTemplate>
+                                        <asp:Label ID="lblsaldo" runat="server" Text='<%# Eval("Saldo","{0:N2}")%>'> </asp:Label>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                            </Columns>
+                        </asp:GridView>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LnkAddMovto" OnClick="LnkAddMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
+                        <asp:LinkButton ID="LnkUpMovto" OnClick="LnkUpMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-success" runat="server">Actualizar</asp:LinkButton>
+
+                        <button type="button" class="btn btn-danger" onclick="$('#ModalMovtoPermanente').modal('hide');return;">Cancelar</button>
+
+                    </div>
+                </div>
+
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
             </ContentTemplate>
             <Triggers>
                 <%--<asp:PostBackTrigger  ControlID="BtnImprimirsobrerecibo"  />--%>
@@ -4359,132 +4560,7 @@
                                             </asp:TemplateField>
                                         </Columns>
                                     </asp:GridView>
-                                    <%--<table id="headerProcesaSUA" style="display: none">
+
-                                        <tr>
-                                            <th></th>
-                                            <th colspan="2">Salario</th>
-                                            <th colspan="2">Días</th>
-                                            <th colspan="2">Cuota Fija</th>
-                                            <th colspan="2">Cuota Excedente</th>
-                                            <th colspan="2">Prestaciones en Dinero</th>
-                                            <th colspan="2">Gastos Medicos</th>
-                                            <th colspan="2">Riesgos de Trabajo</th>
-                                            <th colspan="2">Invalidez y Vida</th>
-                                            <th colspan="2">Guarderia</th>
-                                            <th colspan="2">Retiro</th>
-                                        </tr>
-                                    </table>
-                                    <asp:GridView ID="GVProcesarSUA" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD" AutoGenerateColumns="False"
-                                        OnRowDataBound="GVProcesarSUA_RowDataBound" data-height="300" data-tableheader="#headerProcesaSUA"
-                                        DataKeyNames="CvePersonal,CodigoNombreCompleto,CuotaFijaSUA,CuotaFijaSIG,CuotaExcedenteSUA,CuotaExcedenteSIG,PrestacionesDineroSUA,PrestacionesSIG,GastosMedPenSUA,GastosMedicosSIG,RiesgosdeTrabajoSUA,RiesgoTrabajoSIG,InvalidezyVidaSUA,InvalidezyVidaSIG,GuarderiaSUA,GuarderiaSIG,RetiroSUA,RetiroSIG,SalarioSUA,SalarioSIG">
-                                        <Columns>
-                                            <asp:TemplateField HeaderText="Nombre">
-                                                <ItemTemplate>
-                                                    <asp:Label ID="lblcodigoNombreCompleto" runat="server" Text='<%# Eval("CodigoNombreCompleto")%>'> </asp:Label>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("SalarioSUA","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("SalarioSIG","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("DiasMes","{0:N0}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("DiasAsistio","{0:N0}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("CuotaFijaSUA","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("CuotaFijaSIG","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSUA","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("CuotaExcedenteSIG","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("PrestacionesDineroSUA","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("PrestacionesSIG","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("GastosMedPenSUA","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("GastosMedicosSIG","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("RiesgosdeTrabajoSUA","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("RiesgoTrabajoSIG","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSUA","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("InvalidezyVidaSIG","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("GuarderiaSUA","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("GuarderiaSIG","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SUA">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("RetiroSUA","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
-                                            <asp:TemplateField HeaderText="SIG">
-                                                <ItemTemplate>
-                                                    <asp:Label runat="server" Text='<%# Eval("RetiroSIG","{0:N2}")%>'> </asp:Label></td>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>showResult
-                                        </Columns>
-                                    </asp:GridView>--%>
                                 </div>
                             </div>
                         </div>
@@ -5114,11 +5190,11 @@
                             <asp:Label runat="server" ID="Label12" Text="Personalizar"></asp:Label>
                         </h4>
                     </div>
-                    <div class="modal-body" >
+                    <div class="modal-body">
 
 
 
-                        <div class="portlet light bordered xspadding" id="portletpersonalizarxls" >
+                        <div class="portlet light bordered xspadding" id="portletpersonalizarxls">
                             <div class="portlet-title">
                                 <div class="caption font-green">
                                     <i class="icon-pin font-green"></i>
@@ -5138,16 +5214,16 @@
                                             <asp:DropDownList ID="ddltipoPersonalizar" runat="server" CssClass="form-control  Widthall select2me" AutoPostBack="true" OnSelectedIndexChanged="ddltipoPersonalizar_SelectedIndexChanged" Style="width: 100%"
                                                 DataTextField="Columna" DataValueField="ColumnaDB" ValidationGroup="GrpGuardarOrder">
                                                 <asp:ListItem Selected="True" Text="campo Libre" Value="-1"></asp:ListItem>
-                                                <asp:ListItem   Text="Percepciones" Value="1"></asp:ListItem>
+                                                <asp:ListItem Text="Percepciones" Value="1"></asp:ListItem>
-                                                <asp:ListItem   Text="deducciones" Value="2"></asp:ListItem>
+                                                <asp:ListItem Text="deducciones" Value="2"></asp:ListItem>
-                                                <asp:ListItem   Text="obligacion" Value="3"></asp:ListItem>
+                                                <asp:ListItem Text="obligacion" Value="3"></asp:ListItem>
-                                                <asp:ListItem   Text="Datos Personal" Value="4"></asp:ListItem> 
+                                                <asp:ListItem Text="Datos Personal" Value="4"></asp:ListItem>
                                             </asp:DropDownList>
-                                            <asp:Label  runat="server" Text="Tipo:" AssociatedControlID="ddltipoPersonalizar"></asp:Label>
+                                            <asp:Label runat="server" Text="Tipo:" AssociatedControlID="ddltipoPersonalizar"></asp:Label>
                                         </div>
 
                                     </div>
-                                 </div>
+                                </div>
                                 <div class="row">
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input input-iconright">
@@ -5156,7 +5232,7 @@
                                                 <asp:ListItem Text="Ocultar" Value="0"></asp:ListItem>
                                             </asp:DropDownList>--%>
                                             <asp:TextBox ID="TxtTitulo" CssClass="form-control" runat="server"></asp:TextBox>
-                                            <asp:Label   Text="Titulo:" AssociatedControlID="TxtTitulo" runat="server"></asp:Label>
+                                            <asp:Label Text="Titulo:" AssociatedControlID="TxtTitulo" runat="server"></asp:Label>
 
                                         </div>
                                     </div>
@@ -5166,7 +5242,7 @@
                                                 DataTextField="Columna" DataValueField="ColumnaDB" ValidationGroup="GrpGuardarOrder">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
-                                            <asp:Label  runat="server" Text="Columna:" AssociatedControlID="DdlMOPXColumna"></asp:Label>
+                                            <asp:Label runat="server" Text="Columna:" AssociatedControlID="DdlMOPXColumna"></asp:Label>
                                         </div>
                                     </div>
 
@@ -5205,202 +5281,6 @@
             </Triggers>
         </asp:UpdatePanel>
     </div>
-    <div id="ModalMovtoPermanente" class="modal ADS fade" role="dialog">
-
-        <asp:UpdatePanel ID="UpMovtosPermanentesModal" UpdateMode="Conditional" class="modal-dialog" runat="server">
-            <ContentTemplate>
-                <div class="modal-content">
-                    <div class="modal-header ">
-
-                        <button type="button" class="close" onclick="$('#ModalMovtoPermanente').modal('hide');return;">&times;</button><h4 class="modal-title">Movimiento permanente</h4>
-                    </div>
-                    <div class="modal-body">
-                        <asp:Panel runat="server" Visible="false" CssClass="portlet light  xspadding bordered " ID="pnlAddupMovto">
-                            <div class="portlet-title">
-                                <div class="caption ">
-                                    <i class="icon-pin font-yellow-gold"></i>
-                                    <span class="caption-subject font-yellow-gold bold uppercase">
-                                        <asp:Literal ID="LtlMovtoPermanenteaddup" runat="server"></asp:Literal></span>
-                                </div>
-                                <div class="tools">
-                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
-                                </div>
-                            </div>
-                            <div class="portlet-body ">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtDescripcion" CssClass="form-control" runat="server"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput"
-                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario "
-                                        ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
-                                    <asp:Label runat="server" Text="Descripción:" AssociatedControlID="TxtDescripcion"></asp:Label>
-                                </div>
-                                <div class="row">
-                                    <div class="col-md-4">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:Label runat="server" Text="Tipo Concepto:" AssociatedControlID=""></asp:Label>
-                                            <asp:DropDownList ID="DdlTipo" runat="server" AppendDataBoundItems="True" OnSelectedIndexChanged="DdlTipo_SelectedIndexChanged" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="TipoGasto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
-                                                <asp:ListItem Value="P" Text="Percepciones"></asp:ListItem>
-                                                <asp:ListItem Value="D" Selected="True" Text="Deducciones"></asp:ListItem>
-                                                <asp:ListItem Value="O" Text="Obligaciones"></asp:ListItem>
-                                            </asp:DropDownList>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-4">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:Label runat="server" Text="Concepto:" AssociatedControlID=""></asp:Label>
-                                            <asp:DropDownList ID="DdlConcepto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-4">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:Label runat="server" Text="Tipo Descuento:" AssociatedControlID=""></asp:Label>
-                                            <asp:DropDownList ID="DdlTipoDescto" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoDescto_SelectedIndexChanged" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
-                                                <asp:ListItem Value="1" Text="Importe"></asp:ListItem>
-                                                <asp:ListItem Value="2" Text="Porcentaje"></asp:ListItem>
-                                                <asp:ListItem Value="3" Text="Importe(Tope Monto)"></asp:ListItem>
-                                                <asp:ListItem Value="4" Text="Porcentaje(Tope Monto)"></asp:ListItem>
-                                            </asp:DropDownList>
-                                        </div>
-                                    </div>
-                                </div>
-                                <div class="row">
-                                    <div class="col-md-4">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtValor" CssClass="form-control" runat="server"></asp:TextBox>
-                                            <asp:RequiredFieldValidator ID="RfvValor" runat="server" ControlToValidate="TxtValor" CssClass="help-block errorimput"
-                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Valor''</b> es necesario "
-                                                ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
-                                            <asp:Label runat="server" Text="Valor:" AssociatedControlID="TxtValor"></asp:Label>
-                                        </div>
-                                    </div>
-                                    <asp:Panel runat="server" ID="pnlVecesAplicar" CssClass="col-md-4">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtVecesAplicar" CssClass="form-control" runat="server"></asp:TextBox>
-                                            <asp:RequiredFieldValidator ID="RfvVecesAplicar" runat="server" ControlToValidate="TxtVecesAplicar" CssClass="help-block errorimput"
-                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Veces por Aplicar''</b> es necesario "
-                                                ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
-                                            <asp:Label runat="server" Text="Veces por Aplicar:" AssociatedControlID="TxtVecesAplicar"></asp:Label>
-                                        </div>
-                                    </asp:Panel>
-                                    <asp:Panel runat="server" ID="pnlMonto" CssClass="col-md-4">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtMontoLimite" CssClass="form-control" runat="server"></asp:TextBox>
-                                            <asp:RequiredFieldValidator ID="RfvMontoLimite" runat="server" ControlToValidate="TxtMontoLimite" CssClass="help-block errorimput"
-                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Monto Limite''</b> es necesario "
-                                                ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
-                                            <asp:Label runat="server" Text="Monto Limite:" AssociatedControlID="TxtMontoLimite"></asp:Label>
-                                        </div>
-                                    </asp:Panel>
-
-                                    <div class="col-md-4">
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtFechaAplicacion" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox>
-                                            <asp:RequiredFieldValidator ID="RfvFechaAplicacion" runat="server" ControlToValidate="TxtFechaAplicacion" CssClass="help-block errorimput"
-                                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> es necesario "
-                                                ValidationGroup="GrpGuardarMovyoPerma"></asp:RequiredFieldValidator>
-                                            <asp:Label runat="server" Text="Fecha de Aplicación: " AssociatedControlID="TxtFechaAplicacion"></asp:Label>
-                                            <ajax:MaskedEditExtender ID="MKEFechaAplicacion" runat="server" TargetControlID="TxtFechaAplicacion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MKEFechaBaja" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
-                                            <ajax:CalendarExtender ID="CEFechaAplicacion" runat="server" TargetControlID="TxtFechaAplicacion" PopupButtonID="ImgFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_CEFechaBaja"></ajax:CalendarExtender>
-                                            <asp:CompareValidator ID="CVFechaAplicacion" runat="server" ControlToValidate="TxtFechaAplicacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar" Visible="False"></asp:CompareValidator>
-
-                                        </div>
-
-                                    </div>
-                                </div>
-                                <div class="row">
-
-                                    <div class="col-md-6">
-                                        <div class="form-group form-md-line-input form-md-floating-label input-iconright">
-                                            <asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
-                                            <asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
-                                        </div>
-                                    </div>
-                                    <div class="col-md-3">
-                                        <div style="padding-top: 10px; padding-bottom: 14px;">
-                                            ¿Activo? 
-                                        </div>
-                                        <asp:CheckBox ID="ChkEstatus" CssClass="chksino " Text=" " runat="server" />
-                                    </div>
-                                    <div class="col-md-3">
-                                    </div>
-                                </div>
-                                <div class="text-right"></div>
-                            </div>
-                        </asp:Panel>
-
-                        <asp:GridView ID="GVMovtoPermanenteSaldos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
-                            DataKeyNames="CveTipo,Nombre,Concepto,CveMovtoPermanente,FechaFin,CvePeriodo,NoPagos,ImportePagos,Pagado,Total,Saldo,Fecha">
-                            <Columns>
-                                <asp:TemplateField HeaderText="Nombre">
-                                    <ItemTemplate>
-                                        <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <%--<asp:TemplateField HeaderText="Concepto">
-                                                                                <ItemTemplate>
-                                                                                    <asp:Label ID="lblconcepto" runat="server" Text='<%# Eval("Concepto")%>'> </asp:Label>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>
-                                                                            <asp:TemplateField HeaderText="Cve Movto Permanente">
-                                                                                <ItemTemplate>
-                                                                                    <asp:Label ID="lblcveMovtoPermanente" runat="server" Text='<%# Eval("CveMovtoPermanente")%>'> </asp:Label>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>--%>
-                                <%--<asp:TemplateField HeaderText="Fecha Fin">
-                                                                                <ItemTemplate>
-                                                                                    <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin")%>'> </asp:Label>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>--%>
-                                <%--<asp:TemplateField HeaderText="Cve Periodo">
-                                                                                <ItemTemplate>
-                                                                                    <asp:Label ID="lblcvePeriodo" runat="server" Text='<%# Eval("CvePeriodo")%>'> </asp:Label>
-                                                                                </ItemTemplate>
-                                                                            </asp:TemplateField>--%>
-                                <asp:TemplateField HeaderText="Fecha">
-                                    <ItemTemplate>
-                                        <asp:Label ID="lblfecha" runat="server" Text='<%# Eval("Fecha")%>'> </asp:Label>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:TemplateField HeaderText="No Pagos">
-                                    <ItemTemplate>
-                                        <asp:Label ID="lblnoPagos" runat="server" Text='<%# Eval("NoPagos")%>'> </asp:Label>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Importe Pago">
-                                    <ItemTemplate>
-                                        <asp:Label ID="lblimportePagos" runat="server" Text='<%# Eval("ImportePagos","{0:N2}")%>'> </asp:Label>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Pagado">
-                                    <ItemTemplate>
-                                        <asp:Label ID="lblpagado" runat="server" Text='<%# Eval("Pagado","{0:N2}")%>'> </asp:Label>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Total">
-                                    <ItemTemplate>
-                                        <asp:Label ID="lbltotal" runat="server" Text='<%# Eval("Total","{0:N2}")%>'> </asp:Label>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Saldo">
-                                    <ItemTemplate>
-                                        <asp:Label ID="lblsaldo" runat="server" Text='<%# Eval("Saldo","{0:N2}")%>'> </asp:Label>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                            </Columns>
-                        </asp:GridView>
-                    </div>
-                    <div class="modal-footer">
-                        <asp:LinkButton ID="LnkAddMovto" OnClick="LnkAddMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
-                        <asp:LinkButton ID="LnkUpMovto" OnClick="LnkUpMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-success" runat="server">Actualizar</asp:LinkButton>
-
-                        <button type="button" class="btn btn-danger" onclick="$('#ModalMovtoPermanente').modal('hide');return;">Cancelar</button>
-
-                    </div>
-                </div>
-
-            </ContentTemplate>
-        </asp:UpdatePanel>
-    </div>
     <asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
     <asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
     <asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />

Nomina/Nomina.aspx.cs

@@ -2642,10 +2642,92 @@ public partial class Nomina_Nomina2 : ClsPaginas
     }//ImgDelete
     protected void LnkReenviarCorreoSobreRecibo_Click(object sender, EventArgs e)
     {
+
+        //string msggral = "";
+        int CvePeriodo = 0;
+        ClsSisMail Mail = new ClsSisMail();
+        DataTable dtpersonal = new DataTable();
+        DataRow drow;
+        using (ClsRH objrh = new ClsRH())
+        {
+            objrh.GetPersonal(-1, UsuarioActual.CveEmpresa);
+            dtpersonal = objrh.DtResultados.FiltraParametros("", "", new string[] { "CvePersonal", "Correo", "NombreCompleto" });
+        }
+        using (ClsRH objrh = new ClsRH())
+        using (ClsNominas ObjNomina = new ClsNominas())
+        {
+            foreach (GridViewRow gvRow in GvNominas.Rows)
+            {
+                CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
+                int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
+                int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
+                int SeTimbro = (gvRow.DataKey("SeTimbro").ToUpper() == "TRUE" ? 1 : gvRow.DataKey("SeTimbro").ToEntero());
+                LinkButton LnkTimbrar = gvRow.FCLinkButton("LnkTimbrar");
+                string Correo = string.Empty;
+                string NombreCompleto = string.Empty;
+                if (dtpersonal.Rows.Count > 0 && (drow = dtpersonal.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal))) != null)
+                {
+                    Correo = drow["Correo"].ToString();
+                    NombreCompleto = drow["NombreCompleto"].ToString();
+                }
+                if (CvePersonal == SRCvePersonal && SeTimbro == 1)
+                {
+
+                    if (Correo.Trim().Length > 0)
+                    {
+                        byte[] pdf = GeneraPDFNomina(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta);
+                        if (pdf != null)
+                        {
+                            List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
+
+                            if (ObjNomina.GetNom_Nominas(-1, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa))
+                            {
+                                string Ruta = "";
+                                string PathXML = "";
+                                string PathXMLF = "";
+                                string Xmlname = "";
+                                string XmlnameF = "";
+                                //string empleado = "";
+                                Ruta = UsuarioActual.Empresa.Ruta;
+                                PathXML = $"{Ruta}XML\\Nomina\\{ObjNomina.SerieFolio}.xml";
+                                PathXMLF = $"{Ruta}XML\\Nomina\\{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
+                                Xmlname = $"{ObjNomina.SerieFolio}.xml";
+                                XmlnameF = $"{ObjNomina.Serie}F-{ObjNomina.Folio}.xml";
+                                objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = $"{ObjNomina.SerieFolio}.pdf" });
+                                //this.GuardaLog(PathXML);
+                                if (!string.IsNullOrEmpty(PathXML) && System.IO.File.Exists(PathXML))
+                                {
+                                    objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXML, NombreArchivo = Xmlname });
+                                }
+                                if (!string.IsNullOrEmpty(PathXMLF) && System.IO.File.Exists(PathXMLF))
+                                {
+                                    objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
+                                }
+                            }
+
+                            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
+                            // Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);
+
+                            objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
+
+                        }
+                    }
+
+
+                }
+            }
+        }
+        Alert("se reenvió el recibos timbrados");
     }
     protected void LnkCancelarSobreRecibo_Click(object sender, EventArgs e)
     {
-        showhideaccionesSR(true);
+        DataRow dr = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
+        CveNominaCancelar = dr["CveNomina"].ToString().ToEntero();
+        DdlMotivoCancelacion.DataSource = get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)");
+        DdlMotivoCancelacion.DataBind();
+        UpCancelarDocumento.Update();
+        RegistraScript("$('#ModalCancelarDocumento').modal()");
+        //showhideaccionesSR(true);
     }
     public void showhideaccionesSR(bool cargadatos = false)
     {
@@ -4944,11 +5026,67 @@ public partial class Nomina_Nomina2 : ClsPaginas
         UpPersonalizarxls.Update();
 
     }
+    private void Titlecell(ClosedXML.Excel.IXLWorksheet libro, object Valor, int fi, int ff, bool topBorder = true, bool bottomBorder = true, ClosedXML.Excel.XLColor borderColor = null)
+    {
+        ClosedXML.Excel.IXLCell celda = libro.Cell(fi, ff);
+        celda.Value = Valor;
+        if (borderColor != null)
+        {
+            if (topBorder)
+            {
+                celda.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
+                celda.Style.Border.TopBorderColor = borderColor;
+
+            }
+            celda.Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
+            celda.Style.Border.LeftBorderColor = borderColor;
+            celda.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
+            celda.Style.Border.RightBorderColor = borderColor;
+
+            if (bottomBorder)
+            {
+                celda.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
+                celda.Style.Border.BottomBorderColor = borderColor;
+            }
+
+        }
+    }
+    //IXLRange
+    private void TitleRange(ClosedXML.Excel.IXLWorksheet libro, object Valor, int fi, int ff, int fi2, int ff2, bool topBorder = true, bool bottomBorder = true, ClosedXML.Excel.XLColor borderColor = null)
+    {
+        ClosedXML.Excel.IXLRange celda = libro.Range(fi, ff, fi2, ff2).Merge();
+        celda.Value = Valor;
+        if (borderColor != null)
+        {
+            if (topBorder)
+            {
+                celda.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
+                celda.Style.Border.TopBorderColor = borderColor;
+
+            }
+            celda.Style.Border.LeftBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
+            celda.Style.Border.LeftBorderColor = borderColor;
+            celda.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
+            celda.Style.Border.RightBorderColor = borderColor;
+
+            if (bottomBorder)
+            {
+                celda.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Medium;
+                celda.Style.Border.BottomBorderColor = borderColor;
+            }
+
+        }
+    }
     protected void LnkFormatoPersonalizado_Click(object sender, EventArgs e)
     {
         try
         {
             ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
+            var PercborderColor = ClosedXML.Excel.XLColor.FromArgb(0, 102, 0);
+            var dedcborderColor = ClosedXML.Excel.XLColor.FromArgb(99, 37, 35);
+            ClosedXML.Excel.XLColor colorperp = ClosedXML.Excel.XLColor.FromArgb(51, 153, 102);
+            ClosedXML.Excel.XLColor colorded = ClosedXML.Excel.XLColor.FromArgb(150, 54, 52);
+            ClosedXML.Excel.IXLCell celda;
             var libro = wb.AddWorksheet("Nomina");
             int column = 1;
             int filainicio = 3;
@@ -4968,71 +5106,88 @@ public partial class Nomina_Nomina2 : ClsPaginas
             libro.Range(2, 2, 2, 4).Merge().Value = periodo;
 
             int iniciotipe = column;
-
+            int incioConceptos = iniciotipe + 1;
             column++;
-            libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Mensual";
+            Titlecell(libro, "Mensual", filainicio + 2, column, true, false, PercborderColor);
-            libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Sueldo";
+            Titlecell(libro, "Sueldo", filainicio + 3, column, false, true, PercborderColor);
+            Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
             libro.Column(column).Width = 15;
 
             column++;
-            libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Sueldo";
+            Titlecell(libro, "Sueldo", filainicio + 2, column, true, false, PercborderColor);
-            libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "diario";
+            Titlecell(libro, "diario", filainicio + 3, column, false, true, PercborderColor);
+            Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
             libro.Column(column).Width = 15;
 
             column++;
-            libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "dias Pen";
+            Titlecell(libro, "dias Pen", filainicio + 2, column, true, false, PercborderColor);
-            libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Pago";
+            Titlecell(libro, "Pago", filainicio + 3, column, false, true, PercborderColor);
+            Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
             libro.Column(column).Width = 15;
             foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 AND SoloVisible =0").Rows)
             {
-
                 column++;
-                libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
-                libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
-                libro.Column(column).Width = 15;
                 if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
                 {
                     libro.Column(column).Hide();
                 }
+                else
+                {
+                    Titlecell(libro, row["Concepto"].ToString(), filainicio + 2, column, true, false, PercborderColor);
+                    Titlecell(libro, row["Codigo"].ToString(), filainicio + 3, column, false, true, PercborderColor);
+                    Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
+                    libro.Column(column).Width = 15;
+                }
+            }
+            column++;
 
+
+            TitleRange(libro, "Percepciones", filainicio + 2, column, filainicio + 3, column, true, true, PercborderColor);
+            Titlecell(libro, "", filainicio + 4, column, true, true, PercborderColor);
+            libro.Column(column).Width = 15;
+            if (iniciotipe < column)
+            {
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
+                TitleRange(libro, "Percepciones", filainicio + 1, iniciotipe + 1, filainicio + 1, column, true, true, PercborderColor);
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones";
             }
-            //column++;
-            //libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Percepciones";
-            //libro.Column(column).Width = 15;
-            //if (iniciotipe < column)
-            //{
-            //    libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
-            //    libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones";
-            //}
             iniciotipe = column;
+            int finPercepciones = iniciotipe;
 
 
             column++;
-            libro.Range(filainicio + 2, column, filainicio + 2, column).Merge().Value = "Incapacidad";
+            TitleRange(libro, "Incapacidad", filainicio + 2, column, filainicio + 2, column, true, false, dedcborderColor); 
-            libro.Range(filainicio + 3, column, filainicio + 3, column).Merge().Value = "Perm. Faltas";
+            TitleRange(libro, "Perm. Faltas", filainicio + 3, column, filainicio + 3, column, false, true, dedcborderColor);
+            Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor);
             libro.Column(column).Width = 15;
             foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0").Rows)
             {
                 column++;
-                libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
-                libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
-                libro.Column(column).Width = 15;
                 if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
                 {
                     libro.Column(column).Hide();
                 }
+                else
+                {
+                    Titlecell(libro, row["Concepto"].ToString(), filainicio + 2, column, true, false, dedcborderColor);
+                    Titlecell(libro, row["Codigo"].ToString(), filainicio + 3, column, false, true, dedcborderColor);
+                    Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor);
+                    libro.Column(column).Width = 15;
+                }
 
             }
 
-            //column++;
+            column++;
-            //libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Deducciones";
+            TitleRange(libro, "Deducciones", filainicio + 2, column, filainicio + 3, column, true, true, dedcborderColor);
-            //libro.Column(column).Width = 15;
+            libro.Column(column).Width = 15;
+            if (iniciotipe < column)
+            {
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
+                TitleRange(libro, "Deducciones", filainicio + 1, iniciotipe + 1, filainicio + 1, column, true, true, dedcborderColor);
+                Titlecell(libro, "", filainicio + 4, column, true, true, dedcborderColor);
+            }
              
-            //if (iniciotipe < column)
+            int findeducciones = column;
-            //{
-            //    libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
-            //    libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Deducciones";
-            //}
 
             //column++;
             //libro.Cell(filainicio + 1, column).Value = " ";
@@ -5046,20 +5201,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
 
 
-            //if (iniciotipe < column)
-            //{
-            //    libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
-            //    libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Obligaciones";
-            //}
-
-            //libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-            //libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-            //libro.Row(3).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-            //libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(177, 160, 199));
-            //libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
-            //libro.Row(3).Cell(1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
-            //libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
             int maxnocolumn = column;
+            libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+            libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+            libro.Range(filainicio + 1, incioConceptos, filainicio + 4, finPercepciones).Style.Fill.SetBackgroundColor(colorperp);
+            libro.Range(filainicio + 1, finPercepciones + 1, filainicio + 4, findeducciones).Style.Fill.SetBackgroundColor(colorded);
 
             int Fila = filainicio + 3;
             int cveSupProyecto = -5;
@@ -5068,7 +5214,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             int oldcveSupProyecto = -5;
             bool newsubproyecto = false;
             bool newsubproyectoTitulo = false;
-            List<int> filasborrar= new List<int>(); 
+            List<int> filasborrar = new List<int>();
             DataTable dtsr = dtempleados.FiltraParametros("", "CveSubProyecto");
             dtsr.Rows.Add(dtsr.NewRow());
             foreach (DataRow erow in dtsr.Rows)
@@ -5107,6 +5253,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
                 column++;
                 libro.Cell(Fila, column).Value = erow["SalarioDiario"];
+                libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
 
                 column++;
                 libro.Cell(Fila, column).Value = "";
@@ -5115,22 +5262,32 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     column++;
                     string Concepto = string.Format("V_{0}", row["CveConcepto"]);
                     libro.Cell(Fila, column).Value = erow[Concepto];
+                    libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
 
 
                     if (newsubproyecto)
                     {
                         libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                        libro.Cell(Fila -3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
                     }
 
                 }
 
-                //column++;
+                column++;
-                //libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(colorperp);
-                //libro.Cell(Fila, column).Value = erow["SumaPercepciones"];
+                Titlecell(libro, erow["SumaPercepciones"], Fila, column, false, false, PercborderColor);
-                //if (newsubproyecto)
+                libro.Cell(Fila, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-                //{
+                libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
-                //    libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                if (newsubproyecto)
-                //}
+                {
+                    libro.Cell(Fila - 2, column).Style.Fill.SetBackgroundColor(colorperp);
+                    Titlecell(libro,"", Fila - 2, column, false, false, PercborderColor);
+                    libro.Cell(Fila - 3, column).Style.Fill.SetBackgroundColor(colorperp);
+                    libro.Cell(Fila - 3, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+                    libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
+                    Titlecell(libro, dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)), Fila - 3, column, true, true, PercborderColor);
+                    //libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                }
 
 
                 column++;
@@ -5140,20 +5297,30 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     column++;
                     string Concepto = string.Format("V_{0}", row["CveConcepto"]);
                     libro.Cell(Fila, column).Value = erow[Concepto];
+                    libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
 
                     if (newsubproyecto)
                     {
                         libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                        libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
                     }
                 }
 
-                //column++;
+                column++;
-                //libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(colorded);
-                //libro.Cell(Fila, column).Value = erow["SumaDeducciones"];
+                Titlecell(libro, erow["SumaDeducciones"], Fila, column, false, false, dedcborderColor);
-                //if (newsubproyecto)
+                libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
-                //{
+                libro.Cell(Fila, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; 
-                //    libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                if (newsubproyecto)
-                //}
+                {
+                    libro.Cell(Fila - 2, column).Style.Fill.SetBackgroundColor(colorded);
+                    Titlecell(libro, "", Fila - 2, column, false, false, dedcborderColor);
+                    libro.Cell(Fila - 3, column).Style.Fill.SetBackgroundColor(colorded);
+                    libro.Cell(Fila -3, column).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+                    libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
+                    Titlecell(libro, dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto)), Fila - 3, column, true, true, dedcborderColor);
+                    //libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                }
                 //column++;
                 //libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
                 //libro.Cell(Fila, column).Value = erow["SumaEspecie"];
@@ -5164,8 +5331,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 column++;
                 libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
                 libro.Cell(Fila, column).Value = erow["Total"];
+                libro.Cell(Fila, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;\"\"";
                 if (newsubproyecto)
                 {
+                    libro.Cell(Fila-2, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
+                    libro.Cell(Fila-3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
+                    libro.Cell(Fila-3, column).Style.NumberFormat.Format = "#,##0.00;-#,##0.00;";
                     libro.Cell(Fila - 3, column).Value = dtempleados.SUM("Total", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
                 }
 
@@ -5190,9 +5361,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 //}
             }
 
+            libro.Rows(Fila-2, Fila).Delete();
 
-            libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
-            libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
             {
                 var columnsToDelete = new List<int>();
                 foreach (var columnx in libro.Columns())
@@ -5211,11 +5381,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     libro.Column(columnNumber).Delete();
                 }
             }
+            int primera = filasborrar.First();
+            filasborrar.Remove(primera);
             filasborrar.Reverse();
             foreach (int rownumber in filasborrar)
             {
-                libro.Rows(rownumber, rownumber).Delete();
+                libro.Rows(rownumber-1, rownumber).Delete();
             }
+            libro.Rows(primera, primera).Delete();
             System.IO.Stream fs = new System.IO.MemoryStream();
             wb.SaveAs(fs);
             fs.Position = 0;
@@ -10525,7 +10698,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         StringBuilder SbErrores = new StringBuilder();
         bool ErroresValidaciones = false;
         int modalidadnomina = 1;
-        if (UsuarioActual.CveEmpresa.Contiene(189,193,195,196,197)) modalidadnomina = 2;
+        if (UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197)) modalidadnomina = 2;
 
         SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout:<br/>");
 
@@ -11994,4 +12167,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
         UpDatos.Update();
     }
 
+
+    protected void ddltipoPersonalizar_SelectedIndexChanged(object sender, EventArgs e)
+    {
+
+    }
 }

OC/CotizacionEnvio.aspx.vb

@@ -230,7 +230,7 @@ Partial Class OC_CotizacionEnvio
 
                     If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, CveColectiva, "-1", "-1", "", 1, 0, 0) Then
                         'Cargar los detalles de la cotizacion
-                        If objCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then
+                        If objCotizacion.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
                             'Agrega CveCotizacion a la lista
                             OrdenCotizacion.Add(objCotizacion.CveCotizacion)
                             For Each RowCD As DataRow In objCotizacion.DtResultados.Rows
@@ -397,7 +397,7 @@ Partial Class OC_CotizacionEnvio
         'verifico los permisos según el estatus
 
         Dim dtConceptos As DataTable = Nothing
-        If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+        If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
             dtConceptos = objOC.DtResultados
         End If
 

OC/OC.aspx

@@ -212,7 +212,8 @@
                                                 <asp:Label runat="server" ID="lblFolio" Font-Bold="true"></asp:Label>
                                             </label>
                                             <b>
-                                                <asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
+                                                          
+                                          <asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
                                             <div class="col-md-4" id="DivPrioridad" runat="server">
                                                 <asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px">
                                                     <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
@@ -220,6 +221,9 @@
                                                     <asp:ListItem Text="Media" Value="2"></asp:ListItem>
                                                     <asp:ListItem Text="Baja" Value="3"></asp:ListItem>
                                                 </asp:DropDownList>
+                                                 <asp:DropDownList ID="DdlSubProyectoGral" Visible="false" CssClass="form-control  select2me" runat="server" Width="85%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
+                                                     <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                                 </asp:DropDownList>
                                             </div>
                                         </div>
                                     </ContentTemplate>
@@ -447,14 +451,6 @@
                                              <asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
                                         </td>
                                     </tr>                                   
-                                    <tr id="trSubProyecto">
-                                        <td><b>Sucursal:</b></td>
-                                        <td>
-                                            <asp:DropDownList ID="DdlSubProyectoGral" CssClass="form-control  select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
-                                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
-                                            </asp:DropDownList>
-                                        </td>
-                                    </tr>
                                     <tr id="trCfdi" style="display:none;" >
                                         <td>
                                             <div class="caption font-green">

OC/OC.aspx.vb

@@ -728,7 +728,7 @@ Partial Class OC_OC
                 'temporal
                 If UsuarioActual.CveEmpresa = 189 Then
                     'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
-                    DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "SubProyecto")
+                    DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
                     DdlSubProyectoGral.DataBind()
                     DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
                 End If
@@ -957,8 +957,11 @@ Partial Class OC_OC
                 End If
             End If
 
-            If UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                 chkSubProyectoEntrega.Visible = True
+                LblPrioridad.Text = "Sucursal"
+                DdlPrioridad.Visible = False
+                DdlSubProyectoGral.Visible = True
             End If
 
         End If
@@ -1686,7 +1689,7 @@ Partial Class OC_OC
                 CboE.DataBind()
             End If
 
-            If objOC.GetOrdenesDetalle(pCveOrdenCompra) Then
+            If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.cveempresa) Then
                 DtDetalle = objOC.DtResultados
             End If
 
@@ -2043,7 +2046,7 @@ Partial Class OC_OC
     End Sub
     Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer)
         DdlSP.Items.Clear()
-        DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit)
+        DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"})
         DdlSP.DataBind()
         DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -4956,7 +4959,7 @@ Partial Class OC_OC
         End If
     End Sub
     Private Sub BtnEliminarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEliminarCotizacion.Click
-        Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim)
+        Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim, UsuarioActual.CveEmpresa)
         RegistraScript("hideDivEC();")
     End Sub
 #End Region
@@ -6428,7 +6431,7 @@ Partial Class OC_OC
 
                 'verifico los permisos según el estatus
 
-                If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+                If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
                     For Each dr As DataRow In objOC.DtResultados.Rows
                         strBody.AppendFormat("<tr class='Texto'><td>{0}</td><td>{1}</td><td><span style='width: 220px; border-bottom: 1px solid gray;'>{2}</span><br>{3}</td><td>{4}</td><td style='width:150px;'><span style='width: 150px; border-bottom: 1px solid gray;'>{5}</span><br>{6}</td><td>{7}</td><td align='right'>{8}</td><td align='right'>{9}</td></tr>",
                                                     dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))
@@ -6470,7 +6473,7 @@ Partial Class OC_OC
         objOC.GetOC(CveOrdenCompra, CveEmpresaActual)
         CveProveedor = objOC.CveProveedor
         Dim DttDetalle As DataTable = Nothing
-        If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+        If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
             DttDetalle = objOC.DtResultados
         End If
 
@@ -6567,7 +6570,7 @@ Partial Class OC_OC
 #End Region
 
 #Region "Correo Eliminar Cotización"
-    Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String) As String
+    Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String, CveEmpresaActual As Integer) As String
         Dim ObjCotizacion As New ClsOC
         ObjCotizacion.GetCotizaciones(CveOrdenCompra, CveCotizacion)
         Dim strBody As New StringBuilder
@@ -6650,7 +6653,7 @@ Partial Class OC_OC
         strBody.Append("           </tr>")
 
         Dim dtConceptos As DataTable = Nothing
-        If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then
+        If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
             dtConceptos = ObjCotizacion.DtResultados
         End If
 
@@ -9282,6 +9285,8 @@ Partial Class OC_OC
     End Sub
 
     Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
+        UPPDetalle.Update()
         CargaFolios()
     End Sub
 End Class

OC/OC2.aspx.vb

@@ -795,7 +795,7 @@ Partial Class OC
     End Sub
     Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer)
         DdlSP.Items.Clear()
-        DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit)
+        DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"})
         DdlSP.DataBind()
         DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub

OC/PopUpBuscarReq.aspx.vb

@@ -129,7 +129,7 @@ Partial Class OC_PopUpBuscarReq
     Private Sub CargaSubProyectos(CveProyecto As Integer)
         DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
                                         GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1),
-                                        GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
+                                        GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto))
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub

OC/RepCotizacionesDetalle.aspx.vb

@@ -131,7 +131,7 @@ Partial Class PopOCCotizacionesDetalle
     Private Sub CargaOCDetalle(pCveOrden As Integer)
         Dim objOC As New ClsOC
 
-        If objOC.GetOrdenesDetalle(pCveOrden) Then
+        If objOC.GetOrdenesDetalle(pCveOrden, UsuarioActual.CveEmpresa) Then
             DtDetalle = objOC.DtResultados
         End If
 

OC/RepRequisiciones.aspx.vb

@@ -80,7 +80,7 @@ Partial Class OC_RepRequisiciones
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         Else
-            DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, Estatus:=1)
+            DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"})
             DdlSubProyecto.DataBind()
         End If
 

OS/OrdenesServicios.aspx.vb

@@ -474,7 +474,7 @@ Partial Class OS_OrdenesServicios
     End Sub
 
     Private Sub CargaTiposVenta()
-        DdlTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
+        DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlTipoVenta.DataBind()
     End Sub
 
@@ -500,16 +500,7 @@ Partial Class OS_OrdenesServicios
         End If
         UpDetalleOS.Update()
     End Sub
-    'Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs)
-    '    Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow)
-    '    Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
 
-    '    gvr.FCDropDownList("DDlSubProyecto").Items.Clear()
-    '    gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero)
-    '    gvr.FCDropDownList("DDlSubProyecto").DataBind()
-    '    gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
-
-    'End Sub
     Protected Sub DdlFR_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList)
         Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString.ToEntero

OS/PopUpMateriales.aspx.vb

@@ -127,7 +127,7 @@ Partial Class OS_PopUpMateriales
                     Dim RowPS As DataRow = DTPS.FiltraParametros("CvePS = " & Material("CvePS").ToString).Rows(0)
                     Dim PS As String = RowPS("PS").ToString
                     Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero
-                    Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
+                    Dim UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
                     Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero
                     Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString
 

Planeacion/CatSubProyectos.aspx.vb

@@ -102,7 +102,7 @@ Partial Class CatSubProyectos
 
     Private Sub RecargaGlobal()
         GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
-        GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
         GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing
 
     End Sub

Presupuestos/GenerarPresupuestos.aspx.vb

@@ -202,7 +202,7 @@ Partial Class Presupuestos_GenerarPresupuestos
         ddlUM.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
         ddlMOUnidad.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
 
-        ddlPUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
+        ddlPUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
         ddlPUM.DataBind()
 
         Dim ObjClientes As New ClsClientes
@@ -506,7 +506,7 @@ Partial Class Presupuestos_GenerarPresupuestos
             Dim PU As Double = DtPS.FiltraParametros("CvePS=" & ddlMOPS.SelectedValue.ToString).Rows(0)("Precio").ToString.ToDouble
             tbPrecioMO.Text = PU.ToString
 
-            ddlMOUnidad.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
+            ddlMOUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
             ddlMOUnidad.DataBind()
         End If
 
@@ -550,7 +550,7 @@ Partial Class Presupuestos_GenerarPresupuestos
         If ddlPS.SelectedIndex > 0 Then
             Dim PU As Double = DtPS.FiltroPrimero("CvePS=" & ddlPS.SelectedValue.ToString)("Precio").ToString.ToDouble
             tbPrecio.Text = PU.ToString
-            ddlUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
+            ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
             ddlUM.DataBind()
         End If
     End Sub

RH/AsistenciaDetalle.aspx.vb

@@ -200,7 +200,7 @@ Partial Class RH_AsistenciaDetalle
         Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
 
         GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").Items.Clear()
-        GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"})
+        GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"})
         GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataBind()
     End Sub
 

RH/CatPersonalRequerido.aspx.vb

@@ -87,7 +87,7 @@ Partial Class RH_CatPersonalRequerido
         SubProyectoDdl.Items.Clear()
         SubProyectoDdl.SelectedValue = Nothing
         If CveProyecto > 0 Then
-            SubProyectoDdl.DataSource = GlobalDTSubProyectos(CveProyecto)
+            SubProyectoDdl.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)
         End If
         SubProyectoDdl.DataBind()
         SubProyectoDdl.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1"))

Sistemas/CatSesiones.aspx.vb

@@ -591,7 +591,7 @@ Partial Class Sistemas_CatSesiones
             Case ""
                 dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
             Case Else
-                dt = DirectCast(Application(DdlVariable.SelectedValue & UsuarioActual.CveEmpresa), DataTable)
+                dt = DirectCast(HttpContext.Current.Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable)
         End Select
 
         Gv.DataSource = dt

Sistemas/PopUpSeleccionarEmpresa.aspx.vb

@@ -14,8 +14,8 @@ Partial Class PopUpSeleccionarEmpresa
     End Sub
 
     Private Sub GetEmpresas()
-        GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTUsuarios(-1, -1) = Nothing
-        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, -1)
 
         If Dt IsNot Nothing Then
             If Dt.Rows.Count > 0 Then

Transportes/RepContratos.aspx.vb

@@ -166,22 +166,23 @@ Partial Class ListadoContratos
             End If
             Anexo.Text = ""
 
-            If ErrorProceso = False Then
+            'If ErrorProceso = False Then
 
-                Dim Respuesta As New RespuestaFacturacion()
+			'    Dim Respuesta As New RespuestaFacturacion()
-                Dim CvePS As Integer = 907783
+			'    Dim CvePS As Integer = 907783
-                Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL)
+			'    Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL)
 
-                If Respuesta.CveVenta > 0 Then
+			'    If Respuesta.CveVenta > 0 Then
-                    CveVentaRemision = Respuesta.CveVenta
+			'        CveVentaRemision = Respuesta.CveVenta
-                    SerieFolioRemision = Respuesta.SerieFolio
+			'        SerieFolioRemision = Respuesta.SerieFolio
-                    ErrorProceso = False
+			'        ErrorProceso = False
-                Else
+			'    Else
-                    ErrorProceso = True
+			'        ErrorProceso = True
-                    Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
+			'        Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia)
-                End If
+			'    End If
+
+			'End If
 
-            End If
 
         Else
             ErrorProceso = True

Ventas/PVCobranza.aspx

@@ -431,13 +431,13 @@
                                                 <div class="row" id="DivDatosCheque" runat="server" visible="false" style="padding-top: 8px;">
                                                     <div class="col-md-12">
                                                         <div class="row">
-                                                            <label class="col-md-2">Clave de autorización:</label>
+                                                            <label class="col-md-2">Clave de aut.:</label>
                                                             <div class="col-md-4">
-                                                                <asp:TextBox ID="TxtClaveAutorizacion" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="100%" ClientIDMode="Static"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtClaveAutorizacion" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="100px" ClientIDMode="Static"></asp:TextBox>
                                                             </div>
                                                             <label class="col-md-2">¿Quién autorizó?:</label>
                                                             <div class="col-md-4">
-                                                                <asp:TextBox ID="TxtAutorizo" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="100%" ClientIDMode="Static"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtAutorizo" CssClass="form-control input-sm " runat="server" MaxLength="50" Width="125px" ClientIDMode="Static"></asp:TextBox>
                                                             </div>
                                                         </div>
                                                     </div>

Ventas/PVCobranza.aspx.vb

@@ -382,7 +382,7 @@ Partial Class Ventas_PVCobranza
         'validaciones
         Dim Pagado As Decimal = TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal
         If Pagado = 0 Then
-            Alert("Favor de especificar importe", TipoMensaje.MsgAdvertencia)
+            Alert("Favor de especificar importe", TipoMensaje.ToastAdventencia)
             Exit Sub
         End If
 

Ventas/ProductosServicios.aspx.vb

@@ -1319,7 +1319,7 @@ Partial Class ProductosyServicios
 #Region "GV PAQUETE DETALLE"
     Protected Sub gvPaqueteDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvPaqueteDetalle.RowDataBound
         If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida()
+            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
             e.Row.FCDropDownList("ddlEUnidad").DataBind()
         End If

Ventas/RepProductosServiciosDetalle.aspx

@@ -433,9 +433,11 @@
                     <%--20--%>
                     <asp:BoundField HeaderText="O. C." DataField="OC_noOrden" ItemStyle-Width="5%" Visible="false" />
                     <%--21--%>
-                    <asp:BoundField HeaderText="Kilogramos" DataField="OC_Kilogramos" ItemStyle-Width="5%" Visible="false" />
+                    <asp:BoundField HeaderText="Kilogramos" DataField="OC_Kilogramos"  DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" Visible="false" ItemStyle-HorizontalAlign="Right" />
                     <%--22--%>
-                    <asp:BoundField HeaderText="Cantiadad" DataField="OC_Cantidad" ItemStyle-Width="5%" Visible="false" />
+                    <asp:BoundField HeaderText="Cantiadad" DataField="OC_Cantidad"  DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" Visible="false" ItemStyle-HorizontalAlign="Right" />
+                    <%--23--%>
+                    <asp:BoundField HeaderText="Manifiesto" DataField="NoManifiesto" ItemStyle-Width="5%" Visible="false" />
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
@@ -477,7 +479,7 @@
                                             <asp:CheckBox ID="ChkFormaPago" runat="server" Text="Forma de Pago" />
                                         </td>
                                     </tr>
-                                      <tr>
+                                      <tr  runat="server" id="DivMostrarCgame">
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkOC_noOrden" runat="server" Text="O. C." />
                                         </td>
@@ -493,11 +495,12 @@
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkFechaHoraEmision" runat="server" Text="Fecha Hora de Emisión" />
                                         </td>
-                                        <td style="text-align: left;">
+                                        <td style="text-align: left;" runat="server" id="DivMostrarCgame2">
-                                            <asp:CheckBox ID="ChkNumTurnos" runat="server" Text="Número de turnos" Visible="false" />
+                                            <asp:CheckBox ID="ChkNoManifiesto" runat="server" Text="Manifiesto" />
+                                            
                                         </td>
                                         <td style="text-align: left;">
-                                            
+                                            <asp:CheckBox ID="ChkNumTurnos" runat="server" Text="Número de turnos" Visible="false" />
                                         </td>
                                     </tr>
                                 </tbody>

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -73,7 +73,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-
+            DivMostrarCgame.Visible = (UsuarioActual.CveEmpresa = 172)
+            DivMostrarCgame2.Visible = (UsuarioActual.CveEmpresa = 172)
             If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
             SetValues()
             CargaParametrosDetalle()
@@ -558,6 +559,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
         GvDatos.Columns(20).Visible = ChkOC_noOrden.Checked
         GvDatos.Columns(21).Visible = ChkOC_Kilogramos.Checked
         GvDatos.Columns(22).Visible = ChkOC_Cantidad.Checked
+        GvDatos.Columns(23).Visible = ChkNoManifiesto.Checked
 
 
 

Ventas/Ventas.aspx.vb

@@ -37861,7 +37861,7 @@ Partial Class Ventas
 
     Private Sub CargaTiposVenta()
 
-        RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
+        RBLTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         RBLTipoVenta.DataBind()
         RBLTipoVenta.Items.Add(New ListItem("Otros", "99"))
 

asmx/WSSIGApp.asmx

@@ -2449,7 +2449,7 @@ Public Class WSSIGApp
 
                         If CveEstatusFinalOK > 0 AndAlso CveEstatusFinalOK = Ent.CveEstatus Then
                             Dim IDPolizaPresupuestal = ObjOC.IdPoliza
-                            If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then
+                            If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then
                                 DtDetalle = ObjOC.DtResultados.Copy
                                 Dim ObjConta As ClsContPAQi = Nothing
                                 Retorno = Not GeneraOrdenes(FolioOCGeneradas, ObjConta, ObjOC, DtOC.Rows(0), DtDetalle, Ent.CveUsuario, Ent.CveEmpresa, IDPolizaPresupuestal, UsaAC, DtPresupuestos)
@@ -2679,7 +2679,7 @@ Public Class WSSIGApp
                     Dim jarray As JArray = JArray.Parse(ObjOC.DtResultados.ToJson)
                     Dim json As JObject = jarray.Children(Of JObject).FirstOrDefault()
                     If json IsNot Nothing Then
-                        If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then
+                        If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then
                             json.Add(New JProperty("Detalle", JArray.Parse(ObjOC.DtResultados.ToJson)))
                         End If
                         Retorno = Encripta(json.ToString)
@@ -2700,13 +2700,14 @@ Public Class WSSIGApp
             Dim Estructura = New With
             {
                 Key .[CveOrdenCompra] = -1,
+                Key .[CveEmpresa] = -1,
                 Key .[Ticks] = ""
             }
             Dim JsonRequest As String = Decripta(Cadena)
             Dim Entrada = JsonConvert.DeserializeAnonymousType(JsonRequest, Estructura)
             If IsCurrentDate(Entrada.Ticks) Then
                 Dim ObjOC As New ClsOC
-                If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra) Then
+                If ObjOC.GetOrdenesDetalle(Entrada.CveOrdenCompra, Entrada.CveEmpresa) Then
                     Dim JsonRetorno = ObjOC.DtResultados.ToJson
                     retorno = Encripta(JsonRetorno)
                 End If
@@ -2871,7 +2872,7 @@ Public Class WSSIGApp
                 If ObjOC.AddCotizacion(Ent.CveOrdenCompra, Ent.CveProveedor, Ent.CveColectiva, "-1", "-1", "", 1, 0, 0) Then
                     CveCotizacion = ObjOC.CveCotizacion
                     'Cargar los detalles de la cotizacion
-                    If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra) Then
+                    If ObjOC.GetOrdenesDetalle(Ent.CveOrdenCompra, Ent.CveEmpresa) Then
                         'Agrega CveCotizacion a la lista
 
                         For Each RowCD As DataRow In ObjOC.DtResultados.Rows
@@ -3221,7 +3222,7 @@ Public Class WSSIGApp
 
         Dim dtConceptos As DataTable = Nothing
         Dim ObjOCdb As New ClsOC
-        If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra) Then
+        If ObjOCdb.GetOrdenesDetalle(CveOrdenCompra, CveEmpresa) Then
             dtConceptos = ObjOCdb.DtResultados
         End If
 
@@ -3320,7 +3321,7 @@ Public Class WSSIGApp
 
                     'verifico los permisos según el estatus
 
-                    If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+                    If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
                         For Each dr As DataRow In objOC.DtResultados.Rows
                             strBody.AppendFormat("<tr class='Texto'><td>{0}</td><td>{1}</td><td><span style='width: 220px; border-bottom: 1px solid gray;'>{2}</span><br>{3}</td><td>{4}</td><td style='width:150px;'><span style='width: 150px; border-bottom: 1px solid gray;'>{5}</span><br>{6}</td><td>{7}</td><td align='right'>{8}</td><td align='right'>{9}</td></tr>",
                                                         dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))