diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index 80494b780..502e985bb 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -1807,7 +1807,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String,
         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, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, 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) As Boolean
+        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) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1889,6 +1889,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@ContactoAlterno", SqlDbType.VarChar).Value = ContactoAlterno
             .Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario
             .Add("@Sindicalizado", SqlDbType.Bit).Value = Sindicalizado
+            .Add("@CvePais", SqlDbType.Int).Value = CvePais
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
 
@@ -1921,7 +1922,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, 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) As Boolean
+        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) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2007,6 +2008,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@FechaReingreso", SqlDbType.Date).Value = FechaReingreso
             .Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario
             .Add("@Sindicalizado", SqlDbType.Int).Value = Sindicalizado
+            .Add("@CvePais", SqlDbType.Int).Value = CvePais
 
         End With
 
@@ -6738,10 +6740,27 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual))
             ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF))
 
-            ListaTagsDocumentost.Add(New TagsDocumentos("{HoraInicioJornada}", DtResultados(0)("HorarioDe").ToString))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{HoraFinJornada}", DtResultados(0)("HorarioA").ToString))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{Salario}", ""))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{MetodoPago}", DtResultados(0)("MetodoPago").ToString))
+            'ListaTagsDocumentost.Add(New TagsDocumentos("{HoraInicioJornada}", DtResultados(0)("HorarioDe").ToString))
+            'ListaTagsDocumentost.Add(New TagsDocumentos("{HoraFinJornada}", DtResultados(0)("HorarioA").ToString))
+            'ListaTagsDocumentost.Add(New TagsDocumentos("{Salario}", ""))
+            'ListaTagsDocumentost.Add(New TagsDocumentos("{MetodoPago}", DtResultados(0)("MetodoPago").ToString))
+
+            If MinFecha = DtResultados(0)("FechaFinContrato").ToString.ToDate Then
+                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaFin}", "Sin Fecha Fin"))
+            Else
+                ListaTagsDocumentost.Add(New TagsDocumentos("{FechaFin}", DtResultados(0)("FechaFinContrato").ToString.ToDate.ToString("dd/MM/yyyy")))
+            End If
+
+            ListaTagsDocumentost.Add(New TagsDocumentos("{Sexo}", DtResultados(0)("Genero").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{NombreEmpresa}", DtResultados(0)("Empresa").ToString))
+
+            Dim SalarioDiarioTag As String = DtResultados(0)("SalarioDiario").ToString.ToDouble.Texto2Letras()
+
+            ListaTagsDocumentost.Add(New TagsDocumentos("{Sueldo}", DtResultados(0)("SalarioDiario").ToString.ToDouble.ToString("###,###,###.00")))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{SueldoLetra}", SalarioDiarioTag))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{Nacionalidad}", DtResultados(0)("ClaveSATPaisDescripcion").ToString))
+
+
 
         End If
 
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index ae9c29298..0f8a67eae 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -294,6 +294,7 @@ Partial Class Bancos_PopIECompras
         Public Property ConceptoRetIVA As Integer
         Public Property ConceptoRetISR As Integer
         Public Property PorcentajeIVA As Decimal
+        Public Property IVAPorPagar As Decimal
     End Class
     Private Property CveMonedaFiltros As Integer
         Get
@@ -662,7 +663,7 @@ Partial Class Bancos_PopIECompras
                     MovimientoPagar.ConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero
                     MovimientoPagar.ConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero
                     MovimientoPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal
-
+                    MovimientoPagar.IVAPorPagar = dr("IVAPorPagar").ToString.ToDecimal
 
                     TxtFolio.Enabled = True
                     TxtFechaDocumento.Enabled = True
@@ -2341,16 +2342,17 @@ Partial Class Bancos_PopIECompras
                                                 End If
                                             Else
                                                 If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
+                                                    'ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
+                                                    ImporteMovimiento = MovimientoPagar.IVAPorPagar * PorcentajePago
                                                     ImporteMX = ImporteMovimiento
                                                 ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+                                                    ImporteMovimiento = (MovimientoPagar.IVAPorPagar * PorcentajePago)
                                                     ImporteMX = ImporteMovimiento * tipoCambioCompra
                                                 ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+                                                    ImporteMovimiento = (MovimientoPagar.IVAPorPagar * PorcentajePago)
                                                     ImporteMX = ImporteMovimiento * tipoCambioCompra
                                                 ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+                                                    ImporteMovimiento = (MovimientoPagar.IVAPorPagar * PorcentajePago)
                                                     ImporteMX = ImporteMovimiento * tipoCambioCompra
                                                 End If
                                                 ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
diff --git a/Bin/ClosedXML.dll b/Bin/ClosedXML.dll
index 0bdfccd36..4065a321f 100644
Binary files a/Bin/ClosedXML.dll and b/Bin/ClosedXML.dll differ
diff --git a/Bin/DocumentFormat.OpenXml.dll b/Bin/DocumentFormat.OpenXml.dll
index 7978b0462..1698758e5 100644
Binary files a/Bin/DocumentFormat.OpenXml.dll and b/Bin/DocumentFormat.OpenXml.dll differ
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb
index 655ca2973..7bbb3db8d 100644
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -1042,4 +1042,3 @@ Partial Class RH_CatPersonal
         'End Using
     End Sub
 End Class
-S
\ No newline at end of file
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 5a9e03487..14d08582e 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -319,6 +319,12 @@
                                                     </div>
 
 
+                                                      <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList ID="DdlPais" runat="server" DataTextField="ClaveSATPaisDescripcion" DataValueField="CvePais" Width="100%" Class="form-control   input-sm select2me"></asp:DropDownList>
+                                                        <label for="<%= DdlPais.ClientID.ToString()%>">Nacionalidad: </label>                                                          
+                                                        <i></i>
+                                                    </div>
+
                                                     <div runat="server" id="DivPadres" visible="true">
                                                         <div class="form-group form-md-line-input input-iconright">
                                                             <asp:TextBox CssClass="form-control" ID="TxtNombrePadre" runat="server" MaxLength="50"></asp:TextBox>
@@ -3361,8 +3367,10 @@
                                                                 </asp:UpdatePanel>
                                                             </ContentTemplate>
                                                         </asp:UpdatePanel>
+
                                                     </ContentTemplate>
                                                 </asp:UpdatePanel>
+
                                             </div>
                                         </div>
                                     </div>
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index c76ba4672..a30525de5 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -843,7 +843,7 @@ Partial Class RH_Personal
             CargaPermisos()
             CargaCombosBuzon()
             CargaPermisosReemplazos()
-
+            CargaPaises()
 
             If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then
                 ViewState("CvePersonal") = Request("CvePersonal")
@@ -1259,7 +1259,23 @@ Partial Class RH_Personal
     End Sub
 
 
+    Private Sub CargaPaises()
 
+        Dim ObjGral As New ClsGenerales
+
+        If ObjGral.GetSATPais() Then
+            DdlPais.DataSource = ObjGral.DtResultados
+        Else
+            DdlPais.DataSource = Nothing
+        End If
+        ObjGral.Dispose()
+
+
+        DdlPais.DataBind()
+
+        DdlPais.Items.Insert(0, New ListItem("Seleccione una", "-1"))
+
+    End Sub
 
 #End Region
 
@@ -1545,6 +1561,10 @@ Partial Class RH_Personal
                 DdlRegimenContratacion.SelectedValue = ObjPersonal.CveSATRegimenContratacion.ToString()
                 DdlBanco.SelectedValue = If(ObjPersonal.CveSATBanco = 0, "-1", ObjPersonal.CveSATBanco.ToString())
                 DdlRiesgoPuesto.SelectedValue = ObjPersonal.CveSATRiesgoPuesto.ToString()
+                DdlPais.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CvePais").ToString)
+
+
+
 
                 'Carga Incidencias
                 BtnConsultarAsistencia_Click(Me, New System.EventArgs)
@@ -1719,7 +1739,7 @@ Partial Class RH_Personal
                DdlClienteAsignado.SelectedValue.ToEntero, DdlSubProyectoAsignado.SelectedValue.ToEntero, URL,
                DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
                DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
-               TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=ChkSindicalizado.Checked) Then
+               TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=ChkSindicalizado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero) Then
 
                 If Archivo.Exists Then
 
@@ -1792,7 +1812,7 @@ Partial Class RH_Personal
                URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
                DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
-               FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0)) Then
+               FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), CvePais:=DdlPais.SelectedValue.ToEntero) Then
 
                 'Funsion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -6427,6 +6447,11 @@ Partial Class RH_Personal
 
         Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
 
+
+        Dim ObjRH As New ClsRH
+        ListaTagsDocumentost = ObjRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa)
+        ObjRH.Dispose()
+
         For Each GvRow As GridViewRow In GvParametros.Rows
 
             If GvRow.FCTextBox("TxtParametro").Text.Trim.Length > 0 Then