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

.gitignore

@@ -273,3 +273,4 @@ __pycache__/
 /Default.aspx.cs
 /App_WebReferences/WSRDLC
 /wwwSIGGIT.rar
+/Front

AC/RegNomina.aspx.vb

@@ -365,7 +365,7 @@ Partial Class AC_RegNomina
 
 
         Dim CtaCliente As Integer = 634 ' Municipio de hermosillo
-        Dim CvePresupuestoIngreso As Integer = 195 ' 2015: 12, 2016: 152, 2017: 160, 2018: 183
+        Dim CvePresupuestoIngreso As Integer = 214 ' 2015: 12, 2016: 152, 2017: 160, 2018: 183, 2019: 195
         Dim CtaPuente As Integer = 1774 ' INGRESO RECAUDADO PARA NOMINA EN MUNICIPIO, fijo
         Dim CtaServiciosPersonales As Integer = 1778 ' 2111  -- fijo
         Dim IdCtaPersonal As Integer = 0

App_Code/CFDITimbre.vb

@@ -302,6 +302,7 @@ Public Class CFDIConceptos
     Public Property ValorUnitario As Decimal = 0.00D
     Public Property Importe As Decimal = 0.00D
     Public Property CuentaPredial As String = ""
+    Public Property NumeroPedimento As String = ""
     Public Property ClaveProdServ As String = ""
     Public Property ClaveUnidad As String = ""
     Public Property Impuestos As List(Of CFDIConceptosImpuestos)

App_Code/ClsOIEventos.vb

@@ -2922,6 +2922,26 @@ Public Class ClsOIEventos
 #End Region
 
 #Region "Documentos"
+    Public Function ListadoDocumentos(CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OI_ListarDocumentos")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el listado de documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetDocumento(CveDocumento As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False

App_Code/Timbrado.vb

@@ -1164,6 +1164,7 @@ Public Class Timbrado
                     End If
                 Next
                 If concep.CuentaPredial <> "" Then cfdi.agregarCuentaPredial(concep.CuentaPredial)
+                If concep.NumeroPedimento <> "" Then cfdi.agregarInformacionAduanera(concep.NumeroPedimento)
             Next
         End If
 
@@ -1749,6 +1750,7 @@ Public Class Timbrado
                     End If
                 Next
                 If concep.CuentaPredial <> "" Then cfdi.CuentaPredial(concep.CuentaPredial)
+                If concep.NumeroPedimento <> "" Then cfdi.InformacionAduanera(concep.NumeroPedimento)
             Next
         End If
 
@@ -2365,6 +2367,11 @@ Public Class Timbrado
                 End If
 
                 If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion
+                If concep.CuentaPredial <> "" Then comprobante.Conceptos(i).CuentaPredial = New Profact.TimbraCFDI33.ComprobanteConceptoCuentaPredial() With {.Numero = concep.CuentaPredial}
+                If concep.NumeroPedimento <> "" Then
+                    comprobante.Conceptos(i).InformacionAduanera = New Profact.TimbraCFDI33.ComprobanteConceptoInformacionAduanera(1) {} 'solo un codigo por el momento
+                    comprobante.Conceptos(i).InformacionAduanera(0) = New Profact.TimbraCFDI33.ComprobanteConceptoInformacionAduanera() With {.NumeroPedimento = concep.NumeroPedimento}
+                End If
 
                 j = 0
                 k = 0

App_Code/WsSigfox.vb

@@ -27,8 +27,8 @@ Namespace Sigfox
                 'respuesta.Datos = Datos
 
                 Dim DevID As String = params.device
-                Dim Lat As Double = params.lat.ToDouble()
+                Dim Lat As Double = 90 'params.lat.ToDouble()
-                Dim Lng As Double = params.lng.ToDouble()
+                Dim Lng As Double = 90 'params.lng.ToDouble()
                 Dim Fecha As DateTime = params.time.ToDouble().ConvertFromUnixTimestamp()
                 Dim Velocidad As Double = 0
                 Dim MessageType As Integer = 0
@@ -68,12 +68,16 @@ Namespace Sigfox
             End Try
 
             Dim response As HttpResponseMessage
-            If datos.Length > 0 Then
+            If respuesta.Correcto Then
-                Dim jsonString As String = $"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}"
+                If datos.Length > 0 Then
-                response = Me.Request.CreateResponse(HttpStatusCode.OK)
+                    response = Me.Request.CreateResponse(HttpStatusCode.OK)
-                response.Content = New StringContent(jsonString, Encoding.UTF8, "application/json")
+                    response.Content = New StringContent($"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}", Encoding.UTF8, "application/json")
+                Else
+                    response = Request.CreateResponse(HttpStatusCode.NoContent, "")
+                End If
             Else
-                response = Request.CreateResponse(HttpStatusCode.NoContent, "")
+                response = Me.Request.CreateResponse(HttpStatusCode.OK)
+                response.Content = New StringContent($"{{""Fail"":{{""Msg"":""Ocurrió un error al agregar la trama""}}}}", Encoding.UTF8, "application/json")
             End If
             Return response
         End Function

Contabilidad/RegPoliza.aspx.vb

@@ -1702,9 +1702,21 @@ Partial Class RegPoliza
 
         If ObjConta.RemovePoliza(IDPoliza) Then
             If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then
-                If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
 
+                    ErrorTrans = True
                 Else
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                    ErrorTrans = True
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtFechaPoliza.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
+                    ErrorTrans = True
+                End If
+
+                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", DdlTipoPoliza.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
                     ErrorTrans = True
                 End If
             Else

Empresas/Grales/Formatos/AuxiliarProveedor.rdlc

@@ -50,34 +50,34 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.57873cm</Width>
+              <Width>2.19852cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.54731cm</Width>
+              <Width>2.26204cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.70704cm</Width>
+              <Width>0.69929cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.66702cm</Width>
+              <Width>1.65927cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.99686cm</Width>
+              <Width>1.98911cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.96369cm</Width>
+              <Width>1.95594cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.75246cm</Width>
+              <Width>1.74471cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>0.85958cm</Width>
+              <Width>0.85183cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.6398cm</Width>
+              <Width>1.63205cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.77947cm</Width>
+              <Width>1.50713cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -822,7 +822,7 @@
             <TablixMember>
               <Group Name="GPO" />
               <TablixHeader>
-                <Size>3.06196cm</Size>
+                <Size>3.05421cm</Size>
                 <CellContents>
                   <Textbox Name="RazonSocial">
                     <CanGrow>true</CanGrow>
@@ -863,7 +863,7 @@
         <Top>0.75875cm</Top>
         <Left>0.06614cm</Left>
         <Height>1.19472cm</Height>
-        <Width>19.55393cm</Width>
+        <Width>19.55408cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -891,8 +891,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>0.07056cm</Top>
+        <Top>0.0635cm</Top>
-        <Left>0.06614cm</Left>
+        <Left>0.01654cm</Left>
         <Height>0.58236cm</Height>
         <Width>19.58715cm</Width>
         <ZIndex>1</ZIndex>
@@ -910,10 +910,10 @@
     <Height>0.87325in</Height>
     <Style />
   </Body>
-  <Width>7.73752in</Width>
+  <Width>7.7245in</Width>
   <Page>
     <PageHeader>
-      <Height>2.22362cm</Height>
+      <Height>2.32973cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <ReportItems>
         <Textbox Name="Textbox1">
@@ -935,9 +935,8 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
-          <Left>2.43857cm</Left>
           <Height>0.6cm</Height>
-          <Width>14.68354cm</Width>
+          <Width>19.60369cm</Width>
           <Style>
             <Border>
               <Style>None</Style>
@@ -983,9 +982,8 @@
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
           <Top>0.63528cm</Top>
-          <Left>2.40329cm</Left>
           <Height>0.52945cm</Height>
-          <Width>14.68354cm</Width>
+          <Width>19.62022cm</Width>
           <ZIndex>1</ZIndex>
           <Style>
             <Border>
@@ -1003,7 +1001,7 @@
           <Sizing>FitProportional</Sizing>
           <Left>0.06614cm</Left>
           <Height>2.22362cm</Height>
-          <Width>2.33715cm</Width>
+          <Width>4.64069cm</Width>
           <ZIndex>2</ZIndex>
           <Style>
             <Border>

General/PopUpPaqueteriasGuias.aspx.cs

@@ -761,7 +761,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             strBody.Append("<head>");
             strBody.Append("<meta charset='UTF-8'>");
             strBody.Append("</head>");
-            strBody.Append("  <body>");
+            strBody.Append("  <body style='width:800px;'>");
             strBody.Append("<div>");
             strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
             strBody.Append("</div>");
@@ -770,7 +770,7 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             strBody.Append("    </p>");
             strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
             strBody.Append("  <div style='width:100%;text-align:center'>");
-            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+            strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
             strBody.Append(DetalleTable);
             strBody.Append("    </table>");
             strBody.Append("  </div>");

General/RepPaqueteriasGuias.aspx.cs

@@ -1110,7 +1110,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             strBody.Append("<head>");
             strBody.Append("<meta charset='UTF-8'>");
             strBody.Append("</head>");
-            strBody.Append("  <body>");
+            strBody.Append("  <body style='width:800px'>");
             strBody.Append("<div>");
             strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
             strBody.Append("</div>");
@@ -1120,7 +1120,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
             strBody.Append("  <p style='font-family:Segoe UI Semibold;font-size:12pt;width:100%'>Su Pedido:</p>");
             strBody.Append("  <div style='width:100%;text-align:center'>");
-            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+            strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
             strBody.Append(DetalleTable);
             strBody.Append("    </table>");
             strBody.Append("  </div>");

Inventarios/EntradasSalidas.aspx

@@ -1183,7 +1183,7 @@
                                                                 <asp:BoundField HeaderText="Sección Alm" ReadOnly="true" DataField="SeccionAlmacen" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Serie" ReadOnly="true" DataField="Serie" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Lote" ReadOnly="true" DataField="Lote" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
-                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
+                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
                                                                     <ItemTemplate>
                                                                         <asp:LinkButton ID="LnkRemoveInvFisico" runat="server" AlternateText="Eliminar" OnClick="DeleteRowInvFisicoEntrada" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
@@ -1275,7 +1275,7 @@
                                                                 <asp:BoundField HeaderText="Sección Alm" ReadOnly="true" DataField="SeccionAlmacen" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Serie" ReadOnly="true" DataField="Serie" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:BoundField HeaderText="Lote" ReadOnly="true" DataField="Lote" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
-                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
+                                                                <asp:BoundField HeaderText="Caducidad" ReadOnly="true" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" />
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
                                                                     <ItemTemplate>
                                                                         <asp:LinkButton ID="LnkRemoveInvFisicoSalida" runat="server" AlternateText="Eliminar" OnClick="DeleteRowInvFisicoSalida" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />

Inventarios/EntradasSalidas.aspx.vb

@@ -255,7 +255,7 @@ Partial Class Inventarios_EntradasSalidas
 
     Public Property CveMovimientoDetalleEdit() As Integer
         Get
-            Return ViewState("CveMovimientoDetalleEdit").ToString.ToEntero
+            Return IfNull(ViewState("CveMovimientoDetalleEdit"), 0).ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("CveMovimientoDetalleEdit") = value
@@ -2382,8 +2382,11 @@ Partial Class Inventarios_EntradasSalidas
             DdlClasificacion.Enabled = False
             DdlProducto2.Enabled = False
             DdlUnidad.Enabled = False
+
+            'codigo provisional, hay entradas con productos, que al asignar serie, debe de tener e ncantidad = 1
+            If GvRow.DataKey("Cantidad").ToEntero() > 1 Then txtCantidad.Enabled = True
         End If
-        txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
+            txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
         DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
         DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
         ElProductoChange()
@@ -3480,9 +3483,9 @@ Partial Class Inventarios_EntradasSalidas
             Dim PS As String = ""
 
             Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenEntrada.SelectedValue.ToEntero
-            Dim Serie As String = If(TxtSerieEntrada.Text = "", "-1", TxtSerieEntrada.Text)
+            Dim Serie As String = If(TxtSerieEntrada.Text = "", "", TxtSerieEntrada.Text)
-            Dim Lote As String = If(TxtLoteEntrada.Text = "", "-1", TxtLoteEntrada.Text)
+            Dim Lote As String = If(TxtLoteEntrada.Text = "", "", TxtLoteEntrada.Text)
-            Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", "-1", TxtCaducidadEntrada.Text)
+            Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", MinFecha.ToShortDateString, TxtCaducidadEntrada.Text)
 
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
             If dr IsNot Nothing Then
@@ -3517,6 +3520,12 @@ Partial Class Inventarios_EntradasSalidas
         GvEntradas.DataSource = DtTemp
         GvEntradas.DataBind()
         UpEntradasGv.Update()
+        If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
+            GvEntradas.Columns(3).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
+            GvEntradas.Columns(4).Visible = DtTemp.MAX("Serie") <> ""
+            GvEntradas.Columns(5).Visible = DtTemp.MAX("Lote") <> ""
+            GvEntradas.Columns(6).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+        End If
     End Sub
 
     Protected Sub DdlPSInvFisico_ValueChanged(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange
@@ -3586,9 +3595,9 @@ Partial Class Inventarios_EntradasSalidas
             Dim PS As String = ""
 
             Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenSalida.SelectedValue.ToEntero
-            Dim Serie As String = If(TxtSerieSalida.Text = "", "-1", TxtSerieSalida.Text)
+            Dim Serie As String = If(TxtSerieSalida.Text = "", "", TxtSerieSalida.Text)
-            Dim Lote As String = If(TxtLoteSalida.Text = "", "-1", TxtLoteSalida.Text)
+            Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text)
-            Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", "-1", TxtCaducidadSalida.Text)
+            Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text)
 
             Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
             If dr IsNot Nothing Then
@@ -3623,6 +3632,12 @@ Partial Class Inventarios_EntradasSalidas
         GvSalidas.DataSource = DtTemp
         GvSalidas.DataBind()
         UpSalidaGv.Update()
+        If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
+            GvSalidas.Columns(2).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
+            GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
+            GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
+            GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+        End If
     End Sub
 
     Protected Sub DeleteRowInvFisicoSalida(ByVal sender As Object, ByVal e As EventArgs)
@@ -4313,7 +4328,7 @@ Partial Class Inventarios_EntradasSalidas
     Private Sub ActualizarPS()
 
         Dim ObjInventario As New ClsInventarios
-        If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
+        If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
                                                      CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text,
                                                      CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
             Alert("Error al Actualizar los movimientos")
@@ -4324,7 +4339,10 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
     Private Sub limpiarModalDetalle()
-
+        txtCantidad.Enabled = True
+        DdlClasificacion.Enabled = True
+        DdlProducto2.Enabled = True
+        DdlUnidad.Enabled = True
         divCantidad.Visible = True
         divClasificacionProducto.Visible = True
         divUnidadMedida.Visible = True

Inventarios/EntregaAlmacen.aspx.vb

@@ -886,9 +886,13 @@ Partial Class Inventarios_EntregaAlmacen
             If CBool(e.Row.DBCampo("AplicaSeccion")) Then
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
                 If DdlAlmacen.SelectedValue.ToEntero > 0 Then
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
                     e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    If dtt.Rows.Count > 1 Then
+                        e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    End If
+                    dtt.Dispose()
                 End If
 
             Else
@@ -3224,7 +3228,7 @@ Partial Class Inventarios_EntregaAlmacen
             strBody.Append("<head>")
             strBody.Append("<meta charset='UTF-8'>")
             strBody.Append("</head>")
-            strBody.Append("  <body>")
+            strBody.Append("  <body style='width:800px'>")
             strBody.Append("<div>")
             strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>")
             strBody.Append("</div>")
@@ -3235,7 +3239,7 @@ Partial Class Inventarios_EntregaAlmacen
             strBody.Append("    </p>")
             strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>")
             strBody.Append("  <div style='width:100%;text-align:center'>")
-            strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>")
+            strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>")
             strBody.Append(DetalleTable)
             strBody.Append("    ")
             strBody.Append("    </table>")

Inventarios/EntregasPorRealizar.aspx.cs

@@ -151,7 +151,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         strBody.Append("<head>");
             strBody.Append("<meta charset='UTF-8'>");
             strBody.Append("</head>");
-        strBody.Append("  <body>");
+        strBody.Append("  <body style='width:800px'>");
         strBody.Append("<div>");
         strBody.Append($"<img src='http://sig.adssistemas.mx/Empresas/{UsuarioActual.CveEmpresa}/Logo.png' style='width:200px'></img>");
         strBody.Append("</div>");
@@ -161,7 +161,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         strBody.Append("    </p>");
         strBody.Append($"    <p style='width:100%;text-align:center;font-family:Segoe UI Semibold;font-size:12pt'>{FolioVenta} - Pedido {Pedido} - Orden de Compra {OrdenCompra}</P>");
         strBody.Append("  <div style='width:100%;text-align:center'>");
-        strBody.Append("    <table style='width:80%;font-family:Segoe UI Semibold;font-size:12pt'>");
+        strBody.Append("    <table style='width:100%;font-family:Segoe UI Semibold;font-size:12pt'>");
         strBody.Append(DetalleTable);
         strBody.Append("    </table>");
         strBody.Append("  </div>");

Inventarios/InventarioFisicoDetalle.aspx

@@ -229,7 +229,7 @@
                                 <div class="row" style="margin-top: 5px;">
                                     <label class="col-md-4">Código.Barras</label>
                                     <div class="col-md-8">
-                                        <asp:TextBox runat="server" ID="TxtCodigoBarras" OnTextChanged="TxtCodigoBarras_Change" AutoPostBack="true"></asp:TextBox>
+                                        <asp:TextBox runat="server" ID="TxtCodigoBarras"  ></asp:TextBox>
                                     </div>
                                 </div>
                                 <div class="row" style="margin-top: 5px;" runat="server" id="divSerie" visible="false">

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -57,7 +57,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
 
 #Region "  USUARIOS  "
     Private Sub CargaUsuarios()
-        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre")
         ddlUsuario.DataBind()
         UPPInventario.Update()
         ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString
@@ -206,7 +206,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
             lbFechaI.Text = ObjInventario.FechaI
             lbFechaF.Text = ObjInventario.FechaF
 
-            Alert("Ocurrió un error al obterner el inventario fisico")
+            Alert("Ocurrió un error al obterner el inventario fisico", TipoMensaje.MsgError)
         End If
 
         ObjInventario.Dispose()
@@ -229,6 +229,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
         If Inventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then
             If Inventario.DtResultados.Rows.Count > 0 Then
                 GvIFD.Columns(4).Visible = Inventario.DtResultados.MAX("CveSeccionAlmacen", "CveSeccionAlmacen IS NOT NULL").ToEntero > 0
+                GvIFD.Columns(5).Visible = Inventario.DtResultados.MAX("SerieLote") <> ""
                 GvIFD.Columns(6).Visible = Inventario.DtResultados.MAX("Lote") <> ""
                 GvIFD.Columns(7).Visible = Inventario.DtResultados.MAX("FechaCaducidad", "FechaCaducidad IS NOT NULL").ToDate > MinFecha
                 GvIFD.DataSource = Inventario.DtResultados '.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(500).CopyToDataTable
@@ -333,16 +334,16 @@ Partial Class Inventarios_InventarioFisicoDetalle
                                                           CveSeccionAlmacen:=-1, Lote:=Lote, FechaCaducidad:=FechaCaducidad.ToDate) Then
 
                     GvIFDUltimoRegistrado.Columns(4).Visible = CveSeccionAlmacen > 0
-                    GvIFDUltimoRegistrado.Columns(5).Visible = Serie <> "-1"
+                    GvIFDUltimoRegistrado.Columns(5).Visible = Serie <> ""
                     GvIFDUltimoRegistrado.Columns(6).Visible = Lote <> "-1"
-                    GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad <> "01/01/1900"
+                    GvIFDUltimoRegistrado.Columns(7).Visible = FechaCaducidad.ToDate > MinFecha
 
                     If GvIFDUltimoRegistrado.Rows.Count > 0 Then
 
                         GvIFDUltimoRegistrado.Rows(0).Cells(0).Text = Now
                         GvIFDUltimoRegistrado.Rows(0).Cells(1).Text = dr("CodigoBarras").ToString
                         GvIFDUltimoRegistrado.Rows(0).Cells(2).Text = dr("Codigo").ToString
-                        GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PS").ToString
+                        GvIFDUltimoRegistrado.Rows(0).Cells(3).Text = dr("PSCodigo").ToString
                         GvIFDUltimoRegistrado.Rows(0).Cells(4).Text = ""
                         GvIFDUltimoRegistrado.Rows(0).Cells(5).Text = TxtCodigoSerie.Text.Trim
                         GvIFDUltimoRegistrado.Rows(0).Cells(6).Text = Lote
@@ -559,18 +560,21 @@ Partial Class Inventarios_InventarioFisicoDetalle
         '
     End Sub
 
-    Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
+    'Protected Sub TxtCodigoBarras_Change(sender As Object, e As EventArgs)
-        Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
+    '    Dim Producto As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoBarras.Text}'")
 
-        Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
+    '    If Producto IsNot Nothing Then
-        Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
+    '        Dim AplicaSeccion As Boolean = Producto("AplicaSeccion") = "1"
-        Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
+    '        Dim AplicaCaducidad As Boolean = Producto("AplicaCaducidad") = "1"
-        Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
+    '        Dim AplicaLote As Boolean = Producto("AplicaLote") = "1"
+    '        Dim AplicaSerie As Boolean = Producto("AplicaSerie") = "1"
 
-        'divSeccionAlmacen.Visible = AplicaSeccion
+    '        'divSeccionAlmacen.Visible = AplicaSeccion
-        divLote.Visible = AplicaLote
+    '        divLote.Visible = AplicaLote
-        divFechaCaducidad.Visible = AplicaCaducidad
+    '        divFechaCaducidad.Visible = AplicaCaducidad
-        divSerie.Visible = AplicaSerie
+    '        divSerie.Visible = AplicaSerie
-        UPAgregarPro.Update()
+    '    End If
-    End Sub
+
+    '    UPAgregarPro.Update()
+    'End Sub
 End Class

Inventarios/TraspasoAlmacen.aspx

@@ -665,7 +665,7 @@
                                  <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="15%" />                                
                                 <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                     <ItemTemplate>
-                                          <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" Visible="false" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                          <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen"  AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
                                         
                                         </asp:DropDownList>
                                     </ItemTemplate>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1482,8 +1482,8 @@ Partial Class Inventarios_TraspasoAlmacen
 
             GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
             GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("Lote") <> ""
-            GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad") <> ""
+            GvDatosRecepcion.Columns(8).Visible = Dtt.MAX("FechaCaducidad").ToDate > MinFecha
-            GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("Serie") <> ""
+            GvDatosRecepcion.Columns(9).Visible = Dtt.MAX("CveSeccionAlmacen").ToEntero > 0
             'Dt.Dispose()
         End If
 
@@ -1533,10 +1533,15 @@ Partial Class Inventarios_TraspasoAlmacen
             Else
                 e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
                 If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenRecepcion.SelectedValue.ToEntero > 0 Then
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
+
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero)
+                    Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
                     e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    If dtt.Rows.Count > 1 Then
+                        e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    End If
+                    dtt.Dispose()
+
                 End If
             End If
 

Nomina/Nomina2.aspx.cs

@@ -1425,6 +1425,93 @@ public partial class Nomina_Nomina2 : ClsPaginas
     }
 
 
+    private class NConcepto
+    {
+        public string NoConceptoP { get; set; }
+        public string ConceptoP { get; set; }
+        public string LabelValorP { get; set; }
+        public int CveConceptoP { get; set; }
+        public double ImporteP { get; set; }
+        public double ValorP { get; set; }
+        public int EstatusP { get; set; }
+        public bool isEditedP { get; set; }
+        public int isOnlyBisibleP { get; set; }
+
+
+        public string NoConceptoD { get; set; }
+        public string ConceptoD { get; set; }
+        public string LabelValorD { get; set; }
+        public int CveConceptoD { get; set; }
+        public double ImporteD { get; set; }
+        public double ValorD { get; set; }
+        public int EstatusD { get; set; }
+        public bool isEditedD { get; set; }
+        public int isOnlyBisibleD { get; set; }
+    }
+
+    protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            // Datakeys
+            // Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD
+            int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero();
+            int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero();
+            // Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal()
+            // Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal()
+            int Estatus = e.Row.DataKey("EstatusP").ToEntero();
+            int EstatusD = e.Row.DataKey("EstatusD").ToEntero();
+            int isOnlyBisibleP = e.Row.DataKey("isOnlyBisibleP").ToEntero();
+            int isOnlyBisibleD = e.Row.DataKey("isOnlyBisibleD").ToEntero();
+
+            // Controles
+            Label LtlConcepto = e.Row.FCLabel("LtlConcepto");
+            LinkButton LnkConcepto = e.Row.FCLinkButton("LnkConcepto");
+            Label LtlConceptoD = e.Row.FCLabel("LtlConceptoD");
+            LinkButton LnkConceptoD = e.Row.FCLinkButton("LnkConceptod");
+            Label LtlImporte = e.Row.FCLabel("LtlImporte");
+            LinkButton LnkImporte = e.Row.FCLinkButton("LnkImporte");
+            Label LtlImporteD = e.Row.FCLabel("LtlImporteD");
+            LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD");
+            //isEditedD
+            if (isOnlyBisibleP == 1)
+            {
+                e.Row.CssClass = string.Format("{0} isOnlyBisibleP", e.Row.CssClass);
+            }
+            if (isOnlyBisibleD == 1)
+            {
+                e.Row.CssClass = string.Format("{0} isOnlyBisibleD", e.Row.CssClass);
+            }
+
+
+            if (Estatus < -1 | EstatusD < -1)
+                e.Row.CssClass = "ConceptosTotales";
+            if (CveConcepto == 0 && (Estatus == 0 || Estatus == -1 || Estatus == -3))
+                LtlImporte.Text = "";
+
+            if (CveConceptoD == 0 && (EstatusD == 0 || EstatusD == -1))
+                LtlImporteD.Text = "";
+
+            if (Estatus == -1)
+                LtlConcepto.Visible = false;
+            else if (Estatus > 0)
+                LtlImporte.Visible = false;
+
+            if (EstatusD == -1)
+                LtlConceptoD.Visible = false;
+            else if (EstatusD > 0)
+                LtlImporteD.Visible = false;
+
+
+            LnkConcepto.Visible = !LtlConcepto.Visible;
+            LnkConceptoD.Visible = !LtlConceptoD.Visible;
+            LnkImporte.Visible = !LtlImporte.Visible;
+            LnkImporteD.Visible = !LtlImporteD.Visible;
+        }
+    }
+    #endregion
+
     protected void LnkFormatoTabular_Click(object sender, EventArgs e)
     {
         try
@@ -1641,93 +1728,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
             Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString());
         }
     }
-    private class NConcepto
-    {
-        public string NoConceptoP { get; set; }
-        public string ConceptoP { get; set; }
-        public string LabelValorP { get; set; }
-        public int CveConceptoP { get; set; }
-        public double ImporteP { get; set; }
-        public double ValorP { get; set; }
-        public int EstatusP { get; set; }
-        public bool isEditedP { get; set; }
-        public int isOnlyBisibleP { get; set; }
-
-
-        public string NoConceptoD { get; set; }
-        public string ConceptoD { get; set; }
-        public string LabelValorD { get; set; }
-        public int CveConceptoD { get; set; }
-        public double ImporteD { get; set; }
-        public double ValorD { get; set; }
-        public int EstatusD { get; set; }
-        public bool isEditedD { get; set; }
-        public int isOnlyBisibleD { get; set; }
-    }
-
-    protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e)
-    {
-
-        if (e.Row.RowType == DataControlRowType.DataRow)
-        {
-            // Datakeys
-            // Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD
-            int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero();
-            int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero();
-            // Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal()
-            // Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal()
-            int Estatus = e.Row.DataKey("EstatusP").ToEntero();
-            int EstatusD = e.Row.DataKey("EstatusD").ToEntero();
-            int isOnlyBisibleP = e.Row.DataKey("isOnlyBisibleP").ToEntero();
-            int isOnlyBisibleD = e.Row.DataKey("isOnlyBisibleD").ToEntero();
-
-            // Controles
-            Label LtlConcepto = e.Row.FCLabel("LtlConcepto");
-            LinkButton LnkConcepto = e.Row.FCLinkButton("LnkConcepto");
-            Label LtlConceptoD = e.Row.FCLabel("LtlConceptoD");
-            LinkButton LnkConceptoD = e.Row.FCLinkButton("LnkConceptod");
-            Label LtlImporte = e.Row.FCLabel("LtlImporte");
-            LinkButton LnkImporte = e.Row.FCLinkButton("LnkImporte");
-            Label LtlImporteD = e.Row.FCLabel("LtlImporteD");
-            LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD");
-            //isEditedD
-            if (isOnlyBisibleP == 1)
-            {
-                e.Row.CssClass = string.Format("{0} isOnlyBisibleP", e.Row.CssClass);
-            }
-            if (isOnlyBisibleD == 1)
-            {
-                e.Row.CssClass = string.Format("{0} isOnlyBisibleD", e.Row.CssClass);
-            }
-
-
-            if (Estatus < -1 | EstatusD < -1)
-                e.Row.CssClass = "ConceptosTotales";
-            if (CveConcepto == 0 && (Estatus == 0 || Estatus == -1 || Estatus == -3))
-                LtlImporte.Text = "";
-
-            if (CveConceptoD == 0 && (EstatusD == 0 || EstatusD == -1))
-                LtlImporteD.Text = "";
-
-            if (Estatus == -1)
-                LtlConcepto.Visible = false;
-            else if (Estatus > 0)
-                LtlImporte.Visible = false;
-
-            if (EstatusD == -1)
-                LtlConceptoD.Visible = false;
-            else if (EstatusD > 0)
-                LtlImporteD.Visible = false;
-
-
-            LnkConcepto.Visible = !LtlConcepto.Visible;
-            LnkConceptoD.Visible = !LtlConceptoD.Visible;
-            LnkImporte.Visible = !LtlImporte.Visible;
-            LnkImporteD.Visible = !LtlImporteD.Visible;
-        }
-    }
-    #endregion
-
     protected void LnkConcepto_Click(object sender, EventArgs e)
     {
 

OI/DocumentoDetalle.aspx

@@ -97,7 +97,7 @@
                                 </div>
                                 <asp:UpdatePanel ID="UpDatosUsuarios" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
-                                        <asp:GridView ID="GvUsuarios" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario,Usuario" EmptyDataText="No se encontraron Categorías de Documentos Registrados"
+                                        <asp:GridView ID="GvUsuarios" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario,Usuario,Correo" EmptyDataText="No se encontraron Categorías de Documentos Registrados"
                                             ToolTip="Listado de Categorías de Documentos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                                             Style="margin-top: -10px; text-align: center; width: 100%; overflow-x: hidden" GridLines="None">
                                             <Columns>

OI/DocumentoDetalle.aspx.cs

@@ -7,6 +7,7 @@ using System.Web.UI.WebControls;
 using Extensiones;
 using System.Data;
 using System.IO;
+using System.Text;
 
 public partial class OI_DocumentoDetalle : ClsPaginas
 {
@@ -70,6 +71,18 @@ public partial class OI_DocumentoDetalle : ClsPaginas
         }
     }
 
+    private void CargarMensajeNuevoEditado()
+    {
+        string MensajeNuevoEditado = Page.Request["Mensaje"];
+        if (MensajeNuevoEditado == "Nuevo")
+        {
+            Alert("El Documento ha sido creado correctamente");
+        }else if(MensajeNuevoEditado == "Editado")
+        {
+            Alert("Los cambios en el Documento han sido guardado correctamente");
+        }
+    }
+
     private void CargarUsuarios()
     {
         GvUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
@@ -150,12 +163,13 @@ public partial class OI_DocumentoDetalle : ClsPaginas
             CargarDocumentoYaExistente();
             CargarUsuariosAutorizo();
             ConfiguracionActualizar();
+            CargarMensajeNuevoEditado();
         }
     }
     #endregion
 
     #region "GENERAR DOCUMENTO"
-    
+
 
     protected void LblGuardar_Click(object sender, EventArgs e)
     {
@@ -166,19 +180,24 @@ public partial class OI_DocumentoDetalle : ClsPaginas
         //Esta variable es requerida más adelante
         int CveDocumento = 0;
         string RutaArchivo = "-1";
+        string CorreosNotificacion = "";
+        byte[] ArchivoNotifiacion = null;
 
         CveDocumento = GuardarDocumento(ref ObjOI, ref TieneError);//Se crea el Documento
         if (!TieneError) { RutaArchivo = AsignarArchivoAlDocumento(CveDocumento, ref ObjOI, ref TieneError); }//Se guarda el archivo fisico y se asigna al Documento generado
-        if (!TieneError) { GuardarUsuariosQueAutorizan(CveDocumento, RutaArchivo, ref ObjOI, ref TieneError); }//asignamos a los usuarios que participaran en aprovar este documento
+        if (!TieneError) { CorreosNotificacion = GuardarUsuariosQueAutorizan(CveDocumento, RutaArchivo, ref ObjOI, ref TieneError); }//asignamos a los usuarios que participaran en aprovar este documento
-
+        if (!TieneError)
+        {
+            ArchivoNotifiacion = GenerarArchivoByte(RutaArchivo);
+            NotificarPorCorreo(CorreosNotificacion, RutaArchivo, ArchivoNotifiacion);
+        }
 
         //Gestión de errores y resultados
         if (!TieneError)
         {
             ObjOI.Commit();
-            Alert("Documento guardado correctamente");
+            string ParamMensaje = LkbGuardar.Text == "Guardar" ? "Nuevo" : "Editado";//Esto indica la acción de usuario la cual se mostrará como alert al cargar la página
-            //this.CveDocumento = CveDocumento;
+            Response.Redirect(string.Format("/OI/DocumentoDetalle.aspx?CveDocumento={0}&Mensaje={1}", CveDocumento, ParamMensaje));
-            Response.Redirect(string.Format("/OI/DocumentoDetalle.aspx?CveDocumento={0}",CveDocumento));
         }
         else
         {
@@ -215,7 +234,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
                 this.ErrorMensaje = "Hubo un error al asignar el archivo";
             }
         }
-        else if(RutaArchivo == "Error")
+        else if (RutaArchivo == "Error")
         {
             TieneError = true;
             this.ErrorMensaje = "Hubo un error al guardar el archivo";
@@ -223,8 +242,9 @@ public partial class OI_DocumentoDetalle : ClsPaginas
         return RutaArchivo;
     }
 
-    private void GuardarUsuariosQueAutorizan(int CveDocumento, string RutaArchivo, ref ClsOIEventos ObjOI, ref bool TieneError)
+    private string GuardarUsuariosQueAutorizan(int CveDocumento, string RutaArchivo, ref ClsOIEventos ObjOI, ref bool TieneError)
     {
+        StringBuilder CorreosReturn = new StringBuilder("");
         GridViewRowCollection GridUsuarios = GvUsuarios.Rows;
         foreach (GridViewRow GvRow in GridUsuarios)
         {
@@ -237,12 +257,19 @@ public partial class OI_DocumentoDetalle : ClsPaginas
                     this.ErrorMensaje = "Hubo un error al asignar los usuarios a este documento";
                     break;
                 }
+                else
+                {
+                    CorreosReturn.AppendFormat("{0},", GvRow.DataKey("Correo"));
+                }
             }
         }
+
+        return CorreosReturn.ToString();
     }
     #endregion
 
     #region "ARCHIVO ADJUNTO"
+
     private string GuardarArchivo(int CveDocumento)
     {
         string RutaArchivo = "-1";
@@ -278,9 +305,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
         return RutaArchivo;
     }
 
-    
+    protected void LkbDescargarArchivo_Click(object sender, EventArgs e)
-
-    protected void LkbDescargarArchivo_Click(object sender,EventArgs e)
     {
         string Ruta = string.Format("{0}Empresas/{1}/DocumentosRepo/{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ArchivoAdjuntoNombre);
         byte[] archivoBytes = File.ReadAllBytes(Ruta);
@@ -295,5 +320,57 @@ public partial class OI_DocumentoDetalle : ClsPaginas
     }
     #endregion
 
+    #region "NOTIFICACIONES CORREO"
+    private void NotificarPorCorreo(string Para, string NombreArchivo, byte[] Adjunto)
+    {
+        string Descripcion = TxtDescripcion.Text;
+        string Asunto = "Se le ha agregado como participante en el desarrollo de un Documento";
+        string a = string.Format("{0} -- {1} --- {2}", Descripcion, Para, "");
+        a.GuardaLog();
+
+        ClsSisMail Mail = new ClsSisMail();
+
+        if (Adjunto != null)
+        {
+            List<ClsSisMail.ArchivoMail> LSRutasMail = new List<ClsSisMail.ArchivoMail>();
+            ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
+
+            {
+                var withBlock = itemMail;
+                itemMail.ArchivoBinario = Adjunto;
+                itemMail.NombreArchivo = NombreArchivo;
+            }
+
+            LSRutasMail.Add(itemMail);
+
+
+            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Descripcion, "", LSRutasMail);
+            Mail = null/* TODO Change to default(_) if this is not a reference type */;
+        }
+        else
+        {
+            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Descripcion, "");
+            Mail = null/* TODO Change to default(_) if this is not a reference type */;
+        }
+    }
+
+    private byte[] GenerarArchivoByte(string NombreArchivo)
+    {
+        string ArchivoEnviar = string.Format(@"{0}DocumentosRepo\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo);
+        if (File.Exists(ArchivoEnviar))
+        {
+            System.IO.FileStream fs = System.IO.File.Open(ArchivoEnviar, System.IO.FileMode.Open, System.IO.FileAccess.Read);
+            byte[] buff = new byte[fs.Length + 1];
+            if (fs.Length > 0)
+            {
+                fs.Read(buff, 0, (fs.Length.ToString().ToEntero() - 1));
+                fs.Close();
+            }
+            return buff;
+        }
+
+        return new byte[] { };
+    }
+    #endregion
 
 }

OI/Documentos.aspx

@@ -14,7 +14,7 @@
     <asp:UpdatePanel runat="server" ID="UpAgregar">
         <ContentTemplate>
             <li>
-                <asp:LinkButton runat="server" ID="BtnAgregarDocumento" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Documento"></asp:LinkButton>
+                <asp:HyperLink runat="server" ID="BtnAgregarDocumento" data-toggle="tooltip" data-placement="left" NavigateUrl="/OI/DocumentoDetalle.aspx" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Documento"></asp:HyperLink>
             </li>
             <li>
                 <asp:LinkButton ID="LnkPDF" runat="server"><i class="fa fa-ad-pdf"></i> Imprimir PDF</asp:LinkButton>
@@ -32,18 +32,13 @@
                 EmptyDataText="No se encontraron Documentos Registrados" ToolTip="Listado de Documentos" CssClass="table table-striped table-advance table-hover"
                 Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
                 <Columns>
-                    <asp:BoundField HeaderText="Descripcion" DataField="Descripcion" />
+                    <asp:HyperLinkField HeaderText="Descripcion" DataTextField="Descripcion" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}" ItemStyle-HorizontalAlign="Left"/>
-                    <asp:BoundField HeaderText="Observacion" DataField="Observacion" />
+                    <asp:HyperLinkField HeaderText="Observación" DataTextField="Observacion" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}" ItemStyle-HorizontalAlign="Left"/>
-                    <asp:BoundField HeaderText="Versión" DataField="Version" />
+                    <asp:HyperLinkField HeaderText="Versión" DataTextField="Version" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}"/>
-                    <asp:BoundField HeaderText="Responsable" DataField="Responsable" />
+                    <asp:HyperLinkField HeaderText="SubCategoria" DataTextField="SubCategoria" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}"/>
-                    <asp:BoundField HeaderText="Fecha Aprobacion" DataField="FechaAprobacion" />
+                    <asp:HyperLinkField HeaderText="Responsable" DataTextField="Responsable" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}" ItemStyle-HorizontalAlign="Left"/>
-                    <asp:BoundField HeaderText="Fecha Inicio Vigencia" DataField="FechaInicioVigencia" />
+                    <%--<asp:HyperLinkField HeaderText="Fecha Aprobacion" DataTextField="FechaAprobacion" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}"/>--%>
-                    <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Left" HeaderText="Editar">
+                    <asp:HyperLinkField HeaderText="Fecha Inicio Vigencia" DataTextField="FechaInicioVigencia" DataNavigateUrlFields="CveDocumento" DataNavigateUrlFormatString="/OI/DocumentoDetalle.aspx?CveDocumento={0}"/>
-                        <ItemTemplate>
-                            <%--<asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" Visible="true" AlternateText="Subir" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i title='Editar' class='fa fa-pencil' title='Editar' ></i>" />
-                            <asp:LinkButton ID="LnkEliminar" OnClick="LnkEliminar_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />--%>
-                        </ItemTemplate>
-                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>

OI/Documentos.aspx.cs

@@ -20,7 +20,7 @@ public partial class OI_Documentos : ClsPaginas
     private void CargaDatos()
     {
         ClsOIEventos ObjOI = new ClsOIEventos();
-        if (ObjOI.GetDocumento(-1,UsuarioActual.CveEmpresa))
+        if (ObjOI.ListadoDocumentos(UsuarioActual.CveEmpresa))
         {
             GvDatos.DataSource = ObjOI.DtResultados;
             GvDatos.DataBind();

RH/ActualizacionMasiva.aspx

@@ -10,20 +10,26 @@
     Cargas Masivas
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <li><asp:HyperLink data-toggle="modal" data-target="#DModalCargaexcel" runat="server"><i class="fa fa-ad-excel" style="margin-right:5px"></i> Carga Masiva</asp:HyperLink></li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="portlet solid grey-cascade portlet-filter" style="">
                 <div class="portlet-title portlet-filterT" style="">
-                    <div class="portlet-body" style="font-size:120%">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <a href="javascript:;" class="expand"></a>
+                        <a onclick="document.getElementById('C_BtnConsultar').click();" class="reload"></a>
+                    </div>
+                    <div class="titlefiltros  caption " style="font-size: 120%">
                         <ul class="list-inline">
-                            <li>Cliente:
+                            <%--<li>Cliente:
                                 <asp:Button ID="BtnCargarClientes" runat="server" ClientIDMode="Static" Text="CargarClientes" Style="display: none;" />
                                 <asp:DropDownList ID="DdlCliente" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 250px !important;">
                                     <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
-                            </li>
+                            </li>--%>
                             <li>Proyecto:
                          <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;" ValidationGroup="GrpGuardar">
                              <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -34,26 +40,21 @@
                             <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                             </li>
-                        </ul>
+                            <li style="width: 297px;">&nbsp;&nbsp;Turno:
-                    </div>
-                    <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
-                        <a href="javascript:;" class="expand"></a>
-                        <a onclick="document.getElementById('C_BtnConsultar').click();" class="reload"></a>
-                    </div>
-                </div>
-                <div class="portlet-body" style="display: none;font-size:120%">
-                    <ul class="list-inline">
-                        <li style="width: 297px;">&nbsp;&nbsp;Turno:
                         <asp:DropDownList ID="DdlTurno" runat="server" AppendDataBoundItems="true" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 100px !important;" ValidationGroup="GrpGuardar">
                             <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
-                        </li>
+                            </li>
-                        <li>Supervisor:
+                        </ul>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none; font-size: 120%">
+                    <ul class="list-inline">
+                        <%--<li>Supervisor:
                          <asp:DropDownList ID="DdlSupervisor" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;">
                              <asp:ListItem Selected="True" Text="Sin Supervisor Asignado" Value="-1"></asp:ListItem>
                          </asp:DropDownList>
-                        </li>
+                        </li>--%>
                     </ul>
                 </div>
             </div>
@@ -61,55 +62,56 @@
     </asp:UpdatePanel>
     <br />
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <ContentTemplate> 
-            <table border="0" cellpadding="0" cellspacing="0">
+                    <div style="text-align:right">
-                <tr>
-                    <td align="right">
                         <asp:Button ID="BtnGuardar" runat="server" Text="Guardar Cambios" ValidationGroup="GrpGuardar" class="btn btn-primary" />
-                    </td>
+                        <br />
-                </tr>
+                        <br />
-                <tr>
+                    </div>
-                    <td align="left">
+                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal, CveSubProyecto" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Asistencias" 
-                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePersonal, CveSubProyecto" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Asistencias" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                            CssClass="table table-striped table-advance table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Nombre</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
+                                        <asp:Literal ID="LtlNombre" runat="server" Text='<%# String.Format("{0}-{1}", Eval("Codigo"), Eval("Nombre"))%>'></asp:Literal>
                                     </ItemTemplate>
                                     <ItemStyle Width="250px" HorizontalAlign="Left" />
                                 </asp:TemplateField>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Proyecto</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:DropDownList ID="DdlGVProyecto" runat="server" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlGVProyecto_SelectedIndexChanged" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>
+                                        <asp:Literal   runat="server" Text='<%#   Eval("Proyecto") %>'></asp:Literal>
+                                        <%--<asp:DropDownList ID="DdlGVProyecto" runat="server" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlGVProyecto_SelectedIndexChanged" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>--%>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Sub Proyecto</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:DropDownList ID="DdlGVSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>
+                                        <asp:Literal   runat="server" Text='<%#   Eval("SubProyecto") %>'></asp:Literal>
+                                        <%--<asp:DropDownList ID="DdlGVSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 190px !important;"></asp:DropDownList>--%>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Turno</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:DropDownList ID="DdlTurno" runat="server" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;">
+                                        <asp:Literal   runat="server" Text='<%#   Eval("Turno") %>'></asp:Literal>
-                                        </asp:DropDownList>
+                                        <%--<asp:DropDownList ID="DdlTurno" runat="server" DataTextField="Turno" DataValueField="CveTurno" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 90px !important;"></asp:DropDownList>--%>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
                                 </asp:TemplateField>
-                                <asp:TemplateField>
+                                <%--<asp:TemplateField>
                                     <HeaderTemplate>Supervisor</HeaderTemplate>
                                     <ItemTemplate>
+                                        <asp:Literal   runat="server" Text='<%#   Eval("Proyecto") %>'></asp:Literal>
                                         <asp:DropDownList ID="DdlSupervisor" runat="server" DataTextField="Nombre" DataValueField="CveUsuario" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 140px !important;">
                                         </asp:DropDownList>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
-                                </asp:TemplateField>
+                                </asp:TemplateField>--%>
-                                <asp:TemplateField>
+                                <asp:TemplateField HeaderStyle-Width="80px">
                                     <HeaderTemplate>SDD</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:TextBox ID="TxtSalarioDiario" runat="server" MaxLength="10" Text='<%# Eval("SalarioDiario", "{0:N2}") %>' Width="50px"></asp:TextBox>
@@ -117,7 +119,7 @@
                                         <ajax:ValidatorCalloutExtender ID="VCOSalarioDiario" runat="server" HighlightCssClass="vco" TargetControlID="CVSalarioDiario" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
-                                </asp:TemplateField>
+                                </asp:TemplateField  >
                                 <asp:TemplateField>
                                     <HeaderTemplate>SDI</HeaderTemplate>
                                     <ItemTemplate>
@@ -125,9 +127,9 @@
                                         <asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" Display="None" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCOSDI" runat="server" HighlightCssClass="vco" TargetControlID="CVSDI" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </ItemTemplate>
-                                    <ItemStyle HorizontalAlign="Left" />
+                                    <ItemStyle HorizontalAlign="Left"  Width="80px" />
                                 </asp:TemplateField>
-                                <asp:TemplateField>
+                                <asp:TemplateField  HeaderStyle-Width="80px">
                                     <HeaderTemplate>SD IMSS</HeaderTemplate>
                                     <ItemTemplate>
                                         <asp:TextBox ID="TxtSalarioCotizado" runat="server" MaxLength="10" Text='<%# Eval("SalarioDiarioSS", "{0:N2}") %>' Width="60px"></asp:TextBox>
@@ -140,11 +142,69 @@
                             <RowStyle CssClass="Texto" />
                             <HeaderStyle CssClass="Titulos" />
                         </asp:GridView>
-                    </td>
-                </tr>
-            </table>
         </ContentTemplate>
     </asp:UpdatePanel>
+
+    
+    <div id="DModalCargaexcel" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCargarexcel" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Cargar Nomina de excel</h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-download font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 1: Descargar Plantilla</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding text-center">
+                                <asp:LinkButton ID="LnkFormato" OnClick="LnkFormato_Click" CssClass="btn btn-success" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
+                            </div>
+                        </div>
+                        <%--                        -recuerda Solo editar de las tercer fila en adelante.<br />
+                        -No se debe editar el nombre de la hoja 'Nomina'.<br />
+                        -la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br />
+                        -si desea agregar un empleado que no se encuentre en la lista solo debe de ingresar fila y el codigo del empleado.<br />
+                        -si no desea  insertar un concepto puede borrar la columna.<br />
+                        -no se debe borrar la columna codigo.<br />--%>
+
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-upload font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 2: cargar plantilla </span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding ">
+                                <asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                            </div>
+                        </div>
+                    </div>
+
+                    <div class="modal-footer"> 
+                                <asp:LinkButton ID="LnkCargarSalarios" OnClick="LnkCargarSalarios_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton> 
+                    </div>
+                </div>
+            </ContentTemplate>
+            <Triggers>
+                <asp:PostBackTrigger ControlID="LnkFormato" />
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script language="javascript" type="text/javascript">

RH/ActualizacionMasiva.aspx.vb

@@ -11,7 +11,7 @@ Partial Class RH_ActualizacionMasiva
         If Not IsPostBack Then
             SetPermisos()
 
-            DdlCliente.Attributes.Add("onclick", "CargaClientes();")
+            'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
             CargaProyecto()
             CargaTurnos()
             CargaSupervisores()
@@ -24,6 +24,14 @@ Partial Class RH_ActualizacionMasiva
 
 #Region "Propiedades"
 
+    Private Property DTEmpleados As DataTable
+        Get
+            Return DirectCast(ViewState("DTEmpleados"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTEmpleados") = value
+        End Set
+    End Property
     Private ReadOnly Property DTUsuarios As DataTable
         Get
             Return DirectCast(ViewState("DTUsuarios"), DataTable)
@@ -53,22 +61,22 @@ Partial Class RH_ActualizacionMasiva
 #Region "CargaCombos"
 
     Private Sub CargaClientes()
-        Dim ObjClientes As New ClsClientes
+        'Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+        'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            DdlCliente.DataSource = ObjClientes.DtResultados
+        '    DdlCliente.DataSource = ObjClientes.DtResultados
-        Else
+        'Else
-            DdlCliente.DataSource = Nothing
+        '    DdlCliente.DataSource = Nothing
-        End If
+        'End If
-        ObjClientes.Dispose()
+        'ObjClientes.Dispose()
-        'Application("GlobalDTResponsable")
+        ''Application("GlobalDTResponsable")
 
-        DdlCliente.DataBind()
+        'DdlCliente.DataBind()
     End Sub
 
-    Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
+    'Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
-        CargaClientes()
+    '    CargaClientes()
-        DdlCliente.Attributes.Remove("onclick")
+    '    DdlCliente.Attributes.Remove("onclick")
-    End Sub
+    'End Sub
 
     Private Sub CargaProyecto()
         ViewState("DTProyectos") = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
@@ -102,8 +110,8 @@ Partial Class RH_ActualizacionMasiva
         Row("CveUsuario") = -1 : Row("Nombre") = "Sin Supervisor Asignado"
         DirectCast(ViewState("DTUsuarios"), DataTable).Rows.InsertAt(Row, 0)
 
-        DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        'DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
-        DdlSupervisor.DataBind()
+        'DdlSupervisor.DataBind()
     End Sub
 
 #End Region
@@ -113,15 +121,16 @@ Partial Class RH_ActualizacionMasiva
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-        Dim ObjPersonal As New ClsRH
 
-        If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlSupervisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        Using ObjPersonal As New ClsRH
-            GvDatos.DataSource = ObjPersonal.DtResultados
+
-        Else
+            If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
-            GvDatos.DataSource = Nothing
+                GvDatos.DataSource = ObjPersonal.DtResultados
-        End If
+            Else
+                GvDatos.DataSource = Nothing
+            End If
+        End Using
 
-        ObjPersonal.Dispose()
 
         GvDatos.DataBind()
         UPDatos.Update()
@@ -130,20 +139,20 @@ Partial Class RH_ActualizacionMasiva
     Protected Sub GvDatos_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowCreated
         If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
 
-            e.Row.FCDropDownList("DdlGVProyecto").DataSource = DTProyectos
+            'e.Row.FCDropDownList("DdlGVProyecto").DataSource = DTProyectos
-            e.Row.FCDropDownList("DdlGVProyecto").DataBind()
+            'e.Row.FCDropDownList("DdlGVProyecto").DataBind()
-            'e.Row.FCDropDownList("DdlGVProyecto").Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
+            ''e.Row.FCDropDownList("DdlGVProyecto").Items.Insert(0, New ListItem("Sin Proyecto asignado", "-1"))
 
-            e.Row.FCDropDownList("DdlGVSubProyecto").DataSource = DTSubProyectos
+            'e.Row.FCDropDownList("DdlGVSubProyecto").DataSource = DTSubProyectos
-            e.Row.FCDropDownList("DdlGVSubProyecto").DataBind()
+            'e.Row.FCDropDownList("DdlGVSubProyecto").DataBind()
-            'e.Row.FCDropDownList("DdlGVSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
+            ''e.Row.FCDropDownList("DdlGVSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
 
-            e.Row.FCDropDownList("DdlTurno").DataSource = DTTurno
+            'e.Row.FCDropDownList("DdlTurno").DataSource = DTTurno
-            e.Row.FCDropDownList("DdlTurno").DataBind()
+            'e.Row.FCDropDownList("DdlTurno").DataBind()
 
-            e.Row.FCDropDownList("DdlSupervisor").DataSource = DTUsuarios
+            'e.Row.FCDropDownList("DdlSupervisor").DataSource = DTUsuarios
-            e.Row.FCDropDownList("DdlSupervisor").DataBind()
+            'e.Row.FCDropDownList("DdlSupervisor").DataBind()
-            'e.Row.FCDropDownList("DdlSupervisor").Items.Insert(0, New ListItem("Sin Supervisor Asignado", "-1"))
+            ''e.Row.FCDropDownList("DdlSupervisor").Items.Insert(0, New ListItem("Sin Supervisor Asignado", "-1"))
 
 
         End If
@@ -154,25 +163,25 @@ Partial Class RH_ActualizacionMasiva
 
             If e.Row.DBCampo("Turno") = "" AndAlso e.Row.DBCampo("Nombre") = "" Then
                 e.Row.FCLiteral("LtlNombre").Text = "<b>Sub Proyecto:</b> " & If(e.Row.DBCampo("SubProyecto") = String.Empty, "Sin Proyecto Asignado", e.Row.DBCampo("SubProyecto"))
-                e.Row.Cells(0).ColumnSpan = 8
+                e.Row.Cells(0).ColumnSpan = 7
-                For i As Integer = 1 To 7
+                For i As Integer = 1 To 6
                     e.Row.Cells(i).Visible = False
                 Next
                 e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             ElseIf e.Row.DBCampo("Turno") <> "" AndAlso e.Row.DBCampo("Nombre") = "" Then
                 e.Row.FCLiteral("LtlNombre").Text = "<b>Turno:</b> " & e.Row.DBCampo("Turno")
-                e.Row.Cells(0).ColumnSpan = 8
+                e.Row.Cells(0).ColumnSpan = 7
-                For i As Integer = 1 To 7
+                For i As Integer = 1 To 6
                     e.Row.Cells(i).Visible = False
                 Next
                 e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             Else
-                If e.Row.DBCampo("CveProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
+                'If e.Row.DBCampo("CveProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
-                CargaSubProyectoGV(e.Row.FCDropDownList("DdlGVProyecto"), e.Row.FCDropDownList("DdlGVSubProyecto"))
+                'CargaSubProyectoGV(e.Row.FCDropDownList("DdlGVProyecto"), e.Row.FCDropDownList("DdlGVSubProyecto"))
-                If e.Row.DBCampo("CveSubProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
+                'If e.Row.DBCampo("CveSubProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
-                e.Row.FCDropDownList("DdlGVSubProyecto").Attributes.Add("onChange", "F(this, " & e.Row.FCDropDownList("DdlGVProyecto").ClientID & ")")
+                'e.Row.FCDropDownList("DdlGVSubProyecto").Attributes.Add("onChange", "F(this, " & e.Row.FCDropDownList("DdlGVProyecto").ClientID & ")")
-                If e.Row.DBCampo("CveTurno") <> String.Empty Then e.Row.FCDropDownList("DdlTurno").SelectedValue = e.Row.DBCampo("CveTurno")
+                'If e.Row.DBCampo("CveTurno") <> String.Empty Then e.Row.FCDropDownList("DdlTurno").SelectedValue = e.Row.DBCampo("CveTurno")
-                If e.Row.DBCampo("CveSupervisor") <> String.Empty Then e.Row.FCDropDownList("DdlSupervisor").SelectedValue = e.Row.DBCampo("CveSupervisor")
+                'If e.Row.DBCampo("CveSupervisor") <> String.Empty Then e.Row.FCDropDownList("DdlSupervisor").SelectedValue = e.Row.DBCampo("CveSupervisor")
 
                 e.Row.FCTextBox("TxtSalarioCotizado").Text = e.Row.FCTextBox("TxtSalarioCotizado").Text.Replace(",", "")
 
@@ -181,39 +190,48 @@ Partial Class RH_ActualizacionMasiva
                 'e.Row.Cells(5).Enabled = True : e.Row.Cells(6).Enabled = True : e.Row.Cells(7).Enabled = True
 
                 '25: CargaMasiva-Proy,Sup,Tur
-                If Not UsuarioActual.TienePermisoProceso(25) Then e.Row.Cells(1).Enabled = False : e.Row.Cells(2).Enabled = False : e.Row.Cells(3).Enabled = False : e.Row.Cells(4).Enabled = False
+                'If Not UsuarioActual.TienePermisoProceso(25) Then e.Row.Cells(1).Enabled = False : e.Row.Cells(2).Enabled = False : e.Row.Cells(3).Enabled = False : e.Row.Cells(4).Enabled = False
-                '26: CargaMasiva-Salarios
-                If Not UsuarioActual.TienePermisoProceso(26) Then e.Row.Cells(5).Enabled = False : e.Row.Cells(6).Enabled = False : e.Row.Cells(7).Enabled = False
 
             End If
         End If
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
-        Dim ObjPersonal As New ClsRH
+        'Dim ObjPersonal As New ClsRH
-        ObjPersonal.IniciaTransacSQL()
+        'ObjPersonal.IniciaTransacSQL()
 
         Dim OcurrioError As Boolean = False
-        For Each Row As GridViewRow In GvDatos.Rows
+
-            If Row.DataKey("CvePersonal") <> "" Then
+        Using ObjPersonal As ClsRH = New ClsRH()
-                If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
+            For Each Row As GridViewRow In GvDatos.Rows
-                                                        Row.FCTextBox("TxtSalarioDiario").Text.ToDouble, Row.FCTextBox("TxtSDI").Text.ToDouble, Row.FCTextBox("TxtSalarioCotizado").Text.ToDouble,
+                If Row.DataKey("CvePersonal") <> "" Then
-                                                        Row.DataKey("CvePersonal").ToEntero, UsuarioActual.CveEmpresa) Then
+                    'If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
-                    OcurrioError = True
+                    '                                        Row.FCTextBox("TxtSalarioDiario").Text.ToDouble, Row.FCTextBox("TxtSDI").Text.ToDouble, Row.FCTextBox("TxtSalarioCotizado").Text.ToDouble,
-                    ObjPersonal.RollBack()
+                    '                                        Row.DataKey("CvePersonal").ToEntero, UsuarioActual.CveEmpresa) Then
-                    Exit For
+                    '    OcurrioError = True
+                    '    ObjPersonal.RollBack()
+                    '    Exit For
+                    'End If
+                    If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(), Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal()) Then
+
+                    Else
+                        OcurrioError = True
+                        ObjPersonal.RollBack()
+                        Exit For
+                    End If
                 End If
+
+            Next
+            If Not OcurrioError Then
+                'ObjPersonal.Commit()
+                Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
             End If
-        Next
+        End Using
 
-        If Not OcurrioError Then
-            ObjPersonal.Commit()
-            Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
-        Else
-            Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
-        End If
 
-        ObjPersonal.Dispose()
+        'ObjPersonal.Dispose()
     End Sub
 
     Private Sub CargaSubProyectoGV(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList)
@@ -234,4 +252,129 @@ Partial Class RH_ActualizacionMasiva
 
         If DdlGVSubProyecto IsNot Nothing Then CargaSubProyectoGV(DirectCast(sender, DropDownList), DdlGVSubProyecto)
     End Sub
+
+    Protected Sub LnkFormato_Click(ByVal sender As Object, ByVal e As EventArgs)
+        Try
+            Dim wb As ClosedXML.Excel.XLWorkbook = New ClosedXML.Excel.XLWorkbook()
+            Dim libro = wb.AddWorksheet("Salario")
+            Dim column As Integer = 1
+            Dim Fila As Integer = 1
+            libro.Cell(Fila, column).Value = "Codigo"
+            column += 1
+            libro.Cell(Fila, column).Value = "Empleado"
+            column += 1
+            libro.Column(column).Width = 35
+            libro.Cell(Fila, column).Value = "SDD"
+            column += 1
+            libro.Cell(Fila, column).Value = "SDI"
+            column += 1
+            libro.Cell(Fila, column).Value = "SD IMSS"
+            column += 1
+            DTEmpleados = New DataTable()
+
+            libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White
+            libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))
+            Using ObjPersonal As New ClsRH
+                If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+                    DTEmpleados = ObjPersonal.DtResultados
+                End If
+            End Using
+            For Each dro As DataRow In DTEmpleados.Select("CvePersonal > 0 AND LEN(Codigo)>0")
+                column = 1
+                Fila = Fila + 1
+
+                libro.Cell(Fila, column).Value = dro("Codigo")
+                column += 1
+                libro.Cell(Fila, column).Value = dro("Nombre")
+                column += 1
+                libro.Column(column).Width = 35
+                libro.Cell(Fila, column).Value = dro("SalarioDiario")
+                column += 1
+                libro.Cell(Fila, column).Value = dro("SDI")
+                column += 1
+                libro.Cell(Fila, column).Value = dro("SalarioDiarioSS")
+                column += 1
+            Next
+
+
+            Dim fs As System.IO.Stream = New System.IO.MemoryStream()
+            wb.SaveAs(fs)
+            fs.Position = 0
+            Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream()
+
+            Using input As System.IO.Stream = fs
+                input.CopyTo(memoryStream)
+            End Using
+
+            memoryStream.Position = 0
+            Response.Clear()
+            Response.Buffer = True
+            Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
+            Response.AddHeader("content-disposition", String.Format("attachment;filename={0}.xlsx", "FormatoCargaSalario"))
+            Response.BinaryWrite(memoryStream.ToArray())
+            Response.[End]()
+        Catch ex As Exception
+            Alert("Ocurrio un error al generar el Formato de salario" & ex.ToString())
+        End Try
+    End Sub
+    Protected Sub LnkCargarSalarios_Click(sender As Object, e As EventArgs)
+        Dim Filesgral As List(Of Archivo) = TxtArchivoNomina.getfiles().Archivos
+        Dim continuar As Boolean = Filesgral.Count > 0
+        Dim stringError As String = ""
+        Dim fileItem As Archivo = If(continuar, Filesgral(0), Nothing)
+
+        If continuar Then
+            Dim FileExtension As String = fileItem.Extencion.ToUpper()
+
+            If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then
+            Else
+                continuar = False
+                stringError = "No se inserto un archivo de tipo Excel"
+            End If
+        End If
+
+        Dim DTEXcel As DataTable = New DataTable()
+
+        If continuar Then
+
+            Try
+                DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros("  LEN(Codigo)>0  ")
+            Catch ex As Exception
+                continuar = False
+                stringError = "Ocurrio un Error al procesar el excel "
+                String.Format("{0} " & vbCrLf & "{0}", stringError, ex.ToString()).GuardaLog()
+            End Try
+        End If
+        If continuar Then
+
+            Dim OcurrioError As Boolean = False
+
+            Using ObjPersonal As ClsRH = New ClsRH()
+                For Each Row As DataRow In DTEXcel.Rows
+                    If Row("Codigo").ToString() <> "" Then
+                        Dim drow As DataRow = DTEmpleados.FiltroPrimero(String.Format("Codigo='{0}'", Row("Codigo")))
+                        If Not IsNothing(drow) Then
+
+                            Dim CvePersonal As Integer = drow("CvePersonal").ToString().ToEntero()
+                            If ObjPersonal.UpdateSalarios(CvePersonal, DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveEmpresa, Row("SDD").ToString().ToDecimal(), Row("SDI").ToString().ToDecimal(), Row("SD IMSS").ToString().ToDecimal(), Row("SDD").ToString().ToDecimal()) Then
+
+                            Else
+                                OcurrioError = True
+                                ObjPersonal.RollBack()
+                                Exit For
+                            End If
+                        End If
+
+                    End If
+
+                Next
+                If Not OcurrioError Then
+                    'ObjPersonal.Commit()
+                    Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
+                Else
+                    Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
+                End If
+            End Using
+        End If
+    End Sub
 End Class

RH/Personal.aspx

@@ -1313,30 +1313,30 @@
                                                     </div>
 
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario" runat="server" MaxLength="10"></asp:TextBox>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario"  Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtSalarioDiario" Enabled ="false" Text="Salario Diario (SDD):"></asp:Label>
-                                                        <asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                        <%--<asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
                                                         <i></i>
                                                     </div>
 
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtSDI" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtSDI" Text="Salario Diario Integrado (SDI):"></asp:Label>
-                                                        <asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                        <%--<asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
                                                         <i></i>
                                                     </div>
 
                                                     <div class="form-group form-md-line-input input-iconright" style="display: none;">
                                                         <asp:TextBox CssClass="form-control" ID="TxtSalarioDiarioPago" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioPago" Text="Salario Diario de Pago:"></asp:Label>
-                                                        <asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                        <%--<asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
                                                         <i></i>
                                                     </div>
 
                                                     <asp:Panel runat="server" ID="pnlSalarioIMSS" CssClass="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtSalarioCotizado" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtSalarioCotizado" Text="Salario Diario IMSS:"></asp:Label>
-                                                        <asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                        <%--<asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
 
                                                         <i></i>
                                                     </asp:Panel>

Site.master.vb

@@ -455,7 +455,7 @@ Partial Class Site
                 If objgen.DtResultados.Rows.Count > 0 Then
                     For Each dtrow As DataRow In objgen.DtResultados.Rows
                         If dtrow("Contador").ToString().ToEntero() > 0 Then
-                            Notificaciones.Append(ItemNotificaciones(String.Format("Se registro una solicitud de descarga del sat con {0} XML del SAT", dtrow("Contador")), Ico:="fa fa-tags", Tipo:="info", Link:=String.Format("javascript:$('#{0}').val({1});$('#{2}').click();", TxtCveNotisat.ClientID, dtrow("CveSolicitudSat").ToString().ToEntero(), btnoknotisat.ClientID), tonewpage:=False)) ' 
+                            Notificaciones.Append(ItemNotificaciones(String.Format("Se registro una solicitud de descarga del SAT con {0} XML", dtrow("Contador")), Ico:="fa fa-tags", Tipo:="info", Link:=String.Format("javascript:$('#{0}').val({1});$('#{2}').click();", TxtCveNotisat.ClientID, dtrow("CveSolicitudSat").ToString().ToEntero(), btnoknotisat.ClientID), tonewpage:=False)) ' 
                             countNotificaciones = countNotificaciones + 1
 
                         End If

packages.config

@@ -17,9 +17,14 @@
   <package id="Microsoft.Bcl" version="1.1.9" targetFramework="net40" />
   <package id="Microsoft.Bcl.Async" version="1.0.168" targetFramework="net40" />
   <package id="Microsoft.Bcl.Build" version="1.0.14" targetFramework="net40" />
-  <package id="Microsoft.Owin" version="3.0.1" targetFramework="net45" />
+  <package id="Microsoft.IdentityModel.JsonWebTokens" version="5.3.0" targetFramework="net45" />
+  <package id="Microsoft.IdentityModel.Logging" version="5.3.0" targetFramework="net45" />
+  <package id="Microsoft.IdentityModel.Tokens" version="5.3.0" targetFramework="net45" />
+  <package id="Microsoft.Owin" version="4.1.0" targetFramework="net45" />
   <package id="Microsoft.Owin.Host.SystemWeb" version="3.0.1" targetFramework="net45" />
-  <package id="Microsoft.Owin.Security" version="3.0.1" targetFramework="net45" />
+  <package id="Microsoft.Owin.Security" version="4.1.0" targetFramework="net45" />
+  <package id="Microsoft.Owin.Security.Jwt" version="4.1.0" targetFramework="net45" />
+  <package id="Microsoft.Owin.Security.OAuth" version="4.1.0" targetFramework="net45" />
   <package id="Microsoft.ReportingServices.ReportViewerControl.WebForms" version="150.1358.0" targetFramework="net45" />
   <package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net4" />
   <package id="Microsoft.ReportViewer.Common.v12" version="12.0.0.1" targetFramework="net45" />
@@ -28,8 +33,10 @@
   <package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net4" />
   <package id="Microsoft.Web.Xdt" version="1.0.0" targetFramework="net4" />
   <package id="NC-OS-SessionStateProvider" version="4.4.0.0" targetFramework="net40" />
+  <package id="Newtonsoft.Json" version="12.0.3" targetFramework="net45" />
   <package id="NuGet.Core" version="2.8.0" targetFramework="net4" />
   <package id="Owin" version="1.0" targetFramework="net45" />
   <package id="StackExchange.Redis.StrongName" version="1.0.488" targetFramework="net40" />
+  <package id="System.IdentityModel.Tokens.Jwt" version="5.3.0" targetFramework="net45" />
   <package id="WebGrease" version="1.6.0" targetFramework="net40" />
 </packages>

vwd.webinfo

@@ -80,10 +80,6 @@
     
   
     
-  
-    
-  
-