", 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(" ", "\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(" ", "\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"
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 0c1f35d1e..8fe0b7be9 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4624,7 +4624,7 @@
-
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 15a385678..ef22b8974 100644
--- 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
diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 1081e1dde..39138f4f0 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -1047,8 +1047,13 @@
diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb
index 20d6f96c2..431bf440c 100644
--- 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") = ""
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index a98f03291..cb43c4982 100644
--- 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"))
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 3ed9e79df..a7c092926 100644
--- 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);
-
}
}
-
-
}
}
}
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
diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index dbc6ce8af..ef642499f 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -531,6 +531,7 @@
+
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index e5847c271..88a756aea 100644
--- 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
diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx
index 8c0bf6b42..192e6d424 100644
--- a/Transportes/RepContratoDetalle.aspx
+++ b/Transportes/RepContratoDetalle.aspx
@@ -180,7 +180,7 @@
-
@@ -248,7 +248,7 @@
- Observaciones
-
@@ -392,7 +392,7 @@
+ type="number" MaxLength="2" >
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index ea8f5663a..0c7c732ac 100644
--- 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
diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index aa5df3eb7..2756615cb 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -385,7 +385,7 @@
-
diff --git a/Ventas/CatPromociones.aspx.vb b/Ventas/CatPromociones.aspx.vb
index 2d7ec33b3..1790559c6 100644
--- 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"))
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 1dd0d9d97..f2f750789 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -1975,7 +1975,7 @@
-
+
<%----%>
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 681176951..0d90fe29d 100644
--- 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"))
diff --git a/Ventas/RepComisionesSMS.aspx.vb b/Ventas/RepComisionesSMS.aspx.vb
index c7d758c1b..4601e4e35 100644
--- 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
diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx
index c7916d2c1..cad6b2f04 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx
+++ b/Ventas/RepVentasUtilidadPadre.aspx
@@ -237,6 +237,7 @@
@@ -244,7 +245,7 @@
-
+
diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb
index 34f7ee3d0..eff0b437d 100644
--- 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("{2}", 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
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 1fb845849..e67f1894d 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -373,7 +373,7 @@
-