From e470808fc586db4b35b585bd10a830eddfdc56f1 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 23 Aug 2019 14:00:26 -0500 Subject: [PATCH] liga agregada al modal de nuevo movimiento almacen en saldos iniciales --- General/SaldosIniciales.aspx.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index bdaa04205..8997c6309 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1525,11 +1525,13 @@ Partial Class General_SaldosIniciales ObjMovimientos.IniciaTransacSQL() Dim OcurrioError As Boolean = False Dim contadorMovimientos As Integer = 0 + Dim listadoMovimientos As String = "" Try For Each almacenSinRepetir As DataRow In dt.FiltraParametros("", DistinctColumns:={"Almacen"}).Rows Dim almacenActual As String = almacenSinRepetir("Almacen").ToString Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, 1, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1) + listadoMovimientos += $"movimiento con folio {ObjMovimientos.Folio}
" If CveAlmacen > 0 Then contadorMovimientos += 1 For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows @@ -1565,7 +1567,7 @@ Partial Class General_SaldosIniciales If Not OcurrioError Then ObjMovimientos.Commit() - Alert($"Se cargaron correctamente {contadorMovimientos} movimientos") + Alert($"Se cargaron correctamente {contadorMovimientos} movimientos

{listadoMovimientos}") Else Alert("Ocurrió un error al cargar las existencias", TipoMensaje.MsgError) ObjMovimientos.RollBack()