Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -108,17 +108,30 @@
|
||||
<div class="col-md-2 truncate" style="max-width: 283px!important">
|
||||
<asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" ValidationGroup="GrpFiltrar" CssClass=" form-control input-sm select2me" Width="100%">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="row" id="divfiltro2" runat="server" visible="false">
|
||||
<div class="col-md-1 truncate" >En Demanda:</div>
|
||||
<div class=" col-md-2 truncate" style="max-width: 283px!important">
|
||||
<asp:DropDownList ID="DDlEnDemanda" runat="server" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
|
||||
<asp:ListItem Value="-1" Selected="True">Todos</asp:ListItem>
|
||||
<asp:ListItem Value="1">Solo En Demanda</asp:ListItem>
|
||||
<asp:ListItem Value="2">No en Demanda</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-1 truncate" >En Quebranto:</div>
|
||||
<div class=" col-md-2 truncate" style="max-width: 283px!important">
|
||||
<asp:DropDownList ID="DdlEnQuebranto" runat="server" CssClass=" form-control input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
|
||||
<asp:ListItem Value="-1" Selected="True">Todos</asp:ListItem>
|
||||
<asp:ListItem Value="1">Solo En Quebranto</asp:ListItem>
|
||||
<asp:ListItem Value="2">No En Quebranto</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
@@ -25,24 +25,10 @@ Partial Class CatClientes
|
||||
If Not Page.IsPostBack Then
|
||||
ViewState("Orden") = ""
|
||||
|
||||
CargaNombreClientes()
|
||||
|
||||
|
||||
Inicializa()
|
||||
CargaSucursales()
|
||||
CargaClasificaciones()
|
||||
CargaVendedor()
|
||||
|
||||
'CargaCorporativo()
|
||||
|
||||
'CargaDatos()
|
||||
|
||||
PanelContrato.Visible = True
|
||||
MPContrato.Enabled = True
|
||||
|
||||
|
||||
Me.Form.DefaultButton = LbFiltrar.UniqueID
|
||||
|
||||
|
||||
CargaPersonalizacion()
|
||||
|
||||
End If
|
||||
@@ -54,14 +40,14 @@ Partial Class CatClientes
|
||||
Dim Nombre, RFC As String
|
||||
Nombre = "-1"
|
||||
RFC = "-1"
|
||||
|
||||
If TxtNombre.Text.Trim <> String.Empty Then Nombre = TxtNombre.Text.Trim
|
||||
|
||||
If TxtRFC.Text.Trim <> String.Empty Then RFC = TxtRFC.Text.Trim
|
||||
|
||||
'If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=If(ChkPermiteCredito.Checked, 1, -1)) Then
|
||||
If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=DdlPermiteCredito.SelectedValue.ToEntero) Then
|
||||
|
||||
If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero,
|
||||
PermiteCreditoFiltro:=DdlPermiteCredito.SelectedValue.ToEntero,
|
||||
EnDemanda:=DDlEnDemanda.SelectedValue.ToEntero,
|
||||
EnQuebranto:=DdlEnQuebranto.SelectedValue.ToEntero) Then
|
||||
|
||||
If ObjClientes.DtResultados.Rows.Count > 0 Then
|
||||
DTDatos = ObjClientes.DtResultados
|
||||
@@ -70,8 +56,6 @@ Partial Class CatClientes
|
||||
Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
ObjClientes.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
@@ -79,10 +63,8 @@ Partial Class CatClientes
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
|
||||
UPDatos.Update()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSucursales()
|
||||
@@ -96,27 +78,26 @@ Partial Class CatClientes
|
||||
DdlClasificaciones.DataBind()
|
||||
DdlClasificaciones.Items.Insert(0, New ListItem("Todas", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaNombreClientes()
|
||||
Private Sub Inicializa()
|
||||
PanelContrato.Visible = True
|
||||
MPContrato.Enabled = True
|
||||
Me.Form.DefaultButton = LbFiltrar.UniqueID
|
||||
|
||||
DdlClienteAUnificar.setEsWebService(True)
|
||||
DdlClienteAUnificar.SelectedValue = "-1"
|
||||
DdlClienteAUnificar.SelectedText = "Todos"
|
||||
|
||||
|
||||
DdlClienteOriginal.setEsWebService(True)
|
||||
DdlClienteOriginal.SelectedValue = "-1"
|
||||
DdlClienteOriginal.SelectedText = "Todos"
|
||||
|
||||
'DdlClienteAUnificar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
'DdlClienteAUnificar.DataBind()
|
||||
|
||||
'DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
'DdlClienteOriginal.DataBind()
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
divfiltro2.Visible = True
|
||||
End If
|
||||
|
||||
UpBodyUnificar.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaVendedor()
|
||||
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
|
||||
DdlVendedor.DataBind()
|
||||
@@ -127,13 +108,8 @@ Partial Class CatClientes
|
||||
|
||||
CargaDatos()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
|
||||
GvDatos.ExportToExcel("RepClientes_" & NowADS().ToShortDateString)
|
||||
End Sub
|
||||
@@ -261,7 +237,7 @@ Partial Class CatClientes
|
||||
End If
|
||||
|
||||
ObjCliente.Dispose()
|
||||
CargaNombreClientes()
|
||||
Inicializa()
|
||||
CargaDatos()
|
||||
End Sub
|
||||
#End Region
|
||||
@@ -276,8 +252,7 @@ Partial Class CatClientes
|
||||
GuardaPersonalizacion()
|
||||
End If
|
||||
|
||||
Personaliza()
|
||||
|
||||
Personaliza(True)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -411,7 +386,6 @@ Partial Class CatClientes
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatClientes.aspx", String.Join("|", ListPersonalizada)) Then
|
||||
'Alert("Personalizacion guardada")
|
||||
End If
|
||||
@@ -420,13 +394,12 @@ Partial Class CatClientes
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPersonalizacion()
|
||||
Private Sub CargaPersonalizacion(Optional RecargaDatos As Boolean = False)
|
||||
|
||||
Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("CatClientes.aspx")
|
||||
|
||||
If strBasePersonalizacion.Trim.Length > 0 Then
|
||||
|
||||
|
||||
ChkCodigo.Checked = False
|
||||
ChkNombre.Checked = False
|
||||
ChkRFC.Checked = False
|
||||
@@ -564,7 +537,7 @@ Partial Class CatClientes
|
||||
|
||||
Next
|
||||
|
||||
Personaliza()
|
||||
Personaliza(RecargaDatos)
|
||||
|
||||
Else
|
||||
PersonalizaDefault()
|
||||
@@ -577,7 +550,7 @@ Partial Class CatClientes
|
||||
Private Sub PersonalizaDefault()
|
||||
|
||||
End Sub
|
||||
Private Sub Personaliza()
|
||||
Private Sub Personaliza(Optional RecargaDatos As Boolean = False)
|
||||
|
||||
|
||||
GvDatos.Columns(0).Visible = ChkCodigo.Checked
|
||||
@@ -614,8 +587,7 @@ Partial Class CatClientes
|
||||
GvDatos.Columns(28).Visible = ChkPermiteCredito.Checked
|
||||
GvDatos.Columns(29).Visible = chkFechaLimiteCredito.Checked
|
||||
|
||||
|
||||
CargaDatos()
|
||||
If RecargaDatos Then CargaDatos()
|
||||
UPDatos.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
94
Ventas/CatPSSubProyectosVendedores.aspx
Normal file
94
Ventas/CatPSSubProyectosVendedores.aspx
Normal file
@@ -0,0 +1,94 @@
|
||||
<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="True" CodeFile="CatPSSubProyectosVendedores.aspx.vb" Inherits="Ventas_CatPSSubProyectosVendedores" %>
|
||||
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
|
||||
Catalogo de Productos/Servicios, SubProyectos y Vendedores
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="HA" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" runat="server"><i class="fa fa-plus"></i>Agregar</asp:LinkButton></li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvPSSubProyectosVendedores.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvPSSubProyectosVendedores.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
|
||||
</div>
|
||||
<br />
|
||||
<asp:GridView ID="GvPSSubProyectosVendedores" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="100%" AutoGenerateColumns="False"
|
||||
DataKeyNames="CvePS,CodigoPS,CveSubProyecto,SubProyecto,CveVendedor,Vendedor" >
|
||||
<Columns>
|
||||
<asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lblps" runat="server" Text='<%# Eval("CodigoPS")%>'> </asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lblsubproyecto" runat="server" Text='<%# Eval("SubProyecto")%>'> </asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="lblvendedor" runat="server" Text='<%# Eval("Vendedor")%>'> </asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminar_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar?" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div id="DModalAdd" class="modal ADS fade" role="dialog">
|
||||
<asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalAdd" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-content">
|
||||
<div class="modal-header ">
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="ltltitulo" Text="Productos/Servicios, SubProyectos y Vendedores" runat="server"> </asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
|
||||
|
||||
<label for="<%= DdlPS.ClientID.ToString()%>">
|
||||
Productos / Servicio:<label>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
|
||||
<label for="<%= DdlSubProyecto.ClientID.ToString()%>">SubProyecto:</label>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CausesValidation="true" runat="server" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
|
||||
<label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnAdd" OnClick="BtnAdd_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" />
|
||||
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
107
Ventas/CatPSSubProyectosVendedores.aspx.vb
Normal file
107
Ventas/CatPSSubProyectosVendedores.aspx.vb
Normal file
@@ -0,0 +1,107 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Ventas_CatPSSubProyectosVendedores
|
||||
|
||||
Inherits ClsPaginas
|
||||
|
||||
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If Not IsPostBack Then
|
||||
CargaDatos()
|
||||
CargaCombos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub CargaDatos()
|
||||
Dim ObjVentas As ClsVentas = New ClsVentas()
|
||||
|
||||
If ObjVentas.GetPSSubProyectosVendedores(UsuarioActual.CveEmpresa) Then
|
||||
GvPSSubProyectosVendedores.DataSource = ObjVentas.DtResultados
|
||||
GvPSSubProyectosVendedores.DataBind()
|
||||
End If
|
||||
|
||||
ObjVentas.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub CargaCombos()
|
||||
|
||||
DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
||||
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
||||
DdlPS.SelectedText = ""
|
||||
DdlPS.SelectedValue = "-1"
|
||||
Else
|
||||
DdlPS.ddl.Items.Clear()
|
||||
DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
|
||||
DdlPS.ddl.DataBind()
|
||||
DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
||||
End If
|
||||
|
||||
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
|
||||
DdlVendedor.DataBind()
|
||||
DdlVendedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
UpModalAdd.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub LimpiaRegistro()
|
||||
DdlPS.SelectedValue = "-1"
|
||||
DdlPS.SelectedText = ""
|
||||
DdlVendedor.SelectedIndex = 0
|
||||
DdlSubProyecto.SelectedIndex = 0
|
||||
UpModalAdd.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkAgregar_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
RegistraScript("$('#DModalAdd').modal();")
|
||||
LimpiaRegistro()
|
||||
UpModalAdd.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAdd_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
If DdlPS.SelectedValue = "" Then
|
||||
Alert("Tiene que seleccionar un producto/servicio.")
|
||||
Return
|
||||
End If
|
||||
|
||||
If DdlVendedor.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un vendedor.")
|
||||
Return
|
||||
End If
|
||||
|
||||
If DdlSubProyecto.SelectedValue = "-1" Then
|
||||
Alert("Tiene que seleccionar un subproyecto.")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim ObjVentas As ClsVentas = New ClsVentas()
|
||||
Dim Continuar As Boolean = ObjVentas.AddPSSubProyectosVendedores(DdlPS.SelectedValue.ToEntero(), DdlSubProyecto.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero())
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If Continuar Then
|
||||
RegistraScript("$('#DModalAdd').modal('hide');")
|
||||
LimpiaRegistro()
|
||||
Alert("El registro se ha agregado")
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkEliminar_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
|
||||
Dim ObjVentas As ClsVentas = New ClsVentas()
|
||||
Dim Continuar As Boolean = ObjVentas.RemovePSSubProyectosVendedores(gvRow.DataKey("CvePS").ToEntero(), gvRow.DataKey("CveSubProyecto").ToEntero(), gvRow.DataKey("CveVendedor").ToEntero())
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If Continuar Then
|
||||
CargaDatos()
|
||||
Alert("El registro se ha eliminado")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -1736,11 +1736,12 @@
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Parametros</span>
|
||||
<span class="caption-subject bold uppercase">Crédito</span>
|
||||
<asp:Label ID="LblAlertaQuebranto" runat="server" Font-Bold ="true" ForeColor="#CC0000"></asp:Label>
|
||||
</div>
|
||||
|
||||
<div class="tools">
|
||||
<asp:CheckBox ID="ChkPermiteCredito" runat="server" Text="Permite Crédito" />
|
||||
<div class="tools">
|
||||
<asp:CheckBox ID="ChkPermiteCredito" runat="server" Text="Permite Crédito" />
|
||||
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>
|
||||
</div>
|
||||
|
||||
@@ -1836,7 +1837,7 @@
|
||||
</div>
|
||||
</div>
|
||||
<div>
|
||||
<label for="<%= TxtDocumentacion.ClientID.ToString()%>">Documentación:</label>
|
||||
<label for="<%= TxtDocumentacion.ClientID.ToString()%>">Observaciones:</label>
|
||||
<asp:TextBox ID="TxtDocumentacion" CssClass="form-control" runat="server" Rows="3"></asp:TextBox>
|
||||
</div>
|
||||
<div class="row" id="DivDiasRevision" runat="server" visible="false">
|
||||
@@ -1864,6 +1865,16 @@
|
||||
<asp:TextBox ID="TxtObsDiasRevision" runat="server" CssClass="form-control" Enabled="false"></asp:TextBox>
|
||||
<label for="<%= TxtObsDiasRevision.ClientID.ToString()%>">Documentación Revisión: </label>
|
||||
</div>
|
||||
<div class="row" runat="server" id="divQuebranto1" visible="false">
|
||||
<div class="col-md-12">
|
||||
<div class="col-md-4" >
|
||||
<asp:CheckBox ID="ChkEnQuebranto" runat="server" Text="En Quebranto" />
|
||||
</div>
|
||||
<div class="col-md-4" >
|
||||
<asp:CheckBox ID="ChkEnDemanda" runat="server" Text="En Demanda" />
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -1937,6 +1948,14 @@
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" id="divQuebranto2" visible="false">
|
||||
<div class="col-md-12">
|
||||
<label class="col-md-1 " style="width: 120px; text-align: right">Registro Firmas:</label>
|
||||
<div class="col-md-2" style="width: 250px">
|
||||
<asp:TextBox ID="TxtNombreFirmas" runat="server" Width="250px"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
@@ -4632,20 +4651,7 @@
|
||||
<div class="row ">
|
||||
<div class="col-md-12">
|
||||
|
||||
<div class="row ">
|
||||
<div class="col-md-12">
|
||||
<div class="col-md-2" >
|
||||
<asp:CheckBox ID="ChkEnQuebranto" runat="server" Text="En Quebranto" />
|
||||
</div>
|
||||
<div class="col-md-2" >
|
||||
<asp:CheckBox ID="ChkEnDemanda" runat="server" Text="En Demanda" />
|
||||
</div>
|
||||
<label class="col-md-1 " style="width: 120px; text-align: right">Registro Firmas:</label>
|
||||
<div class="col-md-2" style="width: 250px">
|
||||
<asp:TextBox ID="TxtNombreFirmas" runat="server" Width="250px"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row ">
|
||||
<div class=" col-md-12" style="text-align: right!important">
|
||||
<input type="text" id="TxtBuscarLineaAdicional" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBuscarLineaAdicional','{0}')", GvLineasAdicionales.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
|
||||
|
||||
@@ -919,7 +919,9 @@ Partial Class Clientes
|
||||
CargaCombosLineasAdicionales()
|
||||
TabLineasAdicionales.Visible = True
|
||||
LnkAgregarLineaAdicional.Visible = True
|
||||
GetLineasAdicionales()
|
||||
GetLineasAdicionales()
|
||||
divQuebranto1.Visible = True
|
||||
divQuebranto2.Visible = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then
|
||||
@@ -1689,22 +1691,18 @@ Partial Class Clientes
|
||||
|
||||
'Horario
|
||||
TxtHorario.Text = ObjClientes.Horario
|
||||
|
||||
|
||||
TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
|
||||
TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
|
||||
TxtCelular.Text = ObjClientes.Celular
|
||||
TxtExtOtro.Text = ObjClientes.ExtOtros
|
||||
|
||||
|
||||
'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
|
||||
' ActivarRegistroAutomatico()
|
||||
'End If
|
||||
|
||||
TxtExtOtro.Text = ObjClientes.ExtOtros
|
||||
|
||||
ChkEnQuebranto.Checked = ObjClientes.EnQuebranto
|
||||
ChkEnDemanda.Checked = ObjClientes.EnDemanda
|
||||
TxtNombreFirmas.Text = ObjClientes.CreditoRegistroFirmas
|
||||
|
||||
If ObjClientes.EnQuebranto Then LblAlertaQuebranto.Text = " En Quebranto "
|
||||
If ObjClientes.EnDemanda Then LblAlertaQuebranto.Text &= " En Demanda "
|
||||
|
||||
'7eleven
|
||||
TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor
|
||||
|
||||
@@ -1851,6 +1849,23 @@ Partial Class Clientes
|
||||
GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable()
|
||||
End If
|
||||
Retorno = True
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
|
||||
Dim tdtt As DataTable = DtCxCActivas.FiltraParametros("DiasVencidos > 0")
|
||||
If tdtt.Rows.Count > 0 Then
|
||||
Dim tstr As String = "Facturas con vencimiento: <br/>"
|
||||
Dim tdtsaldo As DataTable = tdtt.FiltraParametros("CveMoneda = 1")
|
||||
If tdtsaldo.Rows.Count > 0 Then
|
||||
tstr &= tdtt.Rows.Count & $" - ${tdtsaldo.SUM("Saldo").FormatoNumero} Pesos.<br/>"
|
||||
End If
|
||||
tdtsaldo = tdtt.FiltraParametros("CveMoneda = 2")
|
||||
If tdtsaldo.Rows.Count > 0 Then
|
||||
tstr &= tdtsaldo.Rows.Count & $" - ${tdtsaldo.SUM("Saldo").FormatoNumero} Dólares.<br/>"
|
||||
End If
|
||||
|
||||
Alert(tstr, TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
|
||||
Else
|
||||
GvCxC.DataSource = Nothing
|
||||
DtCxCActivas = Nothing
|
||||
|
||||
@@ -572,7 +572,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
|
||||
//SI REGISTRA SALIDA DE ALMACÉN EN AUTOMÁTICO Y ES DEVOLUCION QUE REALIZE EL MOVMIENTO DE SALIDA DE ALMACEN
|
||||
if ((UsuarioActual.Empresa.Funcionalidad(567) == "1" || UsuarioActual.Empresa.Funcionalidad(531) == "1") && factura.TipoDocto == "Dev" && factura.SaldoAlmacen != 0)
|
||||
{
|
||||
factura.RealizarDevolucionAlmacen = true;
|
||||
factura.RealizarDevolucionAlmacen = 1;
|
||||
}
|
||||
|
||||
bool AplicaCancelacionConPagos = false;
|
||||
@@ -583,7 +583,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
|
||||
|
||||
if (UsuarioActual.TienePermisoProceso(269) && UsuarioActual.Empresa.Funcionalidad(109) == "1" && factura.TipoDocto == "Ing" && factura.SaldoAlmacen != 0)
|
||||
{
|
||||
factura.RealizarDevolucionAlmacen = true;
|
||||
factura.RealizarDevolucionAlmacen = 1;
|
||||
}
|
||||
retorno = factura.EjecutarCancelacionPendiente(CveEstatus, CancelacionFecha, CancelacionAcuse, AplicaCancelacionConPagos: AplicaCancelacionConPagos);
|
||||
|
||||
|
||||
@@ -207,12 +207,11 @@
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<br />
|
||||
</asp:UpdatePanel>
|
||||
<div class="row">
|
||||
<div align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; 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>
|
||||
<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>
|
||||
</div>
|
||||
</div>
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
|
||||
@@ -82,9 +82,11 @@
|
||||
<asp:DropDownList runat="server" ID="DdlTipoLinea" CssClass="select2me" Width="100%">
|
||||
<asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
|
||||
<asp:ListItem Text="Pagaré Especial" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="PO" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="PO" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Pagaré Linea" Value="3"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<div class="col-md-1 truncate" runat="server" id="DVAgrupador1" visible="false">Agrupador:</div>
|
||||
<div class="col-md-1 " runat="server" id="DVAgrupador2" visible="false">
|
||||
<asp:DropDownList runat="server" ID="DdlAgrupador" CssClass="select2me" Width="100%">
|
||||
@@ -99,7 +101,11 @@
|
||||
<div class="portlet-body" style="display: none;">
|
||||
<div class="row">
|
||||
|
||||
|
||||
<label class="col-md-1">Sucursal: </label>
|
||||
<div class="col-md-1">
|
||||
<asp:DropDownList ID="DdlSubProyectos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:DropDownList>
|
||||
<%--<asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlSubProyectos" DataTextField="SubProyecto" DataValueField="CveSubProyecto" runat="server"></asp:DropDownList>--%>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
@@ -122,8 +128,7 @@
|
||||
<div class="row ">
|
||||
<div class="col-md-12">
|
||||
|
||||
<asp:GridView ID="GvD" Width="100%" runat="server" GridLines="None"
|
||||
DataKeyNames="CveLineaAdicional,LineaAdicional,CveCliente,CveProveedor,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,Proveedor,DiasVencimiento"
|
||||
<asp:GridView ID="GvD" Width="100%" runat="server" GridLines="None"
|
||||
CssClass="table table-striped table-advance table-hover ScrollAD input-sm " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
|
||||
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
|
||||
<Columns>
|
||||
@@ -134,7 +139,12 @@
|
||||
<asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField DataField="Abreviatura" HeaderText="Moneda" />
|
||||
<asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." />
|
||||
<asp:BoundField DataField="FechaVencimiento" HeaderText="F. Vencimiento" DataFormatString="{0:d}" />
|
||||
<asp:BoundField DataField="FechaVencimiento" HeaderText="F. Vencimiento" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField HeaderText="P. Cred." >
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPC" runat="server" Text='<%# Eval("PermiteCredito").ToString()=="True"?"Si":"No" %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
|
||||
@@ -70,7 +70,11 @@ public partial class Ventas_RepVencimientosCredito : ClsPaginas
|
||||
{
|
||||
txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth().ToShortDateString();
|
||||
txtFechaF.Text = NowADS().LastDayOfMonth().ToShortDateString();
|
||||
|
||||
|
||||
DdlClientes.setEsWebService(true);
|
||||
DdlClientes.Attributes.Add("data-metodo", "getcliente");
|
||||
DdlClientes.SelectedText = "Todos";
|
||||
DdlClientes.SelectedValue = "-1";
|
||||
DdlSubProyectos.Items.Insert(0, new ListItem("Todos", "-1"));
|
||||
DdlSubProyectos.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa);
|
||||
DdlSubProyectos.DataBind();
|
||||
@@ -85,7 +89,7 @@ public partial class Ventas_RepVencimientosCredito : ClsPaginas
|
||||
private void CargaDatos()
|
||||
{
|
||||
DTDatosGvD = new DataTable();
|
||||
LnkDescargaExcel.Visible = false;
|
||||
LnkDescargaExcel.Visible = false;
|
||||
|
||||
ClsVentas objVentas = new ClsVentas();
|
||||
|
||||
|
||||
@@ -13226,7 +13226,7 @@ Partial Class Ventas
|
||||
Timbre.Comprobante.Serie = Obj.Serie
|
||||
Timbre.Comprobante.Fecha = Obj.FechaCP
|
||||
Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
|
||||
Timbre.Comprobante.CondicionesdePago = If(UsuarioActual.CveEmpresa.Contiene(15, 76), "No Aplica", Obj.FormaPago33)
|
||||
Timbre.Comprobante.CondicionesdePago = If(UsuarioActual.CveEmpresa.Contiene(15, 76, 198), "No Aplica", Obj.FormaPago33)
|
||||
Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
|
||||
Timbre.Comprobante.SubTotal = Obj.SubTotal
|
||||
Timbre.Comprobante.Descuentos = Obj.Descuento
|
||||
@@ -14532,7 +14532,7 @@ Partial Class Ventas
|
||||
|
||||
'Si viene de OS, Se guarda CveVenta en OS
|
||||
If CveOS > 0 Then
|
||||
If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS) Then
|
||||
If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS, UsuarioActual.CveEmpresa) Then
|
||||
ErrorList.Add("Ocurrió un error al guardar la venta en Ordenes de Servicio")
|
||||
End If
|
||||
End If
|
||||
@@ -26081,7 +26081,9 @@ Partial Class Ventas
|
||||
AplicaCancelacionConPagos = True
|
||||
End If
|
||||
|
||||
resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
|
||||
|
||||
|
||||
resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
|
||||
strMensaje.Append(resp.Mensaje)
|
||||
Dim DtBonificaciones As DataTable = Nothing
|
||||
|
||||
@@ -26098,7 +26100,7 @@ Partial Class Ventas
|
||||
Try
|
||||
'VERIFICA SI TIENE RNC DE BONIFICACION
|
||||
Dim Bon As New Modelos.Factura(UsuarioActual, RowBon("CveVentaBonificacion").ToString().ToEntero(), UsuarioActual.CveEmpresa, VerificaAlmacen:=False)
|
||||
Dim respBon As Modelos.Factura.MCancelacionVentaMensaje = Bon.CancelarFactura(False, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
|
||||
Dim respBon As Modelos.Factura.MCancelacionVentaMensaje = Bon.CancelarFactura(0, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
|
||||
If respBon.HuboError Then
|
||||
strMensaje.AppendFormat("<br/>Ocurrió un error al cancelar la remisión de NC de bonificación <b> {0} </b>.", Bon.SerieFolio)
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user