Commit inicial Ventas Productivo

Contabilidad2/RepAlmacenConta.aspx.vb

@@ -0,0 +1,34 @@
+Imports Extensiones
+
+Partial Class Contabilidad2_RepAlmacenConta
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+
+        End If
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim objInv As New ClsContabilidad
+
+        Dim FechaI, FechaF As Date
+        FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim().ToDate, MinFecha)
+        FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim().ToDate, MaxFecha)
+
+
+        If objInv.GetAlmacenContable(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+            GVAlmacen.DataSource = objInv.DtResultados
+
+        End If
+        objInv.Dispose()
+        GVAlmacen.DataBind()
+    End Sub
+
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+        UpDatos.Update()
+    End Sub
+
+
+End Class