Commit inicial Ventas Productivo

2019-08-14 16:40:54 -07:00
commit c35cf91883
13328 changed files with 3711549 additions and 0 deletions
--- a/Ventas/RepIngresosDetalle.aspx.vb
+++ b/Ventas/RepIngresosDetalle.aspx.vb
@@ -0,0 +1,102 @@
+
+Imports Extensiones
+
+Partial Class Ventas_RepIngresosDetalle
+    Inherits ClsPaginas
+
+#Region "Propiedades"
+    Private Property RsFechaI() As String
+        Get
+            Return If(IsNothing(ViewState("RsFechaI")), "-1", CStr(ViewState("RsFechaI")))
+        End Get
+        Set
+            ViewState("RsFechaI") = Value
+        End Set
+    End Property
+    Private Property RsFechaF() As String
+        Get
+            Return If(IsNothing(ViewState("RsFechaF")), "-1", CStr(ViewState("RsFechaF")))
+        End Get
+        Set
+            ViewState("RsFechaF") = Value
+        End Set
+    End Property
+    Private Property TipoDoc() As String
+        Get
+            Return If(IsNothing(ViewState("TipoDoc")), "-1", CStr(ViewState("TipoDoc")))
+        End Get
+        Set
+            ViewState("TipoDoc") = Value
+        End Set
+    End Property
+    Private Property CveSubProyecto() As Integer
+        Get
+            Return If(IsNothing(ViewState("CveSubProyecto")), -1, ViewState("CveSubProyecto").ToString().ToEntero())
+        End Get
+        Set
+            ViewState("CveSubProyecto") = Value
+        End Set
+    End Property
+
+    Private Property CveConceptoContable() As Integer
+        Get
+            Return If(IsNothing(ViewState("CveConceptoContable")), -1, ViewState("CveConceptoContable").ToString().ToEntero())
+        End Get
+        Set
+            ViewState("CveConceptoContable") = Value
+        End Set
+    End Property
+
+    Private Property CveCuenta() As Integer
+        Get
+            Return If(IsNothing(ViewState("CveCuenta")), -1, ViewState("CveCuenta").ToString().ToEntero())
+        End Get
+        Set
+            ViewState("CveCuenta") = Value
+        End Set
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            DdlSubProyecto.DataBind()
+            RsFechaI = If(IsNothing(Request("RsFechaI")), "", Request("RsFechaI").ToString())
+            RsFechaF = If(IsNothing(Request("RsFechaF")), "", Request("RsFechaF").ToString())
+            TipoDoc = If(IsNothing(Request("TipoDoc")), "", Request("TipoDoc").ToString())
+            CveCuenta = If(IsNothing(Request("CveCuenta")), "", Request("CveCuenta").ToString())
+            CveSubProyecto = If(IsNothing(Request("CveSubProyecto")), 0, Request("CveSubProyecto").ToString().ToEntero())
+            CveConceptoContable = If(IsNothing(Request("CveConceptoContable")), -1, Request("CveConceptoContable").ToString().ToEntero())
+            TxtFechaInicio.Text = If(RsFechaI.Length > 6, DateTime.ParseExact(RsFechaI, "yyyy/MM/dd", Nothing).ToString("dd/MM/yyyy"), "")
+            TxtFechaFin.Text = If(RsFechaF.Length > 6, DateTime.ParseExact(RsFechaF, "yyyy/MM/dd", Nothing).ToString("dd/MM/yyyy"), "")
+            DdlTipoDocto.SelectedValueExist(TipoDoc)
+            DdlSubProyecto.SelectedValueExist(CveSubProyecto.ToString())
+            '
+            CargaRepIngresosDetalle()
+        End If
+    End Sub
+    Protected Sub CargaRepIngresosDetalle()
+        Dim ObjRepI As New ClsVentas()
+        ObjRepI.RepIngresosDetalle(UsuarioActual.CveEmpresa, If(RsFechaI = "", MinFecha, RsFechaI.ToDate), If(RsFechaF = "", MaxFecha, RsFechaF.ToDate), TipoDoc, CveSubProyecto, CveConceptoContable, CveCuenta)
+        GVRepIngresos.DataSource = ObjRepI.DtResultados
+        ObjRepI.Dispose()
+        GVRepIngresos.DataBind()
+        upDatosRepI.Update()
+    End Sub
+    Protected Sub LnkFiltrar_Click(sender As Object, e As EventArgs)
+        RsFechaI = TxtFechaInicio.Text.Replace("__/__/____", "").Trim()
+        RsFechaI = If(RsFechaI.Length > 6, RsFechaI.ToDate().ToString("yyyy/MM/dd"), "-1")
+        RsFechaF = TxtFechaFin.Text.Replace("__/__/____", "").Trim()
+        RsFechaF = If(RsFechaF.Length > 6, RsFechaF.ToDate().ToString("yyyy/MM/dd"), "-1")
+        TipoDoc = DdlTipoDocto.SelectedValue
+        CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero()
+        CargaRepIngresosDetalle()
+    End Sub
+    Protected Sub GVRepIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("GTipoDocto").ToString().ToEntero() = -1 Then
+                e.Row.CssClass = "Totales"
+            End If
+        End If
+    End Sub
+End Class