diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 25443bfa0..b95ac1cd8 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -171,8 +171,11 @@ Public Class ClsBancos Public Property FacturaProveedor As String Public Property FacturaSerieFolio As String Public Property FacturaDescripcion As String - Public Property FacturaFecha As Date + Public Property FacturaFecha As Date #End Region + + + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) If TransaccionCompartida Is Nothing Then @@ -240,6 +243,18 @@ Public Class ClsBancos End Sub #End Region + + + Public Function ExisteConeccion() As Boolean + + If SqlTransacc.Connection Is Nothing Then + Return False + Else + Return True + End If + + End Function + Private Sub DataCommand(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) With SqlCommand .Parameters.Clear() @@ -1612,18 +1627,21 @@ Public Class ClsBancos With SqlAdapter.SelectCommand.Parameters .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@TerminoCorrecto", SqlDbType.Bit).Direction = ParameterDirection.Output End With Try - SqlAdapter.Fill(Data) - Retorno = True - 'Catch Ex1 As SqlException - ' If Ex1.Message.Contains("Número: 2627;") Then - ' Alert("Ya existe un Banco con el mismo nombre: " & Banco & ".", TipoMensaje.MsgAdvertencia) - ' Else - ' Me.OnError("Ocurrió un error al guardar los cambios en el Banco", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End If + SqlAdapter.Fill(Data) + + + Retorno = Boolean.Parse(SqlAdapter.SelectCommand.Parameters("@TerminoCorrecto").Value.ToString) + + + 'Catch Ex1 As SqlException + + ' Me.OnError("Ocurrió un error al guardar los cambios en el Banco", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception OnError("Ocurrió un error al cancelar el movimiento en bancos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 86122f871..23bdee732 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2926,5 +2926,66 @@ Public Class ClsGenerales End Sub #End Region +#Region " P O L I Z A V I R T U A L " + Public Function ModelosAutosGet(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_ModelosAutosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los Modelos de Autos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function MarcasAutosGet(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_MarcasAutosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las Marcas de Autos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function MarcasUsadoGet(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_MarcasUsadoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las Marcas de Usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function BCIUsadoGet(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_BCIUsadoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los BCI de Usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function +#End Region End Class diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index dd8c332f5..a98a423b0 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -812,7 +812,7 @@ Public Class ClsNominas Public Function AddConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, - AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer) As Integer + AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Nom_ConceptosAdd") @@ -838,6 +838,7 @@ Public Class ClsNominas .Add("AutomaticoGlobal", SqlDbType.Bit).Value = AutomaticoGlobal .Add("Especie", SqlDbType.Bit).Value = Especie .Add("Imprimir", SqlDbType.Bit).Value = Imprimir + .Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto End With Try @@ -858,7 +859,7 @@ Public Class ClsNominas Public Function UpdateConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveConcepto As Integer, EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, - AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer) As Boolean + AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_ConceptosUpdate") @@ -882,6 +883,7 @@ Public Class ClsNominas .Add("AutomaticoGlobal", SqlDbType.Bit).Value = AutomaticoGlobal .Add("Especie", SqlDbType.Bit).Value = Especie .Add("Imprimir", SqlDbType.Bit).Value = Imprimir + .Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto End With Try @@ -1859,14 +1861,35 @@ Public Class ClsNominas retorno = True Catch sqEx As SqlException retorno = False - OnError("Ocurrió un error al Realizar el calculo de utilidades.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Catch ex As Exception retorno = False - OnError("Ocurrió un error al Realizar el calculo de utilidades.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return retorno End Function + Public Function GetTablasNomina(CveEmpresa As Integer) As Boolean + Dim retorno As Boolean = False + Try + DTSet = New DataSet() + DataAdapter("PA_Nom_Tablas", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + + SqlAdapter.Fill(DTSet) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener las tablas.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener las tablas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 457bc2ba0..39e5d6f62 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6382,7 +6382,7 @@ Public Class ClsPaginas Dim Archivo As New System.IO.FileInfo(RutaFormato) If Archivo.Exists Then - retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing) + retorno = StreamPDF(RutaFormato, lrds, params, NombreArchivo, "PDF", MR:=Nothing) Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) If Guardar Then If Not ArchivoPDF.Exists Then @@ -6405,28 +6405,7 @@ Public Class ClsPaginas Else params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) - retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing) - - Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) - - If Guardar Then - If Not ArchivoPDF.Exists Then - Try - DirectoryExistsCreate(String.Format("{0}PDF", UsuarioActual.Empresa.Ruta)) - DirectoryExistsCreate(String.Format("{0}PDF\{1}", UsuarioActual.Empresa.Ruta, Vta.TipoDocto)) - File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) - Catch ex As Exception - Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) - End Try - Else - Try - ArchivoPDF.Delete() - File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) - Catch ex As Exception - Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) - End Try - End If - End If + retorno = StreamPDF(RutaFormatoDefault, lrds, params, NombreArchivo, "PDF", MR:=Nothing) End If Catch ex As Exception GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex)) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 34e8e1235..f5d08a7ca 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3976,7 +3976,7 @@ Public Class ClsVentas #Region " U S A D O S " - Public Function AddVentaUsado(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal) As Boolean + Public Function AddVentaUsado(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, Optional CveBCI As Integer = -1, Optional CveModeloAuto As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUsadosAdd", CommandType.StoredProcedure) @@ -3986,6 +3986,8 @@ Public Class ClsVentas .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@Cantidad", SqlDbType.Float).Value = Cantidad .Add("@PU", SqlDbType.Money).Value = PU + .Add("@CveBCI", SqlDbType.Int).Value = CveBCI + .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto End With Try diff --git a/App_Code/DSNominas.xsd b/App_Code/DSNominas.xsd new file mode 100644 index 000000000..9417b50fa --- /dev/null +++ b/App_Code/DSNominas.xsd @@ -0,0 +1,36 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/App_Code/DSNominas.xss b/App_Code/DSNominas.xss new file mode 100644 index 000000000..e27cacce0 --- /dev/null +++ b/App_Code/DSNominas.xss @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index d1ecd1e37..026c334aa 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1808,7 +1808,7 @@ Namespace Modelos If TipoDocto.Contiene("Rem") Then If DtRecepcionUsados IsNot Nothing Then For Each drow As DataRow In DtRecepcionUsados.Rows - If Not ObjVentas.AddVentaUsado(CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal) Then + If Not ObjVentas.AddVentaUsado(CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("CveBCIUsado").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero) Then Resultado = False Exit For End If @@ -3950,7 +3950,7 @@ Namespace Modelos If CveEstatusFacturaAsignado <= 0 Then Try If ObjFactura.FolioFiscal <> "" Then - If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Dev", "Egs") Then + If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Dev", "Egs", "RNC") Then Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), UsuarioActual.Empresa.FacturaProduccion) @@ -4096,7 +4096,7 @@ Namespace Modelos Try If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then CvePlantillaPoliza = 7 - ElseIf ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant") Then + ElseIf ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant", "RNC") Then CvePlantillaPoliza = 4 Else CvePlantillaPoliza = 4 diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 4a751b525..2c12cc557 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -72,9 +72,18 @@ Namespace Extensiones Public Sub GuardaLog(Str As String) Dim ArchivoW As StreamWriter Dim strLineaTMP As String + Dim Urlstring As String = "" + Try + If Not IsNothing(System.Web.HttpContext.Current) Then + If Not IsNothing(System.Web.HttpContext.Current.Request) Then + Urlstring = $"{HttpContext.Current.Request.Url.LocalPath.ToString()}{HttpContext.Current.Request.Url.Query}{Environment.NewLine}" + End If + End If + Catch + End Try ' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10) - strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString) + strLineaTMP = String.Format("{0}{1}Log: {5}{2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, Urlstring) Try ArchivoW = New StreamWriter(String.Format("{0}\Log.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8) Catch ex As UnauthorizedAccessException diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 0e8ec390a..09ab57456 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -3827,7 +3827,6 @@ Partial Class Bancos_IE ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS) If dt.Rows(0)("FechaPol").ToString.ToDate < TxtFechaCancelacion.Text.ToDate.FirstDayOfMonth Then 'dt.Rows(0)("FechaPol").ToString.ToDate.Month < TxtFechaCancelacion.Text.ToDate.Month Or dt.Rows(0)("FechaPol").ToString.ToDate.Year < TxtFechaCancelacion.Text.ToDate.Year Then IdPolizaNueva = ObjAC.AddPoliza(dt.Rows(0)("CodigoTipoPoliza").ToString.ToEntero, String.Format("Cancelacion: {0}", dt.Rows(0)("Concepto").ToString), 0, 0, UsuarioActual.CveUsuario, TxtFechaCancelacion.Text.ToDate) - If IdPolizaNueva > 0 Then FolioPolizaNueva = ObjAC.Folio @@ -3887,7 +3886,7 @@ Partial Class Bancos_IE End If End If - If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then ErrorCancelar = True MensajeError = "Error al contabilizar poliza" End If @@ -4777,13 +4776,26 @@ Partial Class Bancos_IE End If If Not ErrorCompra Then - Alert("El documento bancario quedó eliminado.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""") + If ObjAC IsNot Nothing Then ObjAC.Commit() - Banc.Commit() + + If Banc.ExisteConeccion Then + Banc.Commit() + Alert("El documento bancario quedó eliminado.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""") + End If + Else + Alert("El documento no ha sido eliminado.", TipoMensaje.MsgAdvertencia) + If ObjAC IsNot Nothing Then ObjAC.RollBack() - Banc.RollBack() + + If Banc.ExisteConeccion Then + Banc.RollBack() + + + End If + End If If ObjAC IsNot Nothing Then ObjAC.Dispose() diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 059d27dce..622ae3546 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4283,7 +4283,9 @@ Partial Class Compras_Compras If UsuarioActual.CveEmpresa.Contiene(72, 80) Then CveConceptoContableAlmacen = 205 End If - Else + Else + + CveConceptoContableAlmacen = 225 End If @@ -6299,7 +6301,7 @@ Partial Class Compras_Compras Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" - If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then + If importeMovimiento > 0 And ChkNCInvNC.Checked Or TxtTotal.Text.ToDecimal = 0 And ChkNCInvNC.Checked Then RegistroCuentaPuente = True 'Conta ContPAQ If IdCtaContable = 0 Then @@ -6343,10 +6345,12 @@ Partial Class Compras_Compras End If - End If - - - + End If + + + ' adfasdasd + 'ChkNCInvNC + If Not ChkNCInvNC.Checked OrElse Not RegistroCuentaPuente Then 'GASTO If UsuarioActual.CveEmpresa = 119 Then @@ -9653,7 +9657,8 @@ Partial Class Compras_Compras End If 'NC CON PRODUCTOS - CUENTA PUENTE - If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(225) Then + + If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(225) Then importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 25e2e72d7..073f98587 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1357,7 +1357,14 @@ Partial Class Compras_Proveedores End If - IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2) + If UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero > 0 Then + IdCuentaContable = UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero + Else + IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2) + End If + + + If IdCuentaContable > 0 Then ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1) @@ -1571,7 +1578,8 @@ Partial Class Compras_Proveedores 'End If Dim CreoCuenta As Boolean = False - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) Then + + If (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") If drCuenta IsNot Nothing Then diff --git a/Empresas/72/Formatos/Entradas.rdlc b/Empresas/72/Formatos/Entradas.rdlc index 4c5f123ea..0e87dd697 100644 --- a/Empresas/72/Formatos/Entradas.rdlc +++ b/Empresas/72/Formatos/Entradas.rdlc @@ -1,2061 +1,2078 @@ - - - - - - - - - 1.60907cm - - - 2.06688cm - - - 7.9493cm - - - 2.51129cm - - - 1.43594cm - - - 1.56514cm - - - 2.03169cm - - - - - 0.6cm - - - - - true - true - - - - - CANTIDAD - - - - - - - Textbox7 - - - - - 1pt - - - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CLAVE - - - - - - - Textbox9 - - - - - 1pt - - - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Descripción - - - - - - - Textbox11 - - - - - 1pt - - - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Serie/Lote - - - - - - - Textbox10 - - - - - 1pt - - - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - U.M. - - - - - - - Textbox13 - - - - - 1pt - - - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Precio - - - - - - - Textbox17 - - - - - 1pt - - - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox19 - - - - - 1pt - - - - 1pt - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.36717cm - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!PS.Value - - - - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!SerieLote.Value - - - - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UnidadMedida - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total - - - 2pt - 2pt - =IIf(RowNumber(Nothing)=1,"1pt","0pt") - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsInventarios - 0.17639cm - 0.12931cm - 0.96717cm - 19.16931cm - - - - - - 1.21412cm - 0.17882cm - 0cm - 19.11979cm - 1 - - - - - - true - true - - - - - ="Son: " & UCase(Parameters!ImporteLetra.Value) - - - - - - - ImporteLetra - 1.30749in - 2.18543in - 0.18861in - 5.38135in - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 1.56514cm - - - 2.0317cm - - - - - 0.46771cm - - - - - true - true - - - - - Total: - - - - - - - Textbox33 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Fields!Total.Value) - - - - - - - Textbox38 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - DsInventarios - 1.31995cm - 15.70179cm - 0.46771cm - 3.59684cm - 3 - - - - - - 1.59819in - - - - - - - Textbox34 - 0.07056cm - 9.3683cm - 0.6cm - 9.85131cm - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo1 - FitProportional - 0.07152in - 0.85657in - 1.28286in - 1 - - - - - - true - true - - - - - Factura de: - - - - - - - - - - - =Parameters!NombreProveedor.Value - - - - - - - - - - - =Parameters!RFCProveedor.Value - - - - - - - - - - - =Parameters!TelefonoProveedor.Value - - - - - - - - - - - =Parameters!ContactoProveedor.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio - - - - : - - - - =Parameters!Folio.Value - - - - - - - - - Almacén: - - - - =Parameters!Almacen.Value - - - - - - - - - Fecha: - - - - =Parameters!Fecha.Value - - - - - - - - - Folio Factura del Proveedor: - - - - =Parameters!FacturaProveedor.Value - - - - - - - Textbox50 - 0.74112cm - 10.83216cm - 1.86797cm - 8.38745cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 4.7625cm - true - true - - - 0.28886cm - 1.26971cm - 0cm - 5.13525cm - - - - - - true - true - - - - - =Parameters!NombreRecibio.Value - - - - Textbox31 - 0.46525cm - 0.85487cm - 0.6cm - 5.95755cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - 0.28886cm - 13.28031cm - 0cm - 5.24108cm - 2 - - - - - - true - true - - - - - =Parameters!NombreEntrego.Value - - - - Textbox31 - 0.42997cm - 12.88344cm - 0.6cm - 5.95755cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - 2.04584cm - 0.12912cm - 0cm - 19.1695cm - 4 - - - - - - true - true - - - - - OBSERVACIONES: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 2.85017cm - 0.05012cm - 0cm - 19.16949cm - 7 - - - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - - Textbox18 - 2.956cm - 1.49125cm - 0.44125cm - 5.21516cm - 9 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - - Textbox18 - 2.956cm - 10.44391cm - 0.44125cm - 3.44953cm - 11 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 2.956cm - 15.59511cm - 0.38981cm - 3.61081cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - IMPRESO EN SIG, Entradas / Salidas - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 1cm - 1cm - 1cm - 0cm - 0.13cm - + + + + + + Textbox7 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLAVE + + + + + + + Textbox9 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox11 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Serie/Lote + + + + + + + Textbox10 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + U.M. + + + + + + + Textbox13 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Precio + + + + + + + Textbox17 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox19 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36717cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!PS.Value + + + + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SerieLote.Value + + + + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!UnidadMedida.Value + + + + + + + UnidadMedida + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsInventarios + 0.17639cm + 0.12931cm + 0.96717cm + 19.16931cm + + + + + + 1.21412cm + 0.17882cm + 0cm + 19.11979cm + 1 + + + + + + true + true + + + + + ="Son: " & UCase(Parameters!ImporteLetra.Value) + + + + + + + ImporteLetra + 0.73158in + 1.49813in + 0.18861in + 6.09975in + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 1.56514cm + + + 2.0317cm + + + + + 0.46771cm + + + + + true + true + + + + + Total: + + + + + + + Textbox33 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!Total.Value) + + + + + + + Textbox38 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + DsInventarios + 1.31995cm + 15.70179cm + 0.46771cm + 3.59684cm + 3 + + + + + + 1.75444in + + + + + + + Textbox34 + 0.07056cm + 9.3683cm + 0.6cm + 9.85131cm + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo1 + FitProportional + 0.07152in + 0.85657in + 1.28286in + 1 + + + + + + true + true + + + + + Factura de: + + + + + + + + + + + =Parameters!NombreProveedor.Value + + + + + + + + + + + =Parameters!RFCProveedor.Value + + + + + + + + + + + =Parameters!TelefonoProveedor.Value + + + + + + + + + + + =Parameters!ContactoProveedor.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio + + + + : + + + + =Parameters!Folio.Value + + + + + + + + + Almacén: + + + + =Parameters!Almacen.Value + + + + + + + + + Fecha: + + + + =Parameters!Fecha.Value + + + + + + + + + Folio Factura del Proveedor: + + + + =Parameters!FacturaProveedor.Value + + + + + + + Textbox50 + 0.74112cm + 10.83216cm + 1.86797cm + 8.38745cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 3.15049cm + true + true + + + 0.92688cm + 0.05012cm + 0cm + 19.16949cm + + + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + + Textbox18 + 1.03271cm + 1.49125cm + 0.44125cm + 5.21516cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + + Textbox18 + 1.03271cm + 10.44391cm + 0.44125cm + 3.44953cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 1.03271cm + 15.59511cm + 0.38981cm + 3.61081cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + IMPRESO EN SIG, Entradas / Salidas + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + 0.19459cm + 1.19476cm + 0cm + 5.13525cm + + + + + + true + true + + + + + =Parameters!NombreRecibio.Value + + + + Textbox31 + 0.37098cm + 0.77992cm + 0.09729cm + 5.95755cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.19459cm + 13.20536cm + 0cm + 5.24108cm + 2 + + + + + + true + true + + + + + =Parameters!NombreEntrego.Value + + + + Textbox31 + 0.3357cm + 12.80849cm + 0.13257cm + 5.95755cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.75931cm + 0.05417cm + 0cm + 19.1695cm + 4 + + + + + + true + true + + + + + OBSERVACIONES: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 0cm + 0.05922cm + 0.90952cm + 19.22367cm + 7 + + =IIf( Globals.PageNumber = Globals.TotalPages, False, True) + + + + + + + + + + + 27.94cm + 21.59cm + 1cm + 1cm + 1cm + 0cm + 0.13cm + + + + Textbox1 + + + 2pt + 2pt + 2pt + 2pt + + + 10 + + + + + + + + + + + + + + + 0.6cm + + + + + true + true + + + + + RECIBO DE NOMINA + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + San luis Potosi No. 21 Col Centro C.P. 83000 + + + + Textbox205 + + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + R.F.C + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + COM-890602-EE8 + + + + Textbox210 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Hermosillo,Sonora,Mexico + + + + Textbox195 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + No. Trabajador + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!Codigo.Value + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dias Trabajados + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!DiasLaborados.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Sueldo Correspondiente + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!NombreCompleto.Value + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Faltas + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!DiasFaltados.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + R.F.C. + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!RFC.Value + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Retardos + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!DiasRetardos.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + CURP + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!CURP.Value + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dias Vacaciones + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!DiasVacaciones.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + Tipo de Pago + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!TipoPeriodo.Value + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Periodo de + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FechaInicio.Value + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Afi I.M.S.S. + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!NSS.Value + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha de Pago + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!FechaPago.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + PERCEPCIONES + + + + Textbox61 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 5 + + + + + + + + + + true + true + + + + + DEDUCCIONES + + + + Textbox65 + + + + Black + 1pt + + + Black + 1pt + + + + + + Black + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 5 + + + + + + + + + + 0.6cm + + + + + true + true + + + + + Concepto + + + + Textbox21 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + Textbox138 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + Textbox24 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Concepto + + + + Textbox25 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + Textbox190 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + Textbox28 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!NoConceptoP.Value + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ConceptoP.Value + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + $ + + + + Textbox6 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteP.Value + + + + + + + ImporteP + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!NoConceptoD.Value + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ConceptoD.Value + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + $ + + + + Textbox14 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteD.Value + + + + + + + ImporteD + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.39375cm + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox215 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox216 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox220 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox221 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total Percepciones + + + + Textbox223 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + $ + + + + Textbox225 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteP.Value + + + + + + + ImporteP1 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + Total Deducciones + + + + Textbox228 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + $ + + + + Textbox230 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteD.Value + + + + + + + ImporteD1 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox235 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox236 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Neto a pagar + + + + Textbox239 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + $ + + + + Textbox240 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteD.Value + + + + + + + ImporteD2 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + 10 + + + + + + + + + + + + + + + 0.6cm + + + + + true + true + + + + + Recibí de la empresa arriba mencionada, la cantidad neta a que este documento se refiere, estando conforme con las + + + 2pt + 2pt + 2pt + 2pt + + + 10 + + + + + + + + + + + + + + + 0.6cm + + + + + true + true + + + + + Percepciones y deducciones que en el aparecen a la fecha COMPUPROVEEDORES SA DE CV no me adeuda + + + 2pt + 2pt + 2pt + 2pt + + + 10 + + + + + + + + + + + + + + + 0.6cm + + + + + true + true + + + + + cantidad alguna por concepto de sueldos, ni ningun otro concepto analogo. + + + 2pt + 2pt + 2pt + 2pt + + + 10 + + + + + + + + + + + + + + + 1.2cm + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox285 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox286 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox289 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox290 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox291 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox295 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox296 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!NombreCompleto.Value + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + + + + + Textbox300 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + Textbox301 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + After + + + After + + + After + + + After + + + After + + + After + + + After + + + After + + + After + + + After + + + After + + + + + + + =Fields!EstatusD.Value =-3 OR Fields!EstatusP.Value =-2 + + + + + =Fields!EstatusD.Value <> 2 + + + + + =Fields!EstatusD.Value <> -2 + + + + + =Fields!EstatusD.Value <> -3 + + + + + + Before + + + Before + + + Before + + + Before + + + Before + + + Before + + + + DataSet1 + 0.07625cm + 14.59375cm + 20.26021cm + + + + + + 5.74557in + - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Personal.aspx.vb" Inherits="RH_Personal" %> + + + + + + + + <%--
  • PDF -
  • --%> -
  • - PDF -
  • - - - -
  • - Agregar Buzón de Calidad -
  • -
    -
    - - - -
  • - Carga Saldo Inicial -
  • -
    -
    - - - -
  • - PDF Consumo -
  • -
    - - - -
    - - - -
  • - Registrar Licencias -
  • -
    -
    - + --%> +
  • + PDF +
  • + + + +
  • + Agregar Buzón de Calidad +
  • +
    +
    + + + +
  • + Carga Saldo Inicial +
  • +
    +
    + + + +
  • + PDF Consumo +
  • +
    + + + +
    + + + +
  • + Registrar Licencias +
  • +
    +
    + @@ -78,199 +78,199 @@ - - - -
    - -   - - - - - - - - - - - - -
    - - - - - - -
    -
    -
    -
    -
    - - Datos del Personal -
    -
    -
    -
    -
    -
    -
    - -
    - - - - -
    - -
    - - - -
    -
    - - - - -
    -
    - - - -
    -
    - - - - - - -
    -
    - - - - - - -
    -
    - - - - - - -
    -
    - -
    - - - - -
    - - - - - -
    -
    - - - -
    -
    - - - -
    -
    -
    -
    - -
    -
    -
    -
    - - Localización -
    -
    -
    -
    -
    -
    -
    -
    - - - -
    -
    -
    -
    - - - -
    -
    -
    -
    - - - -
    -
    -
    -
    - - - -
    -
    - - - -
    -
    - - - -
    - -
    - - - -
    -
    - - - -
    -
    - - - -
    -
    - - - - -
    -
    -
    - - - -
    - - + + + + + +   + + + + + + + + + +
    + + + + + + +
    +
    +
    +
    +
    + + Datos del Personal +
    +
    +
    +
    +
    +
    +
    + +
    + + + + +
    + +
    + + + +
    +
    + + + + +
    +
    + + + +
    +
    + + + + + + +
    +
    + + + + + + +
    +
    + + + + + + +
    +
    + +
    + + + + +
    + + + + + +
    +
    + + + +
    +
    + + + +
    +
    +
    +
    + +
    +
    +
    +
    + + Localización +
    +
    +
    +
    +
    +
    +
    +
    + + + +
    +
    +
    +
    + + + +
    +
    +
    +
    + + + +
    +
    +
    +
    + + + +
    +
    + + + +
    +
    + + + +
    + +
    + + + +
    +
    + + + +
    +
    + + + +
    +
    + + + + +
    +
    +
    + + + +
    + +
    @@ -283,7 +283,7 @@
    -
    +

    @@ -298,18 +298,18 @@ - + - + - - - + + + - + @@ -332,3448 +332,3495 @@ -
    - -
    -
    -
    - -
    - <%--
    -
    -
    -
    -
    - - Directorio Telefónico -
    -
    -
    -
    -
    -
    -
    -
    - - - - -
    -
    - - - - -
    -
    - - - - -
    - +
    + +
    +
    + + +
    + <%--
    +
    +
    +
    +
    + + Directorio Telefónico +
    +
    +
    +
    +
    +
    +
    +
    + + + + +
    +
    + + + + +
    +
    + + + + +
    + <%--
    -
    --%> -
    -
    -
    - - - -
    -
    - - - - -
    - -
    -
    -
    -
    - - Recursos Humanos -
    -
    -
    -
    -
    -
    -
    -
    - -
    - - - - -
    - - - - - -
    -
    - -
    - - - - -
    - - - - -
    - -
    - - - - - - - -
    - -
    - - - -
    - -
    - - - - - - -
    - - -
    - - - - - - -
    - -
    - - - - - - -
    - -
    - - - - - - -
    - -
    - - - - - -
    - -
    - - - - - -
    -
    -
    -
    - -
    -
    -
    -
    - - Centro de Costos: -
    -
    -
    -
    -
    -
    -
    -
    - - - - - - -
    -
    - - <%-- --%> - - - - -
    -
    - - - - - - -
    +
    --%> +
    +
    +
    + + + +
    +
    + + + + +
    + +
    +
    +
    +
    + + Recursos Humanos +
    +
    +
    +
    +
    +
    +
    +
    + +
    + + + + +
    + + + + + +
    +
    + +
    + + + + +
    + + + + +
    + +
    + + + + + + + +
    + +
    + + + +
    + +
    + + + + + + +
    + + +
    + + + + + + +
    + +
    + + + + + + +
    + +
    + + + + + + +
    + +
    + + + + + +
    + +
    + + + + + +
    +
    +
    +
    + +
    +
    +
    +
    + + Centro de Costos: +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + +
    +
    + + <%-- --%> + + + + +
    +
    + + + + + + +
    <%--
    -
    --%> - -
    - - - - - -
    - - -
    -
    - -
    -
    -
    - - Estatus: -
    -
    -
    -
    - - - - - - -
    -
    - - - - - -
    - -
    - -
    - - - - -
    - - - - - - - -
    - -
    - -
    - - - - -
    - - - - - - -
    - -
    - -
    - - - - -
    - - - - - - - -
    - - -
    - - - - - - - - - - - - - -
    -
    -
    -
    - -
    - -
    -
    -
    - - Asignado a: -
    -
    -
    -
    -
    -
    -
    -
    - - - - - -
    -
    - - - - - - -
    -
    -
    - - - - -
    -
    - - Contable: -
    -
    -
    -
    -
    -
    -
    -
    - - - - - -
    -
    - - - - -
    -
    -
    -
    - -
    -
    -
    - - Uniforme: -
    -
    -
    - - - Surtir Uniforme - - -
    -
    -
    -
    - -
    - - - -
    - -
    -
    - - - - - - - - - - - - - - - - - - - > - - - - - - - - - - - - > - - - - - - - - - - - - +
    --%> + +
    + + + + + +
    + + +
    +
    + +
    +
    +
    + + Estatus: +
    +
    +
    +
    + + + + + + +
    +
    + + + + + +
    + +
    + +
    + + + + +
    + + + + + + + +
    + +
    + +
    + + + + +
    + + + + + + +
    + +
    + +
    + + + + +
    + + + + + + + +
    + + +
    + + + + + + + + + + + + + +
    +
    +
    +
    + +
    + +
    +
    +
    + + Asignado a: +
    +
    +
    +
    +
    +
    +
    +
    + + + + + +
    +
    + + + + + + +
    +
    +
    + + + + +
    +
    + + Contable: +
    +
    +
    +
    +
    +
    +
    +
    + + + + + +
    +
    + + + + +
    +
    +
    +
    + +
    +
    +
    + + Uniforme: +
    +
    +
    + + + Surtir Uniforme + + +
    +
    +
    +
    + +
    + + + +
    + +
    +
    + + + + + + + + + + + + + + + + + + + > + + + + + + + + + + + + > + + + + + + + + + + + + <%-- > - --%> - - - - - - - - - - - + --%> + + + + + + + + + + + <%-- > - --%> - - - - - - - - - - - - -
    -
    - -
    - - - -
    -
    -
    + --%> + + + + + + + + + + + + +
    +
    + +
    + + + +
    +
    +
    Cuentas Bancarias -
    -
    -
    - - - - - -
    - + + + +
    + + + + + + - + - + - + - + - + - + - + - + - + - - - - - - - - + + + + + + + + + + + - - - - - - - + + + + + + - - - - - - + + + + + + + -
    + Banco - - - + + + + # Suc - - - + + + + Num Cuenta - - - + + + + CLABE - - - + + + + SWIFT - - - + + + + Plaza - - - + + + + CIE - - - + + + + Referencia - - - + + + + Credi Prov - - - + + + + Moneda - - -   -  Comandos
    +   +  Comandos
    - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + <%----%> - - - - - - - - - + + + + + + + + + <%----%> -      - -
    -
    -
    - - - - <%----%> - - - -   - - - - - - - - - -   - - - - - - - -   - - - - - - - - -   - - - - - - - - -   - - - - - - - -   - - - - - - - -   - - - - <%----%> - - - - -   - - - - - - - -   - - - - - - - -   - - - - - - - - - - - '> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - -
    -
    -
    + + + +
    +
    +
    + + + + <%----%> + + + +   + + + + + + + + + +   + + + + + + + +   + + + + + + + + +   + + + + + + + + +   + + + + + + + +   + + + + + + + +   + + + + <%----%> + + + + +   + + + + + + + +   + + + + + + + +   + + + + + + + + + + + '> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +
    Pagos Realizados -
    -
    -
    - - - - Factura - - - - - - Fecha Compra - - - - - - Fecha Vencimiento - - - - - - Cheque - + +
    +
    +
    + + + + Factura + + + + + + Fecha Compra + + + + + + Fecha Vencimiento + + + + + + Cheque +   - - - - Monto Compra (Saldo Orig) - + + + + + Monto Compra (Saldo Orig) +   - - - - Abonado - + + + + + Abonado +   - - - - % Pagado - + + + + + % Pagado +   - - - - Auxiliar - - - - - - - - - - -
    - -
    -
    - - - -
    -
    -
    -
    -
    - - Nómina -
    -
    -
    -
    -
    -
    -
    - -
    - -
    - - - - -
    - - - - - -
    - -
    - - - - - - -
    - -
    - - - - - - -
    - -
    - - - - - - -
    - -
    - - - -
    - -
    - -
    - -
    - -
    - - - - -
    - -
    - - - - -
    - - - -
    - - - - - -
    - -
    - - - - -
    - -
    - - - -
    - -
    - - - % -
    - -
    - - - - - - - -
    -
    - - - - - -
    - -
    - - - -
    - -
    - - - -
    - -
    -
    -
    - -
    -
    -
    -
    - - Conceptos -
    -
    - - -
    -
    -
    - -
    -
    -
    -
    - - - - Aplica - - - - - - - Código - - - - - - - Concepto - - - - - - Tipo - - - - - - - Importe - - - - - - - - Tipo de Aplicación - - - - - - - -
    - - - - - - - - - - - - - - - -
    -
    - -
    -
    - - - -
    -
    - -
    - -
    -
    -
    - - Infonavit -
    -
    - - -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    -
    -
    - - - - - - - - -
    -
    -
    -
    - - -
    -
    -
    -
    -
    -
    - - - - - -
    -
    - - - -
    -
    -
    -
    - -
    -
    -
    - -
    -
    -
    -
    - -
    -
    -
    + + + + + Auxiliar + + + + + + + + + + +
    +
    + + + + + +
    +
    +
    +
    +
    + + Nómina +
    +
    +
    +
    +
    +
    +
    + +
    + +
    + + + + +
    + + + + + +
    + +
    + + + + + + +
    + +
    + + + + + + +
    + +
    + + + + + + +
    + +
    + + + +
    + +
    + +
    + +
    + +
    + + + + +
    + +
    + + + + +
    + + + + + + + + + + + +
    + + + + +
    + +
    + + + +
    + +
    + + + % +
    + +
    + + + + + + + +
    +
    + + + + + +
    + +
    + + + +
    + +
    + + + +
    + +
    +
    +
    + +
    +
    +
    +
    + + Conceptos +
    +
    + + +
    +
    +
    + +
    +
    +
    +
    + + + + Aplica + + + + + + + Código + + + + + + + Concepto + + + + + + Tipo + + + + + + + Importe + + + + + + + + Tipo de Aplicación + + + + + + + +
    + + <%-- se movio a codigo + + + + + + + + --%> + + + + + + +
    +
    + +
    +
    + + + +
    +
    + +
    + +
    +
    +
    + + Infonavit +
    +
    + + +
    +
    +
    + +
    +
    +
    +
    +
    +
    +
    + + +
    +
    +
    +
    + + +
    +
    +
    +
    +
    +
    + + + + + + + + + +
    +
    +
    +
    + + +
    +
    +
    +
    +
    +
    + + + + + +
    +
    + + + +
    +
    +
    +
    + +
    +
    +
    + +
    +
    +
    +
    + +
    +
    +
    Registro de Nómina -
    -
    -
    - - - <%--EmptyDataText="No hay registros." ShowHeaderWhenEmpty="True"--%> - - - - - - - - - - Se Timbró - - - - - - - Enviar por Correo - - - - - Descargar PDF - - - - - - - - - -
    -
    - -
    -
    -
    -
    - - - - -
    -
    -
    - - Consultar Asistencias -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - - - -
    -
    - - - - - - -
    -
    - - - - - - -
    -
    - -
    - - - - -
    - - - - -
    -
    - -
    - - - - -
    - - - - -
    -
    - -
    -
    -
    -
    - - - - + + + <%----%> + + + + + + + + + + + + + +
    + + + +
    + + + <%--EmptyDataText="No hay registros." ShowHeaderWhenEmpty="True"--%> + + + + + + + + + + Se Timbró + + + + + + + Enviar por Correo + + + + + Descargar PDF + + + + + + + + + +
    + + + + + + + + + + +
    +
    +
    + + Consultar Asistencias +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    + + + + +
    +
    + + + + + + +
    +
    + + + + + + +
    +
    + +
    + + + + +
    + + + + +
    +
    + +
    + + + + +
    + + + + +
    +
    + +
    +
    +
    +
    + + <%----%> + + - - - - + + + + - + - + - + - + - + - - - - - - - - - - - - - - - - -
    - - - - - - - - - - + + + + + + + + + + - + - + - + - + - + - Comandos
    -
    - - - - -
    - - - - - - -
    - - - - - - - - - - - - - - - - - - - - - - - - -
    - - - - Fecha - - - - - - Cliente - - - - - - Proyecto - - - - - - Sub Proyecto - - - - - - Asistencia - - - - - - % Pago - - - - - - Hrs Dob. - - - - - - Hrs Trip. - - - - - - Motivo H. Extras - - - - - - - - Obs. - - - - - - - - - - - - - - - -
    -
    -
    -
    -
    - - - - - - - - -
    -
    -
    - - - -
    -
    -
    - - Buzón de Calidad -
    -
    -
    -
    -
    -
    - -
    -
    - - - - - - - - - -
    - - - - Cliente - - - - - - - Sucursal Cliente - -   - - - - - Tipo - -   - - - - - F. Ocurrió - - - - - - Descripción - - - - - - - Reportó - - - - - - - Mail - - - - - - - Se Atendió - -   - - - - - - - Observaciones - -   - - - - - - - - - - - - - - -
    -
    -
    - - -
    -
    - - -
    -
    - - - - - - - - - - - -
    -
    -
    - - -
    -
    -
    -
    -
    -
    - -
    - -
    - - - - - - - - Código - - - - - - Activo Fijo - -   - - - - Tipo de A.F. - -   - - - - Inició - - - - - - Finalizó - - - - - - Resguardo - - - - - - Observaciones - -   - - - - - -
    - -
    - -
    -
    -
    -
    - - - - - - -
    -
    -
    -
    -
    - - Solicitud y resumen de periodo -
    -
    -
    -
    +
    Comandos
    +
    + + + + +
    + + + + + + +
    + + + + + + + + + + + + + + + + + + + + + + + + +
    + + + + Fecha + + + + + + Cliente + + + + + + Proyecto + + + + + + Sub Proyecto + + + + + + Asistencia + + + + + + % Pago + + + + + + Hrs Dob. + + + + + + Hrs Trip. + + + + + + Motivo H. Extras + + + + + + + + Obs. + + + + + + + + + + + + + + + +
    +
    +
    +
    +
    + + + + + + + + +
    +
    +
    + + + +
    +
    +
    + + Buzón de Calidad +
    +
    +
    +
    +
    +
    + +
    +
    + + + + + + + + + +
    + + + + Cliente + + + + + + + Sucursal Cliente + +   + + + + + Tipo + +   + + + + + F. Ocurrió + + + + + + Descripción + + + + + + + Reportó + + + + + + + Mail + + + + + + + Se Atendió + +   + + + + + + + Observaciones + +   + + + + + + + + + + + + + + +
    +
    +
    + + +
    +
    + + +
    +
    + + + + + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    +
    +
    + +
    + +
    + + + + + + + + Código + + + + + + Activo Fijo + +   + + + + Tipo de A.F. + +   + + + + Inició + + + + + + Finalizó + + + + + + Resguardo + + + + + + Observaciones + +   + + + + + +
    + +
    + +
    +
    +
    +
    + + + + + + +
    +
    +
    +
    +
    + + Solicitud y resumen de periodo +
    +
    +
    +
    Solicitar Vacaciones - -
    -
    - -
    -
    - - - - - - - - - - - - - - - - - -
    - -
    - - - Seleccionar - Día de Descanso Trabajado - Permiso con Goce de Sueldo - Permiso sin Goce de Sueldo - Cita al IMSS, con Goce de Sueldo - Por Paternidad, con Goce de Sueldo - Viaje de Trabajo - Incapacidad pagada por la empresa - Por horas, asunto personal sin Goce de Sueldo - - - - - - -
    - -
    - - - - - - - - - - -
    - -
    -
    -
    - -
    - - - <%-- --%> - - -
    - -
    -
    -
    - - - <%-- --%> - - - -
    - -
    -
    -
    - -
    - -
    - - - - -
    -
    - - - -
    -
    -
    -
    -
    - - Historial de vacaciones -
    -
    -
    -
    -
    -
    - -
    -
    - - - - - - - - - - - - -
    - - - - - -
    -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    - -
    -
    -
    -
    - - Permisos -
    -
    -
    -
    - Agregar Permiso -
    -
    - -
    -
    - - - - <%-- Nuevo Permiso--%> -
    -
    - - - - - - - - - - - - - - - - - - - -
    - - - - - - -
    -
    -
    -
    -
    -
    -
    - - -
    -
    -
    - - -
    - - - - - - - - - - - - - + --%> + + +
    + +
    +
    +
    + + + + + +
    +
    + + + <%-- --%> + + + +
    +
    + +
    + + + + + + + +
    + + +
    + + + <%-- --%> + + + +
    + +
    +
    +
    +
    +
    + + +
    +
    +
    +
    + + Historial de vacaciones +
    +
    +
    +
    +
    +
    + +
    +
    + + + + + + + + + + + + +
    + + + + + +
    +
    +
    +
    +
    +
    +
    + +
    +
    +
    + +
    + +
    +
    +
    +
    + + Permisos +
    +
    +
    +
    + Agregar Permiso +
    +
    + +
    +
    + + + + <%-- Nuevo Permiso--%> +
    +
    + + + + + + + + + + + + + + + + + + + +
    + + + + + + +
    +
    +
    +
    +
    +
    +
    + + +
    +
    +
    + + +
    + + + + + + + + + + + + +
    <%-- - --%> -
    - - - - - - - - -
    -
    -
    - - Historial de cursos y capacitaciones -
    -
    -
    -
    -
    -
    - -
    -
    - - - - - - - - - - - - - - - - -
    Nombre del curso y capacitaciónDuraciónInstructor
    Microsoft Excel avanzado5 horasIng. Juan Perez
    Microsft Excel básico10 horasIng. Juan Perez
    -
    -
    -
    -
    - - - - -
    -
    -
    - - Consignaciones de Material -
    -
    -
    -
    -
    -
    - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    - - - - - - -
    -
    -
    - - Gastos X comprobar -
    -
    -
    -
    -
    -
    - -
    -
    - - - - - - - - - - - - - - - - - - - + --%> + + + + + + + + + +
    +
    +
    + + Historial de cursos y capacitaciones +
    +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + + + + + + +
    Nombre del curso y capacitaciónDuraciónInstructor
    Microsoft Excel avanzado5 horasIng. Juan Perez
    Microsft Excel básico10 horasIng. Juan Perez
    +
    +
    +
    +
    + + + + +
    +
    +
    + + Consignaciones de Material +
    +
    +
    +
    +
    +
    + +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    + + + + + + +
    +
    +
    + + Gastos X comprobar +
    +
    +
    +
    +
    +
    + +
    +
    + + + + + + + + + + + + + + + + + + + - -
    Saldo: $ - -
    -
    - - - - Fecha - - - - - - Concepto - - - - - - Referencia - - - - - - Cargo - + + +
    +
    + + + + Fecha + + + + + + Concepto + + + + + + Referencia + + + + + + Cargo +   - - - - - Abono - + + + + + + Abono +   - - - - - - -
    -
    -
    -
    - - - - - - Factura - - - - - - Fecha Compra - - - - - - Fecha Vencimiento - - - - - - Cheque - + + + + + + + +
    + + + + + + + + + Factura + + + + + + Fecha Compra + + + + + + Fecha Vencimiento + + + + + + Cheque +   - - - - Monto Compra (Saldo Orig) - + + + + + Monto Compra (Saldo Orig) +   - - - - Abonado - + + + + + Abonado +   - - - - % Pagado - + + + + + % Pagado +   - - - - Auxiliar - - - - - - - - - - - -
    -
    -
    -
    -
    - - Préstamos A Personal -
    -
    -
    -
    - - - - Funcionario/Empleado - - - - - - - - Cargo - + + + + + Auxiliar + + + + + + + + + + + +
    +
    +
    +
    +
    + + Préstamos A Personal +
    +
    +
    +
    + + + + Funcionario/Empleado + + + + + + + + Cargo +   - - - - Abono - + + + + + Abono +   - - - - - -
    -
    -
    -
    -
    - - Pago de Facturas -
    -
    -
    -
    -
    -
    -
    -
    Fecha Inicio:
    -
    -
    - - - - - - - - -
    -
    -
    -
    -
    -
    -
    Fecha Fin:
    -
    -
    - - - - - - - - -
    -
    -
    -
    -
    - -
    -
    -
    - - - - - - - - - - - - -
    -
    - +
    +
    +
    + + Pago de Facturas +
    +
    +
    +
    +
    +
    +
    +
    Fecha Inicio:
    +
    +
    + + + + + + + + +
    +
    +
    +
    +
    +
    +
    Fecha Fin:
    +
    +
    + + + + + + + + +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + + + +
    +
    + - - - - - - - - - - - - - - - - - -
    -
    -
    -
    - - Consumos -
    -
    -
    -
    - <%-- Generar PDF--%> -
    -
    -
    -
    - - -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - + + + + + + + + + + +
    +
    + + + + + + + + + + + + + + + + + +
    +
    +
    +
    + + Consumos +
    +
    +
    +
    + <%-- Generar PDF--%> +
    +
    +
    +
    + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + Factura - - - - - - - - + + + + + + + + + Producto - - - - - - - - + + + + + + + + + Unidad de medida - - - - - - - - + + + + + + + + + Cantidad - - - - - - - - + + + + + + + + + PU - - - - - - - - + + + + + + + + + Total - - - - - - - -
    -
    -
    - -
    - - <%----%> - -
    -
    -
    - - - -
    -
    -
    - - Documentos Firma de contratos -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + +
    +
    +
    + +
    + + <%----%> + + + +
    + + + +
    +
    +
    + + Documentos Firma de contratos +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- - --%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Gafete - - -
    Contrato - - -
    Carta de Trabajo - - -
    Solicitud de Vacaciones - - -
    Acta Administrativa - - -
    Finiquito - - -
    Carta de Recomendación - - -
    -
    - - - -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - -
    -
    -
    -
    -
    - - Datos GES -
    -
    -
    -
    -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    DEPENDENCIA: - -
    ADSCRIPCION: - -
    CLAVE PPTAL: - -
    UBICACION: - -
    - -
    PUESTO: - -
    ESTATUS: - - - - - - - -
    SINDICATO: - - - -
    TIPO PLAZA: - - - - - -
    INDOLE: - - ANTIGUEDAD: - -
    -
    -
    -
    -
    - -
    -
    - - - - -
    -
    -
    - - Sistema -
    -
    -
    -
    -
    -
    - -
    -
    - - - - - - - - - -
    Fecha de Captura: -
    Usuario Capturó: -
    -
    -
    -
    -
    - - - - -
    -
    -
    - - Cursos -
    -
    -
    -
    -
    -
    - -
    -
    - - - - - - - - - - - - - - - - - - - - -
    -
    - - - -
    -
    - - - - -
    -
    -
    - - Viáticos -
    -
    -
    -
    -
    -
    -
    -
    - - - --%> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    Gafete + + +
    Contrato + + +
    Carta de Trabajo + + +
    Solicitud de Vacaciones + + +
    Acta Administrativa + + +
    Finiquito + + +
    Carta de Recomendación + + +
    +
    + + + +
    +
    +
    + + +
    +
    +
    +
    +
    + + + + +
    +
    +
    +
    +
    + + Datos GES +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    DEPENDENCIA: + +
    ADSCRIPCION: + +
    CLAVE PPTAL: + +
    UBICACION: + +
    + +
    PUESTO: + +
    ESTATUS: + + + + + + + +
    SINDICATO: + + + +
    TIPO PLAZA: + + + + + +
    INDOLE: + + ANTIGUEDAD: + +
    +
    +
    +
    +
    + +
    +
    + + + + +
    +
    +
    + + Sistema +
    +
    +
    +
    +
    +
    + +
    +
    + + + + + + + + + +
    Fecha de Captura: +
    Usuario Capturó: +
    +
    +
    +
    +
    + + + + +
    +
    +
    + + Cursos +
    +
    +
    +
    +
    +
    + +
    +
    + + + + + + + + + + + + + + + + + + + + +
    +
    + + + +
    +
    + + + + +
    +
    +
    + + Viáticos +
    +
    +
    +
    +
    +
    +
    +
    + + + - - - <%----%> - - Folio - - - - - - - - - - - - - - - - - - - - - -
    -
    -
    -
    - - -
    -
    -
    - - Licencias -
    -
    -
    -
    -
    -
    -
    -
    - - - - - - - - - - - <%----%> - - - - - - - - - - - - - -
    -
    - - - -
    -
    - - - + NombreSupervisor, Destino, Asunto, FechaSalida, FechaRegreso, FechaIng, CveUsuarioIng, UsuarioIng, CiudadPersonal, TelefonoPersonal, Importe" + CssClass=" table table-striped table-advance table-hover Widthall" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" + AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> + + + <%----%> + + Folio + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    + + +
    +
    +
    + + Licencias +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + <%----%> + + + + + + + + + + + + + +
    +
    + + + +
    +
    + +
    +
    <%-- - --%> -
    -
    - - - - - - - - - -
    - - + + + + + <%-- FIN MODAL SUBIR FACTURAS --%> + <%-- - --%> - - - - - - - - - - - <%-- MODAL Licencia --%> - - - - + + + +
    + + + + + - + +
    diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index d1fe3b2f4..9cfdf863e 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -620,139 +620,143 @@ Partial Class RH_Personal Const wdCharacter As Integer = 1 'Configuración Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not IsPostBack Then - ViewState("Orden") = "" - ViewState("Orden1") = "" - Session("FileUpload") = "" - ViewState("Archivo") = "" - DTConsumos = Nothing - - If UsuarioActual.CveRol = 1 Or UsuarioActual.CveEmpresa = 74 Then - TabGES.Visible = True - End If - - SetValues() - 'SetPermisos() - - CargaEscolaridad() - CargaEstadoCivil() - CargaDepartamento() - CargaPuestos() - CargaEstatusPersonal() - CargaGenero() - CargaMotivoBaja() - CargaRuta() - CargaTiposContrato() - CargaTipoPeriodo() - CargaTurno() - CargaJornadas() - CargaProyecto() - CargaTiposAsistencia() - 'CargaMotivoHoraExtra() - CargaMotivosHorasExtras() - CargaSupervisores() - CargaMetodosPago() - CargaTipoRegimen() - CargaRiesgoPuesto() - CargaBancos() - CargaSubProyectosZona() - CargaEstados(1) - CargaMonedas() - CargaSuperioresOrganigrama() - CargaUsuariosNomina() - CargaComboUniformes() - CargaPermisos() - CargaCombosBuzon() - CargaPermisosReemplazos() - - - If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then - ViewState("CvePersonal") = Request("CvePersonal") - 'CvePersonal = ViewState("CvePersonal").ToString.ToEntero - CargaDatos() - CargaDocumentacionFirmaDecontratos() - 'LnkAddLicencias.Visible = True - 'TabLicencias.Visible = True - 'Configuración de Modalidad Update - BtnGuardar.Text = "Guardar Cambios" - LtlTitulo.Text = "Consulta de Personal:" - If UsuarioActual.CveRol = 1 Then - 'ImgImprimir.Visible = True - ImgImprimirExpediente.Visible = True - End If - - 'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ") - If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero - 1 - - 'Inicia Permisos - If UsuarioActual.TienePermisoProceso(228) Then - GVAsistencia.Columns(10).Visible = True - End If - 'Fin Permisos - HlEvento.Visible = True - HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;" - - CargaViaticosPersonal() - - divBitacora.Visible = True - CargaGvBitacora() - Else - - 'Configuración de Modalidad Insert - - ImgAddObs.Visible = False - LblFechaCaptura.Text = Now.ToShortDateString() - LblUsuarioCapturo.Text = UsuarioActual.Usuario - ViewState("CvePersonal") = -1 - BtnEliminar.Visible = False - CarcaConceptosNomina() - For Each Gvr As GridViewRow In GVConceptos.Rows - If CBool(Gvr.DataKey("Obligatorio")) Then - Gvr.FCCheckBox("ChkAplica").Checked = True - Else - Gvr.Visible = False - End If - Next - 'Inicia Permisos - 'Fin Permisos - End If - CargaCuentasBancarias() - - If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then - - CrearEstructuraFamiliares() - CargaFamiliares() - - LIFamiliaresAcciones.Visible = True - DivFamiliares.Visible = True - DivPadres.Visible = False - - + If Not IsPostBack Then + If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then + pnlSalarioIMSS.Visible = False End If + ViewState("Orden") = "" + ViewState("Orden1") = "" + Session("FileUpload") = "" + ViewState("Archivo") = "" + DTConsumos = Nothing + + If UsuarioActual.CveRol = 1 Or UsuarioActual.CveEmpresa = 74 Then + TabGES.Visible = True + End If + + SetValues() + 'SetPermisos() + + CargaEscolaridad() + CargaEstadoCivil() + CargaDepartamento() + CargaPuestos() + CargaEstatusPersonal() + CargaGenero() + CargaMotivoBaja() + CargaRuta() + CargaTiposContrato() + CargaTipoPeriodo() + CargaTurno() + CargaJornadas() + CargaProyecto() + CargaTiposAsistencia() + 'CargaMotivoHoraExtra() + CargaMotivosHorasExtras() + CargaSupervisores() + CargaMetodosPago() + CargaTipoRegimen() + CargaRiesgoPuesto() + CargaBancos() + CargaSubProyectosZona() + CargaEstados(1) + CargaMonedas() + CargaSuperioresOrganigrama() + CargaUsuariosNomina() + CargaComboUniformes() + CargaPermisos() + CargaCombosBuzon() + CargaPermisosReemplazos() + + + If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then + ViewState("CvePersonal") = Request("CvePersonal") + 'CvePersonal = ViewState("CvePersonal").ToString.ToEntero + CargaDatos() + CargaDocumentacionFirmaDecontratos() + 'LnkAddLicencias.Visible = True + 'TabLicencias.Visible = True + 'Configuración de Modalidad Update + BtnGuardar.Text = "Guardar Cambios" + LtlTitulo.Text = "Consulta de Personal:" + If UsuarioActual.CveRol = 1 Then + 'ImgImprimir.Visible = True + ImgImprimirExpediente.Visible = True + End If + + 'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ") + If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero - 1 + + 'Inicia Permisos + If UsuarioActual.TienePermisoProceso(228) Then + GVAsistencia.Columns(10).Visible = True + End If + 'Fin Permisos + HlEvento.Visible = True + HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;" + + CargaViaticosPersonal() + + divBitacora.Visible = True + CargaGvBitacora() + Else + + 'Configuración de Modalidad Insert + + ImgAddObs.Visible = False + LblFechaCaptura.Text = Now.ToShortDateString() + LblUsuarioCapturo.Text = UsuarioActual.Usuario + ViewState("CvePersonal") = -1 + BtnEliminar.Visible = False + CarcaConceptosNomina() + For Each Gvr As GridViewRow In GVConceptos.Rows + If CBool(Gvr.DataKey("Obligatorio")) Then + Gvr.FCCheckBox("ChkAplica").Checked = True + Else + Gvr.Visible = False + End If + Next + 'Inicia Permisos + 'Fin Permisos + End If + CargaCuentasBancarias() + + If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then + + CrearEstructuraFamiliares() + CargaFamiliares() + + LIFamiliaresAcciones.Visible = True + DivFamiliares.Visible = True + DivPadres.Visible = False + + + End If - 'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago - ' HplAbonarMasivo.Visible = True - ' GvGxC.Columns(7).Visible = True - 'End If + + 'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago + ' HplAbonarMasivo.Visible = True + ' GvGxC.Columns(7).Visible = True + 'End If - If Not CvePersonal > 0 Then - DivSuperiorInmediato.Visible = False - End If - - '09/05/2018 - Si el Personal tiene consumos, muestra boton para generar reporte - If DTConsumos IsNot Nothing Then - If DTConsumos.Rows.Count > 0 Then - UpDescargaConsumos.Visible = True - End If - End If - CargaLicencias() - - End If - AgregarEventosAsincronosGvVacaciones() + If Not CvePersonal > 0 Then + DivSuperiorInmediato.Visible = False + End If + + '09/05/2018 - Si el Personal tiene consumos, muestra boton para generar reporte + If DTConsumos IsNot Nothing Then + If DTConsumos.Rows.Count > 0 Then + UpDescargaConsumos.Visible = True + End If + End If + CargaLicencias() + + End If + AgregarEventosAsincronosGvVacaciones() End Sub Private Sub CargaCuentasContables() @@ -1089,22 +1093,9 @@ Partial Class RH_Personal End Sub Protected Sub GVAsistencia_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAsistencia.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - - If e.Row.RowIndex = 0 Then - e.Row.Cells(0).Width = Unit.Pixel(120) - e.Row.Cells(1).Width = Unit.Pixel(180) - e.Row.Cells(2).Width = Unit.Pixel(110) - e.Row.Cells(3).Width = Unit.Pixel(110) - e.Row.Cells(4).Width = Unit.Pixel(70) - e.Row.Cells(5).Width = Unit.Pixel(50) - e.Row.Cells(6).Width = Unit.Pixel(56) - e.Row.Cells(7).Width = Unit.Pixel(56) - e.Row.Cells(8).Width = Unit.Pixel(110) - e.Row.Cells(9).Width = Unit.Pixel(90) - e.Row.Cells(10).Width = Unit.Pixel(60) - End If - + If e.Row.RowType = DataControlRowType.DataRow Then + + e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left @@ -1441,6 +1432,9 @@ Partial Class RH_Personal End If End If + If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then + TxtSalarioCotizado.Text = TxtSDI.Text + End If If CvePersonal = -1 Then URL = "" @@ -2183,32 +2177,46 @@ Partial Class RH_Personal e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(3).Text = "Calculado" e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False : e.Row.Cells(4).Text = "Permanente" Else - If e.Row.DBCampo("TipoAplicacion").ToEntero > 5 Then - e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValue = "2600" - Else - e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValue = e.Row.DBCampo("TipoAplicacion") - End If + Dim TipoAplicacion As String = e.Row.DBCampo("TipoAplicacion").ToString() + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Clear() + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Seleccione", "-1")) + If (e.Row.DBCampo("CveSistema").ToString() = "3") Then + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Movto Permanente)", "5000")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Porcentaje)", "5001")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Factor Descuento)", "5002")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Infonavit(Cuota Fija)", "5003")) + Else + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Saldo", "1")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("No. Pagos", "2")) + e.Row.FCDropDownList("DdlTipoAplicacion").Items.Add(New ListItem("Permanente", "2600")) + End If + + + If e.Row.DBCampo("TipoAplicacion").ToEntero > 5 Then + TipoAplicacion = "2600" + End If + e.Row.FCDropDownList("DdlTipoAplicacion").SelectedValueExist(TipoAplicacion) + End If + + 'If e.Row.DBCampo("TipoCalculo") = "False" Then + ' e.Row.FCTextBox("TxtImporte").Visible = False + ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False + 'Else + ' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero + ' Case 1 + ' 'Saldo + ' e.Row.FCLiteral("LtlSaldo").Visible = True + ' e.Row.FCTextBox("TxtSaldoIni").Visible = True + ' Case 2 + ' 'Numero de Pagos + ' e.Row.FCLiteral("LtlNoPago").Visible = True + ' e.Row.FCTextBox("TxtNoPagos").Visible = True + ' Case 2600 + ' 'Permanente + ' End Select + 'End If + End If - - 'If e.Row.DBCampo("TipoCalculo") = "False" Then - ' e.Row.FCTextBox("TxtImporte").Visible = False - ' e.Row.FCDropDownList("DdlTipoAplicacion").Visible = False - 'Else - ' Select Case e.Row.DBCampo("TipoAplicacion").ToEntero - ' Case 1 - ' 'Saldo - ' e.Row.FCLiteral("LtlSaldo").Visible = True - ' e.Row.FCTextBox("TxtSaldoIni").Visible = True - ' Case 2 - ' 'Numero de Pagos - ' e.Row.FCLiteral("LtlNoPago").Visible = True - ' e.Row.FCTextBox("TxtNoPagos").Visible = True - ' Case 2600 - ' 'Permanente - ' End Select - 'End If - - End If End Sub Protected Sub BtnGuardarInfornavit_Click(sender As Object, e As EventArgs) @@ -5874,4 +5882,11 @@ Partial Class RH_Personal #End Region + Protected Sub DdlTipoAsistencias_SelectedIndexChanged(sender As Object, e As EventArgs) + Dim ddl As DropDownList = DirectCast(sender, DropDownList) + Dim gvrow As GridViewRow = DirectCast(ddl.NamingContainer, GridViewRow) + If ddl.SelectedItem.Text = "Retardo" Then + gvrow.FCTextBox("TxtPorPago").Text = "87.5" + End If + End Sub End Class diff --git a/Scripts/custom.js b/Scripts/custom.js index 5ef8508ee..e009ab938 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -1697,6 +1697,32 @@ function loadsortadscroll() { }); } +var listaADScroller = []; + +function saveposicionADScroller() { + $('.ADScroller-body>table').each(function () { + let _this = $(this); + let id = _this.attr("id"); + let scrollleft = $(_this.parent()).scrollLeft(); + let scrolltop = $(_this.parent()).scrollTop(); + listaADScroller.push({ id: id, scrollleft: scrollleft, scrolltop: scrolltop }) + }); +} +function setposicionADScroller() { + + setTimeout( + function () { + listaADScroller.forEach(function (_this) { + let id = _this.id; + let scrollleft = _this.scrollleft; + let scrolltop = _this.scrolltop; + $($('#' + id).parent()).scrollLeft(scrollleft); + $($('#' + id).parent().parent()).find('> .ADScroller-header').scrollLeft(scrollleft); + $($('#' + id).parent()).scrollTop(scrolltop); + }); + }, 99); +} + function loaderinit() { setTimeout( @@ -1727,7 +1753,6 @@ jQuery(document).ready(function () { setTimeout(loadadscroll, 10) }); - loadsortadscroll(); QuickSidebar.init(); @@ -1804,6 +1829,8 @@ jQuery(document).ready(function () { prm.add_initializeRequest(function (s, e) { objscollapse = $('.portlet-title .collapse').closest('.portlet[id]'); objsexpand = $('.portlet-title .expand').closest('.portlet[id]'); + + saveposicionADScroller(); loaderinit(); }); prm.add_endRequest(function (s, e) { @@ -1816,6 +1843,7 @@ jQuery(document).ready(function () { Metronic.initAjax(); loadjquerys(); loaderEnd(); + setposicionADScroller(); error = false; }); ADSSignalR(); diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 423ebafff..6c69e20bd 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2658,22 +2658,50 @@
    -
    - + +
    + +
    +
    + - - + + - + + + + + + + + + + + + +
    + + <%--
    +
    +
    + +
    + + +
    +
    --%> +
    @@ -3134,8 +3162,7 @@ $("#DivAnticipos").show(); $("#DivAnticipos").center(); } - catch (e) - { alert(e); } + catch (e) { alert(e); } } @@ -3144,8 +3171,7 @@ $("#ModalOtrosConceptos").show(); $("#ModalOtrosConceptos").center(); } - catch (e) - { alert(e); } + catch (e) { alert(e); } } @@ -3155,8 +3181,7 @@ $("#DivEstadoCaja").show(); $("#DivEstadoCaja").center(); } - catch (e) - { alert(e); } + catch (e) { alert(e); } } @@ -3169,8 +3194,7 @@ return false; } - catch (e) - { alert(e); } + catch (e) { alert(e); } } @@ -3189,8 +3213,7 @@ $get("HdnTipoMovimiento").value = "1"; } } - catch (e) - { alert(e); } + catch (e) { alert(e); } } diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index d2cadd606..44c9de66e 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -2770,6 +2770,13 @@ Partial Class PV 'Muestra la tabla de tamaños If drPS("CveTamaño").ToString().ToEntero() > 0 Then DivRecepcionUsados.Visible = True + If DdlTipoComprobante.SelectedValue <> "Rem" Then + GvRecepcionUsados.Columns(2).Visible = False + GvRecepcionUsados.Columns(3).Visible = False + Else + GvRecepcionUsados.Columns(2).Visible = True + GvRecepcionUsados.Columns(3).Visible = True + End If End If DdlUnidadMedida.Items.Clear() @@ -3598,6 +3605,7 @@ Partial Class PV Private Sub CargaAgregar() Modalidad = "A" LnkAgregarPS.Text = "Agregar" + CargaBCI() LimpiaAgregar() LimpiaAjuste() ModalidadAjuste = "A" @@ -3606,6 +3614,16 @@ Partial Class PV UpVenta.Update() RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddVenta")) End Sub + Private Sub CargaBCI() + 'Dim ObjGral As New ClsGenerales + + 'If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then + ' DdlBCIUsado.DataSource = ObjGral.DtResultados + 'End If + 'DdlBCIUsado.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlBCIUsado.SelectedValueExist(-1) + 'DdlBCIUsado.DataBind() + End Sub Public Sub Edit_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Modalidad = "U" @@ -4893,6 +4911,7 @@ Partial Class PV GvRecepcionUsados.DataSource = DtTamanios GvRecepcionUsadosModal.DataSource = DtTamanios + DdlFolioGarantia.DataBind() DdlTipoUso.DataBind() DdlTipoDefecto.DataBind() @@ -4908,6 +4927,25 @@ Partial Class PV DivChkAjuste.Visible = True End Sub + Protected Sub GvRecepcionUsados_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvRecepcionUsados.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + Dim ObjGral As New ClsGenerales + If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then + e.Row.FCDropDownList("DdlBCIUsado").DataSource = ObjGral.DtResultados + End If + 'DdlBCIUsado.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlBCIUsado.SelectedValueExist(-1) + e.Row.FCDropDownList("DdlBCIUsado").DataBind() + 'e.Row.FCDropDownList("DdlBCIUsado").SelectedValue = e.Row.DBCampo("CveBCIUsado") + + If ObjGral.ModelosAutosGet(UsuarioActual.CveEmpresa) Then + e.Row.FCDropDownList("DdlModeloAuto").DataSource = ObjGral.DtResultados + End If + e.Row.FCDropDownList("DdlModeloAuto").DataBind() + End If + End Sub + Private Sub CargaPSAjuste() DdlPSAjuste.Items.Clear() DtPUFacturas.Rows.Clear() @@ -5266,6 +5304,8 @@ Partial Class PV TmpDTRecepcionUsados.Columns.Add("CveUM", GetType(Integer)) TmpDTRecepcionUsados.Columns.Add("CveVentaDetalle", GetType(Integer)) TmpDTRecepcionUsados.Columns.Add("PU", GetType(Double)) + TmpDTRecepcionUsados.Columns.Add("CveBCIUsado", GetType(Integer)) + TmpDTRecepcionUsados.Columns.Add("CveModeloAuto", GetType(Integer)) End Sub Protected Sub BtnRecepcionUsados_Click(sender As Object, e As EventArgs) @@ -5308,6 +5348,8 @@ Partial Class PV Row("CveUM") = Gvr.DataKey("CveUM").ToEntero Row("CveVentaDetalle") = -1 Row("PU") = Gvr.DataKey("Cargo").ToDouble + Row("CveBCIUsado") = Gvr.FCDropDownList("DdlBCIUsado").SelectedValue.ToEntero + Row("CveModeloAuto") = Gvr.FCDropDownList("DdlModeloAuto").SelectedValue.ToEntero TmpDTRecepcionUsados.Rows.Add(Row) End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e5c3f76e1..c58e67a7c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3442,7 +3442,7 @@ Partial Class Ventas LblAlertRefacInv.Visible = True End If - If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev", "Rem", "DPe") AndAlso Not CveEstatus.Contiene(4, 5, 12, 13, 20) Then + If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev", "Rem", "DPe", "RNC") AndAlso Not CveEstatus.Contiene(4, 5, 12, 13, 20) Then If UsuarioActual.TienePermisoProceso(159) Then Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto"))) If TienePermiso <> "" Then @@ -14965,6 +14965,7 @@ Partial Class Ventas Else OcurrioError = True + Alert("Error traspaso almacen(sin Movtos. Detalle). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) End If MovDetalle.Dispose() @@ -15106,6 +15107,7 @@ Partial Class Ventas Dim CveVentaDetalle = If(ConceptoEntrada = 3, TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"Consec={Consec}").ToEntero, MovDet("CveVentaDetalle").ToString.ToEntero) 'CUANDO LA VENTADETALLE NO TENGA VALOR DEBE MARCAR ERROR, NUEVA RESTRICCION DE ALMACEN If CveVentaDetalle < 0 Then + Alert("no se encontro la venta detalle. Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) OcurrioError = True Exit For End If @@ -15164,6 +15166,7 @@ Partial Class Ventas 'End If Catch ex As Exception OcurrioError = True + Alert("Error inesperado (15147). Por favor comuniquese con atención SIG.", TipoMensaje.ToastError) End Try Cont += 1 Next @@ -17670,7 +17673,7 @@ Partial Class Ventas 'End If - If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then + If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs", "RNC") Then Dim sb As New StringBuilder() sb.Append("La factura se encuentra en el siguiente estatus del SAT:
    ")