Commit inicial Ventas Productivo

OC/RepOCxSurtir.aspx.vb

@@ -0,0 +1,78 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Partial Class OC_RepOCxSurtir
+    Inherits ClsPaginas
+
+    Protected Sub OC_RepOCxSurtir_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            InicializaValores()
+
+        End If
+    End Sub
+
+
+#Region "  INICIALIZA VALORES  "
+    Private Sub InicializaValores()
+        TxtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
+        TxtFechaF.Text = Now.ToShortDateString
+
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.DataBind()
+        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        DdlCliente.DataBind()
+        DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        UPFiltros.Update()
+    End Sub
+#End Region
+
+#Region "  CARGA DATOS  "
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjOC As New ClsOC
+
+        Dim FechaI, FechaF As String
+        FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
+        FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
+
+        If ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjOC.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        GvDatos.DataBind()
+        ObjOC.Dispose()
+        UpDatos.Update()
+    End Sub
+
+    Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CveOrdenCompra") = "" Then
+                e.Row.CssClass = "Totales"
+                e.Row.Cells(3).Visible = False
+                e.Row.Cells(2).ColumnSpan = 2
+            ElseIf e.Row.DBCampo("CodigoPS") = "" Then
+                e.Row.CssClass = "SubTotales2"
+            Else
+                e.Row.Cells(0).Text = ""
+                e.Row.Cells(1).Text = ""
+                e.Row.Cells(2).Text = ""
+            End If
+        End If
+    End Sub
+
+#End Region
+
+End Class
+