86 lines
2.7 KiB
VB.net
86 lines
2.7 KiB
VB.net
Imports Extensiones
|
|
Imports System.Data
|
|
|
|
Partial Class Compras_PopUpFacturasPendientesAutorizar
|
|
Inherits ClsPaginas
|
|
|
|
Private Sub Compras_PopUpFacturasPendientesAutorizar_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
CType(Me.Master, BaseMasterPage).EsPopup = True
|
|
CType(Me.Master, BaseMasterPage).PopupWidth = 750
|
|
|
|
|
|
If Not IsPostBack Then
|
|
Dim dTime As Date = Now
|
|
' txtFechaF.Text = dTime.ToString("dd/MM/yyyy")
|
|
dTime = dTime.AddDays(-30)
|
|
' txtFechaI.Text = dTime.ToString("dd/MM/yyyy")
|
|
cargadatos()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cargadatos()
|
|
Dim objCompras As New ClsCompras
|
|
|
|
Dim dTime As Date = Now
|
|
|
|
Dim FechaInc As Date = dTime
|
|
dTime = dTime.AddDays(-30)
|
|
Dim FechaFin As Date = dTime
|
|
objCompras.GetFacturasPendientesDeAutorizar(UsuarioActual.Empresa.CveEmpresa, FechaInc, FechaFin)
|
|
|
|
If objCompras.DtResultados.Rows.Count > 0 Then
|
|
TblBusqueda.Visible = True
|
|
Else
|
|
TblBusqueda.Visible = True
|
|
End If
|
|
|
|
|
|
LtlTotalRegistros.Text = objCompras.DtResultados.Rows.Count.ToString
|
|
|
|
GV.DataSource = objCompras.DtResultados
|
|
GV.DataBind()
|
|
UPDatos.Update()
|
|
|
|
End Sub
|
|
|
|
'Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs) Handles BtnBuscar.Click
|
|
' cargadatos()
|
|
'End Sub
|
|
|
|
Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
|
|
|
|
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
|
|
|
|
Dim saldo As Double = e.Row.DBCampo("Saldo").Trim.ToDecimal
|
|
|
|
'ostBackUrl =""
|
|
' e.Row.FCLinkButton("lnkSerieFolio").PostBackUrl = "" & e.Row.DBCampo("CveCompra")
|
|
' e.Row.FCLinkButton("lnkSerieFolio").Text = e.Row.DBCampo("SerieFolio")
|
|
|
|
Dim Liga As String = String.Empty
|
|
|
|
Liga = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveCompra"))
|
|
|
|
e.Row.FCLabel("lblSerieFolio").Text = String.Format("<div >{0}{1}</a></div>", Liga, e.Row.DBCampo("SerieFolio"))
|
|
|
|
|
|
e.Row.FCLabel("LblSaldo").Font.Bold = True
|
|
e.Row.FCLabel("LblSaldo").Text = "$" & saldo.ToString("###,###,###.00") & " " & e.Row.DBCampo("Abreviatura").ToString & " "
|
|
|
|
e.Row.FCLabel("lblFecha").Text = Date.Parse(e.Row.DBCampo("Fecha").ToString).ToString("dd/MM/yyyy")
|
|
e.Row.FCLabel("lblFechav").Text = Date.Parse(e.Row.DBCampo("Fechav").ToString).ToString("dd/MM/yyyy")
|
|
|
|
|
|
|
|
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
End Class
|