Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
|
||||
@@ -191,12 +191,6 @@
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
<asp:UpdatePanel ID="UpHB" runat="server">
|
||||
<ContentTemplate>
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkCobrosEnTranscurso" runat="server" OnClick="LnkCobrosEnTranscurso_Click"><i class="fa fa-money"></i> Cobros en Transcurso</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
|
||||
<li>
|
||||
<asp:LinkButton ID="LkbEstadodeCaja" Visible="false" runat="server"><i class="fa fa-ad-excel"></i> Estado de Caja</asp:LinkButton>
|
||||
</li>
|
||||
@@ -206,6 +200,9 @@
|
||||
<li>
|
||||
<asp:LinkButton ID="LkbRetiro" runat="server" OnClick="LkbRetiro_Click" Visible="false"> <i class="fa fa-ad-excel"></i> Retiro de Efectivo</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkCobrosEnTranscurso" runat="server" OnClick="LnkCobrosEnTranscurso_Click"><i class="fa fa-money"></i> Cobros en Transcurso</asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
|
||||
@@ -115,12 +115,7 @@
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<ajax:TabContainer runat="server" ID="Tabs">
|
||||
|
||||
<ajax:TabPanel ID="TabComisiones" runat="server" HeaderText="Comisiones" ClientIDMode="Static">
|
||||
<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">
|
||||
@@ -153,6 +148,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>
|
||||
@@ -164,53 +161,7 @@
|
||||
|
||||
</ContentTemplate>
|
||||
</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>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<div id="DvModalComisiones" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog" style="width: 900px;">
|
||||
@@ -287,75 +238,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" AutoPostBack="true">
|
||||
<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
|
||||
@@ -59,8 +61,6 @@ Partial Class Ventas_RepComisionesSMS
|
||||
|
||||
Public Sub CargaDatos()
|
||||
|
||||
|
||||
|
||||
LnkExportar.Visible = False
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
@@ -83,39 +83,11 @@ Partial Class Ventas_RepComisionesSMS
|
||||
|
||||
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
|
||||
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
||||
|
||||
If Tabs.ActiveTabIndex = 0 Then
|
||||
CargaDatos()
|
||||
Else
|
||||
CargaDatosEspeciales()
|
||||
End If
|
||||
|
||||
CargaDatos()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -123,19 +95,12 @@ Partial Class Ventas_RepComisionesSMS
|
||||
|
||||
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
||||
|
||||
|
||||
Dim SbFiltros As New StringBuilder()
|
||||
SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
|
||||
|
||||
|
||||
If Tabs.ActiveTabIndex = 0 Then
|
||||
GvDatos.Columns(10).Visible = False
|
||||
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
|
||||
|
||||
GvDatos.Columns(10).Visible = True
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -253,21 +218,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