From a39ee91af09d6ff0b4098055797c58e7a211e867 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 23 Jul 2024 09:13:36 -0700 Subject: [PATCH] =?UTF-8?q?-=20validaci=C3=B3n=20de=20presupuesto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/OC.aspx.vb | 30 +++++++++++++----------------- 1 file changed, 13 insertions(+), 17 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 3b435163b..934be7223 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -933,14 +933,13 @@ Partial Class OC_OC ChkEntregaDirecta.Checked = False End If - 'If UsuarioActual.CveEmpresa.Contiene(13, 73) AndAlso CveOrdenCompra > 0 AndAlso Request("Conta") IsNot Nothing AndAlso Request("Conta").ToEntero = 1 Then - ' If GeneraPrePolizaPresupuesto(CveOrdenCompra, Nothing) Then - ' Alert("PrePoliza de Presupuesto Generada Correctamente") - ' Else - ' Alert("No Se Genero la PrePoliza de Presupuesto Generada Correctamente", TipoMensaje.MsgAdvertencia) - ' End If - 'End If - + If UsuarioActual.CveEmpresa.Contiene(83) AndAlso CveOrdenCompra > 0 AndAlso Request("Conta") IsNot Nothing AndAlso Request("Conta").ToEntero = 1 Then + If GeneraPrePolizaPresupuesto(CveOrdenCompra, Nothing) Then + Alert("PrePoliza de Presupuesto Generada Correctamente") + Else + Alert("No Se Genero la PrePoliza de Presupuesto Generada Correctamente", TipoMensaje.MsgAdvertencia) + End If + End If If UsuarioActual.CveRol = 1 Then chkSubProyectoEntrega.Visible = True @@ -6150,8 +6149,10 @@ Partial Class OC_OC End Sub Protected Sub EnviarCorreoCambioEstatus(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True, Optional AsuntoMail As String = "") Dim strOpciones As New StringBuilder - If CveUsuario = -1 Or Not CBool(GlobalDTUsuarios(CveUsuario)(0)("Estatus").ToString) Then CveUsuario = UsuarioActual.CveUsuario - Dim Para As String = GlobalDTUsuarios(CveUsuario)(0)("correo").ToString + If CveUsuario = -1 Or Not CBool(GlobalDTUsuarios(CveUsuario, CveEmpresa:=CveEmpresaActual).FiltroPrimeroValor("Estatus")) Then + CveUsuario = UsuarioActual.CveUsuario + End If + Dim Para As String = GlobalDTUsuarios(CveUsuario, CveEmpresa:=CveEmpresaActual).FiltroPrimeroValor("correo") Dim CorreosCCPNombre As New List(Of String) Dim objUsuarios As New ClsSisUsuarios Dim StrCorreos As New StringBuilder @@ -8955,7 +8956,6 @@ Partial Class OC_OC GvD.Columns(9).Visible = False GvD.Columns(10).Visible = False - Dim MostrarColRetIVA As Boolean = False Dim MostrarColRetISR As Boolean = False @@ -8967,20 +8967,15 @@ Partial Class OC_OC If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProvedorSelecionado, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - If ObjProveedor.CveRegimenFiscal = 23 Then If ObjProveedor.RetIVA > 0 Then MostrarColRetIVA = True End If - If ObjProveedor.RetISR > 0 Then MostrarColRetISR = True End If - End If - - End If ObjProveedor.Dispose() @@ -9098,7 +9093,7 @@ Partial Class OC_OC Dim Ejercido As Decimal = 0 Dim FechaCompra As Date = TxtFecha.Text.ToDate - If CveMoneda <> 1 Then ValImporte = ValImporte * GlobalTipoCambio(FechaCompra).ToDecimal + If CveMoneda > 1 Then ValImporte = ValImporte * GlobalTipoCambio(FechaCompra).ToDecimal If ObjCon.GetPresupuestosResumen(UsuarioActual.CveEmpresa, -1, FechaCompra.FirstDayOfMonth, FechaCompra.LastDayOfMonth, 2) Then Dim ColumnaSaldo As String = "Saldo" @@ -9213,6 +9208,7 @@ Partial Class OC_OC End If Dim ObjConta As New ClsContabilidad(transaccion) + Dim CvePrePolizaPresupuesto = ObjConta.AddPrePolizas("OC/OC-(Presupuesto)", 53, LblTotal.Text.ToDecimal, LblTotal.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlProveedores.SelectedText, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If CvePrePolizaPresupuesto > 0 Then