From e5e1460faa6f160230f5b36015614c6520d2f906 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 20 May 2025 11:43:43 -0700 Subject: [PATCH] 199 Entradas salidas actualziar detalle de replica(201), cat af filtro CveTipoAFGrupo --- AF/CatAF.aspx | 10 ++++++ AF/CatAF.aspx.vb | 3 +- App_Code/ClsAF.vb | 5 ++- App_Code/ClsInventarios.vb | 18 +++++++++++ Inventarios/EntradasSalidas.aspx.vb | 47 ++++++++++++++++++++++++++--- 5 files changed, 77 insertions(+), 6 deletions(-) diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx index a957b310d..93612f568 100644 --- a/AF/CatAF.aspx +++ b/AF/CatAF.aspx @@ -203,6 +203,16 @@ +
+
Tipo Grupo:
+
+ + + + + +
+
diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index e348643a4..c35689853 100644 --- a/AF/CatAF.aspx.vb +++ b/AF/CatAF.aspx.vb @@ -291,7 +291,8 @@ Partial Class AF_CatAF Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, NoSerie, Año, CvePersonaResponsable, DdlProyecto.SelectedValue.ToEntero, - DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, CveCliente:=Cvecliente, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, BuscaPorAFPadre:=DdlAFPadres.SelectedValue.ToEntero) Then + DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, CveCliente:=Cvecliente, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, BuscaPorAFPadre:=DdlAFPadres.SelectedValue.ToEntero, + CveTipoAFGrupo:=DdlAFTipoGrupo.SelectedValue.ToEntero) Then If ObjAF.DtResultados.Rows.Count > 0 Then DtActivosFijos = ObjAF.DtResultados 'GvDatos.DataSource = ObjAF.DtResultados diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index 45ba33114..e0edd96b6 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -296,7 +296,9 @@ Public Class ClsAF Return Retorno End Function - Public Function GetActivosFijos(CveActivoFijo As Integer, CveEmpresa As Integer, Codigo As String, Descripcion As String, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, NoSerie As String, Año As Integer, CvePersonaResponsable As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEstadoActivoFijo As Integer, CaracteristicaValor As String, CveCliente As Integer, Optional BuscaGrupoEmpresa As Integer = -1, Optional BuscaPorAFPadre As Integer = -1, Optional CveGrupo As Integer = -1) As Boolean + Public Function GetActivosFijos(CveActivoFijo As Integer, CveEmpresa As Integer, Codigo As String, Descripcion As String, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, NoSerie As String, Año As Integer, CvePersonaResponsable As Integer, + CveProyecto As Integer, CveSubProyecto As Integer, CveEstadoActivoFijo As Integer, CaracteristicaValor As String, CveCliente As Integer, Optional BuscaGrupoEmpresa As Integer = -1, Optional BuscaPorAFPadre As Integer = -1, + Optional CveGrupo As Integer = -1, Optional CveTipoAFGrupo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_AF_ActivosFijosGet") With SqlAdapter.SelectCommand.Parameters @@ -317,6 +319,7 @@ Public Class ClsAF .Add("@BuscaGrupoEmpresa", SqlDbType.Int).Value = BuscaGrupoEmpresa .Add("@CveAFPadre", SqlDbType.Int).Value = BuscaPorAFPadre .Add("@CveGrupo", SqlDbType.Int).Value = CveGrupo + .Add("@CveTipoAFGrupo", SqlDbType.Int).Value = CveTipoAFGrupo End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 0b28c1fba..8e050193b 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -6433,6 +6433,24 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetMovmientoDetalleReplicado(CveMovimientoDetalle As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovmientoDetalleReplicadoGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al replicar el movimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function GetVentasRemisionesInventario(Ventas As String, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 383615019..3ad751fca 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1914,6 +1914,7 @@ Partial Class Inventarios_EntradasSalidas ElseIf Dr("Estatus").ToString = "U" Then If Not ObjInventario.UpdateMovimientoDetalle(Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, Dr("CveAF").ToString.ToEntero, Dr("CveMovimientoDetalle").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("Serie").ToString, Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + Mensaje = "Error al Actualizar los movimientos" ErrorMovInv = True : Exit For End If @@ -5506,21 +5507,59 @@ Partial Class Inventarios_EntradasSalidas If CveMovimientoDetalleEdit > 0 Then + Dim ErrorMovInv As Boolean = False + Dim ObjInventario As New ClsInventarios - If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDecimal, DdlUnidad.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDecimal, CveAFEdit, + ObjInventario.IniciaTransacSQL() + + If ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDecimal, DdlUnidad.SelectedValue.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDecimal, CveAFEdit, CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerie.Text, TxtObservacionesdetalle.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=DdlModalCultivosCuadro.SelectedValue.ToEntero, Lote:=TxtnLote.Text.Trim, FechaCaducidad:=TxtnFechaCaducidad.Text.ToDate) Then - Alert("Error al Actualizar los movimientos") + + + If UsuarioActual.CveEmpresa = 199 Then + If ObjInventario.GetMovmientoDetalleReplicado(CveMovimientoDetalleEdit) Then + + If ObjInventario.DtResultados.Rows.Count > 0 Then + + Dim CveMovimientoDetalleReplicado As Integer = ObjInventario.DtResultados.Rows(0)("CveMovimientoDetalle").ToString.ToEntero + + If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDecimal, -1, -1, txtPrecio.Text.ToDecimal, -1, + CveMovimientoDetalleReplicado, -1, TxtnSerie.Text, TxtObservacionesdetalle.Text, + CveUsuarioModifico:=UsuarioActual.CveUsuario, CveCultivoCuadroDetalle:=-1, + Lote:=TxtnLote.Text.Trim, FechaCaducidad:=TxtnFechaCaducidad.Text.ToDate) Then + Alert("Error al Actualizar los movimientos replicados relacionados.", TipoMensaje.MsgAdvertencia) + ErrorMovInv = True + End If + + End If + + Else + Alert("Error al obtener los datos de los movimientos replicados relacionados.", TipoMensaje.MsgAdvertencia) + ErrorMovInv = True + End If + End If + + + + Else - GvM.EditIndex = -1 - 'cargar también los movimentos detalle + Alert("Error al Actualizar los movimientos", TipoMensaje.MsgAdvertencia) + ErrorMovInv = True + End If + + If Not ErrorMovInv Then + ObjInventario.Commit() + 'GvM.EditIndex = -1 If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then DtMovimientos = ObjInventario.DtResultados CargaGVM(DtMovimientos) End If Alert("Movimiento actualizado correctamente") RegistraScript("$('#ModalAgregar').modal('hide')") + Else + ObjInventario.RollBack() End If ObjInventario.Dispose()