AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2024-05-06 18:46:23 -07:00
parent 7ec05bb32f 9486ba575f
commit c6d6d4a738
13 changed files with 501 additions and 332 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsVentas.vb
View File

@@ -6856,7 +6856,7 @@ Public Class ClsVentas
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ComisionesMedicasRepGet") DataAdapter("PA_Vta_ComisionesMedicasRepGet")
@@ -6871,6 +6871,7 @@ Public Class ClsVentas
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
.Add("@Opcion", SqlDbType.Int).Value = Opcion
End With End With

18
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1563,7 +1563,7 @@ Partial Class PopUpVerFactura
Dim Fecha As String = "", Nombre As String = "" Dim Fecha As String = "", Nombre As String = ""
Dim OpcionDetallado As Integer = 1 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 ObjVenta As New ClsVentas
Dim ObjPuntoVenta As New ClsPuntoVenta Dim ObjPuntoVenta As New ClsPuntoVenta
@@ -1662,9 +1662,13 @@ Partial Class PopUpVerFactura
Orden = 5 Orden = 5
TipoTabla = 1 TipoTabla = 1
Case "VentaTotalRemision" Case "VentaTotalRemision"
If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
rowData("Columna") = "Ventas Remisiones" rowData("Columna") = "Ventas Remisiones"
Orden = 6 Orden = 6
TipoTabla = 1 TipoTabla = 1
Else
Orden = 0
End If
Case "TotalEfectivo" Case "TotalEfectivo"
rowData("Columna") = "Total Efectivo" rowData("Columna") = "Total Efectivo"
Orden = 7 Orden = 7
@@ -1727,13 +1731,13 @@ Partial Class PopUpVerFactura
DtDatosCajas.Rows.Add(rowData.ItemArray) DtDatosCajas.Rows.Add(rowData.ItemArray)
End If End If
If row(0).ToString() = "SaldoAnteriorAplicado" Then 'If row(0).ToString() = "SaldoAnteriorAplicado" Then
Dim RowMP As DataRow = DtMetodosPago.NewRow ' Dim RowMP As DataRow = DtMetodosPago.NewRow
RowMP("MetodoPago") = "Saldo Aplicado" ' RowMP("MetodoPago") = "Saldo Aplicado"
RowMP("Importe") = Total.ToDecimal() ' RowMP("Importe") = Total.ToDecimal()
DtMetodosPago.Rows.Add(RowMP) ' DtMetodosPago.Rows.Add(RowMP)
End If 'End If
End If End If
Next Next

2
TareasProgramadas/Tareas119.ashx
View File

@@ -381,7 +381,7 @@ public class TareasJam : IHttpHandler
} }
ErrorProceso = true; //ErrorProceso = true;
if (!ErrorProceso) if (!ErrorProceso)

8
Transportes/RepContratos.aspx
View File

@@ -241,7 +241,13 @@
<div class="col-md-7"> <div class="col-md-7">
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4 bold text-primary">Folio</label> <label class="col-md-4 bold text-primary">Folio</label>
<asp:Label class="col-md-8" runat="server" ID="LbFolio" Text="Folio"></asp:Label> <%--<asp:Label class="col-md-8" runat="server" ID="LbFolio" Text="Folio"></asp:Label>--%>
<div class="col-md-8">
<asp:TextBox ID="LbFolio" runat="server" MaxLength="70" Width="200px" CssClass="form-control" ></asp:TextBox>
</div>
</div> </div>
<div class="row my-1"> <div class="row my-1">

61
UserControl/AddMedico.ascx
View File

@@ -1,16 +1,19 @@
<%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %> <%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %>
<%--<style> <style>
.modal {
z-index: 10150 !important; .contenedor-label {
overflow-x: auto;
white-space: nowrap;
} }
.modal-backdrop.show { .contenedor-fijo {
z-index: 10140 !important; width: 150px; /* o el ancho que prefieras */
overflow-x: auto;
white-space: nowrap;
scrollbar-width: none;
} }
.select2me {
z-index: 10160 !important; /* Asegúrate de que sea más alto que el modal y el backdrop */ </style>
}
</style>--%>
<div id="DVAgregarMedico" style="margin-top:-30px!important;" > <div id="DVAgregarMedico" style="margin-top:-30px!important;" >
<div class="modal-dialog" style="min-width: 650px;"> <div class="modal-dialog" style="min-width: 650px;">
@@ -49,29 +52,21 @@
<div class="col-md-4"> <div class="col-md-4">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCedulaProfesional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtCedulaProfesional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtCedulaProfesional" runat="server" ControlToValidate="TxtCedulaProfesional" CssClass="help-block errorimput" <%--<asp:RequiredFieldValidator ID="RfvTxtCedulaProfesional" runat="server" ControlToValidate="TxtCedulaProfesional" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator> ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtCedulaProfesional.ClientID.ToString()%>">Cédula Profesional:</label> <label for="<%= TxtCedulaProfesional.ClientID.ToString()%>">Cédula Profesional:</label>
</div> </div>
</div> </div>
<div class="col-md-4"> <div class="col-md-2">
<div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px; margin-top: -10px !important;"> <div class="form-group form-md-line-input input-iconright contenedor-fijo" >
<label for="<%= TxtFechaNacimiento.ClientID.ToString()%>" style="color: #888888;">Fecha de Nacimiento: </label> <asp:DropDownList ID="DdlMesNacimiento" CssClass="form-control select2me" runat="server" Width="78px" AutoPostBack="true" OnSelectedIndexChanged="DdlMesNacimiento_SelectedIndexChanged"></asp:DropDownList>
<label for="<%= DdlMesNacimiento.ClientID.ToString()%>">Mes día Nacimiento:</label>
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: -5px !important;">
<asp:TextBox ID="TxtFechaNacimiento" CssClass="form-control" MaxLength="20" runat="server" Width="100px" Height="28px"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="LnkFechaNacimiento" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div> </div>
</div>
<ajax:MaskedEditExtender ID="MEEFechaNacimiento" runat="server" TargetControlID="TxtFechaNacimiento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender> <div class="col-md-2">
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaNacimiento" PopupButtonID="LnkFechaNacimiento" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender> <div class="form-group form-md-line-input input-iconright">
<%--<asp:RequiredFieldValidator ID="rfvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>--%> <asp:DropDownList ID="DdlDiaNacimiento" CssClass="form-control select2me" runat="server" Width="100%" ></asp:DropDownList>
<asp:CompareValidator ID="cvFechaNacimiento" runat="server" ControlToValidate="TxtFechaNacimiento" Display="None" ErrorMessage="El campo <b>''Fecha de Nacimiento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarMedico"></asp:CompareValidator> <label for="<%= DdlDiaNacimiento.ClientID.ToString()%>"> </label>
<%--<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>--%>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaNacimiento" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
@@ -110,11 +105,13 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtMail" CssClass="form-control " runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtMail" CssClass="form-control " runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FilTxtMail" runat="server" FilterType="Numbers, LowercaseLetters, UppercaseLetters, Custom" ValidChars=".;@_-ñ" TargetControlID="TxtMail" /> <ajax:FilteredTextBoxExtender ID="FilTxtMail" runat="server" FilterType="Numbers, LowercaseLetters, UppercaseLetters, Custom" ValidChars=".;@_-ñ" TargetControlID="TxtMail" />
<asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
<%--<asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*"
ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarMedico"></asp:RegularExpressionValidator> ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarMedico"></asp:RegularExpressionValidator>
<asp:RequiredFieldValidator ID="RfvTxtMail" runat="server" ControlToValidate="TxtMail" CssClass="help-block errorimput" <asp:RequiredFieldValidator ID="RfvTxtMail" runat="server" ControlToValidate="TxtMail" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator> ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>--%>
<label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label> <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
</div> </div>
</div> </div>
@@ -124,8 +121,8 @@
<div class="col-md-4"> <div class="col-md-4">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList> <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" Width="100%" DataValueField="CveMedicoEspecialidad" AutoPostBack="true" OnSelectedIndexChanged="DdlEspecialidad_SelectedIndexChanged"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlEspecialidad" runat="server" ControlToValidate="DdlEspecialidad" CssClass="help-block errorimput" InitialValue="-1" <%--<asp:RequiredFieldValidator ID="RfvDdlEspecialidad" runat="server" ControlToValidate="DdlEspecialidad" CssClass="help-block errorimput" InitialValue="-1"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator> ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>--%>
<label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label> <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
</div> </div>
</div> </div>

69
UserControl/AddMedico.ascx.vb
View File

@@ -1,6 +1,5 @@
Imports System.Data Imports System.Data
Imports Extensiones Imports Extensiones
Imports Profact.TimbraCFDI.Complementos.InstitucionesEducativas
Partial Class UserControl_AddMedico Partial Class UserControl_AddMedico
Inherits System.Web.UI.UserControl Inherits System.Web.UI.UserControl
@@ -76,6 +75,39 @@ Partial Class UserControl_AddMedico
CargaEspecialidad() CargaEspecialidad()
CargaSubEspecialidad(-1) CargaSubEspecialidad(-1)
CargaVendedores() 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 End Sub
Sub CargaVendedores() Sub CargaVendedores()
@@ -163,7 +195,8 @@ Partial Class UserControl_AddMedico
TxtNombre.Text = "" TxtNombre.Text = ""
TxtAPellidos.Text = "" TxtAPellidos.Text = ""
TxtCedulaProfesional.Text = "" TxtCedulaProfesional.Text = ""
TxtFechaNacimiento.Text = "" DdlMesNacimiento.SelectedTextExist(-1)
DdlDiaNacimiento.SelectedTextExist(-1)
TxtNotas.Text = "" TxtNotas.Text = ""
TxtMail.Text = "" TxtMail.Text = ""
TxtTelefono.Text = "" TxtTelefono.Text = ""
@@ -219,7 +252,20 @@ Partial Class UserControl_AddMedico
TxtNombre.Text = Nombre TxtNombre.Text = Nombre
TxtAPellidos.Text = Apellidos TxtAPellidos.Text = Apellidos
TxtCedulaProfesional.Text = CedulaProfesional 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 TxtNotas.Text = Notas
ChkEstatus.Checked = Estatus ChkEstatus.Checked = Estatus
TxtMail.Text = Mail TxtMail.Text = Mail
@@ -240,9 +286,6 @@ Partial Class UserControl_AddMedico
LbAgregar.Text = "Actualizar" LbAgregar.Text = "Actualizar"
LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfesional.Text}" LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfesional.Text}"
UpModal.Update() UpModal.Update()
CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa) CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa)
@@ -250,6 +293,7 @@ Partial Class UserControl_AddMedico
End Sub End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ProcesoOK = False Dim ProcesoOK = False
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
@@ -260,15 +304,20 @@ Partial Class UserControl_AddMedico
Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.Text) Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.Text)
Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.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 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, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero,
DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) Then DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) Then
ProcesoOK = True ProcesoOK = True
End If End If
Else 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, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero,
DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero)
@@ -590,9 +639,13 @@ Partial Class UserControl_AddMedico
End Sub End Sub
#End Region #End Region
End Class End Class

3
Ventas/ActualizarPrecios.aspx
View File

@@ -208,7 +208,8 @@
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBuscar','{0}')", GVPrecios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div> </div>
<asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,NumeroParte,Porcentaje,CodigoPS,ProductoExhibicion" <asp:GridView ID="GVPrecios" runat="server" GridLines="None" DataKeyNames="CvePS, CvePrecioLista,PrecioLista,PS,Codigo,NumeroParte,Porcentaje,CodigoPS,ProductoExhibicion"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros"> CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros"
OnRowDataBound="GVPrecios_RowDataBound" >
<Columns> <Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%"> <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="5%">
<ItemTemplate> <ItemTemplate>

26
Ventas/ActualizarPrecios.aspx.vb
View File

@@ -87,6 +87,18 @@ Partial Class Ventas_ActualizarPrecios
End Set End Set
End Property 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 Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
@@ -916,6 +928,8 @@ Partial Class Ventas_ActualizarPrecios
Dim indiceColumna As Integer = (colIndex) Dim indiceColumna As Integer = (colIndex)
Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString() Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString()
Dim Dr As DataRow = DtPreciosMultiple.Rows(e.Row.RowIndex) Dim Dr As DataRow = DtPreciosMultiple.Rows(e.Row.RowIndex)
If Dr IsNot Nothing Then 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() Dim Valor As Decimal = DtPreciosMultiple.Rows(e.Row.RowIndex)(indiceColumna).ToString().ToDecimal()
e.Row.FCTextBox(TxtId).Text = Valor.FormatoNumero(2) e.Row.FCTextBox(TxtId).Text = Valor.FormatoNumero(2)
e.Row.FCTextBox(TxtId).Enabled = PermisoEdicionLista
End If End If
End If End If
@@ -1131,4 +1146,15 @@ Partial Class Ventas_ActualizarPrecios
End Function 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 End Class

4
Ventas/CatMedicos.aspx.vb
View File

@@ -53,10 +53,6 @@ Partial Class Ventas_CatMedicos
CargaCombos() CargaCombos()
'CargaEspecialidad()
'CargaSubEspecialidad(-1)
CargaDatos() CargaDatos()
BtnConsultar_Click(Nothing, Nothing) BtnConsultar_Click(Nothing, Nothing)

49
Ventas/RepComisionesSMS.aspx
View File

@@ -113,9 +113,13 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <ajax:TabContainer runat="server" ID="Tabs">
<ajax:TabPanel ID="TabComisiones" runat="server" HeaderText="Comisiones" ClientIDMode="Static">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left"> <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" /> <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
@@ -159,6 +163,49 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabEspeciales" runat="server" HeaderText="Especiales" ClientIDMode="Static">
<ContentTemplate>
<asp:UpdatePanel ID="UpDatosEspeciales" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
<div class="col-md-6">
<input type="text" id="TxtBusquedaEspecial" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaEspecial','{0}')", GvDatosEspeciales.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaEspecial','{0}')", GvDatosEspeciales.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
<div class="row">
<div class="col-md-6">
<asp:GridView ID="GvDatosEspeciales" runat="server" AutoGenerateColumns="False"
DataKeyNames=""
data-sort="true"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Médico" DataField="Medico" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Com. Médico" DataField="ComisionMedico" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" ControlStyle-Width="120px" />
<asp:BoundField HeaderText="Com. Gerente" DataField="ComisionGerente" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" ControlStyle-Width="120px" />
<asp:BoundField HeaderText="Com. Vendedor" DataField="ComisionVendedor" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" ControlStyle-Width="120px" />
<asp:BoundField HeaderText="Com. Técnico" DataField="ComisionTecnico" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" ControlStyle-Width="120px" />
<asp:BoundField HeaderText="Fecha de Pago" DataField="FechaPago" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" ControlStyle-Width="80px" />
</Columns>
</asp:GridView>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>

49
Ventas/RepComisionesSMS.aspx.vb
View File

@@ -65,7 +65,7 @@ Partial Class Ventas_RepComisionesSMS
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, -1) Then If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, -1, 1) Then
GvDatos.DataSource = ObjVentas.DtResultados GvDatos.DataSource = ObjVentas.DtResultados
If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
@@ -81,26 +81,61 @@ Partial Class Ventas_RepComisionesSMS
UpDatos.Update() UpDatos.Update()
End Sub
Public Sub CargaDatosEspeciales()
LnkExportar.Visible = False
Dim ObjVentas As New ClsVentas
If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, -1, 2) Then
GvDatosEspeciales.DataSource = ObjVentas.DtResultados
If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
LnkExportar.Visible = True
End If
Else
GvDatosEspeciales.DataSource = Nothing
End If
ObjVentas.Dispose()
GvDatosEspeciales.DataBind()
UpDatosEspeciales.Update()
End Sub End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
If Tabs.ActiveTabIndex = 0 Then
CargaDatos() CargaDatos()
Else
CargaDatosEspeciales()
End If
End Sub End Sub
#Region "EXCEL" #Region "EXCEL"
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
GvDatos.Columns(10).Visible = False
Dim SbFiltros As New StringBuilder() Dim SbFiltros As New StringBuilder()
SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|") SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
GvDatos.ExportToExcelGembox("CatMedicos", UsuarioActual, "Catálogo de Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvDatos.Columns(10).Visible = True
If Tabs.ActiveTabIndex = 0 Then
GvDatos.Columns(10).Visible = False
GvDatos.ExportToExcelGembox("Comisiones", UsuarioActual, "Comisiones", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvDatos.Columns(10).Visible = True
Else
GvDatosEspeciales.ExportToExcelGembox("Comisiones", UsuarioActual, "Comisiones Especiales", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
End If
End Sub End Sub
@@ -152,9 +187,9 @@ Partial Class Ventas_RepComisionesSMS
Dim ComisionGerenteDT As Decimal = DTDatos.FiltroPrimeroValor("ComisionGerente", $"CvePS = {CvePS} ").ToDecimal Dim ComisionGerenteDT As Decimal = DTDatos.FiltroPrimeroValor("ComisionGerente", $"CvePS = {CvePS} ").ToDecimal
Dim ComisionMedicoGV As Decimal = GvRow.FCTextBox("TxtComisionMedico").Text.ToDecimal Dim ComisionMedicoGV As Decimal = GvRow.FCTextBox("TxtComisionMedico").Text.ToDecimal
Dim ComisionGerenteGV As Decimal = (GvRow.FCTextBox("TxtComisionGerente").Text.ToDecimal / 100).RoundSQL(2) Dim ComisionGerenteGV As Decimal = (GvRow.FCTextBox("TxtComisionGerente").Text.ToDecimal / 100).RoundSQL(4)
Dim ComisionVendedorGV As Decimal = (GvRow.FCTextBox("TxtComisionVendedor").Text.ToDecimal / 100).RoundSQL(2) Dim ComisionVendedorGV As Decimal = (GvRow.FCTextBox("TxtComisionVendedor").Text.ToDecimal / 100).RoundSQL(4)
Dim ComisionTecnicoGV As Decimal = (GvRow.FCTextBox("TxtComisionTecnico").Text.ToDecimal / 100).RoundSQL(2) Dim ComisionTecnicoGV As Decimal = (GvRow.FCTextBox("TxtComisionTecnico").Text.ToDecimal / 100).RoundSQL(4)
If ComisionMedicoDT <> ComisionMedicoGV Or ComisionVendedorDT <> ComisionVendedorGV Or ComisionTecnicoDT <> ComisionTecnicoGV Or ComisionGerenteDT <> ComisionGerenteGV Then If ComisionMedicoDT <> ComisionMedicoGV Or ComisionVendedorDT <> ComisionVendedorGV Or ComisionTecnicoDT <> ComisionTecnicoGV Or ComisionGerenteDT <> ComisionGerenteGV Then

5
Ventas/Ventas.aspx.vb
View File

@@ -9,6 +9,7 @@ Imports System.Diagnostics
Imports System.IO Imports System.IO
Imports System.Net.Http Imports System.Net.Http
Imports System.Security.Cryptography.X509Certificates Imports System.Security.Cryptography.X509Certificates
Imports System.ServiceModel.Security
Imports ADSNetLibrary.SIGAPI.Models.CRM.Request Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
Imports ADSNetLibrary.SIGAPI.Services.CRM Imports ADSNetLibrary.SIGAPI.Services.CRM
Imports ADSTimbrado Imports ADSTimbrado
@@ -22633,6 +22634,7 @@ Partial Class Ventas
DdlProcedimiento.Enabled = True DdlProcedimiento.Enabled = True
TxtPaciente.Enabled = True TxtPaciente.Enabled = True
TxtEpisodio.Enabled = True TxtEpisodio.Enabled = True
TxtFolioRemision.Enabled = True
End If End If
@@ -22812,6 +22814,7 @@ Partial Class Ventas
FechaParaSurtir = TxtFechaOS.Text.Replace(",", "").ToDateTime() FechaParaSurtir = TxtFechaOS.Text.Replace(",", "").ToDateTime()
End If End If
If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
UsuarioActual.CveEmpresa, CveVenta, UsuarioActual.CveEmpresa, CveVenta,
Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
@@ -22819,7 +22822,7 @@ Partial Class Ventas
CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero,
FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero()) Then FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero(), FolioRemision:=TxtFolioRemision.Text.Trim) Then
OcurrioError = True OcurrioError = True
End If End If