traspaso almacen carte carta porte

App_Code/CFDITimbre.vb

@@ -472,7 +472,7 @@ Public Class CFDIComplementoPagosDocsRelacionados
     Public Property Folio As String = ""
     Public Property MonedaDR As String = ""
     Public Property MetodoDePagoDR As String = ""
-    Public Property TipoCambioDR As Double
+    Public Property TipoCambioDR As Decimal
     Public Property NumParcialidad As Integer = 1
     Public Property ImpSaldoAnt As Double
     Public Property ImpPagado As Double

App_Code/ClsRH.vb

@@ -125,6 +125,68 @@ Public Class ClsRH
     End Sub
 #End Region
 
+    Public Function AgroOrigenGet(CveEmpresa As Int32, CveOrigen As Integer, Estatus As Integer, CveTipoNomina As Integer, CveSubProyecto As Integer, GPO As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Agro_OrigenGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveTipoNomina", SqlDbType.Int).Value = CveTipoNomina
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@GPO", SqlDbType.Int).Value = GPO
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch Ex1 As SqlException
+
+            Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+    Public Function AgroDepartamentosGet(CveEmpresa As Int32, CveDepartamento As Integer, CveTipoTrabajador As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Agro_DepartamentosGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch Ex1 As SqlException
+
+            Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
+    Public Function AgroDepartamentoPersonalUp(CveEmpresa As Int32, CveDepartamento As Integer, CvePersonal As Integer, CharolaForanea As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Agro_DepartamentoPersonalUP", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
+            .Add("@CharolaForanea", SqlDbType.Int).Value = CharolaForanea
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch Ex1 As SqlException
+
+            Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
 #Region "DiasFestivos"
 
     Public Function DiasFestivosGet(CveEmpresa As Int32) As Boolean
@@ -138,9 +200,9 @@ Public Class ClsRH
             retorno = True
         Catch Ex1 As SqlException
 
-            Me.OnError("Ocurrió un error al obtener los días festivos", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Me.OnError("Ocurrió un error al obtener los días festivos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         Catch ex As Exception
-            OnError("Ocurrió un error al Guardar el Tipo de A-I", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            OnError("Ocurrió un error al obtener los días festivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return retorno
     End Function

App_Code/Timbrado.vb

@@ -1908,6 +1908,7 @@ Public Class Timbrado
 
         '  cfdi.saltarValidacion("bNtMuvZockPVhEjaPj0E")
         'cfdi.Decimales = 4
+        cfdi.QuitarCerosDecimalDerecha = True ' no limita a 2 decimales, el atributo, de cantidad y precio unitario
 #Region "Certificado"
         cfdi.CertificadoArchivo(ArchivoCertificado)
 #End Region
@@ -1962,7 +1963,7 @@ Public Class Timbrado
 
         If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then
             For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
-                cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario, concep.Importe, concep.Descuento)
+                cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("#.######"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("#.######"), concep.Importe, concep.Descuento)
                 For Each imp As CFDIConceptosImpuestos In concep.Impuestos
                     If imp.TrasladooRetencion = "T" Then
                         cfdi.ImpuestoConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)
@@ -2158,8 +2159,8 @@ Public Class Timbrado
                     cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
                     If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
                         For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-                            cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, concep.Embalaje, concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                        cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
-                        Next
+                    Next
                     End If
                 End If
 
@@ -2184,8 +2185,9 @@ Public Class Timbrado
 
                     If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
                         For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
-                            cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
+                        cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
-                        Next
+                        cfdi.CartaPorteOperadorDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
+                    Next
                     End If
 
                 End If
@@ -3711,8 +3713,8 @@ Public Class Timbrado
                     End If
                     ComPag.Pago(0).DoctoRelacionado(i).Folio = doc.Folio
                     ComPag.Pago(0).DoctoRelacionado(i).MonedaDR = doc.MonedaDR
-                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDRSpecified = If(doc.TipoCambioDR.ToDecimal = 0, False, True)
+                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDRSpecified = If(doc.TipoCambioDR = 0, False, True)
-                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDR = doc.TipoCambioDR.ToDecimal
+                    ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDR = doc.TipoCambioDR
                     ComPag.Pago(0).DoctoRelacionado(i).MetodoDePagoDR = doc.MetodoDePagoDR
                     ComPag.Pago(0).DoctoRelacionado(i).NumParcialidad = doc.NumParcialidad.ToString
 
@@ -3784,9 +3786,8 @@ Public Class Timbrado
 
             ''DATOS GENERALES
             Dim ComCartaPorte = New ProfactCartaPorte.CartaPorte()
-                Dim Transp As ProfactCartaPorte.CartaPorteTranspInternac
+            ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
-                ComCartaPorte.TranspInternac = If(Carta.TranspInternac = "No", Transp.No, Transp.Sí)
+            ComCartaPorte.EntradaSalidaMercSpecified = False
-                ComCartaPorte.EntradaSalidaMercSpecified = False
                 ComCartaPorte.ViaEntradaSalidaSpecified = False
                 ComCartaPorte.TotalDistRecSpecified = False
 
@@ -3875,11 +3876,13 @@ Public Class Timbrado
                         If concep.ClaveMaterialPeligroso <> "" Then
                             ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = True
                             ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
-                        End If
+                            'si lleva material pelgroso, debe llevar embalaje
-                        If concep.Embalaje <> "" Then
                             ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
                             ComCartaPorte.Mercancias.Mercancia(i).Embalaje = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoEmbalaje), "Item" & concep.Embalaje), ProfactCartaPorte.c_TipoEmbalaje)
+
                         End If
+
+
                         ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje
                         ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg
                         ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -69,13 +69,14 @@
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView runat="server" ID="GvDatos" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover ScrollAD" 
-                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo" AutoGenerateColumns="False" 
+                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo,CveSubProyecto" AutoGenerateColumns="False" 
                 Style=" width:100%" GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="ConceptoContable" ItemStyle-Width="150px" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
                      <asp:BoundField DataField="Referencia" HeaderText="Referencia" ItemStyle-HorizontalAlign="Left"/>   
                      <asp:BoundField DataField="CuentaCodigo" ItemStyle-Width="100px"  HeaderText="Código Cuenta" ItemStyle-HorizontalAlign="Left"/>      
-                    <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>                   
+                     <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>    
+                     <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left"/>    
                                    
                     <asp:TemplateField ItemStyle-Width="49px">
                         <ItemTemplate>

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -80,6 +80,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
 
         DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.Items.Insert(0, New ListItem("-", "0"))
 
         Dim ObjBancos As New ClsBancos
         If ObjBancos.GetBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) Then
@@ -129,6 +130,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
             TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
             DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta"))
+            DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
 
             Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
             Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero

Nomina/ChecadorAsistencia.aspx

@@ -4,9 +4,10 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
-        .GvBitacora th:nth-child(n+2){
+        .GvBitacora th:nth-child(n+2) {
             text-align: left;
         }
+
         .AdsCHeader .GvNominas th:nth-child(1),
         .AdsCHeader .GvNominas td:nth-child(1) {
             text-align: left;
@@ -119,37 +120,37 @@
 
 
 
-                    <div class="portlet light bordered xspadding">
+            <div class="portlet light bordered xspadding">
-                        <div class="portlet-title">
+                <div class="portlet-title">
-                            <div class="caption font-green">
+                    <div class="caption font-green">
-                                <i class="icon-pin font-green"></i>
+                        <i class="icon-pin font-green"></i>
-                                <span class="caption-subject bold uppercase">Historial de Modificación</span>
+                        <span class="caption-subject bold uppercase">Historial de Modificación</span>
-                            </div>
+                    </div>
-                            <div class="actions">
+                    <div class="actions">
-                                <div class="btn-group">
+                        <div class="btn-group">
-                                </div>
-                            </div>
-                        </div>
-                        <div class="portlet-body">
-                            <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover GvBitacora  Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
-                                <Columns>
-                                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
-                                        <ItemTemplate>
-                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:BoundField DataField="NombreCompleto" HeaderText="Nombre" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Asistencia" HeaderText="Asistencia" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Descripcion" HeaderText="Motivo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
-                                </Columns>
-                            </asp:GridView>
                         </div>
                     </div>
+                </div>
+                <div class="portlet-body">
+                    <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover GvBitacora  Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" AutoGenerateColumns="False">
+                        <Columns>
+                            <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
+                                <ItemTemplate>
+                                    <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:BoundField DataField="NombreCompleto" HeaderText="Nombre" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Asistencia" HeaderText="Asistencia" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Descripcion" HeaderText="Motivo" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                            <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" />
+                        </Columns>
+                    </asp:GridView>
+                </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <div id="divDetallesDia" class="modal ADS fade" role="dialog">
@@ -257,43 +258,43 @@
                                 </asp:GridView>
                             </div>
                         </div>
-                                <asp:GridView ID="GvAsistenciaUp" runat="server" DataKeyNames="CveAsistenciaDetalle,CveAsistenciasInasistencias,CvePersonal,CveSubProyecto,CveProyecto,CveTurno,Fecha" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false" OnRowDataBound="GvAsistenciaUp_RowDataBound"
+                        <asp:GridView ID="GvAsistenciaUp" runat="server" DataKeyNames="CveAsistenciaDetalle,CveAsistenciasInasistencias,CvePersonal,CveSubProyecto,CveProyecto,CveTurno,Fecha" AutoGenerateColumns="false" ShowHeaderWhenEmpty="false" OnRowDataBound="GvAsistenciaUp_RowDataBound"
-                                    CssClass="  table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
+                            CssClass="  table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
-                                    <Columns>
+                            <Columns>
-                                        <asp:TemplateField HeaderText="Turno" ItemStyle-HorizontalAlign="Left" Visible="true" HeaderStyle-Width="80px">
+                                <asp:TemplateField HeaderText="Turno" ItemStyle-HorizontalAlign="Left" Visible="true" HeaderStyle-Width="80px">
-                                            <ItemTemplate>
+                                    <ItemTemplate>
-                                                <asp:Label runat="server" Text='<%#  Eval("Turno")  %>'></asp:Label>
+                                        <asp:Label runat="server" Text='<%#  Eval("Turno")  %>'></asp:Label>
-                                            </ItemTemplate>
+                                    </ItemTemplate>
-                                        </asp:TemplateField>
+                                </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Asistencia" Visible="true" HeaderStyle-Width="100px">
+                                <asp:TemplateField HeaderText="Asistencia" Visible="true" HeaderStyle-Width="100px">
-                                            <ItemTemplate>
+                                    <ItemTemplate>
-                                                    <asp:DropDownList ID="DdlTipoAsistencias"  runat="server" CssClass="select2me form-control" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias"></asp:DropDownList>
+                                        <asp:DropDownList ID="DdlTipoAsistencias" runat="server" CssClass="select2me form-control" DataTextField="Tipo" DataValueField="CveAsistenciasInasistencias"></asp:DropDownList>
-                                            </ItemTemplate>
+                                    </ItemTemplate>
-                                        </asp:TemplateField> 
+                                </asp:TemplateField>
-                                        <asp:TemplateField HeaderText="Centro de costos" Visible="true" HeaderStyle-Width="150px">
+                                <asp:TemplateField HeaderText="Centro de costos" Visible="true" HeaderStyle-Width="150px">
-                                            <ItemTemplate>
+                                    <ItemTemplate>
 
-                                                <asp:Panel ID="PnlProyecto"  runat="server">
+                                        <asp:Panel ID="PnlProyecto" runat="server">
-                                                    <div class="form-group form-md-line-input input-iconright">
+                                            <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList ID="DdlAsisProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
+                                                <asp:DropDownList ID="DdlAsisProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
-                                                            <asp:ListItem  Text="Seleccione" Value="-1"></asp:ListItem>
+                                                    <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                                        </asp:DropDownList>
+                                                </asp:DropDownList>
-                                                        <asp:Label ID="LblAsisProyecto" AssociatedControlID="DdlAsisProyecto" runat="server" Text="Proyecto:"></asp:Label>
+                                                <asp:Label ID="LblAsisProyecto" AssociatedControlID="DdlAsisProyecto" runat="server" Text="Proyecto:"></asp:Label>
-                                                    </div>
+                                            </div>
-                                                </asp:Panel>
+                                        </asp:Panel>
-                                                        <asp:DropDownList ID="DdlAsisSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
+                                        <asp:DropDownList ID="DdlAsisSubProyecto" runat="server" AppendDataBoundItems="true" CssClass="form-control select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="width: 100% !important;" ValidationGroup="GrpGuardar">
-                                                            <asp:ListItem  Text="Todos" Value="-1"></asp:ListItem>
+                                            <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                                        </asp:DropDownList>
+                                        </asp:DropDownList>
-                                            </ItemTemplate>
+                                    </ItemTemplate>
-                                        </asp:TemplateField>
+                                </asp:TemplateField>
 
-                                        <asp:TemplateField HeaderText="Motivo" Visible="true" HeaderStyle-Width="300px">
+                                <asp:TemplateField HeaderText="Motivo" Visible="true" HeaderStyle-Width="300px">
-                                            <ItemTemplate>
+                                    <ItemTemplate>
-                                                <asp:TextBox ID="TxtMotivo" CssClass="form-control" TextMode="MultiLine" rows="2" runat="server"></asp:TextBox>
+                                        <asp:TextBox ID="TxtMotivo" CssClass="form-control" TextMode="MultiLine" Rows="2" runat="server"></asp:TextBox>
-                                            </ItemTemplate>
+                                    </ItemTemplate>
-                                        </asp:TemplateField>
+                                </asp:TemplateField>
-                                    </Columns>
+                            </Columns>
-                                </asp:GridView>
+                        </asp:GridView>
                         <%-- <table style="width: 100%">
                             <tr>
                                 <td style="width: 50%; vertical-align: top!important">
@@ -349,6 +350,10 @@
                         <h4 class="modal-title">Agregar registro</h4>
                     </div>
                     <div class="modal-body">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlChecador" runat="server" CssClass="select2me form-control" Width="100%" DataTextField="Checador" DataValueField="CveChecador"></asp:DropDownList>
+                            <asp:Label runat="server" AssociatedControlID="DdlTipoAsistencias" Text="Asistencia"></asp:Label>
+                        </div>
                         <div runat="server" id="PnlConceptoPersonal" class="form-group form-md-line-input input-iconright">
                             <asp:DropDownList ID="DdlmcPersonal" DataTextField="CodigoNombreCompleto" DataValueField="CvePersonal" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control select2me">
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -367,14 +372,10 @@
                             <div class="col-md-2">
                                 <label style="top: 0; margin-bottom: 0; font-size: 13px; color: #888888; display: block;">Segundos</label>
                                 <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block; padding-left: 0px;">
-                                    <asp:TextBox ID="TxtSegundos" runat="server" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18" ></asp:TextBox>
+                                    <asp:TextBox ID="TxtSegundos" runat="server" CssClass="form-control input-sm " CausesValidation="true" MaxLength="18"></asp:TextBox>
                                 </div>
                             </div>
                             <div class="col-md-4">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlChecador" runat="server" CssClass="select2me form-control" Width="100%" DataTextField="Checador" DataValueField="CveChecador"></asp:DropDownList>
-                                    <asp:Label runat="server" AssociatedControlID="DdlTipoAsistencias" Text="Asistencia"></asp:Label>
-                                </div>
                             </div>
                         </div>
                         <div class="text-right">

Nomina/Nomina.aspx

@@ -852,12 +852,12 @@
                                                         <li>
                                                             <asp:LinkButton ID="LnkCalculoHorasExtras" OnClick="LnkCalculoHorasExtras_Click" Text="<i class='icon-bulb'></i> Calculo horas extras" runat="server"></asp:LinkButton>
                                                         </li>
-                                                        <li>
+                                                       <%-- <li>
                                                             <asp:LinkButton ID="LnkCalculoSubsidio" OnClick="LnkCalculoSubsidio_Click" Text="<i class='icon-bulb'></i> Calculo Subsidio" runat="server"></asp:LinkButton>
                                                         </li>
                                                         <li>
                                                             <asp:LinkButton ID="LnkCalculoISR" OnClick="LnkCalculoISR_Click" Text="<i class='icon-bulb'></i> Calculo ISR" runat="server"></asp:LinkButton>
-                                                        </li>
+                                                        </li>--%>
                                                     </ul>
                                                 </div>
                                             </div>

Nomina/Nomina.aspx.cs

@@ -195,7 +195,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             DmodalCancelartimbre.Visible = (UsuarioActual.CveUsuario == 100);
             LnkOpenCancelarTimbre.Visible = (UsuarioActual.CveUsuario == 100);
-            LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100);
+            LnkVerCalculoISR.Visible = (UsuarioActual.CveUsuario == 100 || UsuarioActual.CveEmpresa ==119);
             TxtPeriodo.Text = $"{DateTime.Now:yyyyMM}";
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto);
             CargarCentrosDeCosto(DdlPRProyecto, DdlPRSubProyecto, LblPRProyecto, LblPRSubProyeccto);

RH/CatPersonal.aspx

@@ -952,16 +952,6 @@
                                                 </div>
                                             </div>
                                             <div class="col-md-4">
-
-                                                <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="MedioTransporte" DataValueField="CveMedioTransporte" ValidationGroup="GrpGuardar">
-                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                        <asp:ListItem Value="1" Text="Hermosillo"></asp:ListItem>
-                                                        <asp:ListItem Value="2" Text="Taxi 1"></asp:ListItem>
-                                                        <asp:ListItem Value="3" Text="Taxi 2"></asp:ListItem>
-                                                    </asp:DropDownList>
-                                                    <asp:Label AssociatedControlID="DdlMedioTransporte" runat="server" Text="Medio transporte:"></asp:Label>
-                                                </div>
                                             </div>
                                             <div class="col-md-5" style="display: none;">
                                                 <div class="form-group form-md-line-input input-iconright">
@@ -1001,7 +991,7 @@
                                                     <i></i>
                                                 </div>
                                                 <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:DropDownList Width="100%" ID="DdlSubProyectoAsignadoAdd" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardarAddS">
+                                                    <asp:DropDownList Width="100%" ID="DdlSubProyectoAsignadoAdd" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlSubProyectoAsignadoAdd_SelectedIndexChanged" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardarAddS">
                                                         <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                     <asp:Label runat="server" ID="LblSubProyectoAsignado" AssociatedControlID="DdlSubProyectoAsignadoAdd">SubProyecto:</asp:Label>
@@ -1114,9 +1104,67 @@
                             </div>
 
                         </div>
-                        <div class="row">
+                        <div class="portlet light bordered xspadding">
-                            <div class="col-md-4">
+                            <div class="portlet-title text-center">
-                                <asp:TextBox ID="TxtFoto" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                <div class="caption font-green">
+                                    <i class="fa fa-users font-green"></i>
+                                    <span class="caption-subject bold uppercase">Datos </span>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
+                                    </div>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body form">
+                                <div class="row">
+                                    <div class="col-md-4">
+                                        <asp:TextBox ID="TxtFoto" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                    </div>
+                                    <div class="col-md-4">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DdlTipoTrabajador" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true"
+                                                DataTextField="TipoTrabajadorB" DataValueField="CveTipoTrabajador" ValidationGroup="GrpGuardar" OnSelectedIndexChanged="DdlTipoTrabajador_SelectedIndexChanged">
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DdlTipoTrabajador" runat="server" Text="Tipo trabajador:"></asp:Label>
+                                        </div>
+
+
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server" DataTextField="MedioTransporte" DataValueField="CveMedioTransporte" ValidationGroup="GrpGuardar">
+                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                <asp:ListItem Value="1" Text="Hermosillo"></asp:ListItem>
+                                                <asp:ListItem Value="2" Text="Taxi-1"></asp:ListItem>
+                                                <asp:ListItem Value="3" Text="Taxi-2"></asp:ListItem>
+                                                <asp:ListItem Value="5" Text="Taxi-3"></asp:ListItem>
+                                                <asp:ListItem Value="4" Text="Taxi-4"></asp:ListItem>
+                                                <asp:ListItem Value="7" Text="Taxi-5"></asp:ListItem>
+                                                <asp:ListItem Value="6" Text="Taxi-6"></asp:ListItem>
+                                                <asp:ListItem Value="8" Text="Costa"></asp:ListItem>
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DdlMedioTransporte" runat="server" Text="Medio transporte:"></asp:Label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-3">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DDlAgroDepartamento" CssClass="form-control input-sm select2me" runat="server"
+                                                DataTextField="Departamento" DataValueField="CveDepartamento" ValidationGroup="GrpGuardar">
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DDlAgroDepartamento" runat="server" Text="Depto:"></asp:Label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <div style="height: 35px;padding-top: 12px;">
+                                                <asp:CheckBox ID="ChkCharolaForanea" CssClass="chksino " Text=" " runat="server" />
+                                            </div>
+                                            <input type="text" class="form-control hidden" />
+                                            <asp:Label AssociatedControlID="ChkCharolaForanea" runat="server" Text="Charola foraneo"></asp:Label>
+                                        </div>
+
+
+                                    </div>
+                                </div>
                             </div>
                         </div>
                         <div class="text-right">
@@ -1445,9 +1493,9 @@
         function ValidaRFC() {
 
             if (rfcValidoJS(<%= String.Format("$('#{0}').val()", TxtRFC.ClientID) %>)) {
-                alertatoast(5, "RFC valido!", "", 7);
+                alertatoast(5, "Formato de RFC valido!", "", 7);
             } else {
-                alertatoast(8, "RFC invalido!", "", 7)
+                alertatoast(8, "Formato de RFC invalido!", "", 7)
             }
         }
         function rfcValidoJS(rfc, aceptarGenerico = true) {

RH/CatPersonal.aspx.vb

@@ -1136,7 +1136,7 @@ Partial Class RH_CatPersonal
         Dim continuar As Boolean = False
         Dim CvePersonal As Integer = 0
         Using ObjPersonal As New ClsRH()
-
+            ObjPersonal.IniciaTransacSQL()
             If ObjPersonal.AddPersonal("-1", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, "", TxtFechaIngreso.Text.ToDate,
                    DdlTipoPeriodoAdd.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, True, SalarioDiario,
                    SalarioDiario, 0, 0, 0, 15, 25, DdlMetodoPagoAdd.SelectedValue.ToEntero, TxtFechaIngreso.Text.Trim.ToDate, "-1",
@@ -1169,12 +1169,14 @@ Partial Class RH_CatPersonal
 
                 Next
 
-
+                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 continuar = True
                 ISChange = True
+                ObjPersonal.Commit()
             Else
+                ObjPersonal.RollBack()
                 'Alert("El empleado a sido agregado satisfactoriamente", TipoMensaje.ToastInformacion, "", 0)
             End If
         End Using
@@ -1212,4 +1214,38 @@ Partial Class RH_CatPersonal
         End If
 
     End Sub
+
+    Protected Sub DdlSubProyectoAsignadoAdd_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignadoAdd.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveTipoTrabajador") = "-1"
+                drow("TipoTrabajadorB") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DdlTipoTrabajador.Items.Count() > 0 Then
+                    DdlTipoTrabajador.SelectedValueExist("-1")
+                End If
+                DdlTipoTrabajador.DataSource = dt
+                DdlTipoTrabajador.DataBind()
+            End If
+        End Using
+    End Sub
+
+    Protected Sub DdlTipoTrabajador_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveDepartamento") = "-1"
+                drow("Departamento") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DDlAgroDepartamento.Items.Count() > 0 Then
+                    DDlAgroDepartamento.SelectedValueExist("-1")
+                End If
+                DDlAgroDepartamento.DataSource = dt
+                DDlAgroDepartamento.DataBind()
+            End If
+        End Using
+    End Sub
 End Class

RH/Personal.aspx

@@ -234,6 +234,26 @@
                                                             <asp:CheckBox ID="CHKRFCValidado" Text=" " CssClass="chksino" runat="server" />
                                                         </div>
                                                     </div>
+                                                    
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DdlTipoTrabajador" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true"
+                                                DataTextField="TipoTrabajadorB" DataValueField="CveTipoTrabajador" ValidationGroup="GrpGuardar" OnSelectedIndexChanged="DdlTipoTrabajador_SelectedIndexChanged">
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DdlTipoTrabajador" runat="server" Text="Tipo trabajador:"></asp:Label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList Width="100%" ID="DDlAgroDepartamento" CssClass="form-control input-sm select2me" runat="server"
+                                                DataTextField="Departamento" DataValueField="CveDepartamento" ValidationGroup="GrpGuardar">
+                                            </asp:DropDownList>
+                                            <asp:Label AssociatedControlID="DDlAgroDepartamento" runat="server" Text="Depto:"></asp:Label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <div style="height: 35px;padding-top: 12px;">
+                                                <asp:CheckBox ID="ChkCharolaForanea" CssClass="chksino " Text=" " runat="server" />
+                                            </div>
+                                            <input type="text" class="form-control hidden" />
+                                            <asp:Label AssociatedControlID="ChkCharolaForanea" runat="server" Text="Charola foraneo"></asp:Label>
+                                        </div>
                                                 </div>
                                             </div>
                                         </div>
@@ -615,7 +635,7 @@
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" Style="        margin-bottom: unset;
         color: #888888">SubProyecto:  </asp:Label>
-                                                        <asp:DropDownList Width="100%" ID="DdlSubProyectoAsignado" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                                        <asp:DropDownList Width="100%" ID="DdlSubProyectoAsignado" AutoPostBack="True" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RfvDdlSubProyectoAsignado" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoAsignado" ValidationGroup="GrpGuardar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
@@ -5310,9 +5330,9 @@
         function ValidaRFC() {
 
             if (rfcValidoJS(<%= String.Format("$('#{0}').val()", TxtRFC.ClientID) %>)) {
-                alertatoast(5, "RFC valido!", "", 7);
+                alertatoast(5, "Formato de RFC valido!", "", 7);
             } else {
-                alertatoast(8, "RFC invalido!", "", 7)
+                alertatoast(8, "Formato de RFC invalido!", "", 7)
             }
         }
         function rfcValidoJS(rfc, aceptarGenerico = true) {

RH/Personal.aspx.vb

@@ -1020,6 +1020,39 @@ Partial Class RH_Personal
 
 #Region "Carga Combos"
 
+    Public Sub cargatipoTrabajador()
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveTipoTrabajador") = "-1"
+                drow("TipoTrabajadorB") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DdlTipoTrabajador.Items.Count() > 0 Then
+                    DdlTipoTrabajador.SelectedValueExist("-1")
+                End If
+                DdlTipoTrabajador.DataSource = dt
+                DdlTipoTrabajador.DataBind()
+            End If
+        End Using
+    End Sub
+
+    Protected Sub cargaagrodeptos()
+        Using objrh As New ClsRH()
+            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
+                Dim drow As DataRow = dt.NewRow()
+                drow("CveDepartamento") = "-1"
+                drow("Departamento") = "Seleccione"
+                dt.Rows.InsertAt(drow, 0)
+                If DDlAgroDepartamento.Items.Count() > 0 Then
+                    DDlAgroDepartamento.SelectedValueExist("-1")
+                End If
+                DDlAgroDepartamento.DataSource = dt
+                DDlAgroDepartamento.DataBind()
+            End If
+        End Using
+    End Sub
     Private Sub CargaEscolaridad()
         DdlEscolaridad.DataSource = GlobalDTEscolaridad
         DdlEscolaridad.DataBind()
@@ -1569,6 +1602,11 @@ Partial Class RH_Personal
                 DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString()
                 If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs())
                 DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
+                cargatipoTrabajador()
+                DdlTipoTrabajador.SelectedValueExist(drow("CveTipoTrabajador").ToString())
+                cargaagrodeptos()
+                DDlAgroDepartamento.SelectedValueExist(drow("CveDepartamentoAgropecuaria").ToString())
+                ChkCharolaForanea.Checked = (drow("CharolaForanea").ToString().ToUpper().Contiene("1", "TRUE"))
                 DdlSupervisor.SelectedValue = ObjPersonal.CveSupervisor.ToString()
                 'Carga Nómina
                 TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
@@ -1783,6 +1821,8 @@ Partial Class RH_Personal
 
                 End If
 
+
+                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
                 'Agregar Cuentas Bancarias
                 ViewState("CvePersonal") = ObjPersonal.CvePersonal
 
@@ -1852,6 +1892,7 @@ Partial Class RH_Personal
                     ProcesaDTFamiliares(ObjPersonal)
                 End If
 
+                ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 If Archivo.Exists Then
 
@@ -1944,6 +1985,16 @@ Partial Class RH_Personal
     Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsignado.SelectedIndexChanged
         CargaSubProyectoAsignado()
     End Sub
+    Protected Sub DdlSubProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlSubProyectoAsignado.SelectedIndexChanged
+        cargatipoTrabajador()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub DdlTipoTrabajador_SelectedIndexChanged(sender As Object, e As EventArgs)
+        cargaagrodeptos()
+        UpDatos.Update()
+    End Sub
+
 
     Protected Sub DdlProyectoAsistenciaC_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyectoAsistenciaC.SelectedIndexChanged
         CargaSubProyectoAsistenciaC()