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 ChkEntregaDirecta.Checked = False
End If End If
'If UsuarioActual.CveEmpresa.Contiene(13, 73) AndAlso CveOrdenCompra > 0 AndAlso Request("Conta") IsNot Nothing AndAlso Request("Conta").ToEntero = 1 Then If UsuarioActual.CveEmpresa.Contiene(83) AndAlso CveOrdenCompra > 0 AndAlso Request("Conta") IsNot Nothing AndAlso Request("Conta").ToEntero = 1 Then
' If GeneraPrePolizaPresupuesto(CveOrdenCompra, Nothing) Then If GeneraPrePolizaPresupuesto(CveOrdenCompra, Nothing) Then
' Alert("PrePoliza de Presupuesto Generada Correctamente") Alert("PrePoliza de Presupuesto Generada Correctamente")
' Else Else
' Alert("No Se Genero la PrePoliza de Presupuesto Generada Correctamente", TipoMensaje.MsgAdvertencia) Alert("No Se Genero la PrePoliza de Presupuesto Generada Correctamente", TipoMensaje.MsgAdvertencia)
' End If End If
'End If End If
If UsuarioActual.CveRol = 1 Then If UsuarioActual.CveRol = 1 Then
chkSubProyectoEntrega.Visible = True chkSubProyectoEntrega.Visible = True
@@ -6150,8 +6149,10 @@ Partial Class OC_OC
End Sub End Sub
Protected Sub EnviarCorreoCambioEstatus(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True, Optional AsuntoMail As String = "") Protected Sub EnviarCorreoCambioEstatus(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True, Optional AsuntoMail As String = "")
Dim strOpciones As New StringBuilder Dim strOpciones As New StringBuilder
If CveUsuario = -1 Or Not CBool(GlobalDTUsuarios(CveUsuario)(0)("Estatus").ToString) Then CveUsuario = UsuarioActual.CveUsuario If CveUsuario = -1 Or Not CBool(GlobalDTUsuarios(CveUsuario, CveEmpresa:=CveEmpresaActual).FiltroPrimeroValor("Estatus")) Then
Dim Para As String = GlobalDTUsuarios(CveUsuario)(0)("correo").ToString CveUsuario = UsuarioActual.CveUsuario
End If
Dim Para As String = GlobalDTUsuarios(CveUsuario, CveEmpresa:=CveEmpresaActual).FiltroPrimeroValor("correo")
Dim CorreosCCPNombre As New List(Of String) Dim CorreosCCPNombre As New List(Of String)
Dim objUsuarios As New ClsSisUsuarios Dim objUsuarios As New ClsSisUsuarios
Dim StrCorreos As New StringBuilder Dim StrCorreos As New StringBuilder
@@ -8955,7 +8956,6 @@ Partial Class OC_OC
GvD.Columns(9).Visible = False GvD.Columns(9).Visible = False
GvD.Columns(10).Visible = False GvD.Columns(10).Visible = False
Dim MostrarColRetIVA As Boolean = False Dim MostrarColRetIVA As Boolean = False
Dim MostrarColRetISR 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.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProvedorSelecionado, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If ObjProveedor.CveRegimenFiscal = 23 Then If ObjProveedor.CveRegimenFiscal = 23 Then
If ObjProveedor.RetIVA > 0 Then If ObjProveedor.RetIVA > 0 Then
MostrarColRetIVA = True MostrarColRetIVA = True
End If End If
If ObjProveedor.RetISR > 0 Then If ObjProveedor.RetISR > 0 Then
MostrarColRetISR = True MostrarColRetISR = True
End If End If
End If End If
End If End If
ObjProveedor.Dispose() ObjProveedor.Dispose()
@@ -9098,7 +9093,7 @@ Partial Class OC_OC
Dim Ejercido As Decimal = 0 Dim Ejercido As Decimal = 0
Dim FechaCompra As Date = TxtFecha.Text.ToDate 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 If ObjCon.GetPresupuestosResumen(UsuarioActual.CveEmpresa, -1, FechaCompra.FirstDayOfMonth, FechaCompra.LastDayOfMonth, 2) Then
Dim ColumnaSaldo As String = "Saldo" Dim ColumnaSaldo As String = "Saldo"
@@ -9213,6 +9208,7 @@ Partial Class OC_OC
End If End If
Dim ObjConta As New ClsContabilidad(transaccion) 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) 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 If CvePrePolizaPresupuesto > 0 Then