diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 4d153e356..4dcd35be4 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1611,17 +1611,18 @@ Public Class ClsInventarios End Function - Public Function GetExistenciasProductoSerie(CvePS As Integer, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveAlmacenes As String = "-1") As Boolean + Public Function GetExistenciasProductoSerie(CvePS As Integer, CveUsuario As Integer, CveEmpresa As Integer, Fecha As DateTime, Optional CveAlmacenes As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciaPSSeriesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen + ' .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveAlmacenes", SqlDbType.VarChar).Value = CveAlmacenes + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha End With Try diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index d2852c461..98aa0cbe1 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -195,7 +195,7 @@ Public Class ClsVentas SqlAdapter.Fill(Data) retorno = True Catch ex As Exception - OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error al actualizar venta Orden de Producción.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return retorno End Function diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 3cd458484..7406155c3 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -209,7 +209,7 @@
- + diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index a2bd46524..a75ea1a03 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -6457,10 +6457,14 @@ Partial Class Bancos_IE Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click Dim ObjBanco As New ClsBancos + ObjBanco.IniciaTransacSQL() If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ObjBanco.Commit() RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR") Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";") + Else + ObjBanco.RollBack() End If ObjBanco.Dispose() diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 394cd44e1..f62f3068b 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1544,7 +1544,7 @@ Partial Class General_SaldosIniciales 'Compra If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero, SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento, False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal, - NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal) Then + NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total) Then ErrorCompras = True Exit For End If diff --git a/Inicio.aspx b/Inicio.aspx index d672b236c..6b4322620 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -1105,44 +1105,48 @@
- -