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

-- limpieza de código de mandar idcta de contpaq

Browse Source
This commit is contained in:
rrene
2023-08-09 19:00:12 -07:00
parent eb4abbe9a5
commit 4e13b96c3a
90 changed files with 1583 additions and 10362 deletions
Download Patch File Download Diff File Expand all files Collapse all files

265
Contabilidad/RepAuxiliar.aspx
View File

@@ -1,265 +0,0 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAuxiliar.aspx.vb" Inherits="RepAuxiliar" %>
<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="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Reporte Auxiliar
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1 " style="width:130px;"><asp:Literal ID="LitFechaIni" runat="server" Text="Movimientos del"></asp:Literal>:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaDel" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn "><asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
<ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaDel" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaDel" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
</div>
<label class="col-md-1 truncate " style="width:40px;""><asp:Literal ID="LitFechaFin" runat="server" Text="Al"></asp:Literal>:</label>
<div class="col-md-2">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
<asp:TextBox ID="TxtFechaAl" runat="server" CssClass="form-control" Width="99%" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn"><asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton></span>
<ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaAl" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaAl" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
</div>
</div>
</div>
</div>
</div>
</div>
<table border="0" id="TbHeader" class="tablenopadding" runat="server">
<tr>
<td >
<asp:Panel ID="PanCuentas" runat="server" GroupingText="Cuentas con movimientos y saldos" Width="300">
<asp:RadioButtonList ID="RblCuentas" TabIndex="3" runat="server">
<asp:ListItem>Todas</asp:ListItem>
<asp:ListItem>Con Movimientos</asp:ListItem>
<asp:ListItem>Saldo actual no igual a cero</asp:ListItem>
<asp:ListItem>Movimientos y saldo no cero</asp:ListItem>
<asp:ListItem>Movimientos o saldo no cero</asp:ListItem>
</asp:RadioButtonList>
</asp:Panel>
</td>
<td style="vertical-align:top;" >
<table>
<tr>
<th style="text-align: left; width:150px;" >
<asp:Literal ID="LitTipoCuenta" runat="server" Text="Tipo de Cuentas:"></asp:Literal>
</th>
<td width="150px">
<asp:DropDownList ID="DdlTipoCuentas" runat="server" DataTextField="Nombre" DataValueField="Id" TabIndex="4" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 290px !important;" onchange="Enable(this);">
</asp:DropDownList>
</td>
<td></td>
</tr>
<tr>
<th style="text-align: left;" >
<asp:Literal ID="LitCuenta" runat="server" Text="Cuenta:"></asp:Literal>
</th>
<td width="150px">
<asp:HiddenField ID="HdnCveCuenta" runat="server" ClientIDMode="Static" />
<asp:TextBox ID="TxtCuenta" runat="server" ClientIDMode="Static" Enabled="false" TabIndex="5" Width="290px"></asp:TextBox>
</td>
<td></td>
</tr>
<tr>
<th style="text-align: left;" >
<asp:Literal ID="LitMoneda" runat="server" Text="Moneda:"></asp:Literal>
</th>
<td width="150px">
<asp:DropDownList ID="DdlMoneda" runat="server" TabIndex="6" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 290px !important;">
</asp:DropDownList>
</td>
<td></td>
</tr>
</table>
</td>
</tr>
<tr>
</tr>
<tr>
<td align="right" colspan="2" width="400px">
<asp:Button ID="ButConsultar" runat="server" TabIndex="7" Text="Consultar" class="btn btn-primary" /></td>
<td></td>
</tr>
<tr>
<td colspan="3">
<table border="0" class="table table-striped Widthall" style="min-width:900px;" >
<tr>
<td width="70">Cuenta</td>
<td colspan="2"></td>
<td align="center">Nombre</td>
<td colspan="3"></td>
<td align="right">Saldo Inicial</td>
</tr>
<tr>
<td width="70">Fecha</td>
<td width="70">Tipo</td>
<td align="center" width="50">Número</td>
<td align="center" width="180">Concepto</td>
<td width="140">Referencia</td>
<td align="right" width="80">Cargos</td>
<td align="right" width="80">Abonos</td>
<td align="right" width="80">Saldo</td>
</tr>
</table>
</td>
</tr>
</table>
<table id="TblPolizas" runat="server" border="0" style="border-collapse: collapse;">
<tr>
<td>
<%--<asp:GridView ID="GvPolizas" runat="server" AutoGenerateColumns="True" EmptyDataText="No se han encontrado polizas con los datos proporcionados">--%>
<asp:GridView ID="GvPolizas" runat="server" AutoGenerateColumns="False" ShowHeader="false" BorderStyle="None" EmptyDataText="No se han encontrado polizas con los datos proporcionados" CssClass="table table-striped table-advance table-hover Widthall" Style=" text-align: center;min-width:900px;" GridLines="None">
<Columns>
<asp:TemplateField>
<ItemTemplate>
<asp:Label ID="LblFecha" runat="server" Text='<%# Eval("Fecha","{0:d}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="TipoPoliza" />
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:HyperLink ID="HplIdPoliza" runat="server" CssClass="Texto" Text='<%# Eval("Folio")%>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Label ID="LblConcepto" runat="server" Text='<%# Eval("Concepto")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Label ID="LblReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblSI" runat="server" Text='<%# Eval("SI", "{0:N2}")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script type="text/javascript">
function pageLoad(sender, args) {
$(function () {
//Genero las cuentas en el arreglo
var ArrCuentas = [<%= WSCuentas()%>];
$("#TxtCuenta").autocomplete({
minLength: 0,
source: ArrCuentas,
focus: function (event, ui) {
$("#TxtCuenta").val(ui.item.label);
$("#HdnCveCuenta").val(ui.item.value);
return false;
},
select: function (event, ui) {
$("#TxtCuenta").val(ui.item.label);
$("#HdnCveCuenta").val(ui.item.value);
//$("#project-description").html(ui.item.desc);
//$("#project-icon").attr("src", "images/" + ui.item.icon);
return false;
}
})
.autocomplete("instance")._renderItem = function (ul, item) {
return $("<li>")
.append("<a>" + item.label + "</a>")
.appendTo(ul);
};
});
// Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
$('input[type=text]').on('keydown', function (e) {
// Si la tecla ENTER es presionada...
if (e.keyCode === 13) {
var currentTabIndex = $(this).attr('tabindex'); // Obtenemos el número del tabindex del campo actual
var nextTabIndex = parseInt(currentTabIndex) + 1; // Le sumamos 1
var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
if (nextField.length > 0) { // Si se encontró un elemento:
nextField.focus(); // Hacerle focus / seleccionarlo
nextField.select();
e.preventDefault(); // Ignorar el funcionamiento predeterminado (enviar el formulario)
}
}
});
// Al presionar cualquier tecla en cualquier campo de texto, ejectuamos la siguiente funcion
$('select').on('keydown', function (e) {
// Si la tecla ENTER es presionada...
if (e.keyCode === 13) {
var currentTabIndex = $(this).attr('tabindex'); // Obtenemos el número del tabindex del campo actual
var nextTabIndex = parseInt(currentTabIndex) + 1; // Le sumamos 1
var nextField = $('[tabindex=' + nextTabIndex + ']'); // Obtenemos (si existe) el siguiente elemento que usando nextTabIndex
if (nextField.length > 0) { // Si se encontró un elemento:
nextField.focus(); // Hacerle focus / seleccionarlo
nextField.select();
e.preventDefault(); // Ignorar el funcionamiento predeterminado (enviar el formulario)
}
}
});
}
function Enable(objCombo) {
var Producto = objCombo.value;//
if (Producto == "-2") {
document.getElementById("TxtCuenta").disabled = false;
//document.getElementById("TxtCuenta").focus();
//alert(Producto);
}
else {
document.getElementById("TxtCuenta").value = " ";
document.getElementById("TxtCuenta").disabled = true;
}
}
</script>
</asp:Content>

158
Contabilidad/RepAuxiliar.aspx.vb
View File

@@ -1,158 +0,0 @@
Option Explicit On
Option Strict On
Imports System.Data
Imports Extensiones
Partial Class RepAuxiliar
Inherits ClsPaginas
Private Property DTCuentas As DataTable
Get
Return CType(ViewState("DTCuentas"), DataTable)
End Get
Set(value As DataTable)
ViewState("DTCuentas") = value
End Set
End Property
Private Property Saldo As Double
Get
Return CType(ViewState("Saldo"), Double)
End Get
Set(value As Double)
ViewState("Saldo") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
'*************************************************************************
'* NOTA: Borrar las siguientes 2 lineas cuando este operando normalmente *
'*************************************************************************
TxtFechaDel.Text = "01/01/2002"
TxtFechaAl.Text = Date.Today.ToShortDateString
CargaTipoCuentas()
TxtCuenta.Enabled = False
End If
End Sub
Private Sub CargaTipoCuentas()
Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
Dim strGlobal As String = ""
If ObjTipoCuenta.GetCuentas(-1, "-1", -1) Then
Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
DTCuentas = ObjTipoCuenta.DtResultados.FiltraParametros("Afectable = 1")
DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RAACREEDOR', '_RDEUDOR', '_UTILIDAD')")
End If
ObjTipoCuenta.Dispose()
DdlTipoCuentas.DataBind()
If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
DdlTipoCuentas.SelectedIndex = 0
End Sub
Protected Sub ButConsultar_Click(sender As Object, e As EventArgs) Handles ButConsultar.Click
CargaPolizas()
End Sub
Private Sub CargaPolizas()
''*************************************************************************
''* NOTA: Borrar las siguientes 2 lineas cuando este operando normalmente *
''*************************************************************************
Dim strFechaDel As String = TxtFechaDel.Text
Dim strFechaAl As String = TxtFechaAl.Text
Dim ObjPolizas As New ClsEdosFinancieros(UsuarioActual.Empresa)
If DdlTipoCuentas.SelectedValue <> "-2" Then
If ObjPolizas.GetMovimientosAuxiliares(DdlTipoCuentas.SelectedValue.ToEntero, strFechaDel.ToDate, strFechaAl.ToDate) Then
GvPolizas.DataSource = ObjPolizas.Data
Else
GvPolizas.DataSource = Nothing
End If
Else
If ObjPolizas.GetMovimientosAuxiliares(HdnCveCuenta.Value.ToEntero, strFechaDel.ToDate, strFechaAl.ToDate) Then
GvPolizas.DataSource = ObjPolizas.Data
Else
GvPolizas.DataSource = Nothing
End If
End If
ObjPolizas.Dispose()
GvPolizas.DataBind()
'UpPolizas.Update()
End Sub
Protected Sub GvPolizas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPolizas.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then
e.Row.Cells(0).Width = Unit.Pixel(83) 'Fecha
e.Row.Cells(1).Width = Unit.Pixel(83) 'TipoPoliza
e.Row.Cells(2).Width = Unit.Pixel(60) 'Numero
e.Row.Cells(3).Width = Unit.Pixel(205) 'Concepto
e.Row.Cells(4).Width = Unit.Pixel(162) 'Referencias
e.Row.Cells(5).Width = Unit.Pixel(92) 'Cargos
e.Row.Cells(6).Width = Unit.Pixel(92) 'Abonos
e.Row.Cells(7).Width = Unit.Pixel(92) 'Saldos
End If
If e.Row.DBCampo("Id").ToEntero > 0 And e.Row.DBCampo("IdPoliza").ToEntero = -1 Then
e.Row.Font.Bold = True
e.Row.FCLabel("LblFecha").Text = e.Row.DBCampo("Codigo")
e.Row.FCLabel("LblConcepto").Text = e.Row.DBCampo("Nombre")
If e.Row.FCLabel("LblSI").Text.ToEntero > -1 Then
e.Row.FCHyperLink("HplIdPoliza").Text = ""
e.Row.FCLabel("LblCargos").Text = ""
e.Row.FCLabel("LblAbonos").Text = "Saldo inicial:"
Saldo = 0
Else
e.Row.FCLabel("LblFecha").Text = ""
e.Row.FCHyperLink("HplIdPoliza").Text = ""
e.Row.FCLabel("LblConcepto").Text = ""
e.Row.FCLabel("LblReferencia").Text = "Total:"
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(5).Style.Add("border-top-style", "solid")
e.Row.Cells(6).Style.Add("border-top-style", "solid")
e.Row.Cells(7).Style.Add("border-top-style", "solid")
e.Row.FCLabel("LblSI").Text = Saldo.FormatoNumero
If Saldo < 0 Then e.Row.FCLabel("LblSI").ForeColor = Drawing.Color.Red
End If
Else
Saldo = Saldo + e.Row.FCLabel("LblCargos").Text.ToDouble - e.Row.FCLabel("LblAbonos").Text.ToDouble
e.Row.FCLabel("LblSI").Text = Saldo.FormatoNumero
If Saldo < 0 Then e.Row.FCLabel("LblSI").ForeColor = Drawing.Color.Red
If e.Row.FCLabel("LblAbonos").Text.ToEntero = 0 Then e.Row.FCLabel("LblAbonos").Text = ""
If e.Row.FCLabel("LblCargos").Text.ToEntero = 0 Then e.Row.FCLabel("LblCargos").Text = ""
End If
If e.Row.DBCampo("IdPoliza").ToEntero > 0 Then e.Row.FCHyperLink("HplIdPoliza").NavigateUrl = String.Format("/contabilidad/RegPoliza.aspx?IdPoliza={0}", e.Row.DBCampo("IdPoliza"))
e.Row.Cells(0).BorderStyle = BorderStyle.None
e.Row.Cells(1).BorderStyle = BorderStyle.None
e.Row.Cells(2).BorderStyle = BorderStyle.None
e.Row.Cells(3).BorderStyle = BorderStyle.None
e.Row.Cells(4).BorderStyle = BorderStyle.None
e.Row.Cells(5).BorderStyle = BorderStyle.None
e.Row.Cells(6).BorderStyle = BorderStyle.None
e.Row.Cells(7).BorderStyle = BorderStyle.None
End If
End Sub
Public Function WSCuentas() As String
Dim Str As New StringBuilder
Dim i As Integer = 0
Dim dt As DataTable = DTCuentas.FiltraParametros("Afectable = 1")
For Each dr As DataRow In dt.Rows
i += 1
Str.AppendFormat("{{value:""{0}"",label:""{1}""}}{2}", dr("Id"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""))
Next
Return Str.ToString
End Function
End Class