From ae3911025784e243c2d283a05af1f49e9440f0ea Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 11 Oct 2019 07:53:12 -0700 Subject: [PATCH 01/17] --- App_Code/ClsPaginas.vb | 25 ++----------------------- 1 file changed, 2 insertions(+), 23 deletions(-) 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)) From 0bd1f7f4fed2d1b1511a2fe0f122c44843c5bb83 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 11 Oct 2019 11:26:42 -0500 Subject: [PATCH 02/17] Ordenes de servicio actualizado --- OS/OrdenesServicios.aspx.vb | 228 ++++++++++++++++++++---------------- 1 file changed, 128 insertions(+), 100 deletions(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 5d3a25309..f4b7bab7e 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -238,6 +238,15 @@ Partial Class OS_OrdenesServicios ViewState("MensajeAlert") = value End Set End Property + + Private Property CveTecnico As Integer + Get + Return ViewState("CveTecnico").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveTecnico") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -270,18 +279,6 @@ Partial Class OS_OrdenesServicios CreaDtMaterialesDetalle() CreaDtSolicitarMateriales() CveSub = -1 - 'Carga estatus - Dim ObjEstatusPermisos As New ClsOS - If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados - Dim PermisoEstatus As New DataTable - PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1") - If PermisoEstatus.Rows.Count = 0 Then - UpGuardar.Visible = False - End If - End If - ObjEstatusPermisos.Dispose() - CargaEstatusOS(2) 'Carga cliente If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then @@ -315,6 +312,8 @@ Partial Class OS_OrdenesServicios 'Carga OS If CveOS > 0 Then + + CargaEstatusOS() CargaDatos() 'PermisosSegunEstatus() CargaDetalles() @@ -454,33 +453,45 @@ Partial Class OS_OrdenesServicios TxtFechaRecibido.Text = ObjOS.FechaRecepcion.ToString CveFolio = ObjOS.Folio LblFolio.Text = ObjOS.Folio.ToString - DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString + DdlSubProyecto.SelectedValueExist(ObjOS.CveSubProyecto) DdlTipoOrdenOS.SelectedValueExist(ObjOS.CveOSTipo) DdlSucursalCliente.SelectedValueExist(ObjOS.CveClienteSucursal) TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero SeFacturara = GlobalDTTipoOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SeFacturara", String.Format("CveOrdenServicioTipo = {0}", ObjOS.CveOSTipo)) - - If TipoEstatus = 2 Then - LnkTecnico.Visible = True + CveTecnico = ObjOS.CveUsuarioAtendio + CargarEstatusDelUsuario() + Dim validacionTieneEstatus As Integer = EstatusOSDelUsuario.FiltraParametros(String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio)).Rows.Count + If validacionTieneEstatus > 0 Then + DdlEstatusOS.Items.Clear() + DdlEstatusOS.DataSource = EstatusOSDelUsuario + DdlEstatusOS.DataBind() + Else + CargaEstatusOS() + DdlEstatusOS.Enabled = False End If + DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString - If TipoEstatus = 3 Then - DisableAll() + 'If TipoEstatus = 2 Then + ' LnkTecnico.Visible = True + 'End If - If SeFacturara = "True" Then - HplFacturar.Visible = True - If ObjOS.CveCotizacion > 0 Then - HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion) - Else - HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS) - End If - End If + 'If TipoEstatus = 3 Then + ' DisableAll() - ElseIf TipoEstatus = 4 Then - DisableAll() - End If + ' If SeFacturara = "True" Then + ' HplFacturar.Visible = True + ' If ObjOS.CveCotizacion > 0 Then + ' HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", ObjOS.CveCotizacion) + ' Else + ' HplFacturar.NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveOS={0}", CveOS) + ' End If + ' End If + + 'ElseIf TipoEstatus = 4 Then + ' DisableAll() + 'End If DivCliente.Attributes.Add("class", "col-md-8") DivFolio.Visible = True @@ -662,11 +673,11 @@ Partial Class OS_OrdenesServicios RegistraScript("OrdenarGVMateriales();") End If End Sub - Private Sub CargaEstatusOS(ValorSeleccionado As Integer) + Private Sub CargaEstatusOS() DdlEstatusOS.Items.Clear() - DdlEstatusOS.DataSource = EstatusOSDelUsuario + DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) DdlEstatusOS.DataBind() - DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC") + 'DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC") End Sub Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList) Objeto.Items.Clear() @@ -876,6 +887,19 @@ Partial Class OS_OrdenesServicios GvPS.DataSource = TmpDT GvPS.DataBind() End Sub + + Private Sub CargarEstatusDelUsuario() + Dim ObjEstatusPermisos As New ClsOS + If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then + EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados + Dim PermisoEstatus As New DataTable + PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1") + If PermisoEstatus.Rows.Count = 0 Then + UpGuardar.Visible = False + End If + End If + ObjEstatusPermisos.Dispose() + End Sub #End Region #Region "BUSCAR CLIENTE " @@ -1031,83 +1055,87 @@ Partial Class OS_OrdenesServicios End If Else + If CveTecnico = UsuarioActual.CveUsuario Then + If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then + For Each Row As DataRow In TmpDT.Rows + If Not Errores Then + Dim CvePS As Integer = Row("CvePS").ToString.ToEntero + Dim CveOSDetalle As Integer = Row("CveOSDetalle").ToString.ToEntero + Dim Observaciones As String = Row("Observaciones").ToString + Dim SeFacturara As Boolean = CBool(Row("SeFacturara").ToString) + Dim Estatus As Boolean = CBool(Row("Estatus").ToString) + Dim SeSuperviso As Boolean = CBool(Row("SeSuperviso").ToString) + Dim CveCuentaEquipo As Integer = Row("CveCuentaEquipo").ToString.ToEntero + Dim Especificaciones As String = Row("Especificaciones").ToString + Dim ComentarioTecnico As String = Row("ComentarioTecnico").ToString + Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero + Dim Archivo As New System.IO.FileInfo(Row("Archivo").ToString) + Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1) + Dim FechaEntrega As String = If(Entregar = True, Now.ToString("dd/MM/yyy"), "-1") + Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero + CveConsecutivo = Consecutivo - If ObjOrdenServicio.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaRecibido.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, DdlEstatusOS.SelectedValue.ToEntero, CveOS, UsuarioActual.CveUsuario, DdlTipoOrdenOS.SelectedValue.ToEntero, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then - For Each Row As DataRow In TmpDT.Rows - If Not Errores Then - Dim CvePS As Integer = Row("CvePS").ToString.ToEntero - Dim CveOSDetalle As Integer = Row("CveOSDetalle").ToString.ToEntero - Dim Observaciones As String = Row("Observaciones").ToString - Dim SeFacturara As Boolean = CBool(Row("SeFacturara").ToString) - Dim Estatus As Boolean = CBool(Row("Estatus").ToString) - Dim SeSuperviso As Boolean = CBool(Row("SeSuperviso").ToString) - Dim CveCuentaEquipo As Integer = Row("CveCuentaEquipo").ToString.ToEntero - Dim Especificaciones As String = Row("Especificaciones").ToString - Dim ComentarioTecnico As String = Row("ComentarioTecnico").ToString - Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero - Dim Archivo As New System.IO.FileInfo(Row("Archivo").ToString) - Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1) - Dim FechaEntrega As String = If(Entregar = True, Now.ToString("dd/MM/yyy"), "-1") - Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero - CveConsecutivo = Consecutivo - - If CveOSDetalle > 0 Then - If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalle(CvePS, Cantidad, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, ComentarioTecnico, CveCuentaEquipo, Archivo.Name, "-1", FechaEntrega, CveOSDetalle, CveOS) Then - Errores = True - End If - Else - CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=Archivo.Name) - If Not CveOSDetalle > 0 Then Errores = True - - End If - - If Archivo.Name <> "-1" Then - 'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext - Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension))) - - If ArchivoFinal.Exists() Then - ArchivoFinal.Delete() - End If - - 'Mover el archivo de los temporales a OS - System.IO.File.Move(UsuarioActual.Empresa.Ruta & "\OS\Temp\" & Archivo.Name, UsuarioActual.Empresa.Ruta & "\OS\Archivos\" & ArchivoFinal.Name) - - If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalleArchivo(ArchivoFinal.Name, ObjOrdenServicio.CveOSDetalle) Then - Errores = True - End If - End If - - If TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows.Count > 0 Then - - For Each RowE As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows - Dim CveCaracteristicaValor As Integer = RowE("CveCaracteristicaValor").ToString.ToEntero - Dim CveCaracteristica As Integer = RowE("CveCaracteristica").ToString.ToEntero - Dim CveOpcion As Integer = RowE("CveOpcion").ToString.ToEntero - Dim Valor As String = RowE("Valor").ToString - - If Not ObjGenerales.AddUpdateCaracteristicasValores(CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario, CveCaracteristicaValor:=CveCaracteristicaValor, CveOSDetalle:=CveOSDetalle) Then + If CveOSDetalle > 0 Then + If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalle(CvePS, Cantidad, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, ComentarioTecnico, CveCuentaEquipo, Archivo.Name, "-1", FechaEntrega, CveOSDetalle, CveOS) Then Errores = True End If - Next - End If + Else + CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=Archivo.Name) + If Not CveOSDetalle > 0 Then Errores = True - If TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveOSDetalle = {0}", CveOSDetalle)).Rows.Count > 0 Then - For Each RowM As DataRow In TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveOSDetalle = {0}", CveOSDetalle)).Rows - Dim CveMaterial As Integer = RowM("CveMaterial").ToString.ToEntero + End If - Dim CveClasificacion As Integer = RowM("CveClasificacion").ToString.ToEntero - Dim CvePSMaterial As Integer = RowM("CvePS").ToString.ToEntero - Dim CveUnidadMedidaM As Integer = RowM("CveUM").ToString.ToEntero - Dim CantidadMaterial As Integer = RowM("Cantidad").ToString.ToEntero + If Archivo.Name <> "-1" Then + 'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext + Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension))) - If Not ObjOrdenServicio.AddUpdateDetalleMateriales(CveMaterial, CveOSDetalle, CantidadMaterial, CveUnidadMedidaM, CveClasificacion, CvePSMaterial, SeFacturara) Then + If ArchivoFinal.Exists() Then + ArchivoFinal.Delete() + End If + + 'Mover el archivo de los temporales a OS + System.IO.File.Move(UsuarioActual.Empresa.Ruta & "\OS\Temp\" & Archivo.Name, UsuarioActual.Empresa.Ruta & "\OS\Archivos\" & ArchivoFinal.Name) + + If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalleArchivo(ArchivoFinal.Name, ObjOrdenServicio.CveOSDetalle) Then Errores = True End If - Next + End If + + If TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows.Count > 0 Then + + For Each RowE As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows + Dim CveCaracteristicaValor As Integer = RowE("CveCaracteristicaValor").ToString.ToEntero + Dim CveCaracteristica As Integer = RowE("CveCaracteristica").ToString.ToEntero + Dim CveOpcion As Integer = RowE("CveOpcion").ToString.ToEntero + Dim Valor As String = RowE("Valor").ToString + + If Not ObjGenerales.AddUpdateCaracteristicasValores(CveCaracteristica, CveOpcion, Valor, UsuarioActual.CveUsuario, CveCaracteristicaValor:=CveCaracteristicaValor, CveOSDetalle:=CveOSDetalle) Then + Errores = True + End If + Next + End If + + If TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveOSDetalle = {0}", CveOSDetalle)).Rows.Count > 0 Then + For Each RowM As DataRow In TmpDTMaterialesDetalle.FiltraParametros(String.Format("CveOSDetalle = {0}", CveOSDetalle)).Rows + Dim CveMaterial As Integer = RowM("CveMaterial").ToString.ToEntero + + Dim CveClasificacion As Integer = RowM("CveClasificacion").ToString.ToEntero + Dim CvePSMaterial As Integer = RowM("CvePS").ToString.ToEntero + Dim CveUnidadMedidaM As Integer = RowM("CveUM").ToString.ToEntero + Dim CantidadMaterial As Integer = RowM("Cantidad").ToString.ToEntero + + If Not ObjOrdenServicio.AddUpdateDetalleMateriales(CveMaterial, CveOSDetalle, CantidadMaterial, CveUnidadMedidaM, CveClasificacion, CvePSMaterial, SeFacturara) Then + Errores = True + End If + Next + End If End If - End If - Next + Next + Else + Errores = True + End If Else + Alert("No tienes permisos para modificar esta Orden de Servicio", TipoMensaje.MsgAdvertencia) Errores = True End If @@ -1209,7 +1237,7 @@ Partial Class OS_OrdenesServicios TxtSolicito.Text = "" TxtFechaRecibido.Text = "" TxtDescripcion.Text = "" - CargaEstatusOS(2) + CargaEstatusOS() GvPS.DataSource = Nothing GvPS.DataBind() From 762781fea491be6bdfb5a6cf937d509edfe985a9 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 11 Oct 2019 17:18:21 -0700 Subject: [PATCH 03/17] Cambios Nominas --- Empresas/Grales/Formatos/SobreRecibo.rdlc | 4845 +++++++++++++++++++++ 1 file changed, 4845 insertions(+) create mode 100644 Empresas/Grales/Formatos/SobreRecibo.rdlc diff --git a/Empresas/Grales/Formatos/SobreRecibo.rdlc b/Empresas/Grales/Formatos/SobreRecibo.rdlc new file mode 100644 index 000000000..ca5a32cab --- /dev/null +++ b/Empresas/Grales/Formatos/SobreRecibo.rdlc @@ -0,0 +1,4845 @@ + + + + + + + + + 1.08889cm + + + 3.12306cm + + + 2.5cm + + + 0.71847cm + + + 2.68521cm + + + 1.01833cm + + + 2.89625cm + + + 2.5cm + + + 0.72729cm + + + 3.00271cm + + + + + 0.6cm + + + + + true + true + + + + + COMPUPROVEEDORES SA DE CV + + + + 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/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 24c458fb8..dcfc698a1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14944,6 +14944,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() @@ -15085,6 +15086,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 @@ -15143,6 +15145,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 From 50a636c315ff19012a2343598a1565b6501b2102 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sat, 12 Oct 2019 14:09:18 -0700 Subject: [PATCH 05/17] --- RH/CatPersonal.aspx | 351 +++++++++++++++++++++++------------------ RH/CatPersonal.aspx.vb | 2 +- 2 files changed, 200 insertions(+), 153 deletions(-) diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 1341ace00..33da2252d 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="RH - Catálogo de Personal" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatPersonal.aspx.vb" ValidateRequest="false" Inherits="RH_CatPersonal" %> +<%@ Page Title="RH - Catálogo de Personal" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatPersonal.aspx.vb" ValidateRequest="false" Inherits="RH_CatPersonal" %> @@ -53,23 +53,23 @@
  • - Nuevo Personal + Nuevo Personal
  • - Imprimir + Imprimir
  • - Excel + Excel
  • - Personalizar + Personalizar
    • -
  • +
  • - + Excel Personalizado @@ -355,7 +355,7 @@ Código - + @@ -625,7 +625,7 @@ + +
    +
    +
    + +
    + + +
    +
    +
    @@ -3134,8 +3145,7 @@ $("#DivAnticipos").show(); $("#DivAnticipos").center(); } - catch (e) - { alert(e); } + catch (e) { alert(e); } } @@ -3144,8 +3154,7 @@ $("#ModalOtrosConceptos").show(); $("#ModalOtrosConceptos").center(); } - catch (e) - { alert(e); } + catch (e) { alert(e); } } @@ -3155,8 +3164,7 @@ $("#DivEstadoCaja").show(); $("#DivEstadoCaja").center(); } - catch (e) - { alert(e); } + catch (e) { alert(e); } } @@ -3169,8 +3177,7 @@ return false; } - catch (e) - { alert(e); } + catch (e) { alert(e); } } @@ -3189,8 +3196,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..b23c44a76 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -3598,6 +3598,7 @@ Partial Class PV Private Sub CargaAgregar() Modalidad = "A" LnkAgregarPS.Text = "Agregar" + CargaBCI() LimpiaAgregar() LimpiaAjuste() ModalidadAjuste = "A" @@ -3606,6 +3607,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" From ff9c270c331a50dadde57ba3a7f138f65f44a2cb Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 14 Oct 2019 15:07:49 -0700 Subject: [PATCH 10/17] No generar cuantas al gregr proveeor cuando tenga funcionalidad de cuenta padre --- Compras/Proveedores.aspx.vb | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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 From cef363fd84f39e56b6884dbfaa9bbbe249b442be Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 15 Oct 2019 10:55:59 -0700 Subject: [PATCH 11/17] Compras Notas de credito concepto 225 , si tiene devolucion mete concepto 225 , ni no tiene se mete el 6 --- Compras/Compras.aspx.vb | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) 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 From 72b3b627cee5472f61ae75e03dc9ebe2465eaa92 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 15 Oct 2019 13:07:04 -0700 Subject: [PATCH 12/17] Guardar Modelo y BCI --- App_Code/ClsVentas.vb | 4 +++- App_Code/Modelos.vb | 2 +- Ventas/PV.aspx | 4 ++-- Ventas/PV.aspx.vb | 18 +++++++++++------- 4 files changed, 17 insertions(+), 11 deletions(-) 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/Modelos.vb b/App_Code/Modelos.vb index cf6f124e3..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 diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index e30c6fe9b..6255bb30d 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2675,7 +2675,7 @@
    -
    +<%--
    @@ -2683,7 +2683,7 @@
    -
    + --%>
    diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index b23c44a76..6a3e1ee10 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -3608,14 +3608,14 @@ Partial Class PV RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddVenta")) End Sub Private Sub CargaBCI() - Dim ObjGral As New ClsGenerales + '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() + '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) @@ -5277,6 +5277,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) @@ -5319,6 +5321,8 @@ Partial Class PV Row("CveUM") = Gvr.DataKey("CveUM").ToEntero Row("CveVentaDetalle") = -1 Row("PU") = Gvr.DataKey("Cargo").ToDouble + Row("CveBCIUsado") = -1 + Row("CveModeloAuto") = -1 TmpDTRecepcionUsados.Rows.Add(Row) End If From 5194963509dfaccb22371f48982e6b755f65d47c Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Tue, 15 Oct 2019 14:14:14 -0700 Subject: [PATCH 13/17] IE cahcar error en treger al eliminar --- App_Code/ClsBancos.vb | 38 ++++++++++++++++++++++++++++---------- Bancos/IE.aspx.vb | 19 ++++++++++++++++--- 2 files changed, 44 insertions(+), 13 deletions(-) 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/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index ca4d6bf13..b4a14655d 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4752,13 +4752,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() From 9943bac98c7926a0a8554dbc762db464edf43ec1 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 15 Oct 2019 14:25:06 -0700 Subject: [PATCH 14/17] Linea de Firmas en ultima pagina --- Empresas/72/Formatos/Entradas.rdlc | 4137 ++++++++++++++-------------- 1 file changed, 2077 insertions(+), 2060 deletions(-) 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 +