Commit inicial Ventas Productivo

Contabilidad/RepPolizasCuadre.aspx.vb

@@ -0,0 +1,35 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+Partial Class Contabilidad_RepPolizasCuadre
+    Inherits ClsPaginas
+
+    Private Sub Contabilidad_RepPolizasCuadre_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaGrid()
+        End If
+    End Sub
+
+    Private Sub CargaGrid()
+        Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa)
+
+        If ObjPolizas.GetPolizasCuadre() Then
+            GvDatos.DataSource = ObjPolizas.DtResultados()
+        End If
+
+        ObjPolizas.Dispose()
+        GvDatos.DataBind()
+        UpDatos.Update()
+    End Sub
+
+    Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim Liga1 As String = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", e.Row.DBCampo("IdPoliza"))
+            e.Row.FCLiteral("LtNumPoliza").Text = String.Format("<a class='Texto' href='{0}' target='_blank'>{1}</a>", Liga1, e.Row.DBCampo("NumPol"))
+
+        End If
+    End Sub
+End Class