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
2022-06-02 05:59:53 -07:00
parent 2380097b3b 7f0468b15e
commit 9d44ccf423
5 changed files with 273 additions and 215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsVentas.vb
View File

@@ -2675,7 +2675,7 @@ Public Class ClsVentas
#End Region
#Region " I M P U E S T O S L O C A L E S"
Public Function AddImpuestosLocales(ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Public Function AddImpuestosLocales(ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveClasificacion As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ImpuestosLocalesAdd")
@@ -2688,6 +2688,9 @@ Public Class ClsVentas
.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
End With
Try
@@ -2717,7 +2720,7 @@ Public Class ClsVentas
Return Retorno
End Function
Public Function UpdateImpuestosLocales(CveImpuestoLocal As Integer, ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer) As Boolean
Public Function UpdateImpuestosLocales(CveImpuestoLocal As Integer, ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, Optional CveClasificacion As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ImpuestosLocalesUpdate")
@@ -2729,6 +2732,7 @@ Public Class ClsVentas
.Add("@Orden", SqlDbType.Int).Value = Orden
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
End With
Try

131
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
View File

@@ -9,7 +9,16 @@
text-overflow: ellipsis;
}
table{
border:none!important;
}
tr{
border:none!important;
}
td{
border:none!important;
}
</style>
</asp:Content>
@@ -128,21 +137,29 @@
</asp:UpdatePanel>
<br />
<div class="text-right">
<%-- <div class="text-right">
<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" UpdateMode="Conditional" runat="server" style="margin-left: 15px; margin-right: 15px;">
<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}')", 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>
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server" >
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" CssClass="table table-smallpadding table-hover table-striped ScrollAD mysmallbtn Widthall" data-heighterror="375" data-freezecols="0" data-freezerows="-1"
ShowHeader="True" ShowHeaderWhenEmpty="true" AllowPaging="False" ShowFooter="False" GridLines="None" EmptyDataText="No se encontrarios movimientos." AutoGenerateColumns="False" DataKeyNames="" OnRowDataBound="GvDatos_RowDataBound">
<asp:GridView ID="GvDatos" runat="server"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False"
EmptyDataText="No se encontrarios movimientos."
DataKeyNames="" OnRowDataBound="GvDatos_RowDataBound">
<Columns>
<asp:TemplateField ControlStyle-CssClass="Widthall">
<HeaderTemplate>
<table width="100%">
<table width="100%" style="border:none">
<tr>
<td colspan="3"><font size="2">Cuenta</font></td>
<td colspan="1"><font size="2">Nombre</font></td>
@@ -166,7 +183,7 @@
</HeaderTemplate>
<%-- <HeaderStyle />--%>
<ItemTemplate>
<table width="100%" border="0" style="border-spacing: 0px;">
<table width="100%" " style="border:none">
<tr runat="server" id="tr1">
<td colspan="3" align="left" width="180px">
<asp:Label ID="LbCuenta" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
@@ -222,8 +239,7 @@
</ItemTemplate>
<ItemStyle />
</asp:TemplateField>
</Columns>
<HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
</Columns>
</asp:GridView>
</ContentTemplate>
@@ -238,101 +254,6 @@
<asp:Content ID="Content4" 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)
}
}
});
$('#Buscar').keyup(function () {
var texto = $('#Buscar').val();
$('#<%=GvDatos.ClientID%> > tbody > tr').css({ 'display': 'none' });
$("#<%=GvDatos.ClientID%> > tbody > tr:contains('" + texto + "')").css({ 'display': '' });
$('#<%=GvDatos.ClientID%> > tbody > tr:nth-child(1)').css({ 'display': 'none' });
});--%>
//function Enable() {
// var Producto = $get("DdlTipoCuentas").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>

207
Empresas/13/Formatos/Factura.rdlc
View File

@@ -194,7 +194,7 @@
<Top>1.88777in</Top>
<Left>1.00929in</Left>
<Height>0.17222in</Height>
<Width>4.18029in</Width>
<Width>4.08654in</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
@@ -232,7 +232,10 @@
<Width>1.66402cm</Width>
</TablixColumn>
<TablixColumn>
<Width>8.32569cm</Width>
<Width>6.81899cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.43976cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.42482cm</Width>
@@ -492,6 +495,52 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox6">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Obj, Imp.</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>SteelBlue</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox6</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Style>None</Style>
</Border>
<TopBorder>
<Color>Black</Color>
<Style>Solid</Style>
</TopBorder>
<BottomBorder>
<Color>Black</Color>
<Style>Solid</Style>
</BottomBorder>
<BackgroundColor>White</BackgroundColor>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox84">
@@ -834,6 +883,43 @@
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="ObjetoImpuesto">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!CodigoObjetoImpuesto.Value</Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>ObjetoImpuesto</rd:DefaultName>
<Style>
<Border>
<Color>LightGrey</Color>
<Style>None</Style>
</Border>
<RightBorder>
<Color>#4f81bd</Color>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="PU1">
@@ -960,6 +1046,7 @@
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixColumnHierarchy>
<TablixRowHierarchy>
@@ -976,7 +1063,7 @@
<Top>6.28717cm</Top>
<Left>0.44641cm</Left>
<Height>1.2353cm</Height>
<Width>20.06999cm</Width>
<Width>20.00305cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
@@ -1858,7 +1945,7 @@
<Top>2.03638in</Top>
<Left>3.58501in</Left>
<Height>0.18472in</Height>
<Width>1.60457in</Width>
<Width>1.51082in</Width>
<ZIndex>23</ZIndex>
<Style>
<Border>
@@ -1943,7 +2030,7 @@
<Top>2.2586in</Top>
<Left>1.00929in</Left>
<Height>0.15972in</Height>
<Width>4.18029in</Width>
<Width>4.08654in</Width>
<ZIndex>25</ZIndex>
<Style>
<Border>
@@ -2436,7 +2523,14 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Version 3.3</Value>
<Value>Version </Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -3173,6 +3267,91 @@
</Border>
</Style>
</Rectangle>
<Textbox Name="Textbox22">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Regimen fiscal:</Value>
<Style>
<FontFamily>Calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>1.88777in</Top>
<Left>13.01396cm</Left>
<Height>0.17222in</Height>
<Width>0.87725in</Width>
<ZIndex>47</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Style>None</Style>
</TopBorder>
<LeftBorder>
<Style>None</Style>
</LeftBorder>
<RightBorder>
<Style>None</Style>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox23">
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!RegimenFiscalCodigo.Value</Value>
<Style>
<FontFamily>Calibri</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Top>1.88777in</Top>
<Left>6.00086in</Left>
<Height>0.33333in</Height>
<Width>2.05011in</Width>
<ZIndex>48</ZIndex>
<Style>
<Border>
<Color>White</Color>
<Style>None</Style>
</Border>
<TopBorder>
<Style>None</Style>
</TopBorder>
<LeftBorder>
<Style>None</Style>
</LeftBorder>
<RightBorder>
<Style>None</Style>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Height>16.79496cm</Height>
<Style />
@@ -3435,6 +3614,10 @@
<DataField>SATClaveUM</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CodigoObjetoImpuesto">
<DataField>CodigoObjetoImpuesto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DsOC</rd:DataSetName>
@@ -4164,6 +4347,18 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RegimenFiscalCodigo">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="Logo">

38
Ventas/CatImpuestosLocales.aspx
View File

@@ -93,12 +93,13 @@
<ContentTemplate>
<asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveImpuesto" Value="-1" />
<asp:GridView ID="GvImpuestos" runat="server" GridLines="None" DataKeyNames="CveImpuestoLocal,ImpuestoLocal,Porcentaje,Orden,Estatus,TipoImpuesto,IdCuentaImpuestoLocal,EstatusBol" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Impuestos Locales">
<asp:GridView ID="GvImpuestos" runat="server" GridLines="None" DataKeyNames="CveImpuestoLocal,ImpuestoLocal,Porcentaje,Orden,Estatus,TipoImpuesto,IdCuentaImpuestoLocal,EstatusBol,CveClasificacion" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Impuestos Locales">
<Columns>
<asp:BoundField DataField="ImpuestoLocal" HeaderText="Impuesto Local" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Porcentaje" HeaderText="Porcentaje" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="Orden" HeaderText="Orden" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="TipoImpuestoTexto" HeaderText="Tipo Impuesto" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Clasificacion" HeaderText="Clasificación" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" HeaderText="Cuenta Contable">
<ItemTemplate>
<asp:Literal ID="LtlCuentaContable" runat="server" Text=""></asp:Literal>
@@ -149,6 +150,7 @@
<asp:RequiredFieldValidator ID="RFVOrden" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtOrden" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Orden'</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
<label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoImpuesto" runat="server" CssClass="form-control select2me js-Impuesto-programmatic" Width="100%">
<asp:ListItem Value="1" Text="Impuesto Local Retenido"></asp:ListItem>
@@ -159,7 +161,14 @@
</asp:DropDownList>
<label for="<%= DdlCuentasContables.ClientID.ToString()%>">Tipo Impuesto:</label>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlClasificacion" runat="server" CssClass="form-control select2me" Width="100%" DataTextField="Clasificacion" DataValueField="CveClasificacion" >
<asp:ListItem Value="-1" Text="Seleccione una"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCuentasContables" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control select2me js-Cuentas-programmatic" CausesValidation="true" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -193,7 +202,7 @@
<asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script src="/Metronic/assets/global/scripts/datatable.js"></script>
<%-- <script src="/Metronic/assets/global/scripts/datatable.js"></script>
<script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
@@ -205,26 +214,7 @@
var DdlCuentasContables = '<%= DdlCuentasContables.ClientID%>';
var ChkEstatus = '<%= ChkEstatus.ClientID%>';
function ShowDivRegistro() {
$('#divAddImpuestoLocal').modal();
}
function OrdenarGV() {
var Tam = TamañoVentana();
var Alto = Tam.height - 270;
if (Alto < 100) {
Alto = 100;
}
$('#C_GvImpuestos').DataTable({
scrollY: Alto + 'px',
scrollCollapse: true,
paging: false,
searching: false,
info: false
});
$('#C_GvImpuestos').parent().parent().children().first().css("position", "static");
}
function CleanObjects() {
document.getElementById(TxtImpuesto).value = "";
@@ -247,7 +237,7 @@
var $cuenta = $(".js-Cuentas-programmatic").select2();
$cuenta.val('-1').trigger("change");
}
}--%>
</script>

104
Ventas/CatImpuestosLocales.aspx.vb
View File

@@ -38,9 +38,14 @@ Partial Class Ventas_CatImpuestosLocales
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CveImpuestoLocal = -1
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 'Activo' AND UsoClasificacion = 2 ")
DdlClasificacion.DataBind()
DdlClasificacion.Items.Insert(0, New ListItem("Seleccione una", "-1"))
CargaCuentasContables()
CargaDatos()
OrdenaDatos()
End If
End Sub
@@ -75,49 +80,6 @@ Partial Class Ventas_CatImpuestosLocales
#Region "GV IMPUESTOS "
'Protected Sub GvImpuestos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvImpuestos.RowEditing
' GvImpuestos.EditIndex = e.NewEditIndex
' CargaDatos()
'End Sub
Protected Sub GvImpuestos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvImpuestos.RowUpdating
Dim ObjVentas As New ClsVentas()
Dim TieneError = False
Dim CveImpuestoLocal As Integer = GvImpuestos.Rows(e.RowIndex).DataKey("CveImpuestoLocal").ToEntero
Dim Impuesto As String = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtImpuestoLocal").Text.Trim
Dim Porcentaje As Decimal = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtVentaPorcentaje").Text.ToDecimal
Dim Orden = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtOrdenImpuesto").Text.ToEntero
Dim TipoImpuesto = GvImpuestos.Rows(e.RowIndex).FCDropDownList("DdlTipoImpuestoEdit").SelectedValue.ToEntero
Dim IdCtaContable = GvImpuestos.Rows(e.RowIndex).FCDropDownList("DdlCuentasContables").SelectedValue.ToEntero
Dim Estatus As Integer
If GvImpuestos.Rows(e.RowIndex).FCCheckBox("ChkEstatusEdit").Checked = True Then
Estatus = 1
Else
Estatus = 0
End If
If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, IdCtaContable) Then
TieneError = True
End If
ObjVentas.Dispose()
If Not TieneError Then
GvImpuestos.EditIndex = -1
CargaDatos()
Else
Alert("Ocurrio un erro al actualizar los datos", TipoMensaje.MsgAdvertencia)
End If
End Sub
Protected Sub GvImpuestos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvImpuestos.RowCancelingEdit
GvImpuestos.EditIndex = -1
CargaDatos()
End Sub
Protected Sub GvImpuestos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvImpuestos.RowDeleting
Dim ObjVentas As New ClsVentas()
Dim TieneError = False
@@ -168,13 +130,7 @@ Partial Class Ventas_CatImpuestosLocales
Private Sub OrdenaDatos()
If (GvImpuestos.Rows.Count > 0) Then
GvImpuestos.UseAccessibleHeader = True
GvImpuestos.HeaderRow.TableSection = TableRowSection.TableHeader
RegistraScript("OrdenarGV();")
End If
End Sub
#End Region
@@ -182,13 +138,18 @@ Partial Class Ventas_CatImpuestosLocales
Private Sub BtnAgregarImpuestoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarImpuestoModal.Click
CveImpuestoLocal = -1
If CveImpuestoLocal > 0 Then
BtnAgregarImpuesto.Text = "Actualizar"
UpFooter.Update()
Else
BtnAgregarImpuesto.Text = "Agregar"
End If
TxtOrden.Text = ""
TxtImpuesto.Text = ""
TxtPorcentaje.Text = ""
DdlTipoImpuesto.SelectedValueExist("-1")
DdlCuentasContables.SelectedValueExist("-1")
DdlClasificacion.SelectedValueExist("-1")
BtnAgregarImpuesto.Text = "Agregar"
ChkEstatus.Checked = True
UpAddImpuesto.Update()
UpFooter.Update()
RegistraScript("$('#divAddImpuestoLocal').modal();LimpiaModal()")
End Sub
@@ -199,7 +160,7 @@ Partial Class Ventas_CatImpuestosLocales
If CveImpuestoLocal = -1 Then
If ChkEstatus.Checked Then Estatus = 1
If ObjVentas.AddImpuestosLocales(TxtImpuesto.Text.Trim, TxtPorcentaje.Text.ToDecimal, TxtOrden.Text.ToEntero, DdlTipoImpuesto.SelectedValue.ToEntero, Estatus, DdlCuentasContables.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjVentas.AddImpuestosLocales(TxtImpuesto.Text.Trim, TxtPorcentaje.Text.ToDecimal, TxtOrden.Text.ToEntero, DdlTipoImpuesto.SelectedValue.ToEntero, Estatus, DdlCuentasContables.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) Then
CargaDatos()
End If
TxtImpuesto.Text = ""
@@ -216,7 +177,7 @@ Partial Class Ventas_CatImpuestosLocales
Dim IdCtaContable = DdlCuentasContables.SelectedValue.ToEntero
If ChkEstatus.Checked Then Estatus = 1
If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, IdCtaContable) Then
If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, IdCtaContable, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) Then
TieneError = True
End If
ObjVentas.Dispose()
@@ -236,35 +197,22 @@ Partial Class Ventas_CatImpuestosLocales
RegistraScript("$('#divAddImpuestoLocal').modal('hide');")
End Sub
Protected Sub BtnCargaModal_Click(sender As Object, e As EventArgs)
Dim ObjImpuestos As New ClsVentas
Dim Clave = CType(sender, LinkButton).CommandArgument.ToEntero
If ObjImpuestos.GetImpuestosLocales(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
DtImpuestosLocales = ObjImpuestos.DtResultados.FiltraParametros(String.Format("CveImpuestoLocal = {0}", Clave))
End If
TxtOrden.Text = DtImpuestosLocales(0)("Orden").ToString
DdlTipoImpuesto.SelectedValueExist(DtImpuestosLocales(0)("TipoImpuesto").ToString)
DdlCuentasContables.SelectedValueExist(DtImpuestosLocales(0)("IdCuentaImpuestoLocal").ToString)
ObjImpuestos.Dispose()
End Sub
Public Sub Edit_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
DdlTipoImpuesto.SelectedValueExist(GvRow.DataKey("TipoImpuesto"))
DdlCuentasContables.SelectedValueExist(GvRow.DataKey("IdCuentaImpuestoLocal"))
TxtImpuesto.Text = GvRow.DataKey("ImpuestoLocal")
TxtPorcentaje.Text = GvRow.DataKey("Porcentaje")
TxtOrden.Text = GvRow.DataKey("Orden")
ChkEstatus.Checked = If(GvRow.DataKey("EstatusBol").ToEntero = 1, True, False)
ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("EstatusBol")) 'If(GvRow.DataKey("EstatusBol").ToEntero = 1, True, False)
DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
BtnAgregarImpuesto.Text = "Actualizar"
CveImpuestoLocal = GvRow.DataKey("CveImpuestoLocal").ToEntero
UpAddImpuesto.Update()
UpFooter.Update()
RegistraScript(String.Format("$('#{0}').modal();", "divAddImpuestoLocal"))
End Sub