diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 4f57d07db..de4c0e719 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1516,7 +1516,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1") As Boolean + Public Function GetKardex(Entrada As Boolean, Salida As Boolean, CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveTiposAlmacen As String, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional AgruparAlmacen As Boolean = False, Optional Serie As String = "-1", Optional CveAlmacenes As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexGet") @@ -1534,6 +1534,8 @@ Public Class ClsInventarios .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@AgruparAlmacen", SqlDbType.Bit).Value = AgruparAlmacen .Add("@Serie", SqlDbType.VarChar).Value = Serie + .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes + End With Try @@ -1551,16 +1553,17 @@ Public Class ClsInventarios End Function - Public Function GetExistenciasProductoSerie(CvePS As Integer, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function GetExistenciasProductoSerie(CvePS As Integer, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveAlmacenes As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciaPSSeriesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes End With Try diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index e3b1f758d..513bb17b4 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2032,6 +2032,107 @@ Public Class ClsNominas End Try Return retorno End Function + +#Region "CRUD_Acumulados" + Public Function GetAcumuladosTipos() As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_TipoAcumuladosGet", CommandType.StoredProcedure) + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function GetAcumulados(cveAcumulado As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_AcumuladosGet", CommandType.StoredProcedure) + Try + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAcumulado", SqlDbType.Int).Value = cveAcumulado + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + End With + + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function AcumuladosAdd(cveTipoAcumulado As Int32, acumulado As String, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_AcumuladosAdd", CommandType.StoredProcedure) + Try + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoAcumulado", SqlDbType.Int).Value = cveTipoAcumulado + .Add("@Acumulado", SqlDbType.VarChar).Value = acumulado + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + End With + + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function AcumuladosUp(cveAcumulado As Int32, cveTipoAcumulado As Int32, acumulado As String, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_AcumuladosUp", CommandType.StoredProcedure) + Try + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAcumulado", SqlDbType.Int).Value = cveAcumulado + .Add("@CveTipoAcumulado", SqlDbType.VarChar).Value = cveTipoAcumulado + .Add("@Acumulado", SqlDbType.Int).Value = acumulado + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + End With + + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function AcumuladosRemove(cveAcumulado As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_AcumuladosRemove", CommandType.StoredProcedure) + Try + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAcumulado", SqlDbType.Int).Value = cveAcumulado + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + End With + + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function +#End Region #Region "MovtosPermanentes" Public Function GetMovtoPermanente(CveEmpresa As Int32, CvePersonal As Integer) As Boolean diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index eb0be2aa0..b8fed70d2 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3747,6 +3747,7 @@ Public Class ClsPaginas If Application("GlobalSIGAppPaginas") Is Nothing Then PaginaDict = New System.Collections.Hashtable + PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), -1) PaginaDict.Add("/Inicio.aspx".ToUpper(), -1) PaginaDict.Add("/reporteador.aspx".ToUpper(), -1) PaginaDict.Add("/General/CATIEPSxEntidadFed.aspx".ToUpper(), 719) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index bf13b3e27..1163cef22 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1740,7 +1740,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Calle As String, NumExt As String, NumInt As String, Colonia As String, CP As String, Ciudad As String, CveEstado As Integer, Telefono As String, Celular As String, RFC As String, CURP As String, NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, - Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1") As Boolean + Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1) As Boolean Dim Retorno As Boolean = False @@ -1820,8 +1820,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CelularPersonal", SqlDbType.VarChar).Value = CelularPersonal .Add("@TelefonoMarcadoRapido", SqlDbType.VarChar).Value = TelefonoMarcadoRapido .Add("@ContactoAlterno", SqlDbType.VarChar).Value = ContactoAlterno - - + .Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -1853,7 +1853,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, CvePersonal As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1, - Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha) As Boolean + Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1) As Boolean Dim Retorno As Boolean = False @@ -1937,7 +1937,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@FechaActivo", SqlDbType.Date).Value = FechaActivo .Add("@FechaReingreso", SqlDbType.Date).Value = FechaReingreso - + .Add("@CveTipodeSalario", SqlDbType.Int).Value = CveTipodeSalario + End With Try diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb index 26f320e35..529a6887d 100644 --- a/Compras/ProveedoresAuxiliar.aspx.vb +++ b/Compras/ProveedoresAuxiliar.aspx.vb @@ -118,23 +118,19 @@ Partial Class Compras_ProveedoresAuxiliar Dim OpcionP = If(DdlOpcion.SelectedValue = "-1", "", $" Opción: {DdlOpcion.SelectedItem.Text}") Dim TipoProv = If(DdlTipoProveedor.SelectedValue = "-1", "", $" Tipo Proveedor: {DdlTipoProveedor.SelectedItem.Text}") Dim ContaP = If(DdlOpcionContabilizable.SelectedValue = "-1", "", $" Contabilizable: {DdlOpcionContabilizable.SelectedItem.Text}") - If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", Now.ToString)) - params.Add(New ReportParameter("Filtros", $"Filtros: {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}")) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToString)) + params.Add(New ReportParameter("Filtros", $"Filtros: {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}")) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) Else - Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + params.Add(New ReportParameter("LogoPath", "")) End If + ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion) End Sub Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click GenerarPDF("PDF") diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 64b14396c..a565bc154 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2893,7 +2893,10 @@ Partial Class Compras_eFacturas If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then - BtnVincularPago.Visible = False + If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then + DivVincularPagoManualmente.Visible = True + End If + MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. " Exit For @@ -2902,24 +2905,14 @@ Partial Class Compras_eFacturas Next If MSGComplemento.Trim.Length > 0 Then - ' BtnVincularPago.Visible = False ViculacionConPUE = True End If - 'saco la información de lo vinculado en el ie - ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe") - - - - - - - DiferenciaImportes = Monto - ImporteIES ObjCompras.Dispose() diff --git a/Empresas/Grales/Formatos/EntradasSalidas.rdlc b/Empresas/Grales/Formatos/EntradasSalidas.rdlc index 176b0a50e..edfdd2cda 100644 --- a/Empresas/Grales/Formatos/EntradasSalidas.rdlc +++ b/Empresas/Grales/Formatos/EntradasSalidas.rdlc @@ -108,34 +108,34 @@ - 1.82858cm + 3.4316cm - 5.84308cm + 3.4316cm - 1.40241cm + 1.7158cm - 1.59046cm + 1.7158cm - 1.59046cm + 1.7158cm - 1.3846cm + 1.7158cm - 1.62687cm + 1.7158cm - 1.99138cm + 1.7158cm - 1.7797cm + 1.7158cm - 1.865cm + 1.7158cm @@ -193,7 +193,7 @@ - + true true @@ -211,7 +211,7 @@ - Textbox9 + Textbox1 @@ -266,26 +266,9 @@ White - - White - - 1pt - - - White - - 1pt - - White - - 1pt + - - White - - 1pt - #d3d3d3 2pt 2pt @@ -308,7 +291,7 @@ - Importe + @@ -422,7 +405,7 @@ - Articulos + Artículos - White - 1pt - White - 1pt - White - - 1pt + - White - 1pt #d3d3d3 @@ -1763,9 +1738,8 @@ DataSet1 0.20849cm - 0.00415cm 2.52171cm - 20.90254cm + 20.5896cm @@ -1776,7 +1750,7 @@ 1.16692in - Textbox1 0.22049cm - 2.78201cm 0.6cm - 12.60299cm + 20.5896cm @@ -1850,9 +1825,8 @@ Textbox2 1.13799cm - 4.68157cm 0.52945cm - 9.98771cm + 20.5896cm 1 @@ -1988,9 +1959,8 @@ Textbox8 0.28575cm - 0.6059cm 0.44125cm - 1.60042cm + 1.7158cm 1 @@ -379,7 +379,7 @@ Filtros 0.20788cm 0.6cm - 18.70841cm + 20cm 1 @@ -470,9 +470,9 @@ Textbox2 1.10271cm - 3.59188cm + 5cm 0.52945cm - 12.60299cm + 10cm 1 @@ -597,7 +595,7 @@ 0.06cm 1.60042cm 0.68085cm - 5.14936cm + 2.6852cm 2 - Textbox10 0.06cm - 7.24367cm + 5cm 0.68085cm - 2.92333cm + 5cm 3 - 0cm 0cm 19.26933cm 5 @@ -707,7 +706,7 @@ Textbox13 0.48502cm 0.45889cm - 6.74978cm + 4.28563cm 6