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

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("{HoraInicioJornada}", DtResultados(0)("HorarioDe").ToString))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{HoraFinJornada}", DtResultados(0)("HorarioA").ToString))
+            'ListaTagsDocumentost.Add(New TagsDocumentos("{HoraFinJornada}", DtResultados(0)("HorarioA").ToString))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{Salario}", ""))
+            'ListaTagsDocumentost.Add(New TagsDocumentos("{Salario}", ""))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{MetodoPago}", DtResultados(0)("MetodoPago").ToString))
+            '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
 

Bancos/IE.aspx.vb

@@ -6012,7 +6012,7 @@ Partial Class Bancos_IE
 
         Dim Banco As New ClsBancos
 
-        If Banco.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 2, UsuarioActual.CveEmpresa, -1) Then
+        If Banco.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
             If Not Banco.DtResultados.Rows.Count > 0 Then
                 Banco.Dispose()
                 Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)

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)

Bancos/PopIEVentas.aspx.vb

@@ -3605,7 +3605,7 @@ Partial Class Bancos_PopIEVentas
         'For i = 0 To CveVentas.Count - 1
         Dim ObjBancos As New ClsBancos
 
-        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 2, UsuarioActual.CveEmpresa, -1) Then
+        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
             If Not ObjBancos.DtResultados.Rows.Count > 0 Then
                 ObjBancos.Dispose()
                 Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)

Compras/ReembolsosComprobaciones.aspx

@@ -294,7 +294,7 @@
             <asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
 
             <asp:GridView ID="GvCxP" GridLines="None" CssClass="table table-hover table-advance Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" 
-                DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContAcreedor,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto,CveSubProyecto">
+                DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContAcreedor,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto,CveSubProyecto,IVAPorPagar">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>

Compras/ReembolsosComprobaciones.aspx.vb

@@ -799,7 +799,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                     End If
                                 Else
                                     'Agrego el IVA
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                         MsgError = "Detalle"
                                     End If
                                     'Agrego el IVA
@@ -819,6 +819,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                         MsgError = "Detalle"
                                     End If
                                 End If
+
                             End If
 
                             If MsgError = "" AndAlso gvr.DataKey("RetIVA").ToDecimal > 0 Then
@@ -1113,6 +1114,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                         IdCtaContIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
                                         IdCtaContIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
                                     End If
+
                                     If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
                                         If gvr.FCTextBox("TxtAbonar").Text.ToDecimal = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then
                                             'Agrego el IVA
@@ -1127,15 +1129,33 @@ Partial Class Compras_ReembolsosComprobaciones
                                         End If
                                     Else
                                         'Agrego el IVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVAPorPagar").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
 
                                         'Agrego el IVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                            MsgError = "Detalle"
+                                        End If
+
+                                    End If
+
+                                    If gvr.DataKey("IVANoDeducible").ToDecimal > 0 Then
+
+                                        Dim IdCtaContIVANoAcreditable As Integer = 0
+
+                                        If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then
+                                            IdCtaContIVANoAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero
+                                        End If
+
+                                        Dim ImporteNOIVA As Decimal = gvr.DataKey("IVANoDeducible").ToDecimal * PorcentajePago
+
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
                                     End If
+
+
                                 End If
 
                                 If MsgError = "" AndAlso gvr.DataKey("RetIVA").ToDecimal > 0 Then

Contabilidad/PlantillasPolizasDetalle.aspx.vb

@@ -252,7 +252,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
         If HdnModalidad.Value = "I" Then
             If CvePlantillaPoliza > 0 Then
-                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedItem.ToEntero, TxtOrden.Text.Trim.ToEntero,
+                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
                                                                                 UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                                                 DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
                     TxtOrden.Text = ""
@@ -290,7 +290,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
         Else
             If HdnID.Value.ToEntero <> -1 Then
                 If CvePlantillaPoliza > 0 Then
-                    If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedItem.ToEntero, TxtOrden.Text.Trim.ToEntero,
+                    If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
                                                                                       HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                                                       DdlPorcentajeImpuesto.SelectedValue.ToDecimal, CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
                         Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
@@ -390,7 +390,6 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
                 dtt = Con.DtResultados
             End If
-            DdlCtaContable.Visible = False
             Dim drr As DataRow = dtt.FiltroPrimero(String.Format("CveConceptoAdmin={0}", DdlConcepto.SelectedValue))
 
             If drr IsNot Nothing Then
@@ -399,6 +398,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
                 LblCuenta.Text = ""
             End If
 
+            DdlCuentas.Items.Clear()
+            DdlCuentas.DataSource = dtt
+            DdlCuentas.DataBind()
+            DdlCuentas.Visible = True
+            DdlCtaContable.Visible = False
+
             dtt.Dispose()
             Con.Dispose()
         End If

Contabilidad/RegPrePolizaS.aspx

@@ -343,7 +343,8 @@
                     </div>
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                         <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False"
-                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones" 
+                            Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Cuenta</HeaderTemplate>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -318,6 +318,14 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("IdCtaContable", Type.GetType("System.Int32"))
             .Add("ConceptoContable", Type.GetType("System.String"))
             .Add("CveCuenta", Type.GetType("System.Int32"))
+
+            .Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
+            .Add("ContadoCuenta", Type.GetType("System.Int32"))
+            .Add("ContadoNumeroFolio", Type.GetType("System.Int32"))
+            .Add("ContadoImporte", Type.GetType("System.Int32"))
+            .Add("ContadoBeneficiario", Type.GetType("System.String"))
+            .Add("ContadoObservaciones", Type.GetType("System.String"))
+
         End With
     End Sub
 
@@ -870,22 +878,24 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Dim TipoMovto As Boolean = False
                     Dim IdCtaContable As Integer = 0
 
-                    'Registra movimieno bancario
-                    If CveConcepto = 30 Then
-                        CveIE = ObjIE.AddBancos_IE(CveCuenta, CveTipoTransaccion, TxtFecha.Text, Folio, Beneficiario, ImporteDocumento, CveMoneda, 0, Observaciones, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                        If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario"
-                        If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
-                            FolioIE = ObjIE.Folio
-                        End If
-                    End If
-
-
 
                     'inserto las compras que voy a pagarDdlSaldos
-                    For Each gvr As GridViewRow In GvMov.Rows
+                    For Each gvr As GridViewRow In GvMov.Rows
-                        'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
+                        'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
-                        '    IdCtaContable = gvr.DataKey("IDCuenta")
+                        '    IdCtaContable = gvr.DataKey("IDCuenta")
-                        'End If
+                        'End If
+
+                        'Registra movimieno bancario
+                        If gvr.DataKey("CveConcepto").ToEntero = 30 Then
+                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
+                                                       gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
+                                                       False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario"
+                            If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
+                                FolioIE = ObjIE.Folio
+                            End If
+                        End If
+
 
                         If gvr.DataKey("TipoMovto").ToDouble > 0 Then
                             Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
@@ -895,9 +905,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                             TipoMovto = False
                         End If
 
-                        If CveConcepto <> 30 Then
+                        If gvr.DataKey("CveConcepto").ToEntero <> 30 Then
 
-                            If CveConcepto = 41 Then
+                            If gvr.DataKey("CveConcepto").ToEntero = 41 Then
                                 CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
                             Else
                                 CveIE = -1
@@ -927,6 +937,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                                 Exit For
                             End If
                         End If
+                        If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then
+                            MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
+                        End If
                     Next
 
                     If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
@@ -965,7 +978,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             If MsgError = "" Then
                 'MENSAJE IE
                 If CveIE Then
-                    MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
                     Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
                 Else
                     Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
@@ -1242,7 +1254,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             If DtMovimientos Is Nothing Then CreaDT()
             If CvePrePoliza > 0 Then
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1323,7 +1335,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If Rows.Count > 0 Then
                 Dim dr As DataRow = Rows(0)
-                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1547,9 +1559,21 @@ Partial Class ContabilidadC_RegPrePolizaS
             CargaTipoTransaccion("Ing")
         Else
             CargaTipoTransaccion("Egs")
-        End If
+        End If
-
+
-
+        Dim IdMov As Integer = GvRow.DataKey("IdMov").ToString.ToEntero
+        Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IdMov)
+
+        If Rows.Count > 0 Then
+            Dim dr As DataRow = Rows(0)
+            Dim folio As Integer = dr("ContadoTipoTransaccion").ToString.ToEntero
+            DdlTipoTransaccion.SelectedValueExist(dr("ContadoTipoTransaccion").ToString.ToEntero)
+            DdlCuenta.SelectedValueExist(dr("ContadoCuenta").ToString.ToEntero)
+            TxtDocumentoFolio.Text = dr("ContadoNumeroFolio").ToString.ToEntero
+            TxtDocumentoObservaciones.Text = dr("ContadoObservaciones").ToString
+            TxtDocumentoBeneficiario.Text = dr("ContadoBeneficiario").ToString
+        End If
+
         TxtDocumentoImporte.Text = If(GvRow.FCTextBox("TxtAbono").Text = "", GvRow.FCTextBox("TxtCargo").Text.FormatoNumero, GvRow.FCTextBox("TxtAbono").Text.FormatoNumero)
         UpBancos.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DivContadoModal"))
@@ -1842,6 +1866,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                                         .Referencia = "",
                                         .Concepto = "",
                                         .SubProyecto = row.Item("SubProyecto"),
+                                        .Folio = "",
+                                        .TipoTransferencia = "",
                                         .CveConceptoContable = row.Item("CveConcepto"),
                                         .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
                                         .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1),
@@ -1859,10 +1885,10 @@ Partial Class ContabilidadC_RegPrePolizaS
         For i = 0 To columnCount
             worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
         Next
-        worksheet.Columns("I").Hidden = True
-        worksheet.Columns("J").Hidden = True
         worksheet.Columns("K").Hidden = True
         worksheet.Columns("L").Hidden = True
+        worksheet.Columns("M").Hidden = True
+        worksheet.Columns("N").Hidden = True
 
 
         NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString
@@ -1926,6 +1952,14 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Alert("El nombre de la octava columna debe ser 'SubProyecto'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
+            If Not dt.Columns(8).ColumnName = "Folio" Then
+                Alert("El nombre de la novena columna debe ser 'Folio'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(9).ColumnName = "TipoTransferencia" Then
+                Alert("El nombre de la decima columna debe ser 'TipoTransferencia'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
         End If
 
         If Not ErrorArchivo Then
@@ -1948,20 +1982,47 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo"))).ToEntero ' Row("CveConceptoContable").ToString.ToEntero
                     'Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
                     Dim CveClasificacion As Integer = -1
-                    Dim CveCuenta As Integer = -1
+                    Dim CveCuentaExcel As Integer = -1
                     Dim ObjConta2 As New ClsContabilidad
-                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
+                    Dim FolioExcel As Integer = -1
-                        CveCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
+                    Dim TipoMov As Integer = -1
+                    Dim CveBancoCuenta As Integer = -1
+                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
+                        CveCuentaExcel = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
                         NombreCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CtaCodigo", "")
                     End If
                     ObjConta2.Dispose()
 
-                    If CveCuenta <= 0 AndAlso CveConceptoContable <> 30 Then ' concepto 30-Bancos, tomará la cuetna de las especificaciones que se hagan enel modal
+                    If CveCuentaExcel <= 0 AndAlso CveConceptoContable <> 30 Then ' concepto 30-Bancos, tomará la cuetna de las especificaciones que se hagan enel modal
                         Alert(String.Format("La cuenta <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("Cuenta").ToString))
                         DtMovimientos.Clear()
                         Exit For
                     End If
 
+                    If CveConceptoContable = 30 Then
+                        Dim objconta3 As New ClsContabilidad
+                        objconta3.GetConta_CuentasDataContabilidad(CveCuentaExcel, UsuarioActual.CveEmpresa)
+                        If objconta3.DtResultados.Rows.Count > 0 Then
+                            Dim rowcc As DataRow = objconta3.DtResultados.Rows(0)
+                            CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
+                            DdlCuenta.SelectedValue = CveBancoCuenta
+                        End If
+                        TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
+                        FolioExcel = Row("Folio").ToString.ToEntero
+                        CveTipoTransaccion = TipoMov
+                        CveCuenta = CveBancoCuenta
+                        Folio = Row("Folio").ToString.ToEntero
+                        ImporteDocumento = IIf(Row("Abono").ToString.ToEntero > 0, Row("Abono").ToString, Row("Cargo").ToString)
+                        Observaciones = Row("Referencia").ToString
+                        Beneficiario = Row("Concepto").ToString
+                        If Not TipoMov > 0 Then
+                            Alert(String.Format("El Tipo de Transferencia no fue encontrado: <br/> <b>Tipo Transferencia: <b/> {0} <br/> <b>Folio: <b/> {1} <br/> <b>Importe: <b/> {2} ", Row("TipoTransferencia").ToString(), FolioExcel, ImporteDocumento), TipoMensaje.MsgAdvertencia)
+                            Exit Sub
+                        End If
+
+                    End If
+
+
                     'sino viene  el cveconcepto, busca por le nombre del concepto
                     If CveConceptoContable = 0 Then
                         Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
@@ -2006,8 +2067,14 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("CveClasificacion") = CveClasificacion
                     dr("CveCliente") = -1
                     dr("CveVenta") = -1
-                    dr("CveCuenta") = CveCuenta
+                    dr("CveCuenta") = CveCuentaExcel
 
+                    dr("ContadoTipoTransaccion") = CveTipoTransaccion
+                    dr("ContadoCuenta") = CveCuenta
+                    dr("ContadoNumeroFolio") = Folio
+                    dr("ContadoImporte") = ImporteDocumento
+                    dr("ContadoBeneficiario") = Beneficiario
+                    dr("ContadoObservaciones") = Observaciones
 
                     DtMovimientos.Rows.Add(dr)
                     DtMovimientos.AcceptChanges()
@@ -2025,6 +2092,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             End Try
         End If
     End Sub
+
 #End Region
 
 #Region "Paquete Egresos"

Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2016/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -785,10 +785,11 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=IIf(CStr(Fields!FechaMovto.Value) = "" , "", FormatDateTime(CDate(Fields!FechaMovto.Value), DateFormat.ShortDate))</Value>
+                                  <Value>=IIf(CStr(Fields!FechaMovto.Value) = "" , "", Day(CDate(Fields!FechaMovto.Value)) &amp; "/" &amp; Month(CDate(Fields!FechaMovto.Value)) &amp; "/" &amp; Year(CDate(Fields!FechaMovto.Value)))</Value>
                                   <Style>
                                     <FontSize>7pt</FontSize>
                                     <FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
+                                    <Format>d</Format>
                                     <Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
                                   </Style>
                                 </TextRun>
@@ -810,6 +811,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -950,7 +952,6 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -1611,49 +1612,7 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  <ReportParametersLayout>
+  
-    <GridLayoutDefinition>
-      <NumberOfColumns>2</NumberOfColumns>
-      <NumberOfRows>4</NumberOfRows>
-      <CellDefinitions>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>NombreEmpresa</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>FechaInicio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>FechaFin</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>UsuarioImprimio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>LogoPath</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>Filtros</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>3</RowIndex>
-          <ParameterName>FechaImprimio</ParameterName>
-        </CellDefinition>
-      </CellDefinitions>
-    </GridLayoutDefinition>
-  </ReportParametersLayout>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
 </Report>

RH/CatDocumentos.aspx

@@ -424,13 +424,18 @@
 		                        <tr><td>{Puesto}</td><td></td></tr>
 		                        <tr><td>{FechaActual}</td><td></td></tr>
 		                        <tr><td>{FechaActualDF}</td><td></td></tr>
-                                <%--<tr><td>{TiempoContrato}</td><td></td></tr>--%>
+                               
-                                <tr><td>{HoraInicioJornada}</td><td>Hora de inicio de jornada entre semana</td></tr>
+                                
-                                <tr><td>{HoraFinJornada}</td><td>Hora de fin de jornada entre semana</td></tr>
+
-                                <%--<tr><td>{HoraInicioJornadaSabado}</td><td>Hora de inicio de jornada en sábado</td></tr>
+                                <tr><td>{FechaFin}</td><td>Fecha Fin de Contrato</td></tr>
-                                <tr><td>{HoraFinJornadaSabado}</td><td>Hora de fin de jornada en sábado</td></tr>--%>
+                                <tr><td>Sexo</td><td>Sexo</td></tr>
-                                <tr><td>{Salario}</td><td>Salario del personal</td></tr>
+                                <tr><td>{NombreEmpresa}</td><td>Empresa</td></tr>
-                                <tr><td>{MetodoPago}</td><td>Metodo de pago</td></tr>
+                                <tr><td>{Sueldo}</td><td>Sueldo</td></tr>
+                                <tr><td>{SueldoLetra}</td><td>Sueldo en letra</td></tr>
+                                <tr><td>{Nacionalidad}</td><td>Nacionalidad</td></tr>
+
+
+
 	                        </tbody>
                             </table>
 

RH/CatPersonal.aspx.vb

@@ -1042,4 +1042,3 @@ Partial Class RH_CatPersonal
         'End Using
     End Sub
 End Class
-S

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>

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