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

App_Code/ClsPaginas.vb

@@ -7906,7 +7906,7 @@ Public Class ClsPaginas
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
             End If
 
-            If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
+            If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (Pago.ImportePago * TCValuacionPago).RoundSQL, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
                 ErrorMovtos = True
             End If
         End If

App_Code/ClsRH.vb

@@ -1568,6 +1568,8 @@ Public Class ClsRH
             DtResultados = Data
         End Get
     End Property
+
+    Public Property TipoSangre As String
 #End Region
 
 #Region "Personal"
@@ -1719,6 +1721,7 @@ Public Class ClsRH
                 Me.CelularPersonal = Data.Rows(0)("CelularPersonal").ToString
                 Me.TelefonoMarcadoRapido = Data.Rows(0)("TelefonoMarcadoRapido").ToString
                 Me.ContactoAlterno = Data.Rows(0)("ContactoAlterno").ToString
+                Me.TipoSangre = Data.Rows(0)("TipoSangre").ToString
 
                 If Not IsDBNull(Data(0)("CveSubProyectoZona")) Then
                     CveSubproyectoZona = Data(0)("CveSubProyectoZona").ToString.ToEntero
@@ -1939,7 +1942,7 @@ Public Class ClsRH
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
-        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1) As Boolean
+        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
         Dim noguardoXcurp As Boolean = False
@@ -2027,6 +2030,9 @@ Public Class ClsRH
             .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado
             .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
             .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
+            .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
+
+
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
 
@@ -2066,7 +2072,8 @@ Public Class ClsRH
         CveJornada As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
         Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
-        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1) As Boolean
+        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1,
+       Optional TipoSangre As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2160,6 +2167,7 @@ Public Class ClsRH
             .Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable
             .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
             .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
+            .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
 
         End With
 

Compras/Importaciones.aspx

@@ -42,9 +42,24 @@
                             <div class="row">
                                 <div class="col-md-2">Pedimento:</div>
                                 <div class="col-md-10">
-                                    <asp:TextBox ID="TxtPedimento" CssClass="form-control" runat="server" MaxLength="50" Width="300px"></asp:TextBox>
+                                    <asp:TextBox ID="TxtPedimento" CssClass="form-control" runat="server" MaxLength="18" Width="300px"   ClientIDMode="Static"  ></asp:TextBox>
+                                    <ajaxToolkit:MaskedEditExtender ID="meeTxtPedimento" runat="server"
+                                        ClearMaskOnLostFocus="false" 
+                                        TargetControlID="TxtPedimento"
+                                        Mask="99-99-9999-9999999"
+                                        MaskType="Number"
+                                        InputDirection="LeftToRight"
+                                        AcceptNegative="None"
+                                        ErrorTooltipEnabled="True" />
                                     <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    
+                                    <asp:RegularExpressionValidator ID="regexTxtPedimento" runat="server" ControlToValidate="TxtPedimento"  Display="None"   ValidationGroup="GrpGuardar" ErrorMessage="Formato no valido, el formato correcto es 99-99-9999-9999999" ForeColor="Red" 
+                                        ValidationExpression="^[0-9 ]{2}-[0-9 ]{2}-[0-9 ]{4}-[0-9 ]{7}$" ></asp:RegularExpressionValidator>
+
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="regexTxtPedimento" Width="300px"></ajax:ValidatorCalloutExtender>
+
+
                                 </div>
                             </div>
                             <div class="row">
@@ -71,9 +86,10 @@
                                 </div>
                             </div>
                             <div class="row">
-                                <div class="col-md-2">Aduanal</div>
+                                <div class="col-md-2">Aduanal:</div>
                                 <div class="col-md-10">
-                                    <asp:DropDownList runat="server" ID="DdlAduanal" Width="300px" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>
+                                    <%--<asp:DropDownList runat="server" ID="DdlAduanal" Width="300px" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>--%>
+                                    <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"  style="width:300px!important"></ADS:Dropdownlost>
                                 </div>
                             </div>
                             <%--                            <div class="row">
@@ -287,6 +303,9 @@
             $('#BtnVincularCompra').click();
         }
 
+         
+ 
+
     </script>
 
 </asp:Content>

Compras/Importaciones.aspx.vb

@@ -58,8 +58,12 @@ Partial Class Compras_Importaciones
         DtCompras = New DataTable
         DtComprasVinculadas = New DataTable
 
-        DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlAduanal.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlAduanal.DataBind()
+        'DdlAduanal.DataBind()
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
 
         TxtFecha.Text = Now.ToShortDateString
     End Sub
@@ -87,7 +91,9 @@ Partial Class Compras_Importaciones
                 TxtPedimento.Text = ObjImportaciones.DtResultados.Rows(0)("Pedimento").ToString
                 TxtDescripcion.Text = ObjImportaciones.DtResultados.Rows(0)("Descripcion").ToString
                 TxtFecha.Text = ObjImportaciones.DtResultados.Rows(0)("Fecha").ToString
-                DdlAduanal.SelectedValue = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString
+
+                DdlProveedores.txtValue.Value = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString
+                DdlProveedores.txtText.Value = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
 
                 'HdnCveCompra.Value = ObjImportaciones.DtResultados.Rows(0)("CveCompra").ToString
                 'LbCompraProveedor.Text = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
@@ -139,13 +145,14 @@ Partial Class Compras_Importaciones
             Exit Sub
         End If
 
+        Dim Pedimento As String = TxtPedimento.Text.Trim.Replace("-", " ")
 
         Dim ObjImp As New ClsCompras
         ObjImp.IniciaTransacSQL()
         Dim ErrorImportacion = False
 
         If CveImportacion < 0 Then
-            CveImportacion = ObjImp.AddImportacion(TxtPedimento.Text.Trim, TxtDescripcion.Text.Trim, DdlAduanal.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            CveImportacion = ObjImp.AddImportacion(Pedimento, TxtDescripcion.Text.Trim, DdlProveedores.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             If CveImportacion > 0 Then
                 For Each dr As DataRow In DtCompras.Rows
@@ -168,7 +175,7 @@ Partial Class Compras_Importaciones
             End If
 
         Else
-            If Not ObjImp.UpdateImportacion(TxtPedimento.Text.Trim, CveImportacion, TxtDescripcion.Text, DdlAduanal.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            If Not ObjImp.UpdateImportacion(Pedimento, CveImportacion, TxtDescripcion.Text, DdlProveedores.SelectedValue.ToString.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 ErrorImportacion = True
             End If
         End If

Compras/PopUpVerFactura.aspx.vb

@@ -3386,10 +3386,17 @@ Partial Class PopUpVerFactura
         Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
 
 
+        Dim Ruta As String = ""
+        Dim Supervisor As String = ""
+
         If String.IsNullOrEmpty(Recibio) Then
             Dim ObjRH As New ClsRH
             If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
                 Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString
+                If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+                    Ruta = ObjRH.DtResultados.Rows(0)("Ruta").ToString
+                    Supervisor = ObjRH.DtResultados.Rows(0)("Supervisor").ToString
+                End If
             End If
             ObjRH.Dispose()
         End If
@@ -3576,7 +3583,8 @@ Partial Class PopUpVerFactura
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
                           CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
-                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo)
+                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
+                          Ruta:=Ruta, Supervisor:=Supervisor)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -3594,7 +3602,8 @@ Partial Class PopUpVerFactura
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
                                   RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
-                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "")
+                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "",
+                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing)
 
 
         Select Case CveConcepto
@@ -4936,6 +4945,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))
 
                     End If
+
                     params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                     params.Add(New ReportParameter("Observaciones", Observaciones))
@@ -4961,6 +4971,13 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                     params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
 
+                    If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
+                        params.Add(New ReportParameter("Ruta", Ruta))
+                        params.Add(New ReportParameter("Supervisor", Supervisor))
+                        params.Add(New ReportParameter("NombreEmpleado", Recibio))
+                        params.Add(New ReportParameter("UsuarioEntrega", UsuarioRegistro))
+                    End If
+
                     Dim Mov As New ClsInventarios
                     If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
                         If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then

RH/CatPersonal.aspx.vb

@@ -132,6 +132,7 @@ Partial Class RH_CatPersonal
         If FechaFIngreso = Nothing Then
             FechaFIngreso = "-1"
         End If
+
         If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", CveTurno, CvePuesto, CveDepartamento, CveRuta, CveEscolaridad, CveEstadoCivil, CveGenero, CveEstatusPersonal, CveSubProyecto, CveClienteAsignado, HorarioTrabajo, CveSupervisor, CveTipoPeriodo, CveMetodoPago, CveTipoContrato, CveMotivoBaja, CveProyecto, FechaIFinContrato, FechaFFinContrato, FechaIIngreso, FechaFIngreso, UsuarioActual.CveEmpresa, ddlclasificacion.SelectedValue.ToEntero()) Then
             DTDatos = ObjPersonal.DtResultados
 

RH/Personal.aspx

@@ -324,11 +324,40 @@
                                                         <label for="<%= TxtEstado.ClientID.ToString()%>">Estado: </label>
                                                         <i></i>
                                                     </div>
-                                                    <div class="form-group form-md-line-input input-iconright">
+
-                                                        <asp:TextBox CssClass="form-control" ID="TxtTelefono" runat="server" MaxLength="10"></asp:TextBox>
+
-                                                        <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
+                                                    <div class="row">
-                                                        <i></i>
+                                                        <div class="col-md-12" runat="server" id="DVTxtTelefono">
+                                                            <div class="form-group form-md-line-input input-iconright">
+                                                                <asp:TextBox CssClass="form-control" ID="TxtTelefono" runat="server" MaxLength="10"></asp:TextBox>
+                                                                <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
+                                                                <i></i>
+                                                            </div>
+
+                                                        </div>
+                                                        <div class="col-md-6" runat="server" id="DVDdlTipoSangre" visible="false">
+
+                                                            <div class="form-group form-md-line-input input-iconright">
+                                                                <asp:DropDownList CssClass="form-control select2me" ID="DdlTipoSangre" runat="server"  >
+                                                                    <asp:ListItem Value="-1">Seleccione Uno </asp:ListItem>
+                                                                    <asp:ListItem Value="A+">A+ </asp:ListItem>
+                                                                    <asp:ListItem Value="A-">A- </asp:ListItem>
+                                                                    <asp:ListItem Value="B+">B+ </asp:ListItem>
+                                                                    <asp:ListItem Value="B-">B- </asp:ListItem>
+                                                                    <asp:ListItem Value="AB+">AB+</asp:ListItem>
+                                                                    <asp:ListItem Value="AB-">AB-</asp:ListItem>
+                                                                    <asp:ListItem Value="O+">O+</asp:ListItem>
+                                                                    <asp:ListItem Value="O-">O-</asp:ListItem>
+                                                                    
+                                                                </asp:DropDownList>
+                                                                <label for="<%= DdlTipoSangre.ClientID.ToString()%>">Tipo de Sangre:</label>
+                                                            <i></i>
                                                     </div>
+                                                        </div>
+                                                    </div>
+
+                                                    
+
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtTelefonoEmergencia" runat="server" MaxLength="70"></asp:TextBox>
                                                         <label for="<%= TxtTelefonoEmergencia.ClientID.ToString()%>">Contacto en caso de emergencia (nombre y teléfono):</label>
@@ -879,7 +908,8 @@
                                                         <i></i>
                                                     </div>
                                                     <div runat="server" id="DivSuperiorInmediato" class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList ID="DdlSupervisorOrganigrama" runat="server" Width="100%" AppendDataBoundItems="True" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                                        <asp:DropDownList ID="DdlSupervisorOrganigrama" runat="server" Width="100%" AppendDataBoundItems="True" 
+                                                            DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Sin Asignar" Value="-1"></asp:ListItem>
                                                             <asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
                                                         </asp:DropDownList>
@@ -5211,12 +5241,14 @@
                                 </tr>
                                 <tr>
                                     <td style="width: 33% !important; vertical-align: top !important">
+                                        
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtTelefonoBuzonCalidad" runat="server" CausesValidation="true" MaxLength="10" Visible="true" CssClass="form-control" Width="200px"></asp:TextBox>
                                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtTelefonoBuzonCalidad" FilterType="Numbers,Custom" InvalidChars=".*-" />
                                             <label for="<%= TxtTelefonoBuzonCalidad.ClientID.ToString()%>">Teléfono:</label>
                                             <i></i>
                                         </div>
+
                                     </td>
                                     <td style="width: 33% !important; vertical-align: top !important">
                                         <div class="form-group form-md-line-input input-iconright">

RH/Personal.aspx.vb

@@ -1037,8 +1037,10 @@ Partial Class RH_Personal
             End If
 
 
-            If UsuarioActual.Empresa.Funcionalidad(712) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(712) = "1" Or UsuarioActual.CveEmpresa = 1 Then
                 DvRuta.Visible = True
+                DVTxtTelefono.Attributes.Add("class", "col-md-6")
+                DVDdlTipoSangre.Visible = True
             End If
 
         End If
@@ -1701,6 +1703,7 @@ Partial Class RH_Personal
                 TxtTelefonoExtension.Text = ObjPersonal.TelefonoExtension
                 TxtCelularPersonal.Text = ObjPersonal.CelularPersonal
                 TxtTelefonoMarcadoRapido.Text = ObjPersonal.TelefonoMarcadoRapido
+                DdlTipoSangre.SelectedValueExist(ObjPersonal.TipoSangre)
                 'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno
 
 
@@ -2012,7 +2015,7 @@ Partial Class RH_Personal
                            UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                            TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(),
                            Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(),
-                           CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal) Then
+                           CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
 
                             If Archivo.Exists Then
 
@@ -2098,7 +2101,7 @@ Partial Class RH_Personal
                            TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
                            CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
                            CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0),
-                           Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal) Then
+                           Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
 
                             'Funcion usa RH Familiares
                             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then