SMS - Comisiones
This commit is contained in:
rakcsle
@@ -6974,7 +6974,12 @@ Public Class ClsVentas
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al agegar la comisión especial", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
If ex.Message.Contains("2627") Then
|
||||
Alert("Ya existe una comisión con el médico y producto especificados.", TipoMensaje.MsgAdvertencia)
|
||||
Else
|
||||
OnError("Ocurrió un error al agegar la comisión especial", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End If
|
||||
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
@@ -5766,14 +5766,14 @@ Partial Class PopUpVerFactura
|
||||
If ObjIE.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Dim reportDataSetsList As New List(Of ReportDataSource)
|
||||
Dim CvePrePoliza As Integer = 0
|
||||
Dim CvePrePoliza As Integer = ObjIE.DtResultados.Rows(0)("CvePrePoliza").ToString.ToEntero
|
||||
Dim dtMovs As New DataTable
|
||||
If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
|
||||
|
||||
If dtMovs IsNot Nothing AndAlso dtMovs.Rows.Count > 0 Then
|
||||
CvePrePoliza = dtMovs.Rows(0)("CvePrePoliza").ToString.ToEntero
|
||||
'CvePrePoliza = dtMovs.Rows(0)("CvePrePoliza").ToString.ToEntero
|
||||
|
||||
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
|
||||
|
||||
@@ -647,7 +647,7 @@
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-2">sino se especifica el folio, se genera en automático:</label>
|
||||
<label class="col-md-12">sino se especifica el folio, se genera en automático:</label>
|
||||
</div>
|
||||
</div>
|
||||
</asp:Panel>
|
||||
|
||||
@@ -2026,7 +2026,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
'Folio = TxtDocumentoFolio.Text
|
||||
'ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal
|
||||
'Observaciones = TxtDocumentoObservaciones.Text
|
||||
'Beneficiario = TxtDocumentoBeneficiario.Text
|
||||
'Beneficiario = TxtDocumentoBeneficiario.TextTxtReferenciaE
|
||||
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
|
||||
@@ -2668,7 +2668,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
divContabilizada.Visible = False
|
||||
TxtFolio.Text = ""
|
||||
|
||||
TxtUsuarioElaboro.Text = UsuarioActual.Usuario
|
||||
LblUsuarioElaboro.Text = UsuarioActual.Usuario
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
@@ -153,6 +153,8 @@
|
||||
<asp:BoundField HeaderText="$ Técnico" DataField="ComisionTecnico" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
|
||||
<asp:BoundField HeaderText="$ E. Médica" DataField="ComisionMedico" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField HeaderText="Fecha Pago" DataField="FechaPago" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" ControlStyle-Width="100px" />
|
||||
|
||||
|
||||
|
||||
</Columns>
|
||||
@@ -168,7 +170,7 @@
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<ajax:TabPanel ID="TabEspeciales" runat="server" HeaderText="Especiales" ClientIDMode="Static">
|
||||
<ajax:TabPanel ID="TabEspeciales" runat="server" HeaderText="Especiales" ClientIDMode="Static" Visible="false">
|
||||
<ContentTemplate>
|
||||
<asp:UpdatePanel ID="UpDatosEspeciales" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
@@ -190,7 +192,7 @@
|
||||
<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" />
|
||||
<asp:BoundField HeaderText="Fecha Pago" DataField="FechaPago" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:dd/MM/yyyy}" ControlStyle-Width="80px" />
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
@@ -287,75 +289,124 @@
|
||||
|
||||
|
||||
|
||||
<div id="DvModalComisionesEspeciales" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 900px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpdatePanel1" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="Literal2" runat="server">Comisiones Especiales</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div id="DvModalComisionesEspeciales" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 900px;">
|
||||
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalComisionesEspeciales" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header ">
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="Literal2" runat="server">Comisiones Especiales</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="row">
|
||||
|
||||
<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="TxtBusquedaComicionesEspeciales" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaComiciones','{0}')", GvComisionesEspeciales.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaComicionesEspeciales','{0}')", GvComisionesEspeciales.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="col-md-3">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlModalMedico" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" DataTextField="Medico" DataValueField="CveMedico" Width="100%">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlModalMedico" InitialValue="-1" runat="server" ControlToValidate="DdlModalMedico" CssClass="help-block errorimput"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Médico''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalComisionesEspeciales"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlModalMedico.ClientID.ToString()%>">Médico:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-3">
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<ADS:Dropdownlost runat="server" ID="DdlModalPS" CssStyle="width:100%" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" IncluyeTodos="false" style="margin-top:4px!important" />
|
||||
<label for="<%= DdlModalPS.ClientID.ToString()%>">
|
||||
Productos / Servicio:<label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-2">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlModalTipoComision" CssClass="form-control select2me" runat="server" Width="100%" OnSelectedIndexChanged="DdlModalTipoComision_SelectedIndexChanged">
|
||||
<asp:ListItem Value="-1" >Seleccione</asp:ListItem>
|
||||
<asp:ListItem Value="1" >Fija</asp:ListItem>
|
||||
<asp:ListItem Value="2">Porcentaje</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlModalTipoComision" InitialValue="-1" runat="server" ControlToValidate="DdlModalTipoComision" CssClass="help-block errorimput"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Comisión''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalComisionesEspeciales"></asp:RequiredFieldValidator>
|
||||
<label for="<%= DdlModalTipoComision.ClientID.ToString()%>">Tipo Comisión:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="col-md-2">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtModalComision" CssClass="form-control" runat="server" Width="100%" onkeyup="FormatoMoneda(this);" AutoComplete="off" CausesValidation="true" >
|
||||
</asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtModalComision" runat="server" ControlToValidate="TxtModalComision" CssClass="help-block errorimput"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Comisión''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalComisionesEspeciales"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtModalComision.ClientID.ToString()%>">Comisión:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-2">
|
||||
<asp:Button runat="server" class="btn btn-primary" ID="LnkModalGuardarComisionEspecial" OnClick="LnkModalGuardarComisionEspecial_Click" Text="Guardar" ValidationGroup="GrpModalComisionesEspeciales" />
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<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="TxtBusquedaComicionesEspeciales" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaComiciones','{0}')", GvComisionesEspeciales.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaComicionesEspeciales','{0}')", GvComisionesEspeciales.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
|
||||
<asp:GridView ID="GvComisionesEspeciales" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveMedicoComision,CveMedico,CvePS,TipoComision,Comision,CveUsuario"
|
||||
data-sort="true"
|
||||
EmptyDataText="No se encontraron Comisiones" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||
<Columns>
|
||||
<asp:GridView ID="GvComisionesEspeciales" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveMedicoComision,CveMedico,CvePS,TipoComision,Comision,CveUsuario"
|
||||
data-sort="true"
|
||||
EmptyDataText="No se encontraron Comisiones" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlMedico" runat="server" Text='<%# Eval("Medico") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Código/Producto" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlCodigoPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="TipoComision" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipoComision" runat="server" Text='<%# Eval("TipoComisionStr") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Comision" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipoComision" runat="server" Text='<%# Eval("Comision") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="60px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkEliminarComisionEspecial" OnClick="LnkEliminarComisionEspecial_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False"
|
||||
CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>"
|
||||
data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlMedico" runat="server" Text='<%# Eval("Medico") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Código/Producto" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlCodigoPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="TipoComision" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlTipoComision" runat="server" Text='<%# Eval("TipoComisionStr") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Comision" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlComision" runat="server" Text='<%# Eval("Comision", "{0:N2}") %>' ></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="60px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="LnkEliminarComisionEspecial" OnClick="LnkEliminarComisionEspecial_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False"
|
||||
CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>"
|
||||
data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
<div class="modal-footer">
|
||||
<button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</asp:Content>
|
||||
|
||||
@@ -2,7 +2,9 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Data.Entity
|
||||
Imports Extensiones
|
||||
Imports Microsoft.EntityFrameworkCore
|
||||
|
||||
|
||||
Partial Class Ventas_RepComisionesSMS
|
||||
@@ -253,21 +255,144 @@ Partial Class Ventas_RepComisionesSMS
|
||||
|
||||
Protected Sub LnkComisionesEspeciales_Click(sender As Object, e As EventArgs)
|
||||
|
||||
ReiniciaModalComisionesEspeciales()
|
||||
|
||||
CargaComisionesEspeciales()
|
||||
RegistraScript("$('#DvModalComisionesEspeciales').modal('show');")
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ReiniciaModalComisionesEspeciales()
|
||||
|
||||
DdlModalTipoComision.SelectedValueExist(-1)
|
||||
|
||||
DdlModalMedico.SelectedValue = Nothing
|
||||
DdlModalMedico.ClearSelection()
|
||||
DdlModalMedico.Items.Clear()
|
||||
DdlModalMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
|
||||
DdlModalMedico.DataBind()
|
||||
DdlModalMedico.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
|
||||
DdlModalPS.SelectedValue = "-1"
|
||||
DdlModalPS.SelectedValue = ""
|
||||
DdlModalPS.SelectedText = ""
|
||||
|
||||
Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
|
||||
If EsWS Then
|
||||
DdlModalPS.setEsWebService(True)
|
||||
Else
|
||||
|
||||
DdlModalPS.ddl.SelectedValue = Nothing
|
||||
DdlModalPS.ddl.ClearSelection()
|
||||
DdlModalPS.ddl.Items.Clear()
|
||||
|
||||
|
||||
'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1)
|
||||
DdlModalPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, Estatus:=1)
|
||||
DdlModalPS.ddl.DataBind()
|
||||
DdlModalPS.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
|
||||
DdlModalPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
||||
|
||||
DdlModalPS.setEsWebService(False)
|
||||
End If
|
||||
|
||||
TxtModalComision.Text = ""
|
||||
|
||||
UpModalComisionesEspeciales.Update()
|
||||
|
||||
End Sub
|
||||
Private Sub CargaComisionesEspeciales()
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
GvComisionesEspeciales.DataSource = Nothing
|
||||
If ObjVentas.GetComisionesMedicasEsPeciales(-1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GvComisionesEspeciales.DataSource = ObjVentas.DtResultados
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
GvComisionesEspeciales.DataBind()
|
||||
UpModalComisionesEspeciales.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEliminarComisionEspecial_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CveMedicoComision As Integer = GvRow.DataKey("CveMedicoComision").ToEntero
|
||||
|
||||
If CveMedicoComision > 0 Then
|
||||
Dim errorProceso As Boolean = False
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
If ObjVentas.RemoveComisionesMedicasEspeciales(CveMedicoComision, UsuarioActual.CveEmpresa) Then
|
||||
Alert("Comisión eliminada correctamente")
|
||||
Else
|
||||
errorProceso = True
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
|
||||
If Not errorProceso Then
|
||||
CargaComisionesEspeciales()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub DdlModalTipoComision_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
TxtModalComision.Text = ""
|
||||
|
||||
If DdlModalTipoComision.SelectedValue.ToEntero = 1 Then
|
||||
TxtModalComision.Attributes.Add("onkeyup", "FormatoMoneda(this)")
|
||||
Else
|
||||
TxtModalComision.Attributes.Add("onkeyup", "FormatoMoneda(this);validaPorcentaje(this);")
|
||||
End If
|
||||
|
||||
UpModalComisionesEspeciales.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkModalGuardarComisionEspecial_Click(sender As Object, e As EventArgs)
|
||||
|
||||
If DdlModalPS.SelectedValue.ToEntero <= 0 Then
|
||||
Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If TxtModalComision.Text.ToDecimal = 0 Then
|
||||
Alert("La comisión es requerida.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim errorProceso As Boolean = False
|
||||
|
||||
Dim Comision As Decimal = TxtModalComision.Text.ToDecimal
|
||||
|
||||
If DdlModalTipoComision.SelectedValue.ToEntero = 2 Then
|
||||
Comision = TxtModalComision.Text.ToDecimal / 100
|
||||
End If
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
|
||||
If ObjVentas.AddComisionesMedicasEspeciales(DdlModalMedico.SelectedValue.ToEntero, DdlModalPS.SelectedValue.ToEntero, DdlModalTipoComision.SelectedValue.ToEntero, Comision, UsuarioActual.CveUsuario) Then
|
||||
Alert("Comisión agregada correctamente")
|
||||
Else
|
||||
errorProceso = True
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If Not errorProceso Then
|
||||
CargaComisionesEspeciales()
|
||||
ReiniciaModalComisionesEspeciales()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user