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:
Julian Moreno
2020-04-01 20:34:42 -07:00
parent 1dd0dfd35b 49876d1abb
commit 21d7eda99b
5 changed files with 89 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
App_Code/ClsContabilidad.vb
View File

@@ -5961,6 +5961,31 @@ Public Class ClsContabilidad
Return Retorno
End Function
Public Function CierreEjercicio(CveEmpresa As Integer, Ejercicio As Integer, CveCuentaCierre As Integer, FechaI As String, FechaF As String, CveUsuario As Integer) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Conta_CierreEjercicio")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
.Add("@CveCuentaCierre", SqlDbType.Int).Value = CveCuentaCierre
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.DateTime).Value = FechaF
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
SqlAdapter.Fill(Data)
Retorno = SqlAdapter.SelectCommand.Parameters("@CvePrePoliza").Value.ToString.ToEntero
Catch ex As Exception
Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#Region " RECONSTRUCCION DE PREPOLIZAS "
Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean
Dim Retorno = False

2
App_Code/Modelos.vb
View File

@@ -2986,8 +2986,6 @@ Namespace Modelos
If ObjConta.DtResultados.Rows.Count > 0 Then
'Conta ContPAQ
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
'Conta SIG
CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
End If
End If

34
Contabilidad2/CatContaEjercicios.aspx
View File

@@ -24,7 +24,7 @@
<asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView runat="server" ID="GvDatos" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover ScrollAD"
DataKeyNames="CveEjercicio,Ejercicio,PeriodoActual,CuentaNombre,PolizoFolio,PrePolizaCierreFolio,Estatus" AutoGenerateColumns="False"
DataKeyNames="CveEjercicio,Ejercicio,PeriodoActualNumero,CuentaNombre,CveCuentaCierre,PolizoFolio,PrePolizaCierreFolio,Estatus" AutoGenerateColumns="False"
Style="text-align: center; width: 100%" GridLines="None">
<Columns>
<asp:BoundField DataField="Ejercicio" HeaderText="Ejercicio" ItemStyle-HorizontalAlign="Left" />
@@ -33,12 +33,17 @@
<asp:BoundField DataField="PolizoFolio" HeaderText="Póliza Folio" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="PrePolizaCierreFolio" HeaderText="PrePóliza Cierre Folio" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Estatus" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-Width="99px">
<asp:TemplateField ItemStyle-Width="80px">
<ItemTemplate>
<asp:LinkButton ID="ImgC" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="PolizaCierre" CssClass="btn btn-circle btn-sm blue" Text="<i class='glyphicon glyphicon-ok'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="80px">
<ItemTemplate>
<asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ActualizaModulo" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-Width="83px">
<asp:TemplateField ItemStyle-Width="80px">
<ItemTemplate>
<asp:LinkButton ID="ImgEE" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="EliminarRow" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
</ItemTemplate>
@@ -60,14 +65,33 @@
</h4>
</div>
<div class="modal-body" style="text-align: left">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCuentas" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo" Style="width: 50%">
</asp:DropDownList>
<label for="<%= DdlCuentas.ClientID.ToString()%>">Periodo Actual:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtEjercicio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" Style="width: 100%"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVClave" runat="server" ControlToValidate="TxtEjercicio" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Ejercicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
<label for="<%= TxtEjercicio.ClientID.ToString()%>">Ejercicio:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkPeriodoActual" runat="server" data-toggle="toggle"/>
<label for="<%= ChkPeriodoActual.ClientID.ToString()%>">Periodo Actual:</label>
<asp:DropDownList ID="DdlPeriodoActual" runat="server" CssClass="form-control input-sm select2me" Style="width: 50%">
<asp:ListItem Value="0" Text="seleccione"/>
<asp:ListItem Value="1" Text="Enero"/>
<asp:ListItem Value="2" Text="Febrero"/>
<asp:ListItem Value="3" Text="Marzo"/>
<asp:ListItem Value="4" Text="Abril"/>
<asp:ListItem Value="5" Text="Mayo"/>
<asp:ListItem Value="6" Text="Junio"/>
<asp:ListItem Value="7" Text="Julio"/>
<asp:ListItem Value="8" Text="Agosto"/>
<asp:ListItem Value="9" Text="Septiembre"/>
<asp:ListItem Value="10" Text="Octubre"/>
<asp:ListItem Value="11" Text="Noviembre"/>
<asp:ListItem Value="12" Text="Diciembre"/>
</asp:DropDownList>
<label for="<%= DdlPeriodoActual.ClientID.ToString()%>">Periodo Actual:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkEstatus" runat="server" data-toggle="toggle"/>

33
Contabilidad2/CatContaEjercicios.aspx.vb
View File

@@ -25,14 +25,20 @@ Partial Class Contabilidad2_CatContaEjercicios
If ObjConta.GetContaEjercicio(UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjConta.DtResultados
End If
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DdlCuentas.DataSource = ObjConta.DtResultados
End If
ObjConta.Dispose()
GvDatos.DataBind()
DdlCuentas.DataBind()
DdlCuentas.Items.Insert(0, New ListItem("seleccione", "-1"))
End Sub
Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
TxtEjercicio.Text = ""
ChkEstatus.Checked = 0
ChkPeriodoActual.Checked = 0
DdlPeriodoActual.SelectedValue = 0
UpModalModulos.Update()
RegistraScript("$('#ModalCat').modal();")
End Sub
@@ -42,12 +48,12 @@ Partial Class Contabilidad2_CatContaEjercicios
Dim errorString As String = ""
If LbAgregar.Text = "Agregar" Then
If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
PeriodoActual:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then
PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
errorString = "Error al agregar"
End If
ElseIf LbAgregar.Text = "Actualizar" Then
If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text,
PeriodoActual:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then
If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero,
CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
errorString = "Error al actualizar"
End If
End If
@@ -71,7 +77,8 @@ Partial Class Contabilidad2_CatContaEjercicios
CveEjercicio = GvRow.DataKey("CveEjercicio").ToEntero
TxtEjercicio.Text = GvRow.DataKey("Ejercicio")
ChkEstatus.Checked = GvRow.DataKey("Estatus")
ChkPeriodoActual.Checked = If(GvRow.DataKey("PeriodoActual").ToEntero > 0, True, False)
DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero")
DdlCuentas.SelectedValue = GvRow.DataKey("CveCuentaCierre")
LbAgregar.Text = "Actualizar"
UpModalModulos.Update()
RegistraScript("$('#ModalCat').modal();")
@@ -87,4 +94,20 @@ Partial Class Contabilidad2_CatContaEjercicios
CargaDatos()
UpDatos.Update()
End Sub
Protected Sub PolizaCierre(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ObjConta As New ClsContabilidad
Dim FechaI As String = $"01/01/{DateTime.Now.Year}"
Dim FechaF As String = $"{DateTime.DaysInMonth(DateTime.Now.Year, 12)}/12/{DateTime.Now.Year}"
Dim CvePrePolizaCierre As Integer = -1
CvePrePolizaCierre = ObjConta.CierreEjercicio(UsuarioActual.CveEmpresa, GvRow.DataKey("Ejercicio").ToEntero, GvRow.DataKey("CveCuentaCierre").ToEntero, FechaI, FechaF, UsuarioActual.CvePersonal)
If CvePrePolizaCierre > 0 Then
If ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=GvRow.DataKey("Ejercicio").ToEntero, PeriodoActual:=GvRow.DataKey("PeriodoActualNumero").ToEntero,
CveCuentaCierre:=GvRow.DataKey("CveCuentaCierre").ToEntero, CvePrePoliza:=CvePrePolizaCierre, Estatus:=GvRow.DataKey("Estatus")) Then
Alert("Cierre de ejercicio correcto")
End If
End If
ObjConta.Dispose()
End Sub
End Class

8
Ventas/Ventas.aspx.vb
View File

@@ -22252,7 +22252,13 @@ Partial Class Ventas
Exit Sub
End If
LBAplicaDevolucion.Visible = True
If VentaSaldoAlmacen < 0 Then
LBAplicaDevolucion.Visible = True
ElseIf VentaSaldoAlmacen >= 0 Then
LBAplicaDevolucion.Visible = False
End If
Dim SeEsconde As Boolean = False
If DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then