From 65a64b4d92b608ddc01f2eff73b0f883a2d1dce9 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 20 Sep 2023 12:11:55 -0700 Subject: [PATCH] =?UTF-8?q?--se=20quit=C3=B3=20simplificaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/ReembolsosComprobaciones.aspx.vb | 18 ------------- Inventarios/RecepcionAlmacen.aspx.vb | 33 +++--------------------- Inventarios/RecepcionUsados.aspx.vb | 25 ++---------------- Inventarios/RepVentasXSurtir.aspx.vb | 2 +- 4 files changed, 7 insertions(+), 71 deletions(-) diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 4aa5f3843..0f7b0acbd 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -787,16 +787,6 @@ Partial Class Compras_ReembolsosComprobaciones End If Next - If MsgError = "" And UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjMov.PrePolizaSimplificacion(CvePrePolizaPago, UsuarioActual.CveEmpresa) Then - MsgError = "No se pudo simplificar los movimientos" - Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) - End If - If MsgError = "" AndAlso CvePrePolizaExcedente > 0 AndAlso Not ObjMov.PrePolizaSimplificacion(CvePrePolizaExcedente, UsuarioActual.CveEmpresa) Then - MsgError = "No se pudo simplificar los movimientos" - Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) - End If - End If Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaPago, 1, AutoConta:=AutoConta) Then @@ -888,14 +878,6 @@ Partial Class Compras_ReembolsosComprobaciones End If End If - 'Simplificacion de PrePolizas - If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjMov.PrePolizaSimplificacion(CvePrePolizaNueva, UsuarioActual.CveEmpresa) Then - Retorno = "No se pudo simplificar los movimientos" - Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) - End If - End If - Return Retorno End Function diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index fb7d05ba2..03cf16805 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -1767,7 +1767,7 @@ Partial Class Inventarios_RecepcionAlmacen End If 'SI TIENE ENTRADA POR SERIE LOTE, BLOQUEAMOS CHECK Y TXTCANTIDAD - Dim Contador = 0 + Dim Contador As Integer = 0 For Each Gvr As GridViewRow In GvInv.Rows If Gvr.DataKey("CvePS").ToEntero = CvePSSerie Then Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Gvr.DataKey("Consec"))).Rows.Count @@ -1782,7 +1782,7 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - Dim Dr = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0) + Dim Dr As DataRow = DtInv.Select($"Consec = {Gvr.DataKey("Consec")}")(0) Dr("CantidadSurtidaPantalla") = Gvr.FCTextBox("TbCantidadF").Text.ToDecimal DtInv.AcceptChanges() Next @@ -1806,7 +1806,7 @@ Partial Class Inventarios_RecepcionAlmacen Exit Sub End If - Dim SeriesArreglo = Serie.Trim.Split(";"c) + Dim SeriesArreglo As Array = Serie.Trim.Split(";"c) 'VALIDACION DE SERIES DUPLICADAS Dim MensajeAlert As New StringBuilder @@ -1839,7 +1839,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim MensajeSinExistencias As New StringBuilder Dim ObjInventarios As New ClsInventarios - Dim Index = 0 + Dim Index As Integer = 0 Dim Cantidad As Integer = LbCantidad.Text.ToEntero If CargaMasivaSeries Then Cantidad = DtInv.FiltroPrimeroValor("CantidadF", "Consec = " & CveConsecSerie).ToEntero @@ -2405,11 +2405,6 @@ Partial Class Inventarios_RecepcionAlmacen 'CONTABILIZAR - SIMPLIFICAR If Retorno Then - If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then - Retorno = False - End If - End If If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then @@ -2476,11 +2471,6 @@ Partial Class Inventarios_RecepcionAlmacen 'CONTABILIZAR - SIMPLIFICAR If Retorno Then - If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then - Retorno = False - End If - End If If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then @@ -3471,13 +3461,6 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then - ErrorMovInv = True - MensajeError = "Error al simplificar los conceptos contables" - End If - End If - If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then MensajeContabilidad = $"
Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
" @@ -3578,14 +3561,6 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - - If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then - ErrorMovInv = True - MensajeError = "Error al simplificar los conceptos contables" - End If - End If - If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index bd70633e0..21746e593 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1455,8 +1455,8 @@ Partial Class Inventarios_RecepcionUsados If tmpCostos.Rows.Count > 0 Then Dim Concepto As String = ConceptoPoliza - Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados2", 74, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados2", 74, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero Dim tCveConcepto As Integer = 278 For Each RowInv As DataRow In tmpCostos.Rows @@ -1471,7 +1471,6 @@ Partial Class Inventarios_RecepcionUsados Correcto = False End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") @@ -1479,26 +1478,6 @@ Partial Class Inventarios_RecepcionUsados End If End If - 'CONTABILIZAR - SIMPLIFICAR - If Correcto Then - If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then - Correcto = False - End If - End If - - 'If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - ' If ObjContaContPAQ Is Nothing Then - ' ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) - ' ObjContaContPAQ.IniciaTransacSQL() - ' End If - - ' If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then - ' Retorno = False - ' End If - 'End If - - End If Else Correcto = False End If diff --git a/Inventarios/RepVentasXSurtir.aspx.vb b/Inventarios/RepVentasXSurtir.aspx.vb index 158826a28..bf9377f2e 100644 --- a/Inventarios/RepVentasXSurtir.aspx.vb +++ b/Inventarios/RepVentasXSurtir.aspx.vb @@ -54,7 +54,7 @@ Partial Class Inventarios_RepVentasXSurtir Private Sub CargaDatos() Dim ObjInventarios As New ClsInventarios - If ObjInventarios.GetPendietePorSurtirVenta(DdlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlTipo.SelectedValue.ToEntero) Then + If ObjInventarios.GetPendientePorSurtirVenta(DdlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlTipo.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjInventarios.DtResultados Else GvDatos.DataSource = Nothing