- filtro de aplicapronto pago
-- filtro gastos, por proyecto/subproyecto
This commit is contained in:
@@ -66,6 +66,7 @@ Public Class ClsCompProveedores
|
||||
Public Property DIOTNacionalidad As String
|
||||
Public Property CveRegimenFiscal As Integer = -1
|
||||
Public Property PorcentajeProntoPago As Decimal = 0D
|
||||
Public Property AplicaProntoPago As Boolean = False
|
||||
Public Property CveTipoFechaVencimiento As Integer = 1
|
||||
|
||||
Public ReadOnly Property DtResultados() As DataTable
|
||||
@@ -303,6 +304,7 @@ Public Class ClsCompProveedores
|
||||
Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString
|
||||
Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero
|
||||
Me.PorcentajeProntoPago = Data.Rows(0)("PorcentajeProntoPago").ToString.ToDecimal
|
||||
Me.AplicaProntoPago = Data.Rows(0)("AplicaProntoPago").ToString.ToBool
|
||||
Me.CveTipoFechaVencimiento = Data.Rows(0)("CveTipoFechaVencimiento").ToString.ToEntero
|
||||
|
||||
End If
|
||||
@@ -321,7 +323,7 @@ Public Class ClsCompProveedores
|
||||
CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer,
|
||||
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "",
|
||||
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
|
||||
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean
|
||||
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0, Optional AplicaProntoPago As Boolean = False) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -372,6 +374,7 @@ Public Class ClsCompProveedores
|
||||
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
|
||||
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
||||
.Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago
|
||||
.Add("@AplicaProntoPago", SqlDbType.Bit).Value = AplicaProntoPago
|
||||
|
||||
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
|
||||
End With
|
||||
@@ -407,7 +410,7 @@ Public Class ClsCompProveedores
|
||||
CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
|
||||
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
|
||||
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
|
||||
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean
|
||||
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0, Optional AplicaProntoPago As Boolean = False) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Comp_ProveedorUpdate")
|
||||
@@ -457,26 +460,10 @@ Public Class ClsCompProveedores
|
||||
.Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion
|
||||
.Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador
|
||||
|
||||
|
||||
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
|
||||
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
|
||||
.Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago
|
||||
|
||||
''Proveedores
|
||||
'.Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores
|
||||
'.Add("@CtaContProveedores", SqlDbType.VarChar).Value = CtaContProveedores
|
||||
'.Add("@IdCtaContExtranjera", SqlDbType.Int).Value = IdCtaContExtranjera
|
||||
'.Add("@CtaContExtranjera", SqlDbType.VarChar).Value = CtaContExtranjera
|
||||
'.Add("@IdCtaContComplementaria", SqlDbType.Int).Value = IdCtaContComplementaria
|
||||
'.Add("@CtaContComplementaria", SqlDbType.VarChar).Value = CtaContComplementaria
|
||||
|
||||
''Anticipos
|
||||
'.Add("@IdCtaContAnticipos", SqlDbType.Int).Value = IdCtaContAnticipos
|
||||
'.Add("@CtaContAnticipos", SqlDbType.VarChar).Value = CtaContAnticipos
|
||||
'.Add("@IdCtaContAnticiposExtranjera", SqlDbType.Int).Value = IdCtaContAnticiposExtranjera
|
||||
'.Add("@CtaContAnticiposExtranjera", SqlDbType.VarChar).Value = CtaContAnticiposExtranjera
|
||||
'.Add("@IdCtaContAnticiposComplementaria", SqlDbType.Int).Value = IdCtaContAnticiposComplementaria
|
||||
'.Add("@CtaContAnticiposComplementaria", SqlDbType.VarChar).Value = CtaContAnticiposComplementaria
|
||||
.Add("@AplicaProntoPago", SqlDbType.Bit).Value = AplicaProntoPago
|
||||
|
||||
End With
|
||||
|
||||
|
||||
@@ -5488,14 +5488,15 @@ Public Class ClsContabilidad
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetGastosRepCC(FechaInicio As DateTime, FechaFin As DateTime, CveEmpresa As Integer) As Boolean
|
||||
Public Function GetGastosRepCC(FechaInicio As DateTime, FechaFin As DateTime, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Conta_ReporteGastos")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio
|
||||
.Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
End With
|
||||
|
||||
|
||||
@@ -596,7 +596,7 @@ Public Class ClsMovimientos
|
||||
Public Function GetCxPEmpresa(CveProveedor As Integer, FechaVencimientoInicio As String, FechaVencimientoFin As String, CveSubProyecto As Integer, DiasVencidos As Integer, CveUsuarioRegistro As Integer,
|
||||
CveUsuarioProgramo As Integer, CveUsuarioResponsable As Integer, CveClasificacion As Integer, CveMoneda As Integer, CveTipoPagoProgramo As Integer, CveEstatusFactura As Integer,
|
||||
CveAplicaNC As Integer, CveEmpresa As Integer, Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional CodigoProgramacion As String = "-1", Optional CveTipoProveedor As Integer = 0,
|
||||
Optional AgrupadoPorSubProyecto As Boolean = False, Optional VerEnPesos As Boolean = False) As Boolean
|
||||
Optional AgrupadoPorSubProyecto As Boolean = False, Optional VerEnPesos As Boolean = False, Optional AplicaProntoPago As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Banc_Proveedores")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -620,6 +620,7 @@ Public Class ClsMovimientos
|
||||
.Add("@CveTipoProveedor", SqlDbType.TinyInt).Value = CveTipoProveedor
|
||||
.Add("@AgrupadoPorSubProyecto", SqlDbType.Bit).Value = AgrupadoPorSubProyecto
|
||||
.Add("@VerEnPesos", SqlDbType.Bit).Value = VerEnPesos
|
||||
.Add("@AplicaProntoPago", SqlDbType.Int).Value = AplicaProntoPago
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -662,8 +663,6 @@ Public Class ClsMovimientos
|
||||
|
||||
End With
|
||||
|
||||
|
||||
|
||||
Try
|
||||
SqlAdapter.SelectCommand.CommandTimeout = 0
|
||||
|
||||
@@ -709,7 +708,8 @@ Public Class ClsMovimientos
|
||||
Optional FechaVI As String = "-1", Optional FechaVF As String = "-1",
|
||||
Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1,
|
||||
Optional CveTipoProveedor As Integer = -1, Optional Comprobaciones As Integer = -1,
|
||||
Optional TipoDocto As String = "-1", Optional TipoAgrupacion As Integer = -1, Optional CveProyecto As Integer = -1) As Boolean
|
||||
Optional TipoDocto As String = "-1", Optional TipoAgrupacion As Integer = -1,
|
||||
Optional CveProyecto As Integer = -1, Optional AplicaProntoPago As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
If FechaCorte = Nothing Then FechaCorte = ClsPaginas.NowADS()
|
||||
@@ -739,8 +739,8 @@ Public Class ClsMovimientos
|
||||
.Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones
|
||||
.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
|
||||
.Add("@TipoAgrupacion", SqlDbType.Int).Value = TipoAgrupacion
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
.Add("@AplicaProntoPago", SqlDbType.Int).Value = AplicaProntoPago
|
||||
End With
|
||||
|
||||
Try
|
||||
@@ -1338,7 +1338,8 @@ Public Class ClsMovimientos
|
||||
CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer,
|
||||
TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1",
|
||||
Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1,
|
||||
Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1) As Boolean
|
||||
Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1, Optional TipoDocto As String = "-1",
|
||||
Optional CveProyecto As Integer = -1, Optional AplicaProntoPago As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
If FechaCorte = Nothing Then FechaCorte = ClsPaginas.NowADS()
|
||||
@@ -1373,7 +1374,8 @@ Public Class ClsMovimientos
|
||||
.Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones
|
||||
.Add("@AplicaNC", SqlDbType.Int).Value = AplicaNC
|
||||
.Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
.Add("@AplicaProntoPago", SqlDbType.Int).Value = AplicaProntoPago
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -206,6 +206,16 @@ table.adssigscroll {
|
||||
<asp:ListItem Text="Con Importes" Value="2" Selected="True"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
|
||||
<div runat="server" id="DivProyecto" class="col-md-2">
|
||||
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;"></asp:DropDownList>
|
||||
</div>
|
||||
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
|
||||
<div runat="server" id="DivSubProyecto" class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -21,20 +21,23 @@ Partial Class RepGastosCC
|
||||
#End Region
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
|
||||
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString()
|
||||
txtFechaF.Text = NowADS().ToShortDateString
|
||||
OrdenaDatos()
|
||||
|
||||
CargaCombos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCombos()
|
||||
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
|
||||
|
||||
End Sub
|
||||
|
||||
#Region " C A R G A - D A T O S "
|
||||
Public Sub CargaDatos()
|
||||
Dim Obj As New ClsContabilidad
|
||||
|
||||
If Obj.GetGastosRepCC(txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim().ToDate, UsuarioActual.CveEmpresa) Then
|
||||
If Obj.GetGastosRepCC(txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim().ToDate, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
Dim dt As DataTable = Obj.DtResultados
|
||||
If DdlOpcionCuenta.SelectedValue = "2" Then
|
||||
dt = dt.FiltraParametros("Total > 0")
|
||||
|
||||
Reference in New Issue
Block a user