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 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 Dim Retorno As Boolean = False
DataAdapter("PA_Vta_LineasAdicionalesVencimientosGet") DataAdapter("PA_Vta_LineasAdicionalesVencimientosGet")
@@ -6332,6 +6332,7 @@ Public Class ClsVentas
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try

40
Ventas/Clientes.aspx
View File

@@ -1736,11 +1736,12 @@
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <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>
<div class="tools"> <div class="tools">
<asp:CheckBox ID="ChkPermiteCredito" runat="server" Text="Permite Crédito" /> <asp:CheckBox ID="ChkPermiteCredito" runat="server" Text="Permite Crédito" />
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div> </div>
@@ -1836,7 +1837,7 @@
</div> </div>
</div> </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> <asp:TextBox ID="TxtDocumentacion" CssClass="form-control" runat="server" Rows="3"></asp:TextBox>
</div> </div>
<div class="row" id="DivDiasRevision" runat="server" visible="false"> <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> <asp:TextBox ID="TxtObsDiasRevision" runat="server" CssClass="form-control" Enabled="false"></asp:TextBox>
<label for="<%= TxtObsDiasRevision.ClientID.ToString()%>">Documentación Revisión: </label> <label for="<%= TxtObsDiasRevision.ClientID.ToString()%>">Documentación Revisión: </label>
</div> </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> </div>
@@ -1937,6 +1948,14 @@
</div> </div>
</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> </div>
@@ -4632,20 +4651,7 @@
<div class="row "> <div class="row ">
<div class="col-md-12"> <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="row ">
<div class=" col-md-12" style="text-align: right!important"> <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;" /> <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;" />

24
Ventas/Clientes.aspx.vb
View File

@@ -920,6 +920,8 @@ Partial Class Clientes
TabLineasAdicionales.Visible = True TabLineasAdicionales.Visible = True
LnkAgregarLineaAdicional.Visible = True LnkAgregarLineaAdicional.Visible = True
GetLineasAdicionales() GetLineasAdicionales()
divQuebranto1.Visible = True
divQuebranto2.Visible = True
End If End If
If UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then If UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then
@@ -1689,8 +1691,6 @@ Partial Class Clientes
'Horario 'Horario
TxtHorario.Text = ObjClientes.Horario TxtHorario.Text = ObjClientes.Horario
TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal
TxtCelular.Text = ObjClientes.Celular TxtCelular.Text = ObjClientes.Celular
@@ -1705,6 +1705,9 @@ Partial Class Clientes
ChkEnDemanda.Checked = ObjClientes.EnDemanda ChkEnDemanda.Checked = ObjClientes.EnDemanda
TxtNombreFirmas.Text = ObjClientes.CreditoRegistroFirmas TxtNombreFirmas.Text = ObjClientes.CreditoRegistroFirmas
If ObjClientes.EnQuebranto Then LblAlertaQuebranto.Text = "En Quebranto"
If ObjClientes.EnDemanda Then LblAlertaQuebranto.Text &= "En Demanda"
'7eleven '7eleven
TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor
@@ -1851,6 +1854,23 @@ Partial Class Clientes
GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable() GvCxCHistorial.DataSource = dt.AsEnumerable().Take(22).CopyToDataTable()
End If End If
Retorno = True 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 Else
GvCxC.DataSource = Nothing GvCxC.DataSource = Nothing
DtCxCActivas = Nothing DtCxCActivas = Nothing

14
Ventas/RepVencimientosCredito.aspx
View File

@@ -83,8 +83,10 @@
<asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem> <asp:ListItem Text="Todos" Value="-1" Selected="True"></asp:ListItem>
<asp:ListItem Text="Pagaré Especial" Value="1"></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> </asp:DropDownList>
</div> </div>
<div class="col-md-1 truncate" runat="server" id="DVAgrupador1" visible="false">Agrupador:</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"> <div class="col-md-1 " runat="server" id="DVAgrupador2" visible="false">
<asp:DropDownList runat="server" ID="DdlAgrupador" CssClass="select2me" Width="100%"> <asp:DropDownList runat="server" ID="DdlAgrupador" CssClass="select2me" Width="100%">
@@ -99,7 +101,11 @@
<div class="portlet-body" style="display: none;"> <div class="portlet-body" style="display: none;">
<div class="row"> <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> </div>
</div> </div>
@@ -123,7 +129,6 @@
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvD" Width="100%" runat="server" GridLines="None" <asp:GridView ID="GvD" Width="100%" runat="server" GridLines="None"
DataKeyNames="CveLineaAdicional,LineaAdicional,CveCliente,CveProveedor,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,Proveedor,DiasVencimiento"
CssClass="table table-striped table-advance table-hover ScrollAD input-sm " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" 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"> AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns> <Columns>
@@ -135,6 +140,11 @@
<asp:BoundField DataField="Abreviatura" HeaderText="Moneda" /> <asp:BoundField DataField="Abreviatura" HeaderText="Moneda" />
<asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." /> <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> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

6
Ventas/RepVencimientosCredito.aspx.cs
View File

@@ -71,6 +71,10 @@ public partial class Ventas_RepVencimientosCredito : ClsPaginas
txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth().ToShortDateString(); txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = NowADS().LastDayOfMonth().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.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyectos.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa); DdlSubProyectos.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa);
DdlSubProyectos.DataBind(); DdlSubProyectos.DataBind();
@@ -85,7 +89,7 @@ public partial class Ventas_RepVencimientosCredito : ClsPaginas
private void CargaDatos() private void CargaDatos()
{ {
DTDatosGvD = new DataTable(); DTDatosGvD = new DataTable();
LnkDescargaExcel.Visible = false; LnkDescargaExcel.Visible = false;
ClsVentas objVentas = new ClsVentas(); ClsVentas objVentas = new ClsVentas();