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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2025-01-29 12:24:31 -07:00
parent 36e52b4d75 2850323a44
commit 4c1073830b
21 changed files with 3542 additions and 4253 deletions
Download Patch File Download Diff File Expand all files Collapse all files

539
Compras/RepCxPDetalle.aspx
View File

@@ -267,236 +267,311 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns>
<%--0--%>
<asp:TemplateField>
<HeaderTemplate>
Tipo Doc.
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LtlTipoDocto" runat="server" Text='<%# Eval("TipoDocto")%>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--1--%>
<asp:TemplateField>
<HeaderTemplate>
Folio
</HeaderTemplate>
<ItemTemplate>
<asp:HyperLink ID="HplFolio" runat="server" Text='<%# Eval("SerieFolio")%>' CssClass="Texto"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<%--2--%>
<asp:TemplateField>
<HeaderTemplate>
Fecha
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--3--%>
<asp:TemplateField>
<HeaderTemplate>
SubTotal
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSubTotal" runat="server" Text='<%# Eval("SubTotal", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--4--%>
<asp:TemplateField>
<HeaderTemplate>
IVA
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--5--%>
<asp:TemplateField Visible="false">
<HeaderTemplate>
IEPS
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--6--%>
<asp:TemplateField>
<HeaderTemplate>
Descuento
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlDescuento" runat="server" Text='<%# Eval("Descuentos", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--7--%>
<asp:TemplateField>
<HeaderTemplate>
Total
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--8--%>
<asp:TemplateField>
<HeaderTemplate>
Moneda
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblMoneda" runat="server" Text='<%# Eval("Abreviatura")%>' CssClass="Moneda"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--9--%>
<asp:TemplateField>
<HeaderTemplate>
Saldo
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--10--%>
<asp:TemplateField>
<HeaderTemplate>
Fecha Venc.
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlFechaVenc" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--11--%>
<asp:TemplateField>
<HeaderTemplate>
Días Venc.
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlDiaVencidos" runat="server" Text='<%# Eval("DiasVencidos", "{0:N0}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--12--%>
<asp:TemplateField>
<HeaderTemplate>
Proveedor
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlProveedor" runat="server" Text='<%# Eval("RazonSocial", "{0}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--13--%>
<asp:TemplateField ControlStyle-Width="150px">
<HeaderTemplate>
Cuenta
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlCuenta" runat="server" Text='<%# Eval("Cuenta")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--14--%>
<asp:TemplateField ControlStyle-Width="150px" Visible="false">
<HeaderTemplate>
Observaciones
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--15--%>
<asp:TemplateField HeaderText="Alm." ItemStyle-Width="10%" Visible="false">
<ItemTemplate>
<asp:Label data-toggle="tooltip" data-html="true" Text='' ID="LbEstatusInv" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<%--16--%>
<asp:TemplateField ControlStyle-Width="150px" Visible="false">
<HeaderTemplate>
Descripción
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlDescrip" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false">
<HeaderTemplate>
SubTotal
</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlSubtotalP" runat="server" Text='<%# Eval("SubtotalPendiente", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField Visible="false">
<HeaderTemplate>
IVA
</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlIVAP" runat="server" Text='<%# Eval("IVAPendiente", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField Visible="false">
<HeaderTemplate>
IEPS
</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlIEPSP" runat="server" Text='<%# Eval("IEPSPendiente", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="Ret IVA Serv. Prof" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="Texto">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETIVASerProf" runat="server" Text='<%# Eval("RetIVAServProf", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="Ret IVA Fletes" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETIVAFletes" runat="server" Text='<%# Eval("RetIVAFletes", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="Ret IVA Arrend" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETIVAArrend" runat="server" Text='<%# Eval("RetIVAArrendamiento", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="Ret ISR Serv. Prof" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETISRSerProf" runat="server" Text='<%# Eval("RetISRServProf", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="Ret ISR Arrend" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETISRArrend" runat="server" Text='<%# Eval("RetISRArrendamiento", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="Ret ISR Resico" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETISRResico" runat="server" Text='<%# Eval("RetISRResico", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
</asp:GridView>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
DataKeyNames="DiasVencidos,Saldo"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns>
<%--0--%>
<asp:TemplateField>
<HeaderTemplate>
Tipo Doc.
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LtlTipoDocto" runat="server" Text='<%# Eval("TipoDocto")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--1--%>
<asp:TemplateField>
<HeaderTemplate>
Folio
</HeaderTemplate>
<ItemTemplate>
<asp:HyperLink ID="HplFolio" runat="server" Text='<%# Eval("SerieFolio")%>' CssClass="Texto"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<%--2--%>
<asp:TemplateField>
<HeaderTemplate>
Fecha
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("Fecha", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--3--%>
<asp:TemplateField>
<HeaderTemplate>
SubTotal
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSubTotal" runat="server" Text='<%# Eval("SubTotal", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--4--%>
<asp:TemplateField>
<HeaderTemplate>
IVA
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--5--%>
<asp:TemplateField Visible="false">
<HeaderTemplate>
IEPS
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--6--%>
<asp:TemplateField>
<HeaderTemplate>
Descuento
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlDescuento" runat="server" Text='<%# Eval("Descuentos", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--7--%>
<asp:TemplateField>
<HeaderTemplate>
Total
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--8--%>
<asp:TemplateField>
<HeaderTemplate>
Moneda
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblMoneda" runat="server" Text='<%# Eval("Abreviatura")%>' CssClass="Moneda"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--9--%>
<asp:TemplateField>
<HeaderTemplate>
Saldo
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--10--%>
<asp:TemplateField>
<HeaderTemplate>
Fecha Venc.
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlFechaVenc" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--11--%>
<asp:TemplateField>
<HeaderTemplate>
Días Venc.
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlDiaVencidos" runat="server" Text='<%# Eval("DiasVencidos", "{0:N0}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--12--%>
<asp:TemplateField>
<HeaderTemplate>
Proveedor
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlProveedor" runat="server" Text='<%# Eval("RazonSocial", "{0}")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--13--%>
<asp:TemplateField ControlStyle-Width="150px">
<HeaderTemplate>
Cuenta
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlCuenta" runat="server" Text='<%# Eval("Cuenta")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--14--%>
<asp:TemplateField ControlStyle-Width="150px" Visible="false">
<HeaderTemplate>
Observaciones
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--15--%>
<asp:TemplateField HeaderText="Alm." ItemStyle-Width="10%" Visible="false">
<ItemTemplate>
<asp:Label data-toggle="tooltip" data-html="true" Text='' ID="LbEstatusInv" runat="server" />
</ItemTemplate>
</asp:TemplateField>
<%--16--%>
<asp:TemplateField ControlStyle-Width="150px" Visible="false">
<HeaderTemplate>
Descripción
</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlDescrip" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%--17--%>
<asp:TemplateField Visible="false">
<HeaderTemplate>
SubTotal
</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlSubtotalP" runat="server" Text='<%# Eval("SubtotalPendiente", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--18--%>
<asp:TemplateField Visible="false">
<HeaderTemplate>
IVA
</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlIVAP" runat="server" Text='<%# Eval("IVAPendiente", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--19--%>
<asp:TemplateField Visible="false">
<HeaderTemplate>
IEPS
</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlIEPSP" runat="server" Text='<%# Eval("IEPSPendiente", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%--20--%>
<asp:TemplateField Visible="false" HeaderText="Ret IVA Serv. Prof" ItemStyle-HorizontalAlign="Right" HeaderStyle-CssClass="Texto">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETIVASerProf" runat="server" Text='<%# Eval("RetIVAServProf", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--21--%>
<asp:TemplateField Visible="false" HeaderText="Ret IVA Fletes" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETIVAFletes" runat="server" Text='<%# Eval("RetIVAFletes", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--22--%>
<asp:TemplateField Visible="false" HeaderText="Ret IVA Arrend" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETIVAArrend" runat="server" Text='<%# Eval("RetIVAArrendamiento", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--23--%>
<asp:TemplateField Visible="false" HeaderText="Ret ISR Serv. Prof" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETISRSerProf" runat="server" Text='<%# Eval("RetISRServProf", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--24--%>
<asp:TemplateField Visible="false" HeaderText="Ret ISR Arrend" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETISRArrend" runat="server" Text='<%# Eval("RetISRArrendamiento", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--25--%>
<asp:TemplateField Visible="false" HeaderText="Ret ISR Resico" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label CssClass="TextoGris" ID="LtlRETISRResico" runat="server" Text='<%# Eval("RetISRResico", "{0:N2}") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--Inicio Columnas reservadas a los rangos--%>
<asp:TemplateField Visible="false" HeaderText="" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblR1" runat="server" Text='<%# Eval("R1", "{0:N2}") %>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblR2" runat="server" Text='<%# Eval("R2", "{0:N2}") %>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblR3" runat="server" Text='<%# Eval("R3", "{0:N2}") %>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblR4" runat="server" Text='<%# Eval("R4", "{0:N2}") %>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblR5" runat="server" Text='<%# Eval("R5", "{0:N2}") %>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblR6" runat="server" Text='<%# Eval("R6", "{0:N2}") %>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblR7" runat="server" Text='<%# Eval("R7", "{0:N2}") %>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField Visible="false" HeaderText="" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblR8" runat="server" Text='<%# Eval("R8", "{0:N2}") %>' ></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--fin Columnas reservadas a los rangos--%>
</Columns>
<RowStyle CssClass="Texto" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
@@ -524,7 +599,7 @@
<table style="width: 100%; background-color: white!important">
<table style="width: 100%; background-color: white!important" runat="server" id="TPersonalizar">
<tr>
<td style="text-align: left;"><asp:CheckBox ID="ChkTipoDocto" runat="server" Text="Tipo Documento" Checked="true" /></td>
<td style="text-align: left;"> <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td>
@@ -575,7 +650,7 @@
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-primary" OnClick="BtnPersonalizar_Click" />
<asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>

300
Compras/RepCxPDetalle.aspx.vb
View File

@@ -6,6 +6,8 @@ Imports Microsoft.Reporting.WebForms
Imports Extensiones
Imports System.Data
Partial Class RepCxPDetalle
Inherits ClsPaginas
@@ -214,20 +216,53 @@ Partial Class RepCxPDetalle
ViewState("DTCuentasContables") = value
End Set
End Property
Private Property DTTangos As DataTable
Get
If ViewState("DTTangos") Is Nothing Then
ViewState("DTTangos") = New DataTable
End If
Return DirectCast(ViewState("DTTangos"), DataTable)
End Get
Set(value As DataTable)
ViewState("DTTangos") = value
End Set
End Property
Public ReadOnly Property GvCountColumnasIniciales As Integer
Get
Return 26
End Get
End Property
#End Region
'Private ReadOnly Property ColumnasVisibles As
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
AgregarChecksRangos() 'Esto requiere generarse en cada postaback
If Not IsPostBack Then
SePersonalizo = 0
ViewState("Opcion") = IfNull(Request("Op"), "S")
ViewState("Opcion") = IfNull(Request("Op"), "S")
'GvCountColumnasIniciales = GvDatos.Columns.Count
MostrarOcultarColumnas()
CargaCombos()
CargaCombos()
If Request("Op") IsNot Nothing Then
CargaDatos()
End If
'ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")
End If
End If
End If
End Sub
#Region "CARGAS"
@@ -390,6 +425,9 @@ Partial Class RepCxPDetalle
Else
GvDatos.Columns(13).Visible = False
End If
DTGvSourcePersonalizaRangos(DtDatos:=TMP_DTDatos)
DtDatos = TMP_DTDatos
GvDatos.DataSource = DtDatos
HplProgramar.NavigateUrl = $"/Bancos/RepProgramarRecursos.aspx{HttpContext.Current.Request.Url.PathAndQuery.Replace("/Compras/RepCxPDetalle.aspx", "")}"
@@ -402,25 +440,100 @@ Partial Class RepCxPDetalle
End Try
ObjMovtos.Dispose()
GvDatos.DataBind()
GvDatos.DataBind()
' GvDatosPersonalizaRangos()
RangosOcultarMostrar()
GvDatos.DataBind()
RangosOcultarMostrar()
'GvDatosPersonalizaRangosAsignadatos()
UPDatos.Update()
End Sub
End Sub
Private Sub DTGvSourcePersonalizaRangos(ByRef DtDatos As DataTable)
DtDatos.Columns.Add("R1", GetType(Decimal))
DtDatos.Columns.Add("R2", GetType(Decimal))
DtDatos.Columns.Add("R3", GetType(Decimal))
DtDatos.Columns.Add("R4", GetType(Decimal))
DtDatos.Columns.Add("R5", GetType(Decimal))
DtDatos.Columns.Add("R6", GetType(Decimal))
DtDatos.Columns.Add("R7", GetType(Decimal))
DtDatos.Columns.Add("R8", GetType(Decimal))
DtDatos.AcceptChanges()
Dim startIndex As Integer = GvCountColumnasIniciales '- 1
Dim indexcontcol As Integer = startIndex
Dim NumColActual As Integer = 1
For Each drow As DataRow In DTTangos.Rows
Dim CveCxPColumna As Integer = drow("CveCxPColumna").ToString.ToEntero
Dim RangoInicial As Integer = drow("RangoInicial").ToString.ToEntero
Dim RangoFinal As Integer = drow("RangoFinal").ToString.ToEntero
Dim Tipo As Integer = drow("Tipo").ToString.ToEntero
Dim ChkID = $"Chk_{CveCxPColumna}_{RangoInicial}_{RangoFinal}_{Tipo}" ' Asignar un ID único
Dim chk As CheckBox = TryCast(TPersonalizar.FindControl(ChkID), CheckBox)
If chk.Checked Then
For Each dRowDT As DataRow In DtDatos.Rows
Dim DiasVencidos As Integer = dRowDT("DiasVencidos").ToString.ToEntero
If Tipo = 1 And DiasVencidos > 0 Then
If RangoFinal = 0 And DiasVencidos >= RangoInicial Then
dRowDT($"R{NumColActual}") = dRowDT("Saldo")
End If
If DiasVencidos >= RangoInicial And DiasVencidos <= RangoFinal Then
dRowDT($"R{NumColActual}") = dRowDT("Saldo")
End If
ElseIf Tipo = 2 And DiasVencidos < 0 Then
If RangoFinal = 0 And Math.Abs(DiasVencidos) >= RangoInicial Then
dRowDT($"R{NumColActual}") = dRowDT("Saldo")
End If
If Math.Abs(DiasVencidos) >= RangoInicial And Math.Abs(DiasVencidos) <= RangoFinal Then
dRowDT($"R{NumColActual}") = dRowDT("Saldo")
End If
End If
Next
NumColActual = NumColActual + 1
End If
Next
End Sub
#End Region
#Region "CONSULTAR"
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos()
ConfiguraEmpresa()
'UPDatos.Update()
End Sub
End Sub
#End Region
#Region "CONFIGURACIONES"
Private Function AddRows(ByRef DT As DataTable) As DataTable
'Dim i As Integer = 0
'Dim Ultima As String = String.Empty
@@ -468,7 +581,8 @@ Partial Class RepCxPDetalle
#Region "GRIDVIEW"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If DdlGrupo.SelectedValue.ToEntero = 11 Then
@@ -517,28 +631,28 @@ Partial Class RepCxPDetalle
End If
If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
Dim Str As New StringBuilder
Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")
Dim Str As New StringBuilder
Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")
e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
Select Case e.Row.DBCampo("EstatusInventario").ToEntero
Case 1
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
Case 2
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-checkered' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange
Case 3
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
End Select
End If
e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
Select Case e.Row.DBCampo("EstatusInventario").ToEntero
Case 1
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
Case 2
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-checkered' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange
Case 3
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
End Select
End If
End If
End If
End If
End Sub
#End Region
@@ -588,11 +702,120 @@ Partial Class RepCxPDetalle
If Activo Then SePersonalizo = 1
End Sub
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
MostrarOcultarColumnas()
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
MostrarOcultarColumnas()
CargaDatos() 'Esto se requiere por las columnas dinamicas de rangos
RegistraScript("$('#DivPersonalizar').modal('hide');")
End Sub
Private Sub RangosOcultarMostrar()
Dim startIndex As Integer = GvCountColumnasIniciales ' - 1
'startIndex = startIndex + 1
For x As Integer = startIndex To GvDatos.Columns.Count - 1
GvDatos.Columns(x).Visible = False
Next
For Each drow As DataRow In DTTangos.Rows
Dim CveCxPColumna As Integer = drow("CveCxPColumna").ToString.ToEntero
Dim RangoInicial As Integer = drow("RangoInicial").ToString.ToEntero
Dim RangoFinal As Integer = drow("RangoFinal").ToString.ToEntero
Dim Tipo As Integer = drow("Tipo").ToString.ToEntero
Dim ChkID = $"Chk_{CveCxPColumna}_{RangoInicial}_{RangoFinal}_{Tipo}" ' Asignar un ID único
Dim chk As CheckBox = TryCast(TPersonalizar.FindControl(ChkID), CheckBox)
If chk.Checked Then
GvDatos.Columns(startIndex).Visible = True
If Tipo = 1 Then
GvDatos.Columns(startIndex).HeaderText = If(RangoFinal = 0, $"Ven {RangoInicial} + ", $"Ven {RangoInicial} - {RangoFinal}")
Else
GvDatos.Columns(startIndex).HeaderText = If(RangoFinal = 0, $"Por Ven {RangoInicial} + ", $"Por Ven {RangoInicial} - {RangoFinal}")
End If
startIndex = startIndex + 1
End If
Next
UPDatos.Update()
End Sub
Protected Sub AgregarChecksRangos()
DTTangos = New DataTable
Dim ObjComp As New ClsCompras
If ObjComp.GetRepCxPColumnas(UsuarioActual.CveEmpresa) Then
DTTangos = ObjComp.DtResultados.Copy
End If
ObjComp.Dispose()
Dim newRowVencidoCabecera As New HtmlTableRow()
Dim newCellVencidoCabecera As New HtmlTableCell()
newCellVencidoCabecera.ColSpan = 4
newCellVencidoCabecera.InnerHtml = "Vencido"
newRowVencidoCabecera.Cells.Add(newCellVencidoCabecera)
TPersonalizar.Rows.Add(newRowVencidoCabecera)
Dim newRowVencido As New HtmlTableRow()
For Each DROW As DataRow In DTTangos.FiltraParametros(" Tipo = 1").Rows
Dim CveCxPColumna As Integer = DROW("CveCxPColumna").ToString.ToEntero
Dim RangoInicial As Integer = DROW("RangoInicial").ToString.ToEntero
Dim RangoFinal As Integer = DROW("RangoFinal").ToString.ToEntero
Dim Tipo As Integer = DROW("Tipo").ToString.ToEntero
Dim newCell As New HtmlTableCell()
Dim chk As New CheckBox()
chk.ID = $"Chk_{CveCxPColumna}_{RangoInicial}_{RangoFinal}_{Tipo}" ' Asignar un ID único
chk.Text = $"De {RangoInicial} a {If(RangoFinal = 0, "-", RangoFinal.ToString)}" ' Texto del CheckBox
chk.Checked = False ' Valor inicial del CheckBox
chk.ClientIDMode = ClientIDMode.Static
newCell.Controls.Add(chk)
newRowVencido.Cells.Add(newCell)
Next
TPersonalizar.Rows.Add(newRowVencido)
Dim newRowPorVencerCavecera As New HtmlTableRow()
Dim newCellPorVencerCabecera As New HtmlTableCell()
newCellPorVencerCabecera.ColSpan = 4
newCellPorVencerCabecera.InnerHtml = "Por Vencer"
newRowPorVencerCavecera.Cells.Add(newCellPorVencerCabecera)
TPersonalizar.Rows.Add(newRowPorVencerCavecera)
Dim newRowPorVencer As New HtmlTableRow()
For Each DROW As DataRow In DTTangos.FiltraParametros(" Tipo = 2").Rows
Dim CveCxPColumna As Integer = DROW("CveCxPColumna").ToString.ToEntero
Dim RangoInicial As Integer = DROW("RangoInicial").ToString.ToEntero
Dim RangoFinal As Integer = DROW("RangoFinal").ToString.ToEntero
Dim Tipo As Integer = DROW("Tipo").ToString.ToEntero
Dim newCell As New HtmlTableCell()
Dim chk As New CheckBox()
chk.ID = $"Chk_{CveCxPColumna}_{RangoInicial}_{RangoFinal}_{Tipo}" ' Asignar un ID único
chk.Text = $"De {RangoInicial} a {If(RangoFinal = 0, "-", RangoFinal.ToString)}" ' Texto del CheckBox
chk.Checked = False ' Valor inicial del CheckBox
newCell.Controls.Add(chk)
newRowPorVencer.Cells.Add(newCell)
Next
TPersonalizar.Rows.Add(newRowPorVencer)
UPPersonalizar.Update()
End Sub
#End Region
#Region "IMPRESIONES"
@@ -676,6 +899,9 @@ Partial Class RepCxPDetalle
Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivPersonalizar').modal({ backdrop: 'static', keyboard: false});")