Commit inicial Ventas Productivo

Ventas/RepRemisionesDetalle.aspx.vb

@@ -0,0 +1,288 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Microsoft.Reporting.WebForms
+Imports Extensiones
+Partial Class RepRemisionesDetalle
+    Inherits ClsPaginas
+    Private Shared missing As Object = System.Reflection.Missing.Value
+
+#Region "PROPIEDADES"
+    Private Property CveVenta As Integer
+        Get
+            Return ViewState("CveVenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveVenta") = value
+        End Set
+    End Property
+    Private Property FechaI As String
+        Get
+            Return ViewState("FechaI").ToString
+        End Get
+        Set(value As String)
+            ViewState("FechaI") = value
+        End Set
+    End Property
+    Private Property FechaF As String
+        Get
+            Return ViewState("FechaF").ToString
+        End Get
+        Set(value As String)
+            ViewState("FechaF") = value
+        End Set
+    End Property
+    Private Property FechaV As String
+        Get
+            Return ViewState("FechaV").ToString
+        End Get
+        Set(value As String)
+            ViewState("FechaV") = value
+        End Set
+    End Property
+    Private Property CveCliente As Integer
+        Get
+            Return ViewState("CveCliente").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveCliente") = value
+        End Set
+    End Property
+    Private Property CveContrato As Integer
+        Get
+            Return ViewState("CveContrato").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveContrato") = value
+        End Set
+    End Property
+    Private Property CveSubProyecto As String
+        Get
+            Return ViewState("CveSubProyecto").ToString
+        End Get
+        Set(value As String)
+            ViewState("CveSubProyecto") = value
+        End Set
+    End Property
+    Private Property CveMoneda As Integer
+        Get
+            Return ViewState("CveMoneda").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMoneda") = value
+        End Set
+    End Property
+    Private Property DtVentas As DataTable
+        Get
+            Return DirectCast(ViewState("DtVentas"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtVentas") = value
+        End Set
+    End Property
+#End Region
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            CargaCombos()
+
+            If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero > 0 Then
+                CveVenta = Request("CveVenta").ToEntero
+            Else
+                CveVenta = -1
+            End If
+            If Request("FechaI") IsNot Nothing AndAlso Request("FechaI").ToString.Length = 10 AndAlso Request("FechaI").ToDate > "01/01/1000".ToDate Then
+                FechaI = Request("FechaI").ToString
+                txtFechaI.Text = FechaI
+            Else
+                FechaI = "-1"
+            End If
+            If Request("FechaF") IsNot Nothing AndAlso Request("FechaF").ToString.Length = 10 AndAlso Request("FechaF").ToDate > "01/01/1000".ToDate Then
+                FechaF = Request("FechaF").ToString
+                txtFechaF.Text = FechaF
+            Else
+                FechaF = "-1"
+            End If
+            If Request("FechaV") IsNot Nothing AndAlso Request("FechaV").ToString.Length = 10 AndAlso Request("FechaV").ToDate > "01/01/1000".ToDate Then
+                FechaV = Request("FechaV").ToString
+                TxtFechaVencimiento.Text = FechaV
+            Else
+                FechaV = "-1"
+            End If
+
+            If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
+                CveCliente = Request("CveCliente").ToEntero
+
+                Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("NombreComercial", $"CveCliente ={CveCliente}")
+                If Cliente <> "" Then
+                    DdlClientes.SelectedValue = CveCliente.ToString
+                    DdlClientes.SelectedText = Cliente
+                End If
+
+            Else
+                CveCliente = -1
+            End If
+
+            If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 Then
+                CveContrato = Request("CveContrato").ToEntero
+                DdlContrato.SelectedValueExist(CveContrato)
+            Else
+                CveContrato = -1
+            End If
+            If Request("CveSubProyecto") IsNot Nothing Then
+                CveSubProyecto = Request("CveSubProyecto").ToString
+                DdlSubProyectos.SelectedValuesIfExistM(CveSubProyecto)
+            Else
+                CveSubProyecto = "-1"
+            End If
+            If Request("CveMoneda") IsNot Nothing AndAlso IsNumeric(Request("CveMoneda")) AndAlso Request("CveMoneda").ToEntero > 0 Then
+                CveMoneda = Request("CveMoneda").ToEntero
+            Else
+                CveMoneda = -1
+            End If
+
+            CargaDatos()
+            'OrdenaDatos()
+        End If
+    End Sub
+
+#Region " C A R G A - D A T O S "
+    Public Sub CargaDatos()
+        Dim ObjVentas As New ClsVentas
+
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        FechaV = If(IsDate(TxtFechaVencimiento.Text.Trim()), TxtFechaVencimiento.Text.Trim(), "-1")
+        CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
+        CveContrato = If(DdlContrato.SelectedValue.ToEntero > 0, DdlContrato.SelectedValue.ToEntero, -1)
+        CveSubProyecto = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
+
+        If ObjVentas.GetRepRemisionesSinFacturarDetalle(FechaI, FechaF, FechaV, CveCliente, CveContrato, CveVenta, UsuarioActual.CveEmpresa, CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+            If CveMoneda = 1 Or CveMoneda = 2 Then
+                DtVentas = ObjVentas.DtResultados.FiltraParametros($"CveMoneda = {CveMoneda}")
+            Else
+                DtVentas = ObjVentas.DtResultados
+            End If
+            GvDatos.DataSource = DtVentas
+            GvDatos.DataBind()
+            UPDatos.Update()
+        End If
+
+        ObjVentas.Dispose()
+    End Sub
+    Public Sub CargaCombos()
+        CargaCliente()
+        CargaContrato()
+        CargaSucursales()
+    End Sub
+    Private Sub CargaCliente()
+        'CargaClientes
+        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+        If EsWS Then
+            DdlClientes.setEsWebService(True)
+        Else
+            DdlClientes.setEsWebService(False)
+            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            DdlClientes.DataBind()
+            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+    End Sub
+    Private Sub CargaContrato()
+        Dim ObjContratos As New ClsContratos
+        DdlContrato.Items.Clear()
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, -1) Then
+            If ObjContratos.DtResultados.Rows.Count > 0 Then
+                DdlContrato.DataSource = ObjContratos.DtResultados
+                DdlContrato.DataBind()
+            End If
+
+        End If
+
+        ObjContratos.Dispose()
+        DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+    Private Sub CargaSucursales()
+        DdlSubProyectos.DataSource() = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        DdlSubProyectos.DataBind()
+        'DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+#End Region
+
+#Region "O R D E N A M I E N T O"
+    Private Sub OrdenaDatos()
+        If (GvDatos.Rows.Count > 0) Then
+            GvDatos.UseAccessibleHeader = True
+            GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
+            RegistraScript("OrdenarGV();")
+        End If
+    End Sub
+#End Region
+
+
+
+#Region "G V - D A T O S "
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("FechaVencimiento").ToDate < Now Then
+                ' e.Row.Cells(2).CssClass = "danger"
+                e.Row.Cells(2).ForeColor = Drawing.Color.Red
+            End If
+        End If
+    End Sub
+#End Region
+
+#Region "CARGA COMBOS FILTRO"
+#End Region
+
+
+#Region "PDF"
+    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+        If DtVentas IsNot Nothing Then
+            Dim StrFiltro As New StringBuilder
+
+            If DdlSubProyectos.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Sucursal</b>: {0}", DdlSubProyectos.GetSelectedText)
+            If DdlClientes.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientes.SelectedText)
+            If DdlContrato.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Contrato</b>: {0}", DdlContrato.SelectedItem.Text)
+
+            If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
+            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)
+            If TxtFechaVencimiento.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Vencimiento al</b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
+
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+            Dim FechaI = "", FechaF = ""
+
+
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("FechaInicio", FechaI))
+            params.Add(New ReportParameter("FechaFin", FechaF))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+            ImprimirPDF("Empresas/Grales/Formatos/RepRemisionesDetalle.rdlc", DtVentas, params, String.Format("ReporteRemisionesDetalle-{0}", Now.ToDateTime.ToShortDateString))
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+#End Region
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+    End Sub
+
+
+    Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        GvDatos.ExportToExcel("Reporte de Remisiones por Facturar Detalle" & Now.ToShortDateString)
+    End Sub
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+End Class