From 458d64c8a280efaf2e2b909bc89d9c21feeb4259 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Fri, 24 Feb 2023 09:06:06 -0700 Subject: [PATCH] Cuentas asignaciones controles activos fijos, Entradas Salidas ajuste de inventario error redondeo --- AC/RepProgramasOperativosAvances.aspx | 2 +- AC/RepProgramasOperativosAvances.aspx.vb | 6 +- Compras/Compras.aspx.vb | 3 +- Contabilidad2/CatCuentasAsignaciones.aspx.vb | 76 ++++++++++++++------ Inventarios/EntradasSalidas.aspx.vb | 10 +-- 5 files changed, 68 insertions(+), 29 deletions(-) diff --git a/AC/RepProgramasOperativosAvances.aspx b/AC/RepProgramasOperativosAvances.aspx index 20fd5c81e..f1cfb142d 100644 --- a/AC/RepProgramasOperativosAvances.aspx +++ b/AC/RepProgramasOperativosAvances.aspx @@ -127,7 +127,7 @@ - NavigateUrl="/AC/ProgramaOperativo.aspx?CveProgramaOperativo=703&EsProyecto=1,&Bloqueado=1" + diff --git a/AC/RepProgramasOperativosAvances.aspx.vb b/AC/RepProgramasOperativosAvances.aspx.vb index 94d2c5f5b..312da416f 100644 --- a/AC/RepProgramasOperativosAvances.aspx.vb +++ b/AC/RepProgramasOperativosAvances.aspx.vb @@ -191,8 +191,12 @@ Partial Class AC_RepProgramasOperativosAvances cell.ColumnSpan = 2 cell.Text = "" row.Controls.Add(cell) + Try + GVD.HeaderRow.Parent.Controls.AddAt(0, row) + Catch ex As Exception + + End Try - GVD.HeaderRow.Parent.Controls.AddAt(0, row) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 32c2f3541..5c8ee2827 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -8125,7 +8125,7 @@ Partial Class Compras_Compras If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros Msg.AppendFormat("

Ver Póliza. ", CvePrePoliza) Dim TempParametros = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza)) - Msg.Append($" Descargar PDF ") + Msg.Append($" Imprimir PDF ") @@ -8249,7 +8249,6 @@ Partial Class Compras_Compras If listaUUIDSRelacionados.Count > 0 Then DoctosRelacionados = String.Join(",", listaUUIDSRelacionados.ToArray()) - DoctosRelacionados = DoctosRelacionados.Substring(0, DoctosRelacionados.Length - 2) End If Return DoctosRelacionados diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index 2ae4ea7c8..3ec01dd77 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -11,8 +11,20 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Set ViewState("CveConceptoAsignacion") = Value End Set - End Property - + End Property + + Public Property OpAgregar As Boolean + Get + If ViewState("OpAgregar") Is Nothing Then + ViewState("OpAgregar") = False + End If + Return Boolean.Parse(ViewState("OpAgregar").ToString) + End Get + Set(value As Boolean) + ViewState("OpAgregar") = value + End Set + End Property + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then @@ -116,7 +128,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub - Protected Sub ActualizaModulo(sender As Object, e As EventArgs) + Protected Sub ActualizaModulo(sender As Object, e As EventArgs) + OpAgregar = False LimpiarDatos() Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim Dr As DataRow = GlobalDTContaConceptosContables(GvRow.DataKey("CveConceptoContable").ToEntero).FiltroPrimero("") @@ -149,6 +162,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) DdlTipoGasto.SelectedValueExist(GvRow.DataKey("CveTipoGasto").ToEntero) DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo").ToEntero) + DdlActivoFijo.Enabled = False + Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero @@ -176,29 +191,31 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If Dr IsNot Nothing Then - divCliente.Visible = Dr("AplicaCliente").ToString = "True" + divCliente.Visible = Boolean.Parse(Dr("AplicaCliente").ToString) + divProveedor.Visible = Boolean.Parse(Dr("AplicaProveedor").ToString) + divPersonal.Visible = Boolean.Parse(Dr("AplicaPersonal").ToString) + divPorcentajeIVA.Visible = Boolean.Parse(Dr("AplicaImpuesto").ToString) + divClasificacion.Visible = Boolean.Parse(Dr("AplicaClasificacion").ToString) + divBancos.Visible = Boolean.Parse(Dr("AplicaBancos").ToString) + divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString) + divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString) + divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString) - divProveedor.Visible = Dr("AplicaProveedor").ToString = "True" - - divPersonal.Visible = Dr("AplicaPersonal").ToString = "True" - - divPorcentajeIVA.Visible = Dr("AplicaImpuesto").ToString = "True" - - divClasificacion.Visible = Dr("AplicaClasificacion").ToString = "True" - - divBancos.Visible = Dr("AplicaBancos").ToString = "True" - - divAlmacen.Visible = Dr("AplicaAlmacen").ToString = "True" - - divSubProyectos.Visible = Dr("AplicaSubProyecto").ToString = "True" + DdlActivoFijo.Enabled = False If Dr("AplicaActivoFijo").ToString = "True" Then - divActivoFijo.Visible = True DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) - DdlActivoFijo.DataBind() - ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo")) + DdlActivoFijo.DataBind() ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo")) + + If OpAgregar Then + DdlActivoFijo.Enabled = True + Else + DdlActivoFijo.Enabled = False + End If + End If + divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True" If CveConceptoContable = 51 Then @@ -244,6 +261,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End Sub Protected Sub BtnAgregarAsignacion_Click(sender As Object, e As EventArgs) Handles BtnAgregarAsignacion.Click + OpAgregar = True + LimpiarDatos() DdlCconceptosContables.Enabled = True DdlSubProyectos.Enabled = True @@ -272,6 +291,23 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlPersonal.ddl.DataBind() DdlPersonal.setEsWebService(True) HdnCveCuentaAsignacion.Value = "" + + If OpAgregar Then + divCliente.Visible = False + divProveedor.Visible = False + divPersonal.Visible = False + divPorcentajeIVA.Visible = False + divClasificacion.Visible = False + divBancos.Visible = False + divAlmacen.Visible = False + divSubProyectos.Visible = False + divActivoFijo.Visible = False + End If + + + + + End Sub Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index c30cfc4bb..2c538f4b3 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -4490,7 +4490,7 @@ Partial Class Inventarios_EntradasSalidas For Each Dr As DataRow In DtMovimientosSalidaInvFisico.Rows If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1) >= Dr("Cantidad").ToString.ToDouble Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, - Dr("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, + Dr("PU").ToString.ToDecimal.RoundSQL(6), -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then Mensaje = "Ocurrió un error al guardar los movimientos de salida" ErrorMovInv = True @@ -4511,10 +4511,10 @@ Partial Class Inventarios_EntradasSalidas If Not ErrorMovInv AndAlso CveMovimientoSalida > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then - Dim ProTotalSalida As Decimal = ObjInventario.DtResultados.SUMD("Total", "") + Dim ProTotalSalida As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL(2) Dim ProCantidadEntrada As Decimal = DtMovimientosEntradaInvFisico.SUMD("Cantidad", "") - ProPU = (ProTotalSalida / ProCantidadEntrada).RoundSQL(6) + ProPU = (ProTotalSalida / ProCantidadEntrada).RoundSQL(10) If Not ProPU > 0 Then ErrorMovInv = True @@ -4546,7 +4546,7 @@ Partial Class Inventarios_EntradasSalidas 'Obtiene valor entrada If Not ErrorMovInv AndAlso CveMovimientoEntrada > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then - Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL() + Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL(2) ValorEntrada = tValorInventario Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue)) @@ -4563,7 +4563,7 @@ Partial Class Inventarios_EntradasSalidas 'Obtiene valor salida If Not ErrorMovInv AndAlso CveMovimientoSalida > 0 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then - Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL() + Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL(2) ValorSalida = tValorInventario Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue)) If drA2 IsNot Nothing Then