From 9798dd017c807df067620ffb6ce0c056e79a80c2 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 9 Jul 2021 14:40:43 -0700 Subject: [PATCH 1/3] -- excluir. modulo no utilizado --- ...PersonalAcumulados.aspx => RepPersonalAcumulados.aspx.exclude} | 0 ...alAcumulados.aspx.vb => RepPersonalAcumulados.aspx.vb.exclude} | 0 2 files changed, 0 insertions(+), 0 deletions(-) rename Nomina/{RepPersonalAcumulados.aspx => RepPersonalAcumulados.aspx.exclude} (100%) rename Nomina/{RepPersonalAcumulados.aspx.vb => RepPersonalAcumulados.aspx.vb.exclude} (100%) diff --git a/Nomina/RepPersonalAcumulados.aspx b/Nomina/RepPersonalAcumulados.aspx.exclude similarity index 100% rename from Nomina/RepPersonalAcumulados.aspx rename to Nomina/RepPersonalAcumulados.aspx.exclude diff --git a/Nomina/RepPersonalAcumulados.aspx.vb b/Nomina/RepPersonalAcumulados.aspx.vb.exclude similarity index 100% rename from Nomina/RepPersonalAcumulados.aspx.vb rename to Nomina/RepPersonalAcumulados.aspx.vb.exclude From 6ecda7517518feef68db2f7eca69ab21ae07dc15 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 9 Jul 2021 14:57:49 -0700 Subject: [PATCH 2/3] =?UTF-8?q?se=20liber=C3=B3=20el=20modulo,=20de=20pers?= =?UTF-8?q?onal=20acumulados?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsNominas.vb | 20 -------------------- App_Code/ClsPaginas.vb | 3 +-- 2 files changed, 1 insertion(+), 22 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 9da716735..f96d3381a 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1063,26 +1063,6 @@ Public Class ClsNominas Return Retorno End Function - 'Reporte Personal Acumulados - Public Function GetRepPersonalAcumulados(CvePersonal As Integer, Ejercicio As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Nom_PersonalAcumuladosGetRep") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal - .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener el Reporte Conceptos Acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - End Try - - Return Retorno - End Function - Public Function UpdateNom_NominasDetallesMasivoSueldo(CvePeriodo As Integer, CveConcepto As Integer, Salario As Double, Importe As Double, ImporteExento As Double, ImporteGravado As Double, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_NominasDetallesUpdateMasivoSueldo") diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a97e69803..bf5d3e6f6 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3853,7 +3853,7 @@ Public Class ClsPaginas PaginaDict.Add("/Nomina/ISRCalculoAnual.aspx".ToUpper(), 918) PaginaDict.Add("/Nomina/MovimientosSUA.aspx".ToUpper(), 919) - PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916) + 'PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916) PaginaDict.Add("/RH/CalculoSBC.aspx".ToUpper(), 915) PaginaDict.Add("/Inicio.aspx".ToUpper(), -1) PaginaDict.Add("/reporteador.aspx".ToUpper(), -1) @@ -4728,7 +4728,6 @@ Public Class ClsPaginas PaginaDict.Add("/Nomina/ConceptoNomina.aspx".ToUpper(), 172) PaginaDict.Add("/Nomina/RegistroNomina.aspx".ToUpper(), 173) PaginaDict.Add("/Nomina/RepConceptosAcumulados.aspx".ToUpper(), 174) - PaginaDict.Add("/Nomina/RepPersonalAcumulados.aspx".ToUpper(), 393) PaginaDict.Add("/Nomina/CatPeriodos.aspx".ToUpper(), 177) PaginaDict.Add("/Nomina/Finiquito.aspx".ToUpper(), 197) PaginaDict.Add("/Nomina/CatSatBancos.aspx".ToUpper(), 255) From 2f8461a657b1c39bc09585391d13cac00adfd8ba Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 10 Jul 2021 09:29:30 -0700 Subject: [PATCH 3/3] cambio de double a decimal --- Inventarios/EntradasSalidas.aspx.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 70fc08a4d..d6fa69575 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1247,9 +1247,9 @@ Partial Class Inventarios_EntradasSalidas #Region " AGREGAR - GUARDAR " - Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Double + Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional CveSeccionAlmacen As Integer = -1, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Decimal Dim Inv As New ClsInventarios - Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, CveSeccionAlmacen:=CveSeccionAlmacen, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime), Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad) + Dim Existencia As Decimal = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, CveSeccionAlmacen:=CveSeccionAlmacen, FechaMovto:=String.Format("{0} {1}", TxtFecha.Text.ToDate.ToString("yyyy/MM/dd"), TxtHoraInicio.PostedTime), Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad) Inv.Dispose() Return Existencia End Function @@ -1275,8 +1275,8 @@ Partial Class Inventarios_EntradasSalidas Exit Sub End If - AddNew(DdlProducto2.SelectedValue.ToEntero, DdlProducto2.SelectedText, DdlUnidad.SelectedValue.ToEntero, DdlUnidad.SelectedItem.Text, txtCantidad.Text.ToDouble, - txtPrecio.Text.ToDouble, TxtnSerie.Text.Replace(" ", String.Empty), LblCodigo.Text, HdnCodigoAF.Value, HdnCveActivoFijo.Value, TxtObservacionesdetalle.Text, + AddNew(DdlProducto2.SelectedValue.ToEntero, DdlProducto2.SelectedText, DdlUnidad.SelectedValue.ToEntero, DdlUnidad.SelectedItem.Text, txtCantidad.Text.ToDecimal, + txtPrecio.Text.ToDecimal, TxtnSerie.Text.Replace(" ", String.Empty), LblCodigo.Text, HdnCodigoAF.Value, HdnCveActivoFijo.Value, TxtObservacionesdetalle.Text, TxtnLote.Text.Trim, TxtnFechaCaducidad.Text.ToDate, DdlSeccionAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedItem.Text) LimpiarAgregar() @@ -1301,7 +1301,7 @@ Partial Class Inventarios_EntradasSalidas End Sub - Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Double, PU As Double, Serie As String, CodigoAF As String, Codigo As String, CveAF As String, Observaciones As String, Lote As String, FechaCaducidad As Date, CveSeccionAlmacen As Integer, SeccionAlmacen As String, Optional CargarGV As Boolean = True) + Protected Sub AddNew(CvePS As Integer, PS As String, CveUM As Integer, UM As String, Cantidad As Decimal, PU As Decimal, Serie As String, CodigoAF As String, Codigo As String, CveAF As String, Observaciones As String, Lote As String, FechaCaducidad As Date, CveSeccionAlmacen As Integer, SeccionAlmacen As String, Optional CargarGV As Boolean = True) If DdlAlmacen.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlProducto2.SelectedText = "" : Exit Sub Dim Valido As Boolean = True @@ -1340,7 +1340,7 @@ Partial Class Inventarios_EntradasSalidas 'salida If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen - Dim Existencia As Double = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, -1, If(Serie = "", "-1", Serie), If(Lote = "", "-1", Lote), FechaCaducidadVal) + Dim Existencia As Decimal = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, -1, If(Serie = "", "-1", Serie), If(Lote = "", "-1", Lote), FechaCaducidadVal) ' LbAgregar.ToolTip = Existencia.ToString If Existencia - Cantidad - DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} {If(Serie <> "", $" AND Serie = '{Serie}'", "")}") < 0 Then If Existencia <= 0 Then @@ -3199,7 +3199,7 @@ Partial Class Inventarios_EntradasSalidas End If - AddNew(Dr("CvePS").ToString.ToEntero, Dr("PSCodigo").ToString, Dr("CveUM").ToString.ToEntero, Dr("UnidadMedida").ToString, 1, Dr("CostoPromedio").ToString.ToDouble, "", "", "", "", "", "", MinFecha, CveSeccionAlmacen, SeccionAlmacen) + AddNew(Dr("CvePS").ToString.ToEntero, Dr("PSCodigo").ToString, Dr("CveUM").ToString.ToEntero, Dr("UnidadMedida").ToString, 1, Dr("CostoPromedio").ToString.ToDecimal, "", "", "", "", "", "", MinFecha, CveSeccionAlmacen, SeccionAlmacen) TxtCodigoPS.Text = "" TxtCodigoPS.Focus()