From 0d6c23047212c8d492ebf1cd456f3c07fb50b68a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Sep 2024 05:51:12 -0700 Subject: [PATCH] - cambio en modalidad un solo proyecto --- OC/OC.aspx.vb | 63 ++++++++++++++++++++++----------------------------- 1 file changed, 27 insertions(+), 36 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index ba29176e6..9a005fc21 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -6,7 +6,6 @@ Imports System.Data.SqlClient Imports System.IO Imports Extensiones Imports GemBox.Spreadsheet -Imports Microsoft.Ajax.Utilities Imports Newtonsoft.Json Partial Class OC_OC @@ -37,6 +36,15 @@ Partial Class OC_OC ViewState("CveUsuarioAsignado") = value End Set End Property + + Private Property ModalidadSubProyectoGeneral As Boolean + Get + Return If(IsNothing(ViewState("ModalidadSubProyectoGeneral")), False, CBool(ViewState("ModalidadSubProyectoGeneral"))) + End Get + Set(value As Boolean) + ViewState("ModalidadSubProyectoGeneral") = value + End Set + End Property Private Property TipoOC As String Get If ViewState("TipoOC") Is Nothing Then @@ -636,6 +644,8 @@ Partial Class OC_OC GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing CargaDatosAgregarPS() CveProveedorOriginal = -1 + EnviarNotificacionWhatsApp("526621430964", "hola34 https:/sig.adssistemas.mx/ventas/ventas.aspx") + EnviarNotificacionWhatsApp("526621430964", "", "hello_world") 'MODALIDAD MULTIEMPRESA CveEmpresaActual = UsuarioActual.CveEmpresa If CveEmpresaActual > 0 Then @@ -666,7 +676,7 @@ Partial Class OC_OC DdlSubProyectoGral.DataBind() DdlSubProyectoGral.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto) - + ModalidadSubProyectoGeneral = True TdProyectoSubPrpyectoDdl.Visible = False TdProyectoSubPrpyecto.Visible = False GvD.Columns(4).Visible = False @@ -674,9 +684,6 @@ Partial Class OC_OC End If - - - 'CARGA YA REGISTRADO If Request("OC") IsNot Nothing AndAlso IsNumeric(Request("OC")) AndAlso Request("OC").ToEntero > 0 Then @@ -902,15 +909,9 @@ Partial Class OC_OC 'DdlSubProyectoEntrega.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) End If - - - DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - - 'DdlSubProyectoEntrega.DataBind() - 'DdlSubProyectoEntrega.Items.Insert(0, New ListItem("Seleccione", "-1")) - + If ModalidadSubProyectoGeneral Then DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue) DdlSubProyectoContrato.Items.Clear() DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos( CveEmpresaActual )) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) DdlSubProyectoContrato.DataBind() @@ -1386,7 +1387,7 @@ Partial Class OC_OC TipoOC = If(TipoOS, "OS", TipoOC) If ObjFolios.GetFolios(If(TipoOC = "REQ", "Req", TipoOC), CveEmpresaActual) Then Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros("Estado = 'Activo'") - If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero + If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero 'Verificar primero en la sucursal del usuario Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("") If dts IsNot Nothing Then @@ -1580,7 +1581,7 @@ Partial Class OC_OC TxtPorcentajeProntoPago.Text = (100 * objOC.PorcentajeProntoPago).ToString("###.00") - If UsuarioActual.CveEmpresa = 189 Then + If ModalidadSubProyectoGeneral Then Dim existeCvesubproyecto As Boolean = False If objOC.DtResultados.Rows(0)("CveSubProyectoGral").ToString.ToEntero > 0 Then For Each tmpItem As ListItem In DdlSubProyectoGral.Items @@ -2110,16 +2111,14 @@ Partial Class OC_OC Dim Filtro As String = If(DdlProyecto.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(4, 5), String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "") DdlSubProyecto.Items.Clear() - If CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) Else DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ").FiltraParametros(Filtro, "", {"CveSubProyecto", "SubProyecto"}) - 'DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) End If - DdlSubProyecto.DataBind() + If ModalidadSubProyectoGeneral Then DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue) DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer) @@ -2158,7 +2157,6 @@ Partial Class OC_OC End If - UPProv.Update() : UPPEmp.Update() End Sub @@ -2883,7 +2881,7 @@ Partial Class OC_OC If Not TieneError Then ' AGREGAR ORDEN DE COMPRA Dim tCveSubProyecto As Integer = -1 - If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero + If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim), LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal, @@ -3550,7 +3548,7 @@ Partial Class OC_OC HuboError = True End If Dim CveSubProyecto As Integer = -1 - If UsuarioActual.CveEmpresa = 189 Then CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero + If ModalidadSubProyectoGeneral Then CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", CveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, @@ -3627,7 +3625,7 @@ Partial Class OC_OC End If Dim tCveSubProyecto As Integer = -1 - If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero + If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, @@ -9232,7 +9230,7 @@ Partial Class OC_OC If ObjCon.GetPresupuestosResumen(UsuarioActual.CveEmpresa, -1, FechaCompra.FirstDayOfMonth, FechaCompra.LastDayOfMonth, 2) Then Dim ColumnaSaldo As String = "Saldo" If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ColumnaSaldo = "SaldoComprometido" - Dim resultadosFiltrados = From row In ObjCon.DtResultados.AsEnumerable() + Dim resultadosFiltrados = From row In ObjCon.DtResultados.FiltraParametros("CveClasificacion > 0 and CveSubProyecto > 0").AsEnumerable() Select row If ObjCon.DtResultados.Rows.Count > 0 Then @@ -9252,14 +9250,14 @@ Partial Class OC_OC Dim Diferencia As Decimal = saldoTotal - TotalAcumuladoTabla - ValImporte If (Diferencia) < 0 Then - Alert($"No hay presupuesto disponible en:
Subproyecto: {ValSubProyecto} Clasificación: {ValClasificacion}. Se excede por { Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia) + Alert($"No hay presupuesto disponible en:
Subproyecto: {ValSubProyecto}
Clasificación: {ValClasificacion}. Se excede por { Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia) respuesta = False Else respuesta = True End If respuesta = True Else - Alert($"No hay presupuesto disponible en:
Subproyecto: {ValSubProyecto} Clasificación: {ValClasificacion}.", TipoMensaje.MsgAdvertencia) + Alert($"No hay presupuesto disponible en:
Subproyecto: {ValSubProyecto}
Clasificación: {ValClasificacion}.", TipoMensaje.MsgAdvertencia) respuesta = False End If Else @@ -9296,14 +9294,14 @@ Partial Class OC_OC If (Diferencia) < 0 Then Alert($"No hay presupuesto disponible en:
Subproyecto: {item.SubProyecto}
Clasificación {item.Clasificacion}. Se excede por {Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia) - respuesta = False + respuesta = True Exit For Else respuesta = True End If Else Alert($"No hay presupuesto disponible en:
Subproyecto: {item.SubProyecto}
Clasificación {item.Clasificacion}.", TipoMensaje.MsgAdvertencia) - respuesta = False + respuesta = True Exit For End If Else @@ -9566,22 +9564,18 @@ Partial Class OC_OC For Each gvr As GridViewRow In GvD.Rows Dim Cantidad, Importe, Descuento As Decimal - Dim CveUnidad, CveClasificacion, CvePS, CveSubProyecto, CveProyecto, CveCultivoCuadroDetalle As Integer - Dim Obs, UM, Clasificacion, PS, SubProyecto, Proyecto, Cuadro As String - + Dim CveUnidad, CveClasificacion As Integer + Dim Obs, UM, Clasificacion, PS As String Cantidad = gvr.FCTextBox("TxtEMCantEdit").Text.Trim.ToDecimal Importe = gvr.FCTextBox("TxtEMImporteEdit").Text.Trim.ToDecimal Descuento = gvr.FCTextBox("TxtEMDescuentoEdit").Text.Trim.ToDecimal - Obs = gvr.FCTextBox("TxtEMObsPS").Text.Trim - - ' + Obs = gvr.FCTextBox("TxtEMObsPS").Text.Trim ' CveUnidad = gvr.DataKey("CveUnidadMedida").ToEntero UM = gvr.FCLiteral("LA").Text CveClasificacion = gvr.DataKey("CveClasificacion").ToEntero Clasificacion = gvr.FCLabel("LblClasificacion").Text - 'SE TOMAN VALORES EN CASO DE QUE LA CvePS SEA DIFERENTE DE LA ANTERIOR Dim CvePSAnterior As Integer = gvr.DataKey("CvePS").ToEntero PS = gvr.DataKey("PS").ToString @@ -9617,13 +9611,10 @@ Partial Class OC_OC If dr(0)("TipoDato").ToString.ToEntero = 2 Then dr(0)("TipoDato") = 1 DtDetalle.AcceptChanges() - Next - CargaDatosDetalles() - Return True End Function