Commit inicial Ventas Productivo

OC/PopUpBuscarReq.aspx.vb

@@ -0,0 +1,281 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+
+Partial Class OC_PopUpBuscarReq
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+    Private ReadOnly Property VinculacionOC As String
+        Get
+            Return ViewState("VinculacionOC").ToString
+        End Get
+    End Property
+    Private ReadOnly Property CveProveedor As String
+        Get
+            Return ViewState("CveProveedor").ToString
+        End Get
+    End Property
+    Private ReadOnly Property Ruta As String
+        Get
+            Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+        End Get
+    End Property
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CType(Me.Master, BaseMasterPage).EsPopup = True
+            Dim UsaParametros = False
+
+            ViewState("VinculacionOC") = ""
+            ViewState("CveProveedor") = ""
+            DivDatos.Attributes.Add("style", "overflow-y: auto; width: 750px; height: 220px;")
+            GV.Width = 750
+            If Request("V") IsNot Nothing AndAlso Request("V").ToString <> "" Then
+                If Request("P") IsNot Nothing AndAlso Request("P").ToString <> "" Then
+                    CargarVinculacionCompras()
+                    DivDatos.Attributes.Add("style", "overflow-y: auto; width: 950px; height: 700px;")
+                    GV.Width = 950
+                    GV.Columns(4).Visible = False
+                    If UsuarioActual.Empresa.MetodoOC <> 2 Then
+                        BtnVincularOC.Visible = True
+                    End If
+                    UsaParametros = True
+                End If
+            End If
+
+            If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then
+                ViewState("VinculacionOC") = Request("Op").ToString
+                If ViewState("VinculacionOC").ToString = "FactFle" Then
+                    DdlTipo.SelectedValue = "OC"
+                    DdlTipo.Enabled = False
+                End If
+            End If
+
+            If Not UsaParametros Then
+                GV.Columns(7).Visible = False
+                CargaURLParametros()
+            End If
+
+
+        End If
+
+    End Sub
+
+
+#Region "  CARGA URL PARAMETROS  "
+    Private Sub CargaURLParametros()
+        txtFechaI.Text = Now.FirstDayOfMonth.AddMonths(-3).ToShortDateString
+        CargaEstatus()
+
+        If UsuarioActual.Empresa.GralSoloProyecto Then
+            TdProyecto.Visible = False
+            TdProyecto2.Visible = False
+            LtSubProyecto.Text = "Proyecto:"
+        Else
+            'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
+            'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
+            '                            GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
+            DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
+            DdlProyectos.DataBind()
+            DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.DataBind()
+
+        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        'DdlSubProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(DdlProyectos.SelectedValue.ToEntero).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
+                                        GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyectos.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    End Sub
+#End Region
+
+#Region "  DDLS  "
+    Private Sub DdlTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipo.SelectedIndexChanged
+        CargaEstatus()
+    End Sub
+
+    Private Sub CargaEstatus()
+        DdlEstatus.DataSource = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (Tipo = '{0}' OR '{0}' = '-1')", DdlTipo.SelectedValue.ToString))
+        DdlEstatus.DataBind()
+        If DdlTipo.SelectedValue = "-1" Or DdlTipo.SelectedValue = "REQ" Then DdlEstatus.Items.Insert(0, New ListItem("Pre Requisicion", "0"))
+        DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+    Protected Sub DdlProyectos_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaSubProyectos(DdlProyectos.SelectedValue.ToEntero)
+    End Sub
+    Private Sub CargaSubProyectos(CveProyecto As Integer)
+        DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
+                                        GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1),
+                                        GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyectos.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+#End Region
+
+#Region "  CARGA DATOS  "
+    Protected Sub CargarVinculacionCompras() ' CUANDO VIENE DESDE COMPRAS
+        ViewState("VinculacionOC") = Request("V")
+        ViewState("CveProveedor") = Request("P")
+        UPFiltros.Visible = False
+
+        Dim ObjPro As New ClsCompProveedores
+        ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)
+        If ObjPro.DtResultados.Rows.Count > 0 Then
+            LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString)
+        End If
+        ObjPro.Dispose()
+
+        'Cargar Datos
+        Dim ObjOC As New ClsOC
+        'ObjOC.GetOC(-1, UsuarioActual.CveEmpresa)
+        ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, ViewState("CveProveedor").ToString.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa, -1)
+        Dim DtOC = ObjOC.DtResultados.FiltraParametros("TipoTermino =  3") ' tipotermino, esattus inicial
+        ObjOC.Dispose()
+
+
+        If DtOC.Rows.Count > 0 Then ' tipotermino, esattus inicial
+            BtnVincularOC.Visible = True
+        End If
+
+        'SOLO CARGAMOS OC'S QUE ESTEN PENDIENTES POR SURTIR
+        GV.DataSource = DtOC.FiltraParametros("CveOrdenCompraDisponible > 0")
+
+        GV.DataBind()
+        LtlTotalRegistros.Text = GV.Rows.Count.ToString
+        LblTotalRegistros.Text = "Número de registros: "
+
+        UPDatos.Update()
+    End Sub
+    Protected Sub BtnBuscar_Click(sender As Object, e As EventArgs)
+        Dim CveProyecto = -1
+        Dim CveSubProyecto = -1
+
+        If UsuarioActual.Empresa.GralSoloProyecto Then
+            CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
+        Else
+            CveProyecto = DdlProyectos.SelectedValue.ToEntero
+            CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
+        End If
+
+        Dim FI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate)
+        Dim guia As String = If(TxtGuia.Text.Trim = "", "-1", TxtGuia.Text)
+        'Cargar Datos
+        Dim ObjOC As New ClsOC
+        ObjOC.GetOrdenesCompraRep(DdlTipo.SelectedValue, CveProyecto, CveSubProyecto, -1, DdlEstatus.SelectedValue.ToEntero, FI, MaxFecha, -1, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text.ToEntero <= 0, -1, TxtFolio.Text.ToEntero), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Guia:=guia,
+                                  SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False))
+        Dim DtOC = ObjOC.DtResultados ' tipotermino, esattus inicial
+        ObjOC.Dispose()
+
+        GV.DataSource = DtOC
+        GV.DataBind()
+        LtlTotalRegistros.Text = GV.Rows.Count.ToString
+        LblTotalRegistros.Text = "Número de registros: "
+        UPDatos.Update()
+    End Sub
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            'Si la empresa es MetodoOC 2 habilitamos la opcion de Hyperlink para vincular OC
+            If ViewState("VinculacionOC").ToString = "VOCCOMP" AndAlso UsuarioActual.Empresa.MetodoOC = 2 Then
+                GV.Columns(2).Visible = False
+                e.Row.FCHyperLink("HLFolio").Visible = True
+                e.Row.FCLabel("LbFolio").Visible = False
+
+                e.Row.FCHyperLink("HLDescripcion").Visible = True
+                e.Row.FCLabel("LbDescripcion").Visible = False
+
+                Dim Link = String.Format("javascript:Ir3('{0}','{1}','{2}');", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"), e.Row.DBCampo("CveEstatusSiguiente"))
+
+                e.Row.FCHyperLink("HLFolio").NavigateUrl = Link
+                e.Row.FCHyperLink("HLDescripcion").NavigateUrl = Link
+
+            ElseIf ViewState("VinculacionOC").ToString = "FactFle" Then
+                e.Row.FCHyperLink("HLFolio").Visible = True
+                e.Row.FCLabel("LbFolio").Visible = False
+
+                e.Row.FCHyperLink("HLDescripcion").Visible = True
+                e.Row.FCLabel("LbDescripcion").Visible = False
+                Dim Link = String.Format("javascript:Ir4('{0}');", e.Row.DBCampo("CveOrdenCompra"))
+
+                e.Row.FCHyperLink("HLFolio").NavigateUrl = Link
+                e.Row.FCHyperLink("HLDescripcion").NavigateUrl = Link
+
+            ElseIf ViewState("VinculacionOC").ToString = "" Then
+                e.Row.FCHyperLink("HLFolio").Visible = True
+                e.Row.FCLabel("LbFolio").Visible = False
+
+                e.Row.FCHyperLink("HLDescripcion").Visible = True
+                e.Row.FCLabel("LbDescripcion").Visible = False
+
+                Dim Link = String.Format("javascript:Ir(""{0}"");", e.Row.DBCampo("CveOrdenCompra"))
+
+                e.Row.FCHyperLink("HLFolio").NavigateUrl = Link
+                e.Row.FCHyperLink("HLDescripcion").NavigateUrl = Link
+
+
+                e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=OC&CVEOC={0}", e.Row.DBCampo("CveOrdenCompra"))))
+                'HLImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompra)))
+
+            End If
+
+            If e.Row.DataKey("FolioREQ").ToString.Trim.Length > 0 Then
+
+                Dim LbFolio As Label = e.Row.FCLabel("LbFolio")
+
+                LbFolio.Attributes.Add("data-toggle", "tooltip")
+                LbFolio.Attributes.Add("data-placement", "top")
+                LbFolio.Attributes.Add("title", "REQ: " & e.Row.DataKey("FolioREQ").ToString)
+
+            End If
+
+
+            If ViewState("CveProveedor").ToString <> "" And UsuarioActual.CveEmpresa.Contiene(72) Then
+                GV.Columns(2).Visible = False
+            End If
+
+            e.Row.Cells(5).Text = e.Row.DBCampo("DetallePS").Replace("^", "<br />")
+
+        End If
+    End Sub
+#End Region
+
+#Region "  VINCULA CON COMPRAS  "
+    Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
+        Dim CveOC As String = ""
+        Dim Folio As String = ""
+        Dim CveEstatus As String = ""
+
+        For i As Integer = 0 To (GV.Rows.Count - 1)
+            If GV.Rows(i).FCCheckBox("CheckVincular").Checked = True Then
+                If CveOC <> "" Then
+                    CveOC &= String.Format(", {0}", GV.Rows(i).DataKey("CveOrdenCompra").ToString)
+                    Folio &= String.Format(", {0}", GV.Rows(i).DataKey("Folio").ToString)
+                    CveEstatus &= String.Format(", {0}", GV.Rows(i).DataKey("CveEstatusSiguiente").ToString)
+                Else
+                    CveOC = GV.Rows(i).DataKey("CveOrdenCompra").ToString
+                    Folio = GV.Rows(i).DataKey("Folio").ToString
+                    CveEstatus = GV.Rows(i).DataKey("CveEstatusSiguiente").ToString
+                End If
+            End If
+        Next
+
+        If CveOC <> "" AndAlso CveOC.Length > 0 Then
+            RegistraScript(String.Format("javascript: Ir3('{0}','{1}','{2}');", CveOC, Folio, CveEstatus))
+        Else
+            Alert("No seleccionó ninguna Orden de Compra, Por lo cual no se puede vincular.", TipoMensaje.MsgAdvertencia)
+        End If
+
+    End Sub
+#End Region
+
+
+
+End Class