From a1587bc61f4ec5f897fec8486e20deb6f83dc7d9 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 6 May 2024 10:59:37 -0700 Subject: [PATCH 1/2] --Cambios RepCortes E197 --- Compras/PopUpVerFactura.aspx.vb | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 3fa9b72ca..61dc24738 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1563,7 +1563,7 @@ Partial Class PopUpVerFactura Dim Fecha As String = "", Nombre As String = "" Dim OpcionDetallado As Integer = 1 - If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then OpcionDetallado = 2 + If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then OpcionDetallado = 2 Dim ObjVenta As New ClsVentas Dim ObjPuntoVenta As New ClsPuntoVenta @@ -1662,9 +1662,13 @@ Partial Class PopUpVerFactura Orden = 5 TipoTabla = 1 Case "VentaTotalRemision" - rowData("Columna") = "Ventas Remisiones" - Orden = 6 - TipoTabla = 1 + If UsuarioActual.CveEmpresa.Contiene(190, 192) Then + rowData("Columna") = "Ventas Remisiones" + Orden = 6 + TipoTabla = 1 + Else + Orden = 0 + End If Case "TotalEfectivo" rowData("Columna") = "Total Efectivo" Orden = 7 @@ -1727,13 +1731,13 @@ Partial Class PopUpVerFactura DtDatosCajas.Rows.Add(rowData.ItemArray) End If - If row(0).ToString() = "SaldoAnteriorAplicado" Then - Dim RowMP As DataRow = DtMetodosPago.NewRow - RowMP("MetodoPago") = "Saldo Aplicado" - RowMP("Importe") = Total.ToDecimal() + 'If row(0).ToString() = "SaldoAnteriorAplicado" Then + ' Dim RowMP As DataRow = DtMetodosPago.NewRow + ' RowMP("MetodoPago") = "Saldo Aplicado" + ' RowMP("Importe") = Total.ToDecimal() - DtMetodosPago.Rows.Add(RowMP) - End If + ' DtMetodosPago.Rows.Add(RowMP) + 'End If End If Next From 9486ba575fd55390c0f392f89605f79eeac3faea Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 6 May 2024 15:59:39 -0700 Subject: [PATCH 2/2] SMS - 2024.04.16 --- App_Code/ClsVentas.vb | 3 +- TareasProgramadas/Tareas119.ashx | 2 +- Transportes/RepContratos.aspx | 8 +- UserControl/AddMedico.ascx | 69 +++-- UserControl/AddMedico.ascx.vb | 69 ++++- Ventas/ActualizarPrecios.aspx | 3 +- Ventas/ActualizarPrecios.aspx.vb | 26 ++ Ventas/CatMedicos.aspx | 444 +++++++++++++++---------------- Ventas/CatMedicos.aspx.vb | 4 - Ventas/RepComisionesSMS.aspx | 125 ++++++--- Ventas/RepComisionesSMS.aspx.vb | 51 +++- Ventas/Ventas.aspx.vb | 5 +- 12 files changed, 487 insertions(+), 322 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 69de2e44a..1d1a578d1 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6856,7 +6856,7 @@ Public Class ClsVentas End Function - Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer, CveTipoVenta As Integer) As Boolean + Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer, CveTipoVenta As Integer, Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ComisionesMedicasRepGet") @@ -6871,6 +6871,7 @@ Public Class ClsVentas .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index db0c9cfc5..998b74230 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -381,7 +381,7 @@ public class TareasJam : IHttpHandler } - ErrorProceso = true; + //ErrorProceso = true; if (!ErrorProceso) diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index c60a2f43b..2d01f9a80 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -241,7 +241,13 @@
- + <%----%> +
+ + + + +
diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx index f56e0b0b4..f37366070 100644 --- a/UserControl/AddMedico.ascx +++ b/UserControl/AddMedico.ascx @@ -1,16 +1,19 @@ <%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %> -<%----%> + .contenedor-label { + overflow-x: auto; + white-space: nowrap; + } + + .contenedor-fijo { + width: 150px; /* o el ancho que prefieras */ + overflow-x: auto; + white-space: nowrap; + scrollbar-width: none; + } + +
@@ -49,30 +52,22 @@
- + <%----%>
-
-
- - -
- - - - -
- - - - <%----%> - - <%----%> - - -
+
+
+ + +
+
+
+
+ + +
@@ -110,11 +105,13 @@
- + ErrorMessage="ERROR:
El campo ''Correo'' es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico">--%> +
@@ -124,8 +121,8 @@
- + <%----%>
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb index 410e991a0..83774eb0c 100644 --- a/UserControl/AddMedico.ascx.vb +++ b/UserControl/AddMedico.ascx.vb @@ -1,6 +1,5 @@ Imports System.Data Imports Extensiones -Imports Profact.TimbraCFDI.Complementos.InstitucionesEducativas Partial Class UserControl_AddMedico Inherits System.Web.UI.UserControl @@ -76,6 +75,39 @@ Partial Class UserControl_AddMedico CargaEspecialidad() CargaSubEspecialidad(-1) CargaVendedores() + LlenarMeses() + End Sub + + + Private Sub LlenarMeses() + DdlMesNacimiento.Items.Clear() + DdlMesNacimiento.Items.Add(New ListItem("-", "-1")) + DdlMesNacimiento.Items.Add(New ListItem("Enero", "1")) + DdlMesNacimiento.Items.Add(New ListItem("Febrero", "2")) + DdlMesNacimiento.Items.Add(New ListItem("Marzo", "3")) + DdlMesNacimiento.Items.Add(New ListItem("Abril", "4")) + DdlMesNacimiento.Items.Add(New ListItem("Mayo", "5")) + DdlMesNacimiento.Items.Add(New ListItem("Junio", "6")) + DdlMesNacimiento.Items.Add(New ListItem("Julio", "7")) + DdlMesNacimiento.Items.Add(New ListItem("Agosto", "8")) + DdlMesNacimiento.Items.Add(New ListItem("Septiembre", "9")) + DdlMesNacimiento.Items.Add(New ListItem("Octubre", "10")) + DdlMesNacimiento.Items.Add(New ListItem("Nomviembre", "11")) + DdlMesNacimiento.Items.Add(New ListItem("Diciembre", "12")) + + End Sub + Protected Sub DdlMesNacimiento_SelectedIndexChanged(sender As Object, e As EventArgs) + DdlDiaNacimiento.Items.Clear() + If DdlMesNacimiento.SelectedValue <> "" Then + Dim mes As Integer = Integer.Parse(DdlMesNacimiento.SelectedValue) + Dim año As Integer = DateTime.Now.Year ' Asume año actual para calcular los días + Dim diasEnMes As Integer = System.DateTime.DaysInMonth(año, mes) + + DdlDiaNacimiento.Items.Add(New ListItem("-", "-1")) + For dia As Integer = 1 To diasEnMes + DdlDiaNacimiento.Items.Add(New ListItem(dia.ToString(), dia.ToString())) + Next + End If End Sub Sub CargaVendedores() @@ -163,7 +195,8 @@ Partial Class UserControl_AddMedico TxtNombre.Text = "" TxtAPellidos.Text = "" TxtCedulaProfesional.Text = "" - TxtFechaNacimiento.Text = "" + DdlMesNacimiento.SelectedTextExist(-1) + DdlDiaNacimiento.SelectedTextExist(-1) TxtNotas.Text = "" TxtMail.Text = "" TxtTelefono.Text = "" @@ -219,7 +252,20 @@ Partial Class UserControl_AddMedico TxtNombre.Text = Nombre TxtAPellidos.Text = Apellidos TxtCedulaProfesional.Text = CedulaProfesional - TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy") + + 'TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy") + + If FechaNacimiento > MinFecha Then + DdlMesNacimiento.SelectedValueExist(FechaNacimiento.Month) + DdlMesNacimiento_SelectedIndexChanged(Nothing, Nothing) + DdlDiaNacimiento.SelectedValueExist(FechaNacimiento.Day) + Else + DdlMesNacimiento.SelectedValueExist(-1) + DdlMesNacimiento_SelectedIndexChanged(Nothing, Nothing) + DdlDiaNacimiento.SelectedValueExist(-1) + End If + + TxtNotas.Text = Notas ChkEstatus.Checked = Estatus TxtMail.Text = Mail @@ -240,9 +286,6 @@ Partial Class UserControl_AddMedico LbAgregar.Text = "Actualizar" LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfesional.Text}" - - - UpModal.Update() CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa) @@ -250,6 +293,7 @@ Partial Class UserControl_AddMedico End Sub + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Dim ProcesoOK = False Dim ObjVentas As New ClsVentas @@ -260,15 +304,20 @@ Partial Class UserControl_AddMedico Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.Text) Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text) + Dim FechaNacimiento As Date = MinFecha + If DdlMesNacimiento.SelectedValue.ToEntero > 0 And DdlDiaNacimiento.SelectedValue.ToEntero > 0 Then + FechaNacimiento = New Date(2000, DdlMesNacimiento.SelectedValue.ToEntero, DdlDiaNacimiento.SelectedValue.ToEntero) + End If + If CveMedico > 0 Then - If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, + If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, FechaNacimiento, TxtNotas.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) Then ProcesoOK = True End If Else - CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, + CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, FechaNacimiento, TxtNotas.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) @@ -590,9 +639,13 @@ Partial Class UserControl_AddMedico End Sub + + #End Region + + End Class diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index 16b94cc0f..677820c14 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -208,7 +208,8 @@ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros" + OnRowDataBound="GVPrecios_RowDataBound" > diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 091061b30..fc6c81ae6 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -85,6 +85,18 @@ Partial Class Ventas_ActualizarPrecios Set(value As String) ViewState("PS") = value End Set + End Property + + Private Property PermisoEdicionLista As Boolean + Get + If ViewState("BloquearEdicionListas") Is Nothing Then + ViewState("BloquearEdicionListas") = True + End If + Return Boolean.Parse(ViewState("BloquearEdicionListas").ToString) + End Get + Set(value As Boolean) + ViewState("BloquearEdicionListas") = value + End Set End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -916,6 +928,8 @@ Partial Class Ventas_ActualizarPrecios Dim indiceColumna As Integer = (colIndex) Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString() + + Dim Dr As DataRow = DtPreciosMultiple.Rows(e.Row.RowIndex) If Dr IsNot Nothing Then @@ -924,6 +938,7 @@ Partial Class Ventas_ActualizarPrecios Dim Valor As Decimal = DtPreciosMultiple.Rows(e.Row.RowIndex)(indiceColumna).ToString().ToDecimal() e.Row.FCTextBox(TxtId).Text = Valor.FormatoNumero(2) + e.Row.FCTextBox(TxtId).Enabled = PermisoEdicionLista End If End If @@ -1131,4 +1146,15 @@ Partial Class Ventas_ActualizarPrecios End Function + + Protected Sub GVPrecios_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + + e.Row.FCTextBox("TxtPrecio").Enabled = PermisoEdicionLista + e.Row.FCTextBox("TxtPrecioMinimo").Enabled = PermisoEdicionLista + + End If + + End Sub End Class \ No newline at end of file diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx index 186e273ff..1b9bae7f4 100644 --- a/Ventas/CatMedicos.aspx +++ b/Ventas/CatMedicos.aspx @@ -42,275 +42,275 @@ - + - - - - + -
-
-
- - -
-
-
+ + + +
+
+
+ + +
+
+
-
- Fecha Inicio: +
+ Fecha Inicio: -
-
-
- - - - -
- - - - - - -
-
- Fecha Fin: +
+
+
+ + + + +
+ + + + + + +
+
+ Fecha Fin: -
-
-
- - - - +
+
+
+ + + + +
+ + + + + + +
+ + + +
+ +
+ + + +
+ + Médico + Procedimiento + Clientes + +
- - - - - -
+
+ -
-