Commit inicial Ventas Productivo

Compras/PopUpFacturasPendientesAutorizar.aspx.vb

@@ -0,0 +1,85 @@
+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