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

-- nuevo filtro de folio

Browse Source
This commit is contained in:
rrene
2024-06-18 15:16:48 -07:00
parent 0278dc2466
commit 028e5956d8
4 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsContPAQi.vb
View File

@@ -7399,7 +7399,7 @@ Public Class ClsContPAQi
Return Retorno Return Retorno
End Function End Function
Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, SegmentoNegocio As Integer, Optional CveEmpresa As Integer = -1) As Boolean Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, SegmentoNegocio As Integer, FolioPoliza As Integer, Optional CveEmpresa As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
StrSQL.Clear() StrSQL.Clear()
@@ -7411,6 +7411,7 @@ Public Class ClsContPAQi
StrSQL.Append(" WHERE P.Ejercicio = @Ejercicio ") StrSQL.Append(" WHERE P.Ejercicio = @Ejercicio ")
StrSQL.Append(" AND P.Periodo = @Periodo ") StrSQL.Append(" AND P.Periodo = @Periodo ")
StrSQL.Append(" AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ") StrSQL.Append(" AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ")
StrSQL.Append(" AND (@FolioPoliza = -1 OR P.Folio = @FolioPoliza) ")
StrSQL.Append(" AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ") StrSQL.Append(" AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ")
StrSQL.Append(" GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ") StrSQL.Append(" GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ")
StrSQL.Append(" ORDER BY P.Folio ") StrSQL.Append(" ORDER BY P.Folio ")
@@ -7423,8 +7424,8 @@ Public Class ClsContPAQi
.Add("@Periodo", SqlDbType.Int).Value = Periodo .Add("@Periodo", SqlDbType.Int).Value = Periodo
.Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
.Add("@SegmentoNegocio", SqlDbType.Int).Value = SegmentoNegocio .Add("@SegmentoNegocio", SqlDbType.Int).Value = SegmentoNegocio
.Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

6
App_Code/ClsContabilidad.vb
View File

@@ -6529,7 +6529,7 @@ Public Class ClsContabilidad
#End Region #End Region
Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, FolioPoliza As Integer, CveEmpresa As Integer) As Boolean
Dim Respuesta As Boolean = False Dim Respuesta As Boolean = False
DataAdapter("PA_Conta_FiltraPolizasGet") DataAdapter("PA_Conta_FiltraPolizasGet")
@@ -6539,15 +6539,15 @@ Public Class ClsContabilidad
.Add("@Periodo", SqlDbType.Int).Value = Periodo .Add("@Periodo", SqlDbType.Int).Value = Periodo
.Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Respuesta = True Respuesta = True
Catch ex As Exception Catch ex As Exception
Me.OnError("Ocurrió un error al obtener las Prepolizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Me.OnError("Ocurrió un error al obtener las Pólizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try End Try
Return Respuesta Return Respuesta

8
Contabilidad/FiltraPolizas.aspx
View File

@@ -38,12 +38,12 @@
<div class="titlefiltros caption "> <div class="titlefiltros caption ">
<div class="row"> <div class="row">
<label class="col-md-1">Ejercicio: </label> <label class="col-md-1">Ejercicio: </label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="form-control input-sm" DataTextField="Ejercicio" DataValueField="Ejercicio" AutoPostBack="false"></asp:DropDownList> <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="form-control input-sm" DataTextField="Ejercicio" DataValueField="Ejercicio" AutoPostBack="false"></asp:DropDownList>
</div> </div>
<label class="col-md-1">Periodo: </label> <label class="col-md-1">Periodo: </label>
<div class="col-md-2"> <div class="col-md-1">
<asp:DropDownList ID="DdlPeriodo" runat="server" CssClass="form-control input-sm" AutoPostBack="false"> <asp:DropDownList ID="DdlPeriodo" runat="server" CssClass="form-control input-sm" AutoPostBack="false">
<asp:ListItem Text="Enero" Value="1"></asp:ListItem> <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
<asp:ListItem Text="Febrero" Value="2"></asp:ListItem> <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
@@ -70,6 +70,10 @@
<asp:ListItem Text="Orden" Value="4"></asp:ListItem> <asp:ListItem Text="Orden" Value="4"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-1">Folio: </label>
<div class="col-md-1">
<asp:TextBox ID="TxtFolio" runat="server" CssClass="form-control input-sm" ></asp:TextBox>
</div>
<label class="col-md-1">Centro Costo: </label> <label class="col-md-1">Centro Costo: </label>
<div class="col-md-1"> <div class="col-md-1">
<asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList> <asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>

4
Contabilidad/FiltraPolizas.aspx.vb
View File

@@ -75,7 +75,7 @@ Partial Class Contabilidad_FiltraPolizas
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), TxtFolio.Text.ToEntero, UsuarioActual.CveEmpresa) Then
DtDatos = ObjConta.DtResultados DtDatos = ObjConta.DtResultados
Gv.DataSource = ObjConta.DtResultados Gv.DataSource = ObjConta.DtResultados
Else Else
@@ -87,7 +87,7 @@ Partial Class Contabilidad_FiltraPolizas
Else Else
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), TxtFolio.Text.ToEntero, UsuarioActual.CveEmpresa) Then
DtDatos = ObjConta.DtResultados DtDatos = ObjConta.DtResultados
Gv.DataSource = ObjConta.DtResultados Gv.DataSource = ObjConta.DtResultados
'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then 'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then