AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

199 Entradas salidas actualziar detalle de replica(201), cat af filtro CveTipoAFGrupo

Browse Source
This commit is contained in:
rakcsle
2025-05-20 11:43:43 -07:00
parent 495e9f85e2
commit e5e1460faa
5 changed files with 77 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -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()