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

- validación de presupuesto

Browse Source
This commit is contained in:
rrene
2024-07-23 09:13:36 -07:00
parent 81ce6a7322
commit a39ee91af0
1 changed files with 13 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
OC/OC.aspx.vb
View File

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