- cambio en modalidad un solo proyecto

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"))
-
+            If ModalidadSubProyectoGeneral Then DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
-            'DdlSubProyectoEntrega.DataBind()
-            'DdlSubProyectoEntrega.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
             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: <br/> Subproyecto:<b> {ValSubProyecto}</b> Clasificación:<b> {ValClasificacion}</b>. Se excede por <b>{ Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay presupuesto disponible en: <br/> Subproyecto:<b> {ValSubProyecto}</b> <br/>Clasificación:<b> {ValClasificacion}</b>. Se excede por <b>{ Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
                                     respuesta = False
                                 Else
                                     respuesta = True
                                 End If
                                 respuesta = True
                             Else
-                                Alert($"No hay presupuesto disponible en: <br/> Subproyecto:<b> {ValSubProyecto}</b></b> Clasificación:<b> {ValClasificacion}</b>.", TipoMensaje.MsgAdvertencia)
+                                Alert($"No hay presupuesto disponible en: <br/> Subproyecto:<b> {ValSubProyecto}</b></b> <br/>Clasificación:<b> {ValClasificacion}</b>.", 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: <br/> Subproyecto: <b>{item.SubProyecto}</b><br/> Clasificación <b>{item.Clasificacion}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
-                                        respuesta = False
+                                        respuesta = True
                                         Exit For
                                     Else
                                         respuesta = True
                                     End If
                                 Else
                                     Alert($"No hay presupuesto disponible en: <br/> Subproyecto: <b>{item.SubProyecto}</b><br/> Clasificación <b>{item.Clasificacion}</b>.", 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 CveUnidad, CveClasificacion As Integer
-            Dim Obs, UM, Clasificacion, PS, SubProyecto, Proyecto, Cuadro As String
+            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