Merge branch 'master' of http://192.168.10.111:8383/SIG

2024-09-12 12:58:53 -07:00
parent 6b6e958a22 5f8dde236b
commit f8b8f8fce6
21 changed files with 90 additions and 138 deletions
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -628,24 +628,38 @@ Namespace Extensiones
            Return String.Format("<li><a href=""{4}"" {5}>{0}<span class=""details""><span class=""label label-sm label-icon label-{1}""><i class=""{2}""></i></span>{3}</span></a></li>", Time, Tipo, Ico, Mensaje, Link, If(tonewpage, "target=""_blank""", ""))
        End Function

-        Public Function EnviarNotificacionWhatsApp(NumeroTelefono As String, Mensaje As String) As Boolean
+        Public Function EnviarNotificacionWhatsApp(NumeroTelefono As String, Mensaje As String, Optional NombrePlantilla As String = "") As Boolean
            Dim RetornoObj As String = "{}"
            Dim Retorno As Boolean = False
+            Dim Str As String = My.Computer.FileSystem.ReadAllText($"c:\temp\WSToken.txt")
+
            Try
-                Dim TokenAutorizacion As String = "Bearer EAAVcZB36KfEEBO0OlN5ZAUPhNAUZCsHuMbpeVrrxZCJZAacLgBMOXXXcyA6aLEbbANMjbeTuJbsZC4IAvsZBwEALCYqc7oZCrnHF67sc0RYMBru9R0YKBFhi8gFjZAhJgoCJauBdZA30R9YPXZA2ZByQZAKclRCL20VLu74HEtw3YKu1MiG1vEsZANWJZAHhcJCUANUs3zIMFvoC6dBoJgQsABEZAYYZD"
+                Dim TokenAutorizacion As String = $"Bearer {Str}"
                Using httpClient = New HttpClient()
-                    Using request = New HttpRequestMessage(HttpMethod.Post, New Uri("https://graph.facebook.com/v20.0/263533173499868/messages"))
+                    Using request = New HttpRequestMessage(HttpMethod.Post, New Uri("https://graph.facebook.com/v20.0/400260286507131/messages"))

                        request.Headers.Add("Authorization", TokenAutorizacion)
                        Dim json = New Newtonsoft.Json.Linq.JObject()
                        json.Add(New Newtonsoft.Json.Linq.JProperty("messaging_product", "whatsapp"))
                        json.Add(New Newtonsoft.Json.Linq.JProperty("to", NumeroTelefono))
-                        json.Add(New Newtonsoft.Json.Linq.JProperty("type", "text"))
-                        Dim msgtexto As New Newtonsoft.Json.Linq.JObject(
-                            New Newtonsoft.Json.Linq.JProperty("preview_url", "true"),
-                            New Newtonsoft.Json.Linq.JProperty("body", Mensaje.Replace("<br/>", "\n"))
-                            )
-                        json.Add(New Newtonsoft.Json.Linq.JProperty("text", msgtexto))
+                        If NombrePlantilla <> "" Then
+                            json.Add(New Newtonsoft.Json.Linq.JProperty("type", "template"))
+                            Dim msgtexto As New Newtonsoft.Json.Linq.JObject(
+                                New Newtonsoft.Json.Linq.JProperty("name", NombrePlantilla),
+                                New Newtonsoft.Json.Linq.JProperty("language",
+                                                              New Newtonsoft.Json.Linq.JObject(
+                                                                  New Newtonsoft.Json.Linq.JProperty("code", "en_US"))
+                                                                   )
+                                )
+                            json.Add(New Newtonsoft.Json.Linq.JProperty("template", msgtexto))
+                        Else
+                            json.Add(New Newtonsoft.Json.Linq.JProperty("type", "text"))
+                            Dim msgtexto As New Newtonsoft.Json.Linq.JObject(
+                                New Newtonsoft.Json.Linq.JProperty("preview_url", "true"),
+                                New Newtonsoft.Json.Linq.JProperty("body", Mensaje.Replace("<br/>", "\n"))
+                                )
+                            json.Add(New Newtonsoft.Json.Linq.JProperty("text", msgtexto))
+                        End If

                        Using content = New StringContent(json.ToString, Encoding.UTF8, "application/json")
                            request.Content = content
@@ -667,6 +681,8 @@ Namespace Extensiones
            Return Retorno
        End Function

+
+
 #End Region

 #Region "files dropzone"
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4624,7 +4624,7 @@
                                        <div class="col-md-12">

                                            <asp:Button CssClass="btn btn-primary" ID="LbAgregar" runat="server" Enabled="false" Text="Agregar" ValidationGroup="GprAgregaPS" />
-                                            <button type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                                        </div>
                                    </div>

--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6796,7 +6796,7 @@ Partial Class Compras_Compras
                                                                            Dim AplicadoenFactura As Boolean = False
                                                                            If UsuarioActual.CveEmpresa = 119 Then
                                                                                For Each Gvr As GridViewRow In GvFacturaNC.Rows
-                                                                                    If Gvr.FCCheckBox("ChkFacturaNC").Checked Then ' recorro la seleccion y tomo el TC de cada aplicación 
+                                                                                    If Gvr.FCCheckBox("ChkFacturaNC").Checked AndAlso ChkNCInvNC.Checked Then ' recorro la seleccion y tomo el TC de cada aplicación 
                                                                                        AplicadoenFactura = True
                                                                                        Dim timporteMovimientoNC As Decimal = (Gvr.FCTextBox("TxtImporte").Text.ToDecimal) '* Gvr.DataKey("SubTotal").ToDecimal / Gvr.DataKey("Saldo").ToDecimal).RoundSQL
                                                                                        Dim TCNC As Decimal = Gvr.DataKey("TipoCambio").ToDecimal
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -1047,8 +1047,13 @@
                <div class="modal-footer">
                    <asp:UpdatePanel runat="server">
                        <ContentTemplate>
+                            <div class="row">
+                             <div class="col-md-12">
+                                 </br>
                            <asp:Button ID="BtnSubirFacturas" runat="server" ClientIDMode="Static" Text="Aceptar" CssClass="btn btn-primary" />
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                                <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                </div>
+                    </div>
                        </ContentTemplate>
                    </asp:UpdatePanel>
                </div>
--- a/Contabilidad/RegPoliza.aspx.vb
+++ b/Contabilidad/RegPoliza.aspx.vb
@@ -152,7 +152,7 @@ Partial Class RegPoliza

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete
        If Not IsPostBack Then
-
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then Response.Redirect($"/Contabilidad/RegPrePolizaS.aspx")

            ViewState("Orden0") = ""
            ViewState("Orden1") = ""
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -656,6 +656,7 @@ Partial Class Inventarios_EntradasSalidas

        dt.Columns.Add("Observaciones")
        dt.Columns.Add("CountMovimientoEntradaDetalle")
+        dt.Columns.Add("TienePrePoliza", Type.GetType("System.Int32"))
        dt.Columns.Add("TotalExtranjero", Type.GetType("System.Double"))
        dt.Columns.Add("CveCultivoCuadroDetalle", Type.GetType("System.Int32"))

--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -1272,7 +1272,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                                }
                            }

-                            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
+                            Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
                            // Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);

                            objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
@@ -1409,7 +1409,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                                        objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
                                    }
                                }
-                                Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
+                                Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
                                //Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);
                                using (ClsRH objrh = new ClsRH())
                                {
@@ -1534,7 +1534,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                        }
                    }
                }
-                Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
+                Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
                using (ClsRH objrh = new ClsRH())
                {
                    objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
@@ -1676,7 +1676,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                            }
                        }
                    }
-                    Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
+                    Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
                    using (ClsRH objrh = new ClsRH())
                    {
                        objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
@@ -2704,16 +2704,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
                                    objarch.Add(new ClsSisMail.ArchivoMail() { Ruta = PathXMLF, NombreArchivo = XmlnameF });
                                }
                            }
-
-                            Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
+                            Mail.SendMail(UsuarioActual.Empresa, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
                            // Mail.SendMail(ClsPaginas.EmpresaNotificaciones, "caudillo.90d@gmail.com", string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} ", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), Correo.Trim(), "", objarch);

                            objrh.NomBitacoraCorreoAdd(CvePeriodoSeleccionado, CvePersonal, Correo.Trim(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario);
-
                        }
                    }
-
-
                }
            }
        }
--- 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: <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 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
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -531,6 +531,7 @@
                                    <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" Visible="false" />

                                    <asp:Button ID="BtnCancelar" runat="server" Text="Cancelar"  CssClass="btn btn-danger"  data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" OnClick="BtnCancelar_Click" Visible="false" />
+                                    <asp:HyperLink Text="Regresar" runat="server" NavigateUrl="/Ventas/CatPS.aspx" ID="HplRegresar" CssClass="btn default" />

                                    <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
                                </ContentTemplate>
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -455,6 +455,8 @@ Partial Class OS_OrdenesServicios

            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then

+                BtnCancelar.Text = "Cancelar Cirugía"
+                HplRegresar.NavigateUrl = "/OS/RepOSMedicas.aspx"
                DVAMedicoProcedimiento.Visible = True
                DVTipoVenta1.Visible = True
                DVTipoVenta2.Visible = True
--- a/Transportes/RepContratoDetalle.aspx
+++ b/Transportes/RepContratoDetalle.aspx
@@ -180,7 +180,7 @@
                                            <label class="col-md-4">Observaciones</label>
                                            <div class="col-md-8">
                                                <div class="input-group">
-                                                    <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="70" Width="100%"
+                                                    <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="500" Width="100%"
                                                        TextMode="MultiLine"
                                                        Rows="3"></asp:TextBox>
                                                    <div class="input-group-addon">
@@ -248,7 +248,7 @@
                                            <div class="col-md-8">
                                                <div class="input-group">

-                                                    <asp:TextBox ID="TxtCantidadPasajeros" runat="server" CssClass="form-control" CausesValidation="True"
+                                                    <asp:TextBox ID="Uti" runat="server" CssClass="form-control" CausesValidation="True"
                                                        Width="100%"
                                                        type="number"></asp:TextBox>
                                                    <asp:RequiredFieldValidator ID="RFVCantidadPasajeros" runat="server" ControlToValidate="TxtCantidadPasajeros"
--- a/Transportes/RepContratos.aspx
+++ b/Transportes/RepContratos.aspx
@@ -325,7 +325,7 @@
                                        <label class="col-md-4">Observaciones</label>
                                        <div class="col-md-8">
                                            <div class="input-group">
-                                                <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="200" Width="100%"
+                                                <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="500" Width="100%"
                                                    TextMode="MultiLine"
                                                    Rows="3"></asp:TextBox>
                                                <div class="input-group-addon">
@@ -392,7 +392,7 @@

                                                            <asp:TextBox ID="TxtCantidadPasajeros" runat="server" CssClass="form-control" CausesValidation="True"
                                                                Width="100%"
-                                                                type="number" MaxLength="2" AutoPostBack="True" OnTextChanged="OnChangePasajeros"></asp:TextBox>
+                                                                type="number" MaxLength="2" ></asp:TextBox>
                                                            <asp:RequiredFieldValidator ID="RFVCantidadPasajeros" runat="server" ControlToValidate="TxtCantidadPasajeros"
                                                                Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad de pasajeros''</b> es necesario, por favor ingréselo."
                                                                ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -71,7 +71,6 @@ Partial Class ListadoContratos
    End Sub

    Private Sub CargaFolio()
-        'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero

        Dim ObjFolio As New ClsGralFolios
        If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=-1) Then
@@ -122,7 +121,7 @@ Partial Class ListadoContratos
            Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If
-        'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+

        'Agregamos Contrato

@@ -413,68 +412,5 @@ Partial Class ListadoContratos
    End Sub


-    'Private Sub CargaFolios(Optional FacturarDocumentoNuevo As Boolean = False)
-
-
-    '    Dim ObjFolios As New ClsGralFolios()
-    '    Dim TipoDoctoConsulta As String = ""
-
-    '    If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then
-    '        Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("  CveSubProyecto = {0}  And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue))
-    '        If DT.Rows.Count > 0 Then
-    '            ViewState("CveFolio") = DT.Rows(0)("CveFolio").ToString().ToEntero()
-    '            'ViewState("NumAprobacion") = CLng(DT.Rows(0)("Aprobacion").ToString())
-    '            'ViewState("FechaAprobacion") = DT.Rows(0)("FechaAprobacion").ToString().ToDate
-    '            ViewState("FolioActual") = DT.Rows(0)("FActual").ToString()
-    '            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta > 0 AndAlso Not EsCreaApartirDe AndAlso Not String.IsNullOrEmpty(SerieVenta) Then
-    '                LblSerie.Text = SerieVenta
-    '            Else
-    '                LblSerie.Text = DT.Rows(0)("Serie").ToString()
-    '            End If
-    '            TxtFolio.Text = DT.Rows(0)("FActual").ToString()
-
-    '            If Not FacturarDocumentoNuevo Then
-    '                If Not CveEmpresaCRM > 0 Then
-    '                    'SI ES UNA REMISION EXISTENTE, NO MOSTRAR LOS BOTONES
-    '                    If Not (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem") Then
-    '                        BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-    '                        BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-    '                        TrVistaPrevia.Visible = EstatusCliente
-    '                    End If
-    '                Else
-    '                    If TipoDoctoConsulta.Contiene("Ing", "Egs", "Ant", "Dev") Then
-    '                        BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-    '                        BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-    '                        TrVistaPrevia.Visible = EstatusCliente
-    '                    Else
-    '                        BtnCrearApartirDe.Enabled = True
-    '                        BtnEmitirImprimir.Visible = True
-    '                        TrVistaPrevia.Visible = True
-    '                    End If
-    '                End If
-
-    '            End If
-
-    '            UpFacturar.Update()
-    '        Else
-
-    '            If DdlTipoComprobante.Items.Count > 0 Then
-    '                Alert("No tiene registrados Folios para " & DdlTipoComprobante.SelectedItem.Text & " en esta sucursal.", TipoMensaje.MsgAdvertencia)
-    '            Else
-    '                Alert("No tiene permisos para generar ningun tipo de documento.", TipoMensaje.MsgAdvertencia)
-    '            End If
-
-    '            TrEmitir.Visible = False
-    '            TrVistaPrevia.Visible = False
-    '            BtnCrearApartirDe.Enabled = False
-    '            BtnEmitirImprimir.Visible = False
-    '            UpFacturar.Update()
-    '        End If
-    '        DT.Dispose()
-    '    End If
-    '    ObjFolios.Dispose()
-    '    'End If
-
-    'End Sub

 End Class
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -385,7 +385,7 @@
                                    <div class="row">
                                        <label class="col-md-3">Observaciones:</label>
                                        <div class="col-md-9">
-                                            <asp:TextBox ID="TxtObservaciones" runat="server" Width="100%" TextMode="MultiLine"
+                                            <asp:TextBox ID="TxtObservaciones" runat="server" Width="100%" TextMode="MultiLine" MaxLength="500"
                                                Rows="6"></asp:TextBox>
                                        </div>
                                    </div>
--- a/Ventas/CatPromociones.aspx.vb
+++ b/Ventas/CatPromociones.aspx.vb
@@ -26,7 +26,7 @@ Partial Class Ventas_CatPromociones

            'ImgAddPromocion.Attributes.Add("OnClick", "window.location = '/Ventas/Promociones.aspx'")
            'CARGA SUCURSALES
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
            DdlSubProyecto.DataBind()
            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -1975,7 +1975,7 @@
            <ContentTemplate>
                <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" class="btn btn-primary" />
                <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el Producto/Servicio?" data-btn-ok-label="si" />
-                <asp:HyperLink Text="Cancelar" runat="server" NavigateUrl="/Ventas/CatPS.aspx" CssClass="btn btn-Default" />
+                <asp:HyperLink Text="Cancelar" runat="server" NavigateUrl="/OS/RepOrdenesServicios.aspx" CssClass="btn default" />
                <%--<input type="button" value="Cancelar" onclick="javascript: window.close();" class="btn btn-Default" />--%>
                <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
            </ContentTemplate>
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -236,7 +236,7 @@ Partial Class Ventas_Promociones
        End If

        'CARGA SUBPROYECTOS
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()
        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

--- a/Ventas/RepComisionesSMS.aspx.vb
+++ b/Ventas/RepComisionesSMS.aspx.vb
@@ -34,6 +34,7 @@ Partial Class Ventas_RepComisionesSMS

    Private Sub CargaCombos()

+        If UsuarioActual.CveVendedor = 0 Then GvDatos.Columns(15).Visible = True 'columna de comisiones de gerente

        'If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
        '    DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue))
@@ -45,6 +46,7 @@ Partial Class Ventas_RepComisionesSMS
        If UsuarioActual.CveVendedor > 0 Then
            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
            DdlVendedor.Enabled = False
+            GvDatos.Columns(15).Visible = False 'gerente
        End If

        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
@@ -57,9 +59,10 @@ Partial Class Ventas_RepComisionesSMS
        If UsuarioActual.TienePermisoProceso(376) Then
            DdlUsuarioAtendio.Enabled = False
            DdlUsuarioAtendio.SelectedValueExist(UsuarioActual.CveUsuario)
+            GvDatos.Columns(15).Visible = False 'gerente
+            GvDatos.Columns(16).Visible = False 'ed.medica
+            GvDatos.Columns(17).Visible = False 'fecha pago
        End If
-
-
    End Sub

    Public Sub CargaDatos()
@@ -82,9 +85,6 @@ Partial Class Ventas_RepComisionesSMS

        ObjVentas.Dispose()
        GvDatos.DataBind()
-
-        If UsuarioActual.CveVendedor = 0 Then GvDatos.Columns(15).Visible = True 'columna de comisiones de gerente
-
        UpDatos.Update()

    End Sub
--- a/Ventas/RepVentasUtilidadPadre.aspx
+++ b/Ventas/RepVentasUtilidadPadre.aspx
@@ -237,6 +237,7 @@
    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas Utilidad con los filtros especificados" ToolTip="Listado de Ventas"
+                DataKeyNames=""
                CssClass="table  table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" Width="99%" OnRowDataBound="GvDatos_RowDataBound">
                <Columns>
                    <asp:HyperLinkField ItemStyle-HorizontalAlign="Left" Target="_blank" HeaderText="Grupo" DataTextField="GPO" DataNavigateUrlFields="FechaI,FechaF,CveSubProyecto,CveCliente,CveVendedor,Grupo,GPO,CvePS,CveClasificacion,CveMarca,CveCategoria" DataNavigateUrlFormatString="RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}" />
@@ -244,7 +245,7 @@
                    <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Crédito" DataField="Credito" DataFormatString="{0:N2}" />
                    <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Crédito" DataField="PorcentajeCredito"  ItemStyle-Width="30px"  />
                    <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Contado" DataField="Contado" DataFormatString="{0:N2}" />
-                    <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Contado" DataField="PorcentajeCredito"  ItemStyle-Width="30px"   />
+                    <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Contado" DataField="PorcentajeContado"  ItemStyle-Width="30px"   />

                    <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="%" DataField="ProcentajeVentas" DataFormatString="{0:N2}" ItemStyle-Width="30px" />
                    <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Descuento" DataField="Descuento" DataFormatString="{0:N2}" />
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -256,6 +256,9 @@ Partial Class Ventas_RepVentasUtilidadPadre
                                                   e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveVendedor"),
                                                   e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria"))
                e.Row.Cells(0).Text = String.Format("<a class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.Cells(0).Text)
+
+                'e.Row.Cells(3).Text =
+                '    e.Row.Cells(5).Text =
            Else
                e.Row.Cells(12).BackColor = Drawing.Color.LightGray
            End If
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -373,7 +373,7 @@
                <asp:LinkButton runat="server" ID="LnkDocCliente" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkDocCliente_Click"
                    title="Documentos Cliente" Text="<i class='fa fa-plus'></i> Documentos Cliente"></asp:LinkButton>
            </li>
-            <li style="text-align: left!important" runat="server" id="LiLnkGuias" visible="true">
+            <li style="text-align: left!important" runat="server" id="LiLnkGuias" visible="false">
                <asp:LinkButton runat="server" ID="LnkAgregarGuia" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkAgregarGuia_Click"
                    title="Paqueteria Guías." Text="<i class='fa fa-truck'></i> Paqueteria Guías" Visible="true"></asp:LinkButton>
            </li>