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

-- vencimientos lineas

Browse Source
This commit is contained in:
rrene
2024-08-20 06:29:27 -07:00
parent b68976a4ce
commit be9830a349
5 changed files with 70 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsVentas.vb
View File

@@ -6322,7 +6322,7 @@ Public Class ClsVentas
End Function
Public Function GetLineasAdicionalesVencimientos(CveCliente As Integer, TipoLinea As Integer, FechaInicio As Date, FechaFin As Date, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
Public Function GetLineasAdicionalesVencimientos(CveCliente As Integer, TipoLinea As Integer, FechaInicio As Date, FechaFin As Date, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_LineasAdicionalesVencimientosGet")
@@ -6332,6 +6332,7 @@ Public Class ClsVentas
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try

42
Ventas/Clientes.aspx
View File

@@ -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>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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;" />

26
Ventas/Clientes.aspx.vb
View File

@@ -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,8 +1691,6 @@ Partial Class Clientes
'Horario
TxtHorario.Text = ObjClientes.Horario
TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
TxtCelular.Text = ObjClientes.Celular
@@ -1705,6 +1705,9 @@ Partial Class Clientes
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 +1854,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

20
Ventas/RepVencimientosCredito.aspx
View File

@@ -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 >
<ItemTemplate>
<asp:Literal ID="LtlPC" runat="server" Text='<%# Eval("PermiteCredito").ToString()=="True"?"Si":"No" %>'></asp:Literal>&nbsp;
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</div>

8
Ventas/RepVencimientosCredito.aspx.cs
View File

@@ -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();