Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
501
OC/RepOC.aspx.vb
Normal file
501
OC/RepOC.aspx.vb
Normal file
@@ -0,0 +1,501 @@
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Partial Class RepOC
|
||||
Inherits ClsPaginas
|
||||
#Region "PROPIEDADES"
|
||||
Private Property DtOC As DataTable
|
||||
Get
|
||||
Return DirectCast(ViewState("DtOC"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DtOC") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property DtPorAtender As DataTable
|
||||
Get
|
||||
Return DirectCast(ViewState("DtPorAtender"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DtPorAtender") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
txtFechaI.Text = Now.AddMonths(-3).ToShortDateString
|
||||
txtFechaF.Text = Now.ToShortDateString
|
||||
|
||||
DdlTipo.SelectedValue = IfNull(Request("Tipo"), "-1").ToString
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 2 Then DivAF.Visible = False
|
||||
|
||||
If DdlTipo.SelectedValue <> "-1" Then DdlTipo_SelectedIndexChanged(sender, e)
|
||||
|
||||
If Not UsuarioActual.Empresa.Funcionalidad(519) = "1" Then
|
||||
GvPorAtender.Columns(0).Visible = False
|
||||
GvPendientes.Columns(0).Visible = False
|
||||
GvConsultar.Columns(0).Visible = False
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.GrupoEmpresa = 0 Then
|
||||
GvPorAtender.Columns(1).Visible = False
|
||||
GvPendientes.Columns(1).Visible = False
|
||||
GvConsultar.Columns(1).Visible = False
|
||||
End If
|
||||
|
||||
'If UsuarioActual.TienePermisoProceso(227) Then
|
||||
' DivTotalOC.Visible = True
|
||||
'End If
|
||||
|
||||
CargaProyectos()
|
||||
CargaSubProyectos()
|
||||
CargaUsuarios()
|
||||
CargaProveedores()
|
||||
CargaEstatus()
|
||||
CargaActivoFijo()
|
||||
CargaClasificacion()
|
||||
CargaPS(-1)
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(108) = "1" Then
|
||||
CargaClientes()
|
||||
Else
|
||||
ddlcliente.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End If
|
||||
|
||||
CargaPendientes()
|
||||
|
||||
txtFechaISemanal.Text = Now.FirstDayOfMonth.ToShortDateString
|
||||
txtFechaFSemanal.Text = Now.ToShortDateString
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
#Region " CARGA COMBOS "
|
||||
Protected Sub CargaProyectos()
|
||||
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.DataBind()
|
||||
DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
Protected Sub CargaSubProyectos()
|
||||
DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyectos.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
|
||||
DdlSubProyectos.DataBind()
|
||||
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
Protected Sub CargaUsuarios()
|
||||
ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
||||
ddlUsuario.DataBind()
|
||||
ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
Protected Sub CargaProveedores()
|
||||
ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
ddlProveedor.DataBind()
|
||||
ddlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
Protected Sub CargaClientes()
|
||||
clintesdiv1.Visible = True
|
||||
clintesdiv2.Visible = True
|
||||
ddlcliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
ddlcliente.DataBind()
|
||||
ddlcliente.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
GvPorAtender.Columns(12).Visible = False
|
||||
GvPendientes.Columns(12).Visible = False
|
||||
GvConsultar.Columns(12).Visible = False
|
||||
|
||||
End Sub
|
||||
Protected 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 CargaActivoFijo()
|
||||
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
|
||||
DdlActivoFijo.DataBind()
|
||||
DdlActivoFijo.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlClasificacion.SelectedIndexChanged
|
||||
CargaPS(DDlClasificacion.SelectedValue.ToEntero)
|
||||
End Sub
|
||||
Private Sub CargaClasificacion()
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
DDlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
|
||||
Else
|
||||
DDlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
|
||||
End If
|
||||
DDlClasificacion.DataBind()
|
||||
|
||||
DDlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DDlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaPS(CveClasificacion As Integer)
|
||||
|
||||
DDlPS.setEsWebService(If(UsuarioActual.Empresa.Funcionalidad(105).ToString = "1", True, False))
|
||||
|
||||
If Not UsuarioActual.Empresa.Funcionalidad(105).ToString = "1" Then
|
||||
DDlPS.ddl.Items.Clear()
|
||||
DDlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1, AplicaParaVenta:=1)
|
||||
DDlPS.ddl.DataBind()
|
||||
DDlPS.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
|
||||
DDlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
||||
Else
|
||||
DDlPS.ddlWS.Attributes.Add("data-cveclasificacion", DDlClasificacion.SelectedValue)
|
||||
DDlPS.SelectedText = "Todos"
|
||||
DDlPS.SelectedValue = "-1"
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Sub DdlProyectos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectos.SelectedIndexChanged
|
||||
CargaSubProyectos()
|
||||
End Sub
|
||||
Protected Sub DdlTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipo.SelectedIndexChanged
|
||||
CargaEstatus()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " PENDIENTES - POR ATENDER "
|
||||
Protected Sub btnConsultarPendientes_Click(sender As Object, e As EventArgs) Handles btnConsultarPendientes.Click
|
||||
LbPorAtender.Visible = True
|
||||
LbPendientes.Visible = True
|
||||
LbConsultar.Visible = False
|
||||
|
||||
Tab.Visible = True
|
||||
UPPTab.Update()
|
||||
GvConsultar.Visible = False
|
||||
UpConsultar.Update()
|
||||
|
||||
CargaPendientes()
|
||||
End Sub
|
||||
Private Sub CargaPendientes()
|
||||
|
||||
Dim OC As New ClsOC
|
||||
If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 0, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
|
||||
DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero,
|
||||
SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then
|
||||
|
||||
DtPorAtender = OC.DtResultados
|
||||
GvPorAtender.DataSource = DtPorAtender 'OC.DtResultados
|
||||
GvPorAtender.DataBind()
|
||||
|
||||
'If (GvPorAtender.Rows.Count > 0) Then
|
||||
' GvPorAtender.UseAccessibleHeader = True
|
||||
' GvPorAtender.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
' RegistraScript("AddScrollGvPorAtender();")
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 1, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
|
||||
DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero,
|
||||
SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then
|
||||
GvPendientes.DataSource = OC.DtResultados
|
||||
GvPendientes.DataBind()
|
||||
'If (GvPendientes.Rows.Count > 0) Then
|
||||
' GvPendientes.UseAccessibleHeader = True
|
||||
' GvPendientes.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
' RegistraScript("AddScrollGvPendientes();")
|
||||
'End If
|
||||
End If
|
||||
OC.Dispose()
|
||||
End Sub
|
||||
Protected Sub GVPendientes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPendientes.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
'<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataTextField="Folio" HeaderText="#">
|
||||
e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))
|
||||
e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("Fecha").ToDate.Ticks.ToString)
|
||||
e.Row.Cells(15).Attributes.Add("data-order", e.Row.DBCampo("Total").ToDecimal.ToString)
|
||||
|
||||
Select Case e.Row.DBCampo("TipoTermino") 'e.Row.DBCampo("Estatus")
|
||||
Case "0" 'Supervisada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-warning" 'Amarillo
|
||||
Case "1" 'Autorizada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-success" 'Verde
|
||||
Case "2" 'Rechazada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-danger" 'Rojo
|
||||
Case "3" 'Solicitada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-default" 'Gris
|
||||
End Select
|
||||
|
||||
If e.Row.DBCampo("Tipo") = "OC" Then
|
||||
e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("FolioREQ"))
|
||||
Else
|
||||
e.Row.FCLiteral("LtlLigaReq").Text = ""
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(519) = "1" Then
|
||||
If e.Row.DataKey("CveEvento").ToString.ToEntero > 0 Then
|
||||
e.Row.Cells(0).Text = "<i class='fa fa-exclamation-triangle' aria-hidden='true'></i>"
|
||||
e.Row.Cells(0).ForeColor = Drawing.Color.DarkOrange
|
||||
Dim ToolTip = "<b>Fecha:</b>" & e.Row.DataKey("FechaIng") & " <b>Usuario:</b>" & e.Row.DataKey("UEUsuario") & " <br/> <b>Descripcion:</b>" & e.Row.DataKey("Descripcion")
|
||||
e.Row.Attributes.Add("title", ToolTip)
|
||||
e.Row.Attributes.Add("data-toggle", "tooltip")
|
||||
e.Row.Attributes.Add("data-html", "true")
|
||||
Else
|
||||
e.Row.Cells(0).Text = ""
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub GvPorAtender_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPorAtender.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
'<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataTextField="Folio" HeaderText="#">
|
||||
e.Row.FCLiteral("LtlLiga").Text = String.Format(" <a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))
|
||||
e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("Fecha").ToDate.Ticks.ToString)
|
||||
e.Row.Cells(15).Attributes.Add("data-order", e.Row.DBCampo("Total").ToDecimal.ToString)
|
||||
|
||||
Select Case e.Row.DBCampo("TipoTermino") 'e.Row.DBCampo("Estatus")
|
||||
Case "0" 'Supervisada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-warning" 'Amarillo
|
||||
Case "1" 'Autorizada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-success" 'Verde
|
||||
Case "2" 'Rechazada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-danger" 'Rojo
|
||||
Case "3" 'Solicitada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-default" 'Gris
|
||||
End Select
|
||||
|
||||
If e.Row.DBCampo("Tipo") = "OC" Then
|
||||
e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("FolioREQ"))
|
||||
Else
|
||||
e.Row.FCLiteral("LtlLigaReq").Text = ""
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(519) = "1" Then
|
||||
If e.Row.DataKey("CveEvento").ToString.ToEntero > 0 Then
|
||||
e.Row.Cells(0).Text = "<i class='fa fa-exclamation-triangle' aria-hidden='true'></i>"
|
||||
e.Row.Cells(0).ForeColor = Drawing.Color.DarkOrange
|
||||
Dim ToolTip = "<b>Fecha:</b>" & e.Row.DataKey("FechaIng") & " <b>Usuario:</b>" & e.Row.DataKey("UEUsuario") & " <br/> <b>Descripcion:</b>" & e.Row.DataKey("Descripcion")
|
||||
e.Row.Attributes.Add("title", ToolTip)
|
||||
e.Row.Attributes.Add("data-toggle", "tooltip")
|
||||
e.Row.Attributes.Add("data-html", "true")
|
||||
Else
|
||||
e.Row.Cells(0).Text = ""
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CONSULTAR "
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
|
||||
LbPorAtender.Visible = False
|
||||
LbPendientes.Visible = False
|
||||
LbConsultar.Visible = True
|
||||
DivConsultar.Visible = True
|
||||
DivPendiete.Visible = False
|
||||
DivPorAtender.Visible = False
|
||||
|
||||
Dim FI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate)
|
||||
Dim FF As Date = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.Trim.ToDate)
|
||||
|
||||
FF = FF.AddDays(1)
|
||||
|
||||
Dim OC As New ClsOC
|
||||
If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
|
||||
DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
|
||||
If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero,
|
||||
SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then
|
||||
|
||||
GvConsultar.DataSource = OC.DtResultados
|
||||
DtOC = OC.DtResultados
|
||||
LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(227) Then
|
||||
DivTotalOC.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
OC.Dispose()
|
||||
GvConsultar.DataBind()
|
||||
|
||||
If (GvConsultar.Rows.Count > 0) Then
|
||||
GvConsultar.UseAccessibleHeader = True
|
||||
GvConsultar.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
'RegistraScript("AddScrollGvConsultar();")
|
||||
End If
|
||||
|
||||
Tab.Visible = False
|
||||
UPPTab.Update()
|
||||
GvConsultar.Visible = True
|
||||
UpConsultar.Update()
|
||||
UpBusqueda.Update()
|
||||
End Sub
|
||||
Protected Sub GvConsultar_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvConsultar.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
'<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataTextField="Folio" HeaderText="#">
|
||||
e.Row.FCLiteral("LtlLiga").Text = String.Format("<a Class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))
|
||||
e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("Fecha").ToDate.Ticks.ToString)
|
||||
e.Row.Cells(15).Attributes.Add("data-order", e.Row.DBCampo("Total").ToDecimal.ToString)
|
||||
|
||||
Select Case e.Row.DBCampo("TipoTermino") 'e.Row.DBCampo("Estatus")
|
||||
Case "0" 'Supervisada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-warning" 'Amarillo
|
||||
Case "1" 'Autorizada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-success" 'Verde
|
||||
Case "2" 'Rechazada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-danger" 'Rojo
|
||||
Case "3" 'Solicitada
|
||||
e.Row.Cells(7).CssClass = "label label-sm label-Default" 'Gris
|
||||
End Select
|
||||
|
||||
If e.Row.DBCampo("Tipo") = "OC" Then
|
||||
e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("FolioREQ"))
|
||||
Else
|
||||
e.Row.FCLiteral("LtlLigaReq").Text = ""
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(519) = "1" Then
|
||||
If e.Row.DataKey("CveEvento").ToString.ToEntero > 0 Then
|
||||
e.Row.Cells(0).Text = "<i class='fa fa-exclamation-triangle' aria-hidden='true'></i>"
|
||||
e.Row.Cells(0).ForeColor = Drawing.Color.DarkOrange
|
||||
Dim ToolTip = "<b>Fecha:</b>" & e.Row.DataKey("FechaIng") & " <b>Usuario:</b>" & e.Row.DataKey("UEUsuario") & " <br/> <b>Descripcion:</b>" & e.Row.DataKey("Descripcion")
|
||||
e.Row.Attributes.Add("title", ToolTip)
|
||||
e.Row.Attributes.Add("data-toggle", "tooltip")
|
||||
e.Row.Attributes.Add("data-html", "true")
|
||||
Else
|
||||
e.Row.Cells(0).Text = ""
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " OCS POR SEMANA "
|
||||
Protected Sub BtnConsultarSemanal_Click(sender As Object, e As EventArgs)
|
||||
CargaRepSemana()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRepSemana()
|
||||
Dim DtTemp As DataTable = Nothing
|
||||
|
||||
Dim ObjOC As New ClsOC
|
||||
If ObjOC.RepOCCount(txtFechaISemanal.Text.ToDate, txtFechaFSemanal.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
DtTemp = ObjOC.DtResultados
|
||||
Else
|
||||
Alert("Ocurrió un error al obtener el reporte semanal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
End If
|
||||
ObjOC.Dispose()
|
||||
|
||||
If DtTemp IsNot Nothing Then
|
||||
GVSemanal.DataSource = DtTemp
|
||||
GVSemanal.DataBind()
|
||||
End If
|
||||
|
||||
UPDatosSemanal.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " IMPRESION "
|
||||
Protected Sub LbPorAtender_Click(sender As Object, e As System.EventArgs) Handles LbPorAtender.Click
|
||||
'GvPorAtender.ExportToExcel("OrdenesCompraPorAtender" & Now.ToShortDateString)
|
||||
ImprimePorAtender("Excel")
|
||||
End Sub
|
||||
Protected Sub LbPorAtenderPDF_Click(sender As Object, e As System.EventArgs) Handles LbPorAtenderPDF.Click
|
||||
ImprimePorAtender("PDF")
|
||||
End Sub
|
||||
Private Sub ImprimePorAtender(Optional Formato As String = "PDF")
|
||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepOCPorAtender.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
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 Folio As String = If(txtFolio.Text = "", "", $" <b>Folio:</b> {txtFolio.Text}")
|
||||
Dim Tipo = If(DdlTipo.SelectedValue = "-1", "", $" <b>Tipo:</b> {DdlTipo.SelectedItem.Text}")
|
||||
Dim Proyecto = If(DdlProyectos.SelectedValue = "-1", "", $" <b>Proyecto:</b> {DdlProyectos.SelectedItem.Text}")
|
||||
Dim SubProyecto = If(DdlSubProyectos.SelectedValue = "-1", "", $" <b>SubProyecto:</b> {DdlSubProyectos.SelectedItem.Text}")
|
||||
Dim Estatus = If(DdlEstatus.SelectedValue = "-1", "", $" <b>Estatus:</b> {DdlEstatus.SelectedItem.Text}")
|
||||
Dim AF = If(DdlActivoFijo.SelectedValue = "-1", "", $" <b>Activo Fijo:</b> {DdlActivoFijo.SelectedItem.Text}")
|
||||
Dim Usuario = If(ddlUsuario.SelectedValue = "-1", "", $" <b>Usuario:</b> {ddlUsuario.SelectedItem.Text}")
|
||||
Dim FI As String = If(txtFechaI.Text = "", "", $" <b>Fecha Inicio:</b> {txtFechaI.Text}")
|
||||
Dim FF As String = If(txtFechaF.Text = "", "", $" <b>Fecha Fin:</b> {txtFechaF.Text}")
|
||||
Dim Clasificacion = If(DDlClasificacion.SelectedValue = "-1", "", $" <b>Clasificación:</b> {DDlClasificacion.SelectedItem.Text}")
|
||||
Dim Producto = If(DDlPS.SelectedValue = "-1", "", $" <b>Producto/Servicio:</b> {DDlPS.SelectedText}")
|
||||
Dim Completa As String = If(CheckNoCompleta.Checked = False, "", $" , <b>No completa</b> ")
|
||||
Dim Proveedor = If(ddlProveedor.SelectedValue = "-1", "", $" <b>Proveedor:</b> {ddlProveedor.SelectedItem.Text}")
|
||||
Dim Cliente = If(ddlcliente.SelectedValue = "-1", "", $" <b>Cliente:</b> {ddlcliente.SelectedItem.Text}")
|
||||
|
||||
If DtPorAtender IsNot Nothing AndAlso DtPorAtender.Rows.Count > 0 Then
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("AgrupadoPor", $"{Folio}{Tipo}{Proyecto}{SubProyecto}{Estatus}{AF}{Usuario}{FI}{FF}{Clasificacion}{Producto}{Completa}{Proveedor}{Cliente}"))
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
If Archivo.Exists Then
|
||||
ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, "RepOCPorAtender", Formato)
|
||||
'ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rpt", DtPorAtender, params, "RepOCPorAtender", Formato), "RepOCPorAtender", Formato)
|
||||
Else
|
||||
ImprimirPDF("Empresas/Grales/Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, "RepOCPorAtender", Formato)
|
||||
'ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepOCPorAtender.rpt"), DtPorAtender, params, "RepOCPorAtender", Formato), "RepOCPorAtender", Formato)
|
||||
End If
|
||||
|
||||
Else
|
||||
Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Sub LbPendientes_Click(sender As Object, e As System.EventArgs) Handles LbPendientes.Click
|
||||
GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
|
||||
End Sub
|
||||
Protected Sub LbConsultar_Click(sender As Object, e As System.EventArgs) Handles LbConsultar.Click
|
||||
If UsuarioActual.CveEmpresa.Contiene(72) Then
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text)))
|
||||
params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
|
||||
|
||||
ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtOC, params, Formato:="EXCEL")
|
||||
Else
|
||||
GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs) Handles Tab.ActiveTabChanged
|
||||
If Tab.ActiveTabIndex = 0 Then
|
||||
DivPorAtender.Visible = True
|
||||
DivPendiete.Visible = False
|
||||
DivConsultar.Visible = False
|
||||
Else
|
||||
DivPendiete.Visible = True
|
||||
DivPorAtender.Visible = False
|
||||
DivConsultar.Visible = False
|
||||
End If
|
||||
|
||||
UpBusqueda.Update()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user